[PEN_CHECKING_STYLE(NONE),IDENT('V8.4')] MODULE STARLET; (* Built on OpenVMS Alpha V8.4 from data last modified on *30-MAR-2010 17:29:48.26 *) { © Copyright 2005 Hewlett-Packard Development Company, L.P. } { } { Confidential computer software. Valid license from HP and/or } { its subsidiaries required for possession, use, or copying. } { } { Consistent with FAR 12.211 and 12.212, Commercial Computer Software, } { Computer Software Documentation, and Technical Data for Commercial } { Items are licensed to the U.S. Government under vendor's standard } { commercial license. } { } { Neither HP nor any of its subsidiaries shall be liable for technical } { or editorial errors or omissions contained herein. The information } { in this document is provided "as is" without warranty of any kind and } { is subject to change without notice. The warranties for HP products } { are set forth in the express limited warranty statements accompanying } { such products. Nothing herein should be construed as constituting an } { additional warranty. } { } [HIDDEN] TYPE (**** Pre-declared data types ****) $BYTE = [BYTE] -128..127; $WORD = [WORD] -32768..32767; $QUAD = [QUAD,UNSAFE] RECORD L0:UNSIGNED; L1:INTEGER; END; $OCTA = [OCTA,UNSAFE] RECORD L0,L1,L2:UNSIGNED; L3:INTEGER; END; $UBYTE = [BYTE] 0..255; $UWORD = [WORD] 0..65535; $UQUAD = [QUAD,UNSAFE] RECORD L0,L1:UNSIGNED; END; $UOCTA = [OCTA,UNSAFE] RECORD L0,L1,L2,L3:UNSIGNED; END; $PACKED_DEC = [BIT(4),UNSAFE] 0..15; $DEFTYP = [UNSAFE] INTEGER; $DEFPTR = [UNSAFE] ^$DEFTYP; $BOOL = [BIT(1),UNSAFE] BOOLEAN; $BIT = [BIT(1),UNSAFE] BOOLEAN; $BIT2 = [BIT(2),UNSAFE] 0..3; $BIT3 = [BIT(3),UNSAFE] 0..7; $BIT4 = [BIT(4),UNSAFE] 0..15; $BIT5 = [BIT(5),UNSAFE] 0..31; $BIT6 = [BIT(6),UNSAFE] 0..63; $BIT7 = [BIT(7),UNSAFE] 0..127; $BIT8 = [BIT(8),UNSAFE] 0..255; $BIT9 = [BIT(9),UNSAFE] 0..511; $BIT10 = [BIT(10),UNSAFE] 0..1023; $BIT11 = [BIT(11),UNSAFE] 0..2047; $BIT12 = [BIT(12),UNSAFE] 0..4095; $BIT13 = [BIT(13),UNSAFE] 0..8191; $BIT14 = [BIT(14),UNSAFE] 0..16383; $BIT15 = [BIT(15),UNSAFE] 0..32767; $BIT16 = [BIT(16),UNSAFE] 0..65535; $BIT17 = [BIT(17),UNSAFE] 0..131071; $BIT18 = [BIT(18),UNSAFE] 0..262143; $BIT19 = [BIT(19),UNSAFE] 0..524287; $BIT20 = [BIT(20),UNSAFE] 0..1048575; $BIT21 = [BIT(21),UNSAFE] 0..2097151; $BIT22 = [BIT(22),UNSAFE] 0..4194303; $BIT23 = [BIT(23),UNSAFE] 0..8388607; $BIT24 = [BIT(24),UNSAFE] 0..16777215; $BIT25 = [BIT(25),UNSAFE] 0..33554431; $BIT26 = [BIT(26),UNSAFE] 0..67108863; $BIT27 = [BIT(27),UNSAFE] 0..134217727; $BIT28 = [BIT(28),UNSAFE] 0..268435455; $BIT29 = [BIT(29),UNSAFE] 0..536870911; $BIT30 = [BIT(30),UNSAFE] 0..1073741823; $BIT31 = [BIT(31),UNSAFE] 0..2147483647; $BIT32 = [BIT(32),UNSAFE] UNSIGNED; (* MODULE ACMEMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $ACMEMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:48.25 *) (* *) (* *) (* ************************************************************************* *) (* * * *) (* * COPYRIGHT 2000, 2001 COMPAQ COMPUTER CORPORATION * *) (* * * *) (* * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR * *) (* * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * COMPAQ SHALL NOT BE LIABLE FOR TECHNICAL OR EDITORIAL ERRORS OR * *) (* * OMISSIONS CONTAINED HEREIN. THE INFORMATION IN THIS DOCUMENT IS * *) (* * SUBJECT TO CHANGE WITHOUT NOTICE. * *) (* * * *) (* ************************************************************************* *) (* *) (*++ *) (* *) (* FACILITY: *) (* *) (* STARLET *) (* *) (* ABSTRACT: *) (* *) (* THIS MODULE DEFINES THE MESSAGE CODES USED BY THE $AUTHENTICATE[W], *) (* $LOGON[W], $SET_PASSWORD[W] AND $ACM[W] SYSTEM SERVICES. *) (* *) (* ENVIRONMENT: *) (* *) (* VMS PROTECTED SHAREABLE IMAGE ($AUTHENTICATE[W], $LOGON[W], *) (* $SET_PASSWORD[W]) *) (* VMS EXECUTIVE ($ACM[W] SERVICE) *) (* VMS AUTHENTICIATION SERVER ($ACM[W] SERVICE) *) (* *) (* AUTHOR: *) (* *) (* RICHARD J. BARRY DECEMBER 15, 1995 *) (* *) (* *) (* NOTE: *) (* 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. *) (* *) (* X-16 RJB0129 RICHARD J. BARRY 6-AUG-2001 *) (* CORRECT MESSAGE DESCRIPTION TYPOS. *) (* *) (* X-15 LJK0204 LAWRENCE J. KILGALLEN 4-JAN-2001 *) (* CHANGE FAILURE TEXT TO MENTION ACME$SERVER LOG FILE. *) (* *) (* X-14 LJK0182 LAWRENCE J. KILGALLEN 31-AUG-2000 *) (* ADD BADSTRUCTLEN. *) (* ADD CONTACTSYSMGR, PER PTR 75-43-211. *) (* *) (* X-13 AJM00701 ANDREW J. MOSKAL 24-JUL-2000 *) (* ADD NOAGENTINIT. *) (* *) (* X-12 AJM00602 ANDREW J. MOSKAL 21-JUN-2000 *) (* ADD WASCLR, WASSET AND LOCKED ALTERNATIVE SUCCESS. *) (* ADD INVITMSEQ AND NOACMECTX. *) (* ADD NOTOUTITEM. *) (* ADD AGENTLOADFAIL. *) (* UPDATE COPYRIGHT NOTICE PER MANAGEMENT DIRECTIVES. *) (* *) (* X-11 AJM63405 ANDREW J. MOSKAL 13-APR-1999 *) (* ADD INCOMPATSTATE. *) (* *) (* X-10 AJM62A07 ANDREW J. MOSKAL 29-OCT-1998 *) (* ADD BUSY. *) (* *) (* X-9 AJM62602 ANDREW J. MOSKAL 23-JUN-1998 *) (* MOVE ERROPNLOGFIL, RENAME TO ERROPENLOGFIL. *) (* ADD ERRCLOSELOGFIL AND ERRWRITELOGFIL. *) (* ADD SERVERSTART AND SERVEREXIT. *) (* CORRECT TYPO: DOIUNAVAILBLE ==> DOIUNAVAILBLE. *) (* *) (* X-8 AJM62307 ANDREW J. MOSKAL 16-MAR-1998 *) (* REINSTATE PERFORMDIALOGUE. *) (* *) (* X-7 AJM62301 ANDREW J. MOSKAL 11-MAR-1998 *) (* MOVE TRACE MESSAGES TO [ACMESRV]ACMESRVMSG.MSG. *) (* *) (* X-6 AJM62202 ANDREW J. MOSKAL 12-FEB-1998 *) (* ADD GENERAL FAILURE STATUS MESSAGE. *) (* *) (* X-5 AJM62120 ANDREW J. MOSKAL 23-JAN-1998 *) (* ADD SET SERVER (DCL INTERFACE) RELATED MESSAGES. *) (* FIX FAO DIRECTIVES: *) (* - !XQ SHOULD BE !@XQ (INDIRECT REFERENCES) *) (* - %UL SHOULD BE !UL. *) (* REVISE AUTHDOWN TEXT. *) (* *) (* X-4 AJM62103 ANDREW J. MOSKAL 8-JAN-1998 *) (* INCORPORATE $ACM[W] RELATED MESSAGE. *) (* (LEFT PRE-$ACM MESSAGES INTACT TO ALLOW FOR THE CONTINUED *) (* BUILDING OF PREVIOUS SUPPORT. MAY REVISIT PRIOR TO SSB.) *) (* *) (* X-3 JACH0036 JEREMY A. C. HITT 5-AUG-1996 *) (* ADDED MESSAGES FOR ACME MODULES. *) (* *) (* X-2 JACH0014 JEREMY A. C. HITT 4-MAR-1996 *) (* INITIAL VERSION MERGED FROM ACME STREAM. *) (*-- *) CONST ACME$_FACILITY = 1866; (*++ *) (* *) (* ADD NEW MESSAGE CODES AT THE END OF THE APPROPRIATE LIST. *) (* *) (* ASSIGNED RANGES: *) (* *) (* 0 - 99 SUCCESS ( 100 MESSAGES) *) (* 100 - 199 INFORMATIONAL ( 100 MESSAGES) *) (* 200 - 1199 WARNING (1000 MESSAGES) *) (* 1200 - 2199 ERROR (1000 MESSAGES) *) (* 2200 - 2559 FATAL ( 360 MESSAGES) *) (* *) (* 2560 - 3071 AUTHENTICATION SERVER EXECUTION CONTROL. *) (* 3072 - 4095 AUTHENTICATION SERVER EXECUTION CONTROL AND TRACING. *) (* (MESSAGES ARE DEFINED BY [ACMESRV]ACMESRVMSG.MSG) *) (* *) (*-- *) CONST ACME$_NORMAL = 122322945; ACME$_WASCLR = 122322953; ACME$_WASSET = 122322961; ACME$_LOCKED = 122322969; ACME$_CONTINUE = 122322945; ACME$_PWDSYNCH = 122323747; ACME$_PWDNOSYNCH = 122323755; ACME$_LOCLOGIN = 122323763; (* *) (* $ACM MESSAGES *) (* *) CONST ACME$_BUFFEROVF = 122323771; ACME$_SERVERSTART = 122323779; ACME$_SERVEREXIT = 122323787; (* *) (* $ACM MESSAGES *) (* *) CONST ACME$_OPINCOMPL = 122324544; ACME$_NOSUCHUSERID = 122332546; ACME$_PWDWRONG = 122332554; ACME$_ACCEXPIRED = 122332562; ACME$_PWDEXPIRED = 122332570; ACME$_INVALIDTIME = 122332578; ACME$_UNSPECIFIED = 122332586; ACME$_PWDINHISTORY = 122332594; ACME$_PWDINDICT = 122332602; ACME$_PWDTOOSHORT = 122332610; ACME$_PWDTOOLONG = 122332618; ACME$_PWDINVCHAR = 122332626; ACME$_PWDTOOEASY = 122332634; ACME$_PWDINVALID = 122332642; ACME$_PWDCANTCHANGE = 122332650; ACME$_NOLOCAUTH = 122332658; ACME$_USERIDRQRD = 122332666; ACME$_PWDRQRD = 122332674; ACME$_INSUFITM = 122332682; (* *) (* $ACM MESSAGES *) (* *) CONST ACME$_AUTHFAILURE = 122332690; ACME$_ACCOUNTLOCK = 122332698; ACME$_NOSUCHUSER = 122332706; ACME$_INVALIDPWD = 122332714; ACME$_INVNEWPWD = 122332722; ACME$_PWDNOTCHG = 122332730; ACME$_INVMAPPING = 122332738; ACME$_MAPCONFLICT = 122332746; ACME$_NOTAUTHORIZED = 122332754; ACME$_NOEXTAUTH = 122332762; ACME$_INTRUDER = 122332770; ACME$_INVPERSONA = 122332778; ACME$_NOTARGETCRED = 122332786; ACME$_NOCREDENTIALS = 122332794; ACME$_INSFDIALSUPPORT = 122332802; ACME$_INVALIDCTX = 122332810; ACME$_INVREQUEST = 122332818; ACME$_INVALIDTLV = 122332826; ACME$_NOPRIV = 122332834; ACME$_DOIUNAVAILABLE = 122332842; ACME$_NOSUCHDOI = 122332850; ACME$_TIMEOUT = 122332858; ACME$_UNSUPPORTED = 122332866; (* *) (* THIS MESSAGE IS SENT TO THE SYSTEM MANAGER WHEN DETAILS ARE IN THE LOG FILE *) (* *) CONST ACME$_FAILURE = 122332874; ACME$_ERROPENLOGFIL = 122332882; ACME$_ERRCLOSELOGFIL = 122332890; ACME$_ERRWRITELOGFIL = 122332898; ACME$_INVITMSEQ = 122332906; ACME$_NOACMECTX = 122332914; (* *) (* THIS MESSAGE IS SENT TO THE END USER WHEN DETAILS ARE IN THE LOG FILE *) (* *) CONST ACME$_CONTACTSYSMGR = 122332922; (* *) (* ERROR MESSAGES TO REPORT FAILURES OPENING AUTO-RESTART FILES *) (* *) CONST ACME$_ERROPENRESTARTFIL = 122332930; ACME$_ERROPENCONFIGSFIL = 122332938; ACME$_DIALOGUELM = 122332946; (* *) (* CONTROL (DCL) INTERFACE RELATED MESSAGES *) (* *) CONST ACME$_ACTIVE = 122338946; ACME$_INACTIVE = 122338954; ACME$_NOTSTARTED = 122338962; (* *) CONST ACME$_AGENTDBFULL = 122338970; ACME$_DUPACME = 122338978; ACME$_BUSY = 122338986; ACME$_INCOMPATSTATE = 122338994; ACME$_AGENTLOADFAIL = 122339002; ACME$_NOAGENTINIT = 122339010; ACME$_AUTHDOWN = 122340548; ACME$_INCONSTATE = 122340556; (*++ *) (* *) (* MESSAGE CODES 2560 THROUGH 4095 ARE RESERVED FOR INTERNAL (NOT VISIBLE *) (* AT THE $ACM[W] SERVICE INTERFACE) USE WITHIN THE AUTHENTICATION SERVER. *) (* *) (* ASSIGNED RANGES: *) (* *) (* 2560 - 3071 EXECUTION CONTROL *) (* (DEFINED HEREIN) *) (* 3072 - 4095 EXECUTION CONTROL AND TRACE MESSAGES *) (* (DEFINED BY [ACMESRV]ACMESRVMSG.MSG) *) (* *) (*-- *) CONST ACME$_PERFORMDIALOGUE = 122344448; ACME$_PERFORMPHASE = 122344456; ACME$_RETRYPWD = 122344464; ACME$_WAITAST = 122344472; ACME$_WAITRESOURCE = 122344480; ACME$_ASTCTXNOTFND = 122345474; ACME$_BUFTOOSMALL = 122345482; ACME$_DIALOGFULL = 122345490; ACME$_DUPCREDTYP = 122345498; ACME$_INVCREDTYP = 122345506; ACME$_INVFLAG = 122345514; ACME$_INVPARAMETER = 122345522; ACME$_NOMSGFND = 122345530; ACME$_NULLVALUE = 122345538; ACME$_RESOURCENOTAVAIL = 122345546; ACME$_UNSUPREVLVL = 122345554; ACME$_NOTOUTITEM = 122345562; ACME$_BADSTRUCTLEN = 122345570; (* FATAL *) CONST ACME$_THREADERROR = 122346500; (* END. *) (* MODULE BASMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $BASDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:33.33 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT © 1978, 2004 BY * *) (** COMPAQ COMPUTER CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* FACILITY: DEC BASIC RUN TIME LIBRARY *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE, BASMSG.MSG, CONTAINS THE DEFINITIONS OF THE BASIC *) (* MESSAGES FOR VAX/VMS. THIS FILE IS READ BY THE MESSAGE COMPILER *) (* TO BUILD AN OBJECT FILE CONTAINING THE BASIC MESSAGES. *) (* *) (* ENVIRONMENT: USER MODE - AST REENTRANT *) (* *) (* AUTHOR: RTL DEVELOPMENT, CREATION DATE: 06-MAY-1983 *) (* *) (* MODIFIED BY: *) (* *) (* NOTE #1: *) (* CHANGES TO THE THIS FILE, IF THEY INVOLVE THE FIRST 300 *) (* MESSAGES DEFINED HERE REQUIRE A CHANGE TO THE *) (* BASRTL_BASMSGNUM.SDL FILE. *) (* THE FIRST 300 MESSAGES HAVE BASIC ERROR NUMBERS ASSOCIATED *) (* WITH THEM. *) (* *) (* NOTE #2: *) (* RUN-TIME RTL CODE WILL "create" A MESSAGE CODE STARTING WITH THE *) (* BASIC MESSAGE NUMBER (BAS$K_XXXX) AND FILLING IN THE STATUS CODE *) (* FIELDS WITH THE BASIC FACILITY NUMBER AND FACILITY SPECIFIC BIT. *) (* *) (* THIS SCHEME OF BUILDING CONDITION VALUES WORKS FOR ALL MESSAGES UP *) (* THROUGH BAS$K_MAX_ERR (CURRENTLY 300). *) (* *) (* THIS ALLOWS THE RTL TO MAP BASIC ERROR NUMBERS TO VMS CONDITION CODES *) (* (AND VMS CONDITION CODES BACK TO BASIC ERROR NUMBERS). *) (* *) (* IF A SEVERITY OF A MESSAGE IS CHANGED, THE TABLE IN BASRTL_ERR_MISC *) (* MUST BE UPDATED. *) (* *) (* THERE IS NO WAY TO RELATE THE SEVERITY OF A BASIC MESSAGE TO THE *) (* SEVERITY OF THE CORRISPONDING VMS CONDITION AT RUN TIME SINCE WE *) (* "build" THE VMS CONDITION FROM THE BAS$K_XXXXX BASIC MESSAGE NUMBER. *) (* *) (* NOTE #3: *) (* THIS FILE LIVES IN THE STARLET FACILITY FOR EVMS BUILDS. THE EVMS *) (* BUILD FOR DEC$BASRTL NEEDS TO CPYSHRLIB BASMSG BEFORE USING IT. *) (* *) (* 1-001 - ORIGINAL. BLS 6-MAY-1983 *) (* 1-002 - CHANGE FACILITY TO BASIC INSTEAD OF BAS. LEB 2-JUN-1983 *) (* 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. *) (* 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. *) (* 1-012 - ADD INVTRANUM, ILLPICOPE, ILLCLISTA, TRANOTDIF. KC 26-NOV-1985. *) (* 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 MESSAGES. KC 19-DEC-1985. *) (* 1-016 - NUMBER 271 IS NOT USED. CHANGE WORDING OF 260. KC 08-JAN-1986. *) (* 1-017 - CHANGE "VAX GKS/0b" TO "VAX GKS". KC 09-JAN-1986. *) (* 1-018 - CHANGE TYPO IN DEVNOTOPE. KC 13-JAN-1986. *) (* 1-019 - CHANGE TEXT OF KEYBOARD WAIT EXHAUSTED TO "wait exhausted". *) (* KC 17-FEB-1986. *) (* 1-020 - ADD REMSTRNOT, REMAP'ED STRING NOT STATIC. KC 20-FEB-1986. *) (* 1-021 - PAD ALL THE UNUSED MESSAGES WITH SPACES SO WE CAN PATCH *) (* THEM EASILY FOR V4.5. KC 28-FEB-1986. *) (* 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. *) (* 1-025 - CHANGE TEXT OF FROLINOEG. ADD ILLCOLMIX. KC 16-JUN-1986. *) (* 1-026 - ADD ILLDEVNAM. KC 24-JUN-1986. *) (* 1-027 - ADD MESSAGES FOR PROGRAMS W/O LINE NUMBERS. DJM 14-AUG-1986. *) (* 1-028 - CHANGE TEXT FOR PROLOSSOR, ADD LOCPOICAN. DJM 17-SEP-1987. *) (* V03-001 BRIAN J. MCCARTHY 19-MAY-1993 *) (* ADD COMMENTS TO BETTER DESCRIBE HOW THE BASIC ERROR NUMBERS *) (* AND VMS BASIC CONDITION VALUES. *) (* V03-002 BRIAN J. MCCARTHY 15-JUL-1993 *) (* - ADD NEW MESSAGE FOR GOSUB IN PROGRAMS WITH LINE NUMBERS. *) (* - CHANGE ALL VAX TEXT TO DEC *) (* V03-003 BRIAN J. MCCARTHY 02-SEP-1993 *) (* - CHANGE TITLE TO CONFORM WITH OTHER RTL'S *) (* V03-004 BRIAN J. MCCARTHY 16-SEP-1993 *) (* - UPDATE COMMENTS. *) (* V03-005 KARL PUDER 24-FEB-2000 *) (* - CHANGE DEC BASIC TO ALPHA BASIC IN PROLOSSOR *) (* V03-006 KARL PUDER 17-SEP-2004 *) (* - CHANGE ALPHA BASIC TO BASIC IN PROLOSSOR *) (* *) (*-- *) (* *) (* BAS FACILITY IS BEING USED FOR DEC$BASRTL FOR UPWARD COMPATABILITY *) (* *) CONST BAS$_FACILITY = 26; (* *) (* NOTE THAT IF ANYTHING IS CHANGED BETWEEN THIS .BASE 0 STATEMENT AND *) (* THE NEXT .BASE STATEMENT, THE MODULES BASRTL_BASMSGNUM.SDL AND *) (* BASRTL_ERR_MISC.C MUST BE CHECKED TO SEE IF THEY NEED TO UPDATED ALSO. *) (* *) (* THE MESSAGES BETWEEN THE TWO .BASE DIRECTIVES HAVE BASIC MESSAGE NUMBERS *) (* ASSOCIATED WITH THEM AND THAT MUST BE REFLECTED IN THE BASRTL_BASMSGNUM.SDL *) (* AND BASRTL_ERR_MISC.C MODULES. *) (* *) CONST BAS$_VAXBAS = 1736707; BAS$_BADDIRDEV = 1736714; BAS$_ILLFILNAM = 1736722; BAS$_ACCDEVUSE = 1736730; BAS$_NO_ROOUSE = 1736738; BAS$_CANFINFIL = 1736746; BAS$_NOTVALDEV = 1736754; BAS$_IO_CHAALR = 1736762; BAS$_DEVNOTAVA = 1736770; BAS$_IO_CHANOT = 1736778; BAS$_PROVIO = 1736786; BAS$_ENDFILDEV = 1736794; BAS$_FATSYSIO_ = 1736802; BAS$_USEDATERR = 1736810; BAS$_DEVHUNWRI = 1736818; BAS$_KEYWAIEXH = 1736826; BAS$_NAMACCNOW = 1736834; BAS$_TOOMANOPE = 1736842; BAS$_ILLSYSUSA = 1736850; BAS$_DISBLOINT = 1736858; BAS$_PACIDSDON = 1736866; BAS$_DISPACNOT = 1736874; BAS$_DISPACLOC = 1736882; BAS$_ILLCLUSIZ = 1736890; BAS$_DISPACPRI = 1736898; BAS$_DISPACNEE = 1736906; BAS$_FATDISPAC = 1736914; BAS$_IO_TO_DET = 1736922; BAS$_PROC__TRA = 1736930; BAS$_CORFILSTR = 1736938; BAS$_DEVNOTFIL = 1736946; BAS$_ILLBYTCOU = 1736954; BAS$_NO_BUFSPA = 1736962; BAS$_ODDADDTRA = 1736970; BAS$_RESINSTRA = 1736980; BAS$_MEMMANVIO = 1736988; BAS$_SP_STAOVE = 1736996; BAS$_DISERRDUR = 1737004; BAS$_MEMPARFAI = 1737012; BAS$_MAGSELERR = 1737018; BAS$_MAGRECLEN = 1737026; BAS$_NONRESRUN = 1737034; BAS$_VIRBUFTOO = 1737042; BAS$_VIRARRDIS = 1737050; BAS$_MATARRTOO = 1737058; BAS$_VIRARROPE = 1737066; BAS$_ILLIO_CHA = 1737074; BAS$_LINTOOLON = 1737082; BAS$_FLOPOIERR = 1737090; BAS$_ARGTOOLAR = 1737098; BAS$_DATFORERR = 1737104; BAS$_INTERR = 1737114; BAS$_ILLNUM = 1737122; BAS$_ILLARGLOG = 1737130; BAS$_IMASQUROO = 1737138; BAS$_SUBOUTRAN = 1737146; BAS$_CANINVMAT = 1737154; BAS$_OUTOF_DAT = 1737162; BAS$_ON_STAOUT = 1737170; BAS$_NOTENODAT = 1737178; BAS$_INTOVEFOR = 1737186; BAS$_DIVBY_ZER = 1737194; BAS$_NO_RUNSYS = 1737202; BAS$_FIEOVEBUF = 1737210; BAS$_NOTRANACC = 1737218; BAS$_ILLMAGUSA = 1737226; BAS$_MISSPEFEA = 1737234; BAS$_ILLSWIUSA = 1737242; BAS$_UNUERR068 = 1737252; BAS$_UNUERR069 = 1737260; BAS$_UNUERR070 = 1737268; BAS$_STANOTFOU = 1737276; BAS$_RETWITGOS = 1737284; BAS$_FNEWITFUN = 1737292; BAS$_UNDFUNCAL = 1737300; BAS$_ILLSYM = 1737308; BAS$_ILLVER = 1737316; BAS$_ILLEXP = 1737324; BAS$_ILLMODMIX = 1737332; BAS$_ILLIF_STA = 1737340; BAS$_ILLCONCLA = 1737348; BAS$_ILLFUNNAM = 1737356; BAS$_ILLDUMVAR = 1737364; BAS$_ILLFN_RED = 1737372; BAS$_ILLLINNUM = 1737380; BAS$_MODERR = 1737388; BAS$_CANCOMSTA = 1737394; BAS$_EXPTOOCOM = 1737404; BAS$_ARGDONMAT = 1737412; BAS$_TOOMANARG = 1737420; BAS$_INCFUNUSA = 1737424; BAS$_ILLDEFNES = 1737436; BAS$_FORWITNEX = 1737444; BAS$_NEXWITFOR = 1737452; BAS$_DEFWITFNE = 1737460; BAS$_FNEWITDEF = 1737468; BAS$_LITSTRNEE = 1737476; BAS$_TOOFEWARG = 1737484; BAS$_SYNERR = 1737492; BAS$_STRIS_NEE = 1737500; BAS$_NUMIS_NEE = 1737508; BAS$_DATTYPERR = 1737516; BAS$_ONEOR_TWO = 1737524; BAS$_PROLOSSOR = 1737532; BAS$_RESNO_ERR = 1737540; BAS$_REDARR = 1737546; BAS$_INCSUBUSE = 1737552; BAS$_ON_STANEE = 1737564; BAS$_ENDOF_STA = 1737572; BAS$_WHA = 1737579; BAS$_BADLINNUM = 1737588; BAS$_NOTENOAVA = 1737596; BAS$_EXEONLFIL = 1737604; BAS$_PLEUSERUN = 1737612; BAS$_CANCON = 1737620; BAS$_FILEXIREN = 1737628; BAS$_PRIUSIFOR = 1737634; BAS$_MATARRWIT = 1737644; BAS$_BADNUMPRI = 1737652; BAS$_ILLIN_IMM = 1737660; BAS$_PRIUSIBUF = 1737668; BAS$_ILLSTA = 1737676; BAS$_ILLFIEVAR = 1737684; BAS$_STO = 1737691; BAS$_MATDIMERR = 1737700; BAS$_WROMATPAC = 1737708; BAS$_MAXMEMEXC = 1737716; BAS$_SCAFACINT = 1737724; BAS$_TAPRECNOT = 1737730; BAS$_TAPBOTDET = 1737738; BAS$_KEYNOTCHA = 1737746; BAS$_NO_CURREC = 1737754; BAS$_RECHASBEE = 1737762; BAS$_ILLUSADEV = 1737770; BAS$_DUPKEYDET = 1737778; BAS$_ILLUSA = 1737786; BAS$_ILLILLACC = 1737794; BAS$_ILLKEYATT = 1737802; BAS$_FILIS_LOC = 1737810; BAS$_INVFILOPT = 1737818; BAS$_INDNOTINI = 1737826; BAS$_ILLOPE = 1737834; BAS$_ILLRECFIL = 1737842; BAS$_BADRECIDE = 1737850; BAS$_INVKEYREF = 1737858; BAS$_KEYSIZTOO = 1737866; BAS$_TAPNOTANS = 1737874; BAS$_RECNUMEXC = 1737882; BAS$_BADRECVAL = 1737890; BAS$_NOTENDFIL = 1737898; BAS$_NO_PRIKEY = 1737906; BAS$_KEYFIEBEY = 1737914; BAS$_ILLRECACC = 1737922; BAS$_RECALREXI = 1737930; BAS$_RECBUCLOC = 1737938; BAS$_RECNOTFOU = 1737946; BAS$_SIZRECINV = 1737954; BAS$_RECFILTOO = 1737962; BAS$_PRIKEYOUT = 1737970; BAS$_KEYLARTHA = 1737978; BAS$_FILATTNOT = 1737986; BAS$_MOVOVEBUF = 1737994; BAS$_CANOPEFIL = 1738002; BAS$_NO_FILNAM = 1738010; BAS$_TERFORFIL = 1738018; BAS$_CANPOSEOF = 1738026; BAS$_NEGFILSTR = 1738034; BAS$_ILLRECFOR = 1738042; BAS$_ILLALLCLA = 1738050; BAS$_UNUERR169 = 1738060; BAS$_INDNOTFUL = 1738066; BAS$_RRVNOTFUL = 1738074; BAS$_RECLOCFAI = 1738082; BAS$_INVRFAFIE = 1738090; BAS$_FILEXPDAT = 1738098; BAS$_NODNAMERR = 1738106; BAS$_NEGZERTAB = 1738112; BAS$_TOOMUCDAT = 1738120; BAS$_EXRMSSHR = 1738130; BAS$_UNEFILDAT = 1738138; BAS$_NOSUPFOR = 1738146; BAS$_DECERR = 1738154; BAS$_NETOPEREJ = 1738162; BAS$_REMOVEBUF = 1738170; BAS$_UNAREMVAR = 1738180; BAS$_RECOVEMAP = 1738188; BAS$_IMPERRHAN = 1738196; BAS$_ILLRECLOC = 1738204; BAS$_REQRECSIZ = 1738210; BAS$_TOOLITDAT = 1738216; BAS$_ILLNETOPE = 1738226; BAS$_ILLTFFOPE = 1738234; BAS$_ILLWAIVAL = 1738242; BAS$_DEADLOCK = 1738250; BAS$_NOTBASIC = 1738258; BAS$_DIMOUTRAN = 1738266; BAS$_REMSTRNOT = 1738276; BAS$_ARRTOOSMA = 1738282; BAS$_UNUERR198 = 1738292; BAS$_UNUERR199 = 1738300; BAS$_UNUERR200 = 1738308; BAS$_UNUERR201 = 1738316; BAS$_UNUERR202 = 1738324; BAS$_UNUERR203 = 1738332; BAS$_UNUERR204 = 1738340; BAS$_UNUERR205 = 1738348; BAS$_UNUERR206 = 1738356; BAS$_UNUERR207 = 1738364; BAS$_UNUERR208 = 1738372; BAS$_UNUERR209 = 1738380; BAS$_UNUERR210 = 1738388; BAS$_UNUERR211 = 1738396; BAS$_UNUERR212 = 1738404; BAS$_UNUERR213 = 1738412; BAS$_UNUERR214 = 1738420; BAS$_UNUERR215 = 1738428; BAS$_UNUERR216 = 1738436; BAS$_UNUERR217 = 1738444; BAS$_UNUERR218 = 1738452; BAS$_UNUERR219 = 1738460; BAS$_UNUERR220 = 1738468; BAS$_UNUERR221 = 1738476; BAS$_UNUERR222 = 1738484; BAS$_UNUERR223 = 1738492; BAS$_UNUERR224 = 1738500; BAS$_UNUERR225 = 1738508; BAS$_GKSNOTINS = 1738514; BAS$_STRTOOLON = 1738522; BAS$_RECATTNOT = 1738530; BAS$_DIFUSELON = 1738540; BAS$_NO_FIEIMA = 1738546; BAS$_ILLSTRIMA = 1738554; BAS$_NULIMA = 1738562; BAS$_ILLNUMIMA = 1738570; BAS$_NUMIMASTR = 1738578; BAS$_STRIMANUM = 1738586; BAS$_TIMLIMEXC = 1738594; BAS$_FIRARGSEQ = 1738602; BAS$_ARRMUSSAM = 1738610; BAS$_ARRMUSSQU = 1738618; BAS$_CANCHAARR = 1738626; BAS$_FLOOVE = 1738634; BAS$_FLOUND = 1738642; BAS$_CHATO_NON = 1738650; BAS$_EXPERR = 1738658; BAS$_ILLEXIDEF = 1738668; BAS$_ERRTRANEE = 1738676; BAS$_ILLRESSUB = 1738684; BAS$_ILLRETSUB = 1738690; BAS$_ARGOUTBOU = 1738698; BAS$_NOTIMP = 1738706; BAS$_RECSUBCAL = 1738714; BAS$_FILACPFAI = 1738722; BAS$_DIRERR = 1738730; BAS$_UNUERR254 = 1738740; BAS$_UNUERR255 = 1738748; BAS$_ECHTYPNOT = 1738754; BAS$_ILLTRANUM = 1738762; BAS$_ILLPICOPE = 1738770; BAS$_CLIPONOFF = 1738778; BAS$_TRANOTDIF = 1738786; BAS$_COLNOTCON = 1738794; BAS$_ILLARESTY = 1738802; BAS$_ILLTEXJUS = 1738810; BAS$_ILLTEXPRE = 1738818; BAS$_ILLTEXPAT = 1738826; BAS$_ILLDEVID = 1738834; BAS$_DEVTYPNOT = 1738842; BAS$_DEVNOTOPE = 1738850; BAS$_DEVOUTMET = 1738858; BAS$_DEVINMET = 1738866; BAS$_UNUERR271 = 1738876; BAS$_DEVOPEINC = 1738882; BAS$_COONOTNDC = 1738890; BAS$_ILLLINSTY = 1738898; BAS$_ILLLINSIZ = 1738906; BAS$_ILLPOISTY = 1738914; BAS$_ILLTEXRAT = 1738922; BAS$_ILLTEXHEI = 1738930; BAS$_ILLSTYIND = 1738938; BAS$_ILLCOLIND = 1738946; BAS$_NUMCOOINS = 1738954; BAS$_UNINUMNOT = 1738962; BAS$_ILLECHARE = 1738970; BAS$_ILLINIVAL = 1738978; BAS$_ENTPOINOT = 1738986; BAS$_UNKGKSERR = 1738994; BAS$_INVCHASTR = 1739002; BAS$_STRLENZER = 1739010; BAS$_DATOVERF = 1739018; BAS$_ILLCNTCLA = 1739026; BAS$_ILLCOLMIX = 1739034; BAS$_ILLDEVNAM = 1739042; BAS$_USEABOINP = 1739050; BAS$_UNUERR294 = 1739060; BAS$_UNUERR295 = 1739068; BAS$_UNUERR296 = 1739076; BAS$_UNUERR297 = 1739084; BAS$_UNUERR298 = 1739092; BAS$_UNUERR299 = 1739100; BAS$_UNUERR300 = 1739108; (* *) (* THIS BASE DIRECTIVE IS CAUSING THE MESSAGES BELOW THIS TO BE PLACED AT THE *) (* VERY END (THE LIMIT) OF MESSAGES FOR THIS FACILITY. *) (* MESSAGES BELOW HERE DO NOT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH THEM. *) (* *) (* ADDITIONS OF MESSAGES THAT DO NOT HAVE BASIC MESSAGE NUMBERS ASSOCIATED WITH *) (* THEM CAN BE MADE BY DECREASING THE .BASE DIRECTIVE BY ONE AND ADDING THE *) (* MESSAGE DIRECTLY AFTER THE .BASE DIRECTIVE. *) (* *) (* ALSO NOTE THAT ANY VALUE BELOW THIS .BASE DIRECTIVE GET TRANSLATED INTO AN *) (* INFORMATIONAL STATUS AT RUN TIME. *) (* *) (* THIS METHOD ALLOWS A MESSAGE THAT MUST HAVE AN ASSOCIATED BASIC ERROR NUMBER *) (* TO BE ADDED WITHOUT CHANGING THE VALUES OF MESSAGES THAT DO NOT REQUIRE *) (* BASIC ERROR NUMBERS. *) (* *) CONST BAS$_FROGSBLIN = 1769291; BAS$_FROPIC = 1769299; BAS$_FROMOD = 1769307; BAS$_FROSUB = 1769315; BAS$_FROFUN = 1769323; BAS$_FRODEFMOD = 1769331; BAS$_FRODFSMOD = 1769339; BAS$_FROGSBMOD = 1769347; BAS$_FROOEGMOD = 1769355; (* *) CONST BAS$_ORIERRWAS = 1769363; BAS$_GKSACTIVATED = 1769372; BAS$_FROLINPIC = 1769379; BAS$_FORFILUSE = 1769387; BAS$_USEPC_PSL = 1769395; BAS$_FROIOL = 1769403; BAS$_ON_CHAFIL = 1769411; BAS$_FROLINMOD = 1769419; BAS$_FROLINSUB = 1769427; BAS$_FROLINFUN = 1769435; BAS$_FROLINDEF = 1769443; BAS$_FROLINDFS = 1769451; BAS$_FROLINGSB = 1769459; BAS$_FROLINOEG = 1769467; (* END. *) (* MODULE CLIMSGDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CLIMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:57:34.58 *) (* *) (* *) (* VERSION: 'X-11' *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992, 1993 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* MODIFIED BY: *) (* *) (* X-11 SS111808 SHAHINA SHAIK 18-NOV-2008 *) (* 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. *) (* *) (* 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. *) (* *) (* X-8 STL0200 STEVE T. LEE 30-AUG-1995 *) (* ADD NEW MESSAGES FOR DCL PIPE. *) (* *) (* X-7 DCP DAVID C. PASTERCHIK 25-AUG-1994 *) (* CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787). *) (* *) (* X-6 RAB RICHARD A. BISHOP 21-OCT-1993 *) (* REVERSE ORDER OF PREVIOUS CHANGE TO MATCH V1.5 *) (* REQUIRES CORRESPONDING FIX ON VAX *) (* *) (* X-5 DBM0010 DAVID B. MILLER 13-SEP-1993 *) (* ALIGN REVISION NUMBER WITH CMS. *) (* CORAL PARITY - ADD INVNOD. *) (* *) (* X01-003 TH THOMAS J. HOEY 22-JUL-1993 *) (* COMPLETE BLADE MERGE. *) (* 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 *) (* EVMS QAR 1872: CHANGE IVPROT TO BE IN SYNCH WITH VAX. *) (* *) (* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *) (* 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. *) (* *) (* =============================================================== *) (* *) (* X-7 CRB0239 COLIN R. BLAKE 18-DEC-1991 11:38:24.76 *) (* THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. *) (* *) (* X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991 *) (* MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION *) (* HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP. *) (* *) (* 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-1990 *) (* ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN *) (* FOR A CALL TARGET. *) (* *) (* 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-1989 *) (* 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-1989 *) (* SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING *) (* CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR *) (* COMMAND VERB/QUALIFIER MISSPELLINGS. *) (* *) (* X-10 TNF0056 TODD FLOLO 6-FEB-1989 *) (* ADD MESSAGE FOR DISABLED RUN & MCR COMMAND *) (* *) (* X-9 TNF0053 TODD FLOLO 2-DEC-1988 *) (* ADD MESSAGES FOR CAPTIVE & DISIMAGE ACCOUNTS *) (* *) (* X-8 TNF0047 TODD FLOLO 06-OCT-1988 *) (* ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING. *) (* *) (* X-7 HWS0263 HAROLD SCHULTZ 08-DEC-1986 *) (* 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-1985 *) (* 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 *) (* *) (* V04-002 HWS0130 HAROLD SCHULLZ 29-MAY-1985 *) (* ADD INVOUTSPE *) (* *) (* V04-001 HWS0117 HAROLD SCHULTZ 09-MAR-1985 *) (* ADD ATTRMBX *) (* *) (*--- *) (* *) (* DEFINE CLI RELATED STATUS VALUES *) (* *) CONST CLI$_FACILITY = 3; CLI$_ABVERB = 229384; CLI$_ABKEYW = 229392; CLI$_BUFOVF = 229400; CLI$_COMPLX = 229408; CLI$_DEFOVF = 229416; CLI$_DIRECT = 229424; CLI$_EXPSYN = 229432; CLI$_IMCHNG = 229440; (* NOT USED BY DCL NOR BY MCR *) CLI$_INSFPRM = 229448; CLI$_IVCHAR = 229456; CLI$_DEFOVF16 = 229464; (* SS111808 *) CLI$_IVKEYW = 229472; CLI$_IVOPER = 229480; CLI$_IVPROT = 229488; CLI$_IVQLOC = 229496; CLI$_IVSYMB = 229504; CLI$_IVVALU = 229512; CLI$_IVVERB = 229520; CLI$_MAXPARM = 229528; CLI$_NOATFIL = 229536; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOCCAT = 229544; CLI$_NOCOMD = 229552; CLI$_NOKEYW = 229560; CLI$_NOLIST = 229568; CLI$_NOQUAL = 229576; CLI$_NOVALU = 229584; CLI$_NOTNEG = 229592; CLI$_NULFIL = 229600; CLI$_NUMBER = 229608; CLI$_ONCOMD = 229616; CLI$_ONERR = 229624; CLI$_ONLEVL = 229632; CLI$_ONOVF = 229640; CLI$_PARMDEL = 229648; CLI$_RSLOVF = 229656; CLI$_SKPDAT = 229664; CLI$_STKOVF = 229672; CLI$_SYMDEL = 229680; CLI$_SYMOVF = 229688; CLI$_UNDSYM = 229696; CLI$_USGOTO = 229704; CLI$_VALREQ = 229712; CLI$_ONEVAL = 229720; CLI$_OVRFLW = 229728; CLI$_UNPROQUAL = 229736; (* OLD CLI INTERFACE STATUS *) CLI$_UNPROPARM = 229744; (* OLD CLI INTERFACE STATUS *) CLI$_INVKEY = 229752; (* OLD MCR STATUS GOING AWAY SOON *) CLI$_INVRSP = 229760; (* NOT USED BY DCL NOR BY MCR *) CLI$_UNDFIL = 229768; CLI$_FILOPN = 229776; (* NOT USED BY DCL NOR BY MCR *) CLI$_BADRET = 229784; (* NOT USED BY DCL NOR BY MCR *) CLI$_ABSYMD = 229792; CLI$_INVUIC = 229800; CLI$_BADTEXT = 229808; (* NOT USED BY DCL NOR BY MCR *) CLI$_ABFNAM = 229816; CLI$_IVFNAM = 229824; CLI$_BLKOVRFLOW = 229832; (* NOT USED BY DCL NOR BY MCR *) CLI$_BLKUNDFLOW = 229840; (* NOT USED BY DCL NOR BY MCR *) CLI$_BADBLK = 229848; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOLBLS = 229856; CLI$_NOCHANGE = 229864; (* MCR-ONLY STATUS *) CLI$_ABSENT = 229872; (* NEW CLI INTERFACE STATUS *) CLI$_NEGATED = 229880; (* NEW CLI INTERFACE STATUS *) CLI$_INVFILSPE = 229888; CLI$_INVLOGFIL = 229896; (* NOT USED BY DCL NOR BY MCR *) CLI$_NOTHEN = 229904; CLI$_SYMTOOLNG = 229912; CLI$_ASTDCL = 229920; (* GOES AWAY IN V4 *) CLI$_INVRANGE = 229928; CLI$_LOCNEG = 229936; (* NEW CLI INTERFACE STATUS *) CLI$_CMDNOTFND = 229944; CLI$_IVQUAL = 229952; CLI$_CMDSEG = 229960; CLI$_NOTIFY = 229968; CLI$_CONFLICT = 229976; CLI$_UNDKEY = 229984; CLI$_ARGREQ = 229992; CLI$_SYMLNG = 230000; CLI$_SYMABR = 230008; CLI$_IVKEYNAM = 230016; CLI$_NOPAREN = 230024; CLI$_IVATIME = 230032; CLI$_IVDTIME = 230040; CLI$_TKNOVF = 230048; CLI$_CMDFILERR = 230056; (* MCR-ONLY STATUS *) CLI$_INVOUTSPE = 230064; CLI$_PERMSYM = 230072; CLI$_GBLNDF = 230080; CLI$_INVGOSUB = 230088; CLI$_GOSUBMAX = 230096; CLI$_USCALL = 230104; CLI$_USGOSUB = 230112; CLI$_FRZNCTX = 230120; CLI$_NOTCTX = 230128; CLI$_INVCTXTYP = 230136; CLI$_CMDSEG2 = 230144; CLI$_INVNOD = 230152; CLI$_NULLPIPE = 230160; CLI$_INVNULLCMD = 230168; CLI$_WRGSUBSHSYN = 230176; CLI$_UNTERMSUBSH = 230184; CLI$_DUPREDSYN = 230192; CLI$_INCREDSYN = 230200; CLI$_INVREDSYN = 230208; CLI$_INVCONCHAR = 230216; CLI$_CMDNOTALLINPIP = 230224; CLI$_LBLNOTALLINPIP = 230232; CLI$_TOOMANYPIPCMD = 230240; CLI$_UNSUPITEM = 230248; (* *) (* DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES *) (* BEGIN ERROR CODE 2048 FROM WARNING TO *) (* LEAVE ROOM FOR 256 WARNINGS. *) (* *) CONST CLI$_CONFQUAL = 231426; (* OLD CLI INTERFACE STATUS *) CLI$_INVQUAL = 231434; (* OLD CLI INTERFACE STATUS *) CLI$_REQPRMABS = 231442; (* OLD CLI INTERFACE STATUS *) CLI$_INVQUALNUM = 231450; (* OLD CLI INTERFACE STATUS *) CLI$_INVREQTYP = 231458; (* USED BY CALL BACKS *) CLI$_NOVALUE = 231466; (* OLD CLI INTERFACE STATUS *) CLI$_VALCNVERR = 231474; (* OLD CLI INTERFACE STATUS *) CLI$_ILLVAL = 231482; (* USED BY CALL BACKS *) CLI$_NOOPTPRS = 231490; (* OLD CLI INTERFACE STATUS *) CLI$_CREQUEJOB = 231498; (* NOT USED BY DCL NOR BY MCR *) CLI$_SUBMITERR = 231506; (* NOT USED BY DCL NOR BY MCR *) CLI$_DEVALSPL = 231514; (* NOT USED BY DCL NOR BY MCR *) CLI$_DEVNOTSPL = 231522; (* NOT USED BY DCL NOR BY MCR *) CLI$_IVDEVTYPE = 231530; (* MCR-ONLY STATUS *) CLI$_IMGFNF = 231538; (* MCR-ONLY STATUS *) CLI$_DEVNOTFOR = 231546; (* NOT USED BY DCL NOR BY MCR *) CLI$_PWDNOTVAL = 231554; (* SET PASSWORD STATUS *) CLI$_PWDNOTVER = 231562; (* SET PASSWORD STATUS *) CLI$_PWDLOCKED = 231570; (* SET PASSWORD STATUS *) CLI$_NOTFR = 231578; (* IMAGE ACTIVATION ERROR - PART 2 *) CLI$_PWDSYNTAX = 231586; (* SET PASSWORD STATUS *) CLI$_IMGNAME = 231594; (* IMAGE ACTIVATION ERROR - PART 2 *) CLI$_IMAGEFNF = 231602; (* IMAGE ACTIVATION ERROR - PART 2 *) CLI$_BADSTRLVL = 231610; (* NOT USED BY DCL NOR BY MCR *) CLI$_REFUSED = 231618; CLI$_BADCTLMSK = 231626; (* USED BY CALL BACKS *) CLI$_INVRFM = 231634; CLI$_NOCLINT = 231642; (* MCR-ONLY STATUS *) CLI$_NOSPAWN = 231650; (* MCR-ONLY STATUS *) CLI$_SPWNIO = 231658; CLI$_TRMMBX = 231666; CLI$_STRTOOLNG = 231674; CLI$_CMDGONE = 231682; (* MCR-ONLY STATUS *) CLI$_NOCMDPROC = 231690; CLI$_INVROUT = 231698; CLI$_OLDTAB = 231706; CLI$_INVTAB = 231714; CLI$_NOTDISCON = 231722; CLI$_ENTNF = 231730; CLI$_ATTRMBX = 231738; CLI$_INVCALL = 231746; CLI$_INVIFNEST = 231754; CLI$_CAPTINT = 231762; CLI$_CAPTINQ = 231770; CLI$_NOFORCMD = 231778; CLI$_NORUNMCR = 231786; CLI$_NOREADCP = 231794; CLI$_INVPREFIX = 231802; CLI$_CAPTSPAWN = 231810; (* *) (* DEFINE INFORMATIONAL MESSAGES. *) (* *) CONST CLI$_DEFKEY = 253379; CLI$_DELKEY = 253387; CLI$_SETKEY = 253395; CLI$_SPARE1 = 253403; (* NOT CURRENTLY USED *) CLI$_ALLOC = 253411; CLI$_SUPERSEDE = 253419; CLI$_INSPRIV = 253427; (* MCR-ONLY STATUS *) CLI$_NODIRCHG = 253435; (* MCR-ONLY STATUS *) CLI$_IGNQUAL = 253443; CLI$_TABEXIST = 253451; CLI$_TABSUPER = 253459; CLI$_TABNOTFND = 253467; CLI$_DELSYM = 253475; CLI$_SYMTRUNC = 253483; CLI$_KEYCNV = 253491; CLI$_INVDEF = 253499; CLI$_MISSPELL = 253507; CLI$_MSNGENDS = 253515; (* *) (* DEFINE SUCCESSFUL MESSAGES *) (* *) CONST CLI$_SPAWNED = 261377; CLI$_ATTACHED = 261385; CLI$_RETURNED = 261393; CLI$_PRESENT = 261401; (* NEW CLI INTERFACE STATUS *) CLI$_DEFAULTED = 261409; (* NEW CLI INTERFACE STATUS *) CLI$_CONCAT = 261417; (* NEW CLI INTERFACE STATUS *) CLI$_LOCPRES = 261425; (* NEW CLI INTERFACE STATUS *) CLI$_COMMA = 261433; (* NEW CLI INTERFACE STATUS *) CLI$_OKTAB = 261441; (* CDU CONVERSION ROUTINE STATUS *) CLI$_UPGTAB = 261449; (* CDU CONVERSION ROUTINE STATUS *) CLI$_PROC_ID = 262129; (* NOT USED BY DCL NOR BY MCR *) CLI$_QUEJOBCRE = 262137; (* NOT USED BY DCL NOR BY MCR *) CLI$_NORMAL = 196609; (* END. *) (* MODULE COBMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $COBDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:33.92 *) (* *) (* FILE: COBMSG.MSG EDIT: HR 04-NOV-2000 *) (* *) (* *) (* *) (* COPYRIGHT 2000 COMPAQ COMPUTER CORPORATION *) (* *) (* COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. *) (* *) (* CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ REQUIRED *) (* FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, *) (* COMMERCIAL COMPUTER SOFTWARE, COMPUTER SOFTWARE DOCUMENTATION, AND *) (* TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO THE U.S. GOVERNMENT *) (* UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *) (* *) (* *) (* *) (* *) (* EDIT HISTORY: *) (* X-12 HR HOWARD RUTIEZER 04-NOV-2000 *) (* ADD RESDETCON, OVFDETCON, UNDDETCON. *) (* FROM EDIT HISTORY OF COB_MSG.SRC, ABOUT NOV-1999 - SZYMANSKI. *) (* BRANDING CHANGES. *) (* *) (* 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 VAX *) (* 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-1992 *) (* MERGE ANOTHER CHANGE (RANDOMBOUNDS) FROM BLADE. *) (* *) (* OLD AUDIT TRAIL.... *) (* *) (* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *) (* 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. *) (* *) (* =============================================================== *) (* *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM COBMSG.MDL *) (* VERSION 1-019. SBL 22-APR-1981 *) (* 2-002 - USE COB$ FACILITY FOR COB$_NORMAL. SBL 27-APR-1981 *) (* 2-003 - COPIED CHANGES MADE TO COBMSG.MDL TO THIS MSG FILE. THE MESSAGES *) (* ADDED INCLUDE COB$_LSTHNDUSE, COB$_LSTHNDLDB, AND COB$_EXPDBOVER. *) (* LB 7-MAY-81. *) (* 2-004 - ADDED COB$_KEYNOTMAT. PDG 24-JUL-81. *) (* 2-005 - ADDED .TITLE PDG 26-JUL-81. *) (* 2-006 - ADDED COB$_UNLUNOFIL AND COB$_RECNOTLOC. PDG 7-AUG-81. *) (* 2-007 - UPDATED COPYRIGHT DATE AND FIXED SPELLING ERROR. LB 9-AUG-81. *) (* 2-008 - ADDED COB$_UNLNO_CUR. LB 29-OCT-81. *) (* 2-009 - CHANGED COB$_GOTNO_ALT TO BE COB$_GOTO_ALT. THIS HAD BEEN IN *) (* ERROR IN THIS FILE AS WELL AS IN COBERROR. LB 1-APR-82. *) (* 2-010 - CHANGE TITLE TO COB$MSGDEF. SBL 28-AUG-1982 *) (* 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-83 *) (* 2-012 - ADDED NUMEROUS CODES FOR COBOL V4.0 SUPPORT FOR COB$IOEXCEPTION. *) (* DJM 17-NOV-86 *) (* 2-013 - CHANGED MESSAGE AND SEVERITY FOR COB$_INTDIVZER AND COB$_UNDEF_EXP *) (* AS THE PROGRAM IS ALLOWED TO CONTINUE WITH THE NEW STANDARD. *) (* ALSO - ADD MESSAGE COB$_DIVBYZER. DJM 27-APR-1987 *) (* 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-1989 *) (* 2-017 - ADD CODES FOR COBOL V5 INTRINSIC FUNCTIONS. KC 14-NOV-1991. *) (* 2-018 - ADD RANDOM BOUNDS. KC 24-JAN-1992. *) (* *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* COB$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* *) (* MACRO-32 PROGRAMMING: *) (* *) (* THE MACRO CALL: *) (* *) (* $COBDEF *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (* *) (* *) (* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES!!! *) CONST COB$_FACILITY = 25; COB$_NORMAL = 1671169; (* COBOL V4 SUPPORT, NEXT 2 MESSAGES *) CONST COB$_READUPKEY = 1671177; COB$_RECNOTSIZ = 1671185; COB$_GOTO_ALT = 1671236; COB$_RECACTPER = 1671244; COB$_NESERRPER = 1671252; COB$_TIMOVELON = 1671260; COB$_OCCDEPOVE = 1671268; COB$_SUBOVELON = 1671276; COB$_ERRDURSOR = 1671284; COB$_UNEINSCON = 1671292; COB$_CALFAI = 1671300; COB$_INVLINVAL = 1671308; (* ***** NO_USEPRO MUST BE THE FIRST ERROR *) (* ***** MESSAGE ASSOCIATED WITH *) (* ***** COB$IOEXCEPTION. IT IS USED AS *) (* ***** THE BASE OF AN ENCODING ALGORITHM. *) (* *) CONST COB$_NO_USEPRO = 1671316; COB$_ERRON_FIL = 1671324; COB$_OPTMISOPE = 1671332; COB$_FILALRLOC = 1671340; COB$_FILALROPE = 1671348; COB$_FILCLOLOC = 1671356; COB$_NO_SPACE = 1671364; COB$_FILNOTFOU = 1671372; COB$_OPTMISCLO = 1671380; COB$_FILALRCLO = 1671388; COB$_NO_NEXLOG = 1671396; COB$_OPTMISREA = 1671404; COB$_NO_NEXVAL = 1671412; COB$_RECLOCREA = 1671420; COB$_RECLOC_OK = 1671428; COB$_REAUNOFIL = 1671436; COB$_REAINCOPE = 1671444; COB$_WRIBEYBOU = 1671452; COB$_WRIUNOFIL = 1671460; COB$_WRIINCOPE = 1671468; COB$_REWNO_R_S = 1671476; COB$_REWUNOFIL = 1671484; COB$_REWINCOPE = 1671492; COB$_RECNOTEXI = 1671500; COB$_OPTMISSTA = 1671508; COB$_RECLOCSTA = 1671516; COB$_STAUNOFIL = 1671524; COB$_STAINCOPE = 1671532; COB$_RECLOCWRI = 1671540; COB$_RECLOCDEL = 1671548; COB$_DELNO_R_S = 1671556; COB$_DELUNOFIL = 1671564; COB$_DELINCOPE = 1671572; COB$_RECLOCREW = 1671580; COB$_WRIDUPKEY = 1671588; COB$_WRICREDUP = 1671596; COB$_WRINOTASC = 1671604; COB$_WRIDUPALT = 1671612; COB$_REWCREDUP = 1671620; COB$_PRIKEYCHA = 1671628; COB$_REWDISDUP = 1671636; COB$_WRIDISDUP = 1671644; COB$_REASMAMIN = 1671652; COB$_EOFON_ACC = 1671660; COB$_ERRDURACC = 1671668; COB$_DISMORMAX = 1671676; COB$_INTEXPOVE = 1671684; COB$_INTEXPUND = 1671692; COB$_INTRESOPE = 1671700; COB$_NO_MES_00 = 1671708; (* PLACE HOLDER. WAS INTDIVZER *) COB$_INVDECDIG = 1671716; COB$_NO_MES_01 = 1671724; (* PLACE HOLDER. WAS UNDEF_EXP *) COB$_WRISMAMIN = 1671732; COB$_REWSMAMIN = 1671740; COB$_NAMNOTLIN = 1671748; COB$_INVCHANAM = 1671756; COB$_ORGNOTMAT = 1671764; COB$_CANFAIL = 1671772; COB$_INVARG = 1671780; COB$_FAIGET_VM = 1671788; COB$_FAIFREEVM = 1671796; COB$_ERRDURDIS = 1671804; COB$_USE_EXIT = 1671812; COB$_RECACTUSE = 1671820; COB$_FATINTERR = 1671828; COB$_FAIGET_EF = 1671836; COB$_SETEXTFAI = 1671844; COB$_INVDECDAT = 1671852; COB$_LSTHNDUSE = 1671860; COB$_LSTHNDLDB = 1671868; COB$_EXPDBOVER = 1671876; COB$_KEYNOTMAT = 1671884; COB$_UNLUNOFIL = 1671892; COB$_RECNOTLOC = 1671900; COB$_UNLNO_CUR = 1671908; COB$_REAMP_D_R = 1671916; COB$_ERRDURPOS = 1671924; COB$_INVDEFVAL = 1671932; (* COBOL V4 SUPPORT, NEXT 10 MESSAGES *) CONST COB$_REARECTOB = 1671940; COB$_WRIRECTOB = 1671948; COB$_DEVNOTAPL = 1671956; COB$_INVRECSIZ = 1671964; COB$_RECSIZEXC = 1671972; COB$_INVRECTYP = 1671980; COB$_INVBLKFAC = 1671988; COB$_CONCODSET = 1671996; COB$_COLSEQKEY = 1672004; COB$_CONPADCHR = 1672012; (*EDIT 2-013 *) CONST COB$_MULFILERR = 1672020; (*EDIT 2-016 *) CONST COB$_NOTIMP = 1672028; (*EDIT 2-017, COBOL V5.0 SUPPORT *) CONST COB$_INTDATEBOUNDS = 1672036; COB$_INTDAYBOUNDS = 1672044; COB$_DAYINTBOUNDS = 1672052; COB$_DATEINTBOUNDS = 1672060; COB$_FACTBOUNDS = 1672068; COB$_NUMVALARGINV = 1672076; COB$_LOWERLENZERO = 1672084; COB$_UPPERLENZERO = 1672092; COB$_REVERSELENZERO = 1672100; COB$_ANNUITYBOUNDS = 1672108; COB$_CHARBOUNDS = 1672116; COB$_MODBOUNDS = 1672124; COB$_PRESVALBOUNDS = 1672132; COB$_REMBOUNDS = 1672140; COB$_RANDOMBOUNDS = 1672148; COB$_INTDIVZER = 1679170; COB$_DIVBY_ZER = 1679178; COB$_UNDEF_EXP = 1679186; (* *) (* *) (* THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT IT BY HAND. *) (* INSTEAD CHANGE COB_MSG.SRC AND RERUN THE MESSAGE CONVERT UTILITY *) (* *) (* NOTE: THIS FILE GETS CHECKED INTO [STARLET] FACILITY *) (* IT DOES NOT GO INTO [DEC$COBRTL]. *) (* *) (* *) (* *) (* VAX COBOL USES 0-499, 1000 ONWARD *) CONST COB$_INFO = 1675171; COB$_VERSION = 1675179; COB$_BUG_CHECK = 1675188; COB$_INVDATE = 1675196; COB$_NOTCOBSPE = 1675204; COB$_INVARGCOB = 1675212; COB$_SUCCESS = 1675217; COB$_DUPLICATE_OK = 1675227; COB$_RECORD_SHORT = 1675235; COB$_RECORD_LONG = 1675244; COB$_CREATED = 1675251; COB$_NOT_REEL = 1675259; COB$_EOF_DETECTED = 1675268; COB$_EOF_OPTIONAL = 1675276; COB$_ALREADY_AT_EOF = 1675284; COB$_READ_TOO_LARGE = 1675292; COB$_KEY_CHANGED = 1675300; COB$_DUPLICATE_KEY = 1675308; COB$_RECORD_NOT_FOUND = 1675316; COB$_KEY_TOO_LARGE = 1675324; COB$_PERMANENT_ERROR = 1675332; COB$_BOUNDARY = 1675340; COB$_FILE_NOT_FOUND = 1675348; COB$_IO_NOT_MASS_STORAGE = 1675356; COB$_NOT_MASS_STORAGE = 1675364; COB$_CLOSE_LOCKED = 1675372; COB$_FILE_ATTRIB = 1675380; COB$_ALREADY_OPEN = 1675388; COB$_NOT_OPEN = 1675396; COB$_NO_CURRENT = 1675404; COB$_REWRITE_SIZE = 1675412; COB$_WRITE_SIZE = 1675420; COB$_NO_NEXT_RECORD = 1675428; COB$_NOT_INPUT = 1675436; COB$_NOT_OUTPUT = 1675444; COB$_NOT_IO = 1675452; COB$_LOCKED_OK = 1675460; COB$_FILE_LOCKED = 1675468; COB$_LOCKED_FAILED = 1675476; COB$_DEVICE_FULL_OPEN = 1675484; COB$_CLOSE_ERROR = 1675492; (* NOTIMP SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_FAILURE = 1675500; COB$_END_OF_VOLUME = 1675508; COB$_NOT_END_OF_VOLUME = 1675516; COB$_NO_LOCKING = 1675524; COB$_INVALID_KEY = 1675532; COB$_END_OF_PAGE = 1675540; COB$_CONVERSION_ERROR = 1675548; COB$_SCR_NORMAL = 1675553; COB$_SCR_BUG_CHECK = 1675564; COB$_SCR_ERROR = 1675570; COB$_SCR_EOF = 1675579; COB$_SCR_CVTERR = 1675586; COB$_SCR_CVT_OFW = 1675594; COB$_SCR_NOTTY = 1675602; COB$_SCR_INVKEY = 1675610; COB$_SCR_INVDAT = 1675618; COB$_SCR_FULL = 1675626; COB$_SCR_NOT_FULL = 1675634; COB$_SCR_REQUIRED = 1675642; COB$_SCR_INVLINE = 1675650; COB$_SCR_INVCOL = 1675658; COB$_SCR_HEIGHT = 1675667; COB$_SCR_WIDTH = 1675675; COB$_SCR_NOCOLOR = 1675683; (* DIVBY_ZER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* UNDEF_EXP SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INVDECDAT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* GOTO_ALT SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* RECACTPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* NESERRPER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* TIMOVELON SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* RECACTUSE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* SUBOVELON SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INTDATEBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INTDAYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* DAYINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* DATEINTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* FACTBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* NUMVALARGINV SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* LOWERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* UPPERLENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* REVERSELENZERO SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* ANNUITYBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* CHARBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* MODBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* PRESVALBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* REMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_INSVIRMEM = 1675692; COB$_STRING_OVERFLOW = 1675700; COB$_INVALID_FNAME = 1675708; COB$_SWITCH_FAIL = 1675716; COB$_INVALID_SWITCH = 1675724; COB$_NOT_LOCKED = 1675732; COB$_NOT_LOCKED_REL = 1675740; COB$_SIZE_CHANGED = 1675748; COB$_CALL_FAILED = 1675756; COB$_CANCEL_FAILED = 1675764; COB$_INVALID_RECORD = 1675772; COB$_USE_EXECUTED = 1675780; COB$_FILE_NOT_PRESENT = 1675788; COB$_UNLOCK_FAILED = 1675796; COB$_RECORD_KEY_ZERO = 1675804; COB$_DISPLAY_ERROR = 1675812; COB$_ACCEPT_ERROR = 1675820; COB$_OPEN_ERROR = 1675828; COB$_READ_ERROR = 1675836; COB$_WRITE_ERROR = 1675844; COB$_REWRITE_ERROR = 1675852; COB$_DELETE_ERROR = 1675860; COB$_START_ERROR = 1675868; COB$_UNLOCK_ERROR = 1675876; COB$_SORT_ERROR = 1675884; COB$_KEY_MATCH_ERROR = 1675892; COB$_KEY_COUNT_ERROR = 1675900; COB$_INVALID_FOOTING = 1675908; COB$_PAGE_SIZE = 1675916; COB$_ACCEPT_CVT_ERROR = 1675924; COB$_OPEN_MFT = 1675932; COB$_DEVICE_FULL = 1675940; COB$_RECORD_EXCEEDED = 1675948; COB$_DEVICE_FULL_KEY = 1675956; COB$_SUBSCRIPT = 1675964; COB$_MFT_POSITION = 1675972; COB$_NOISAM = 1675980; COB$_ISAM_KEY_OVERLAP = 1675988; COB$_ISAM_BADFILE = 1675996; (* RANDOMBOUNDS SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_ORDLENONE = 1676004; COB$_INVTERM = 1676012; COB$_INVTERMDB = 1676020; COB$_INVARGMTH = 1676028; COB$_ISAM_BADKEY = 1676036; COB$_NOEXTFH = 1676044; COB$_ENCINA_UNKNOWN_ERROR = 1676052; COB$_FCNTLERR = 1676060; COB$_LOCKERR = 1676068; COB$_NOMOREL = 1676076; COB$_ISAM_INVKEY = 1676084; COB$_INVALID_TAPE = 1676092; COB$_TAPE_ERROR = 1676100; COB$_TAPE_SUPPORT = 1676108; COB$_CORRECT_TAPE = 1676115; COB$_NEXT_TAPE = 1676123; COB$_TAPE_PROMPT = 1676131; COB$_TAPE_SEQUENCE = 1676138; COB$_END_OF_TAPE = 1676148; COB$_TAPE_ABORT = 1676156; COB$_TAPE_DEVICE = 1676163; COB$_TAPE_ENTER = 1676171; COB$_TAPE_IN_USE = 1676180; COB$_TAPE_WRLOCK = 1676188; COB$_TAPE_OFFLINE = 1676194; COB$_INVLOCK = 1676204; COB$_NOALPHAUPROG = 1676210; COB$_BUFTOOSMALL = 1676218; COB$_COM_BUGCHECK = 1676226; COB$_ILLPICT = 1676234; COB$_BIGAPIC = 1676242; COB$_BIGNPIC = 1676250; COB$_BIGANPIC = 1676258; COB$_BIGANEPIC = 1676266; COB$_BIGNEPIC = 1676274; COB$_PICLENEXT = 1676282; COB$_PICLONG = 1676290; COB$_PICREPEAT = 1676298; COB$_PIC1ONLY = 1676306; COB$_PICPAREN = 1676314; COB$_RT_FLOAT = 1676322; COB$_PICMUTEX1 = 1676330; COB$_PICMUTEX2 = 1676338; COB$_PICMUTEX3 = 1676346; COB$_PICMUTEX4 = 1676354; COB$_ARGLIMIT = 1676362; (* INTDIVZER SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INTEXPOVE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INTEXPUND SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) (* INTRESOPE SHARED WITH VAX COBOL MESSAGES IN COBMSG.MSG *) CONST COB$_BADVERS_S = 1676372; COB$_BADVERS_I = 1676379; COB$_FILE_LOCKED_PERM = 1676388; COB$_INVFUNCARG = 1676396; COB$_RESDETCON = 1676402; COB$_OVFDETCON = 1676410; COB$_UNDDETCON = 1676418; (* END. *) (* MODULE CONVDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CONVDEF IDENT X-4 ***) CONST CONV$M_SIGNAL = 1; CONV$M_FDL_STRING = 2; TYPE CONV$TYPE = RECORD CASE INTEGER OF 1: (CONV$W_CONVDEF : $WORD; ); 2: (CONV$R_CONVDEF_BITS : [BYTE(1)] RECORD END; ); 3: (CONV$V_SIGNAL : [POS(0)] $BOOL; CONV$V_FDL_STRING : [POS(1)] $BOOL; ) END; CONST CONV$K_OPTIONS_COUNT = 0; CONV$K_CREATE = 1; CONV$K_SHARE = 2; CONV$K_FAST = 3; CONV$K_MERGE = 4; CONV$K_APPEND = 5; CONV$K_SORT = 6; CONV$K_WORK_FILES = 7; CONV$K_KEY = 8; CONV$K_PAD = 9; CONV$K_PAD_CHARACTER = 10; CONV$K_TRUNCATE = 11; CONV$K_EXIT = 12; CONV$K_FIXED_CONTROL = 13; CONV$K_FILL_BUCKETS = 14; CONV$K_READ_CHECK = 15; CONV$K_WRITE_CHECK = 16; CONV$K_FDL = 17; CONV$K_EXCEPTION = 18; CONV$K_PROLOGUE = 19; CONV$K_IGNORE_PROLOGUE = 20; CONV$K_SECONDARY = 21; CONV$K_MAX_OPTIONS = 21; CONV$C_MAX_OPTIONS = 21; CONV$S_OPTIONS = 88; TYPE CONV$OPTIONS = RECORD CONV$L_OPTIONS_COUNT : UNSIGNED; CONV$L_CREATE : UNSIGNED; CONV$L_SHARE : UNSIGNED; CONV$L_FAST : UNSIGNED; CONV$L_MERGE : UNSIGNED; CONV$L_APPEND : UNSIGNED; CONV$L_SORT : UNSIGNED; CONV$L_WORK_FILES : UNSIGNED; CONV$L_KEY : UNSIGNED; CONV$L_PAD : UNSIGNED; CONV$L_PAD_CHARACTER : UNSIGNED; CONV$L_TRUNCATE : UNSIGNED; CONV$L_EXIT : UNSIGNED; CONV$L_FIXED_CONTROL : UNSIGNED; CONV$L_FILL_BUCKETS : UNSIGNED; CONV$L_READ_CHECK : UNSIGNED; CONV$L_WRITE_CHECK : UNSIGNED; CONV$L_FDL : UNSIGNED; CONV$L_EXCEPTION : UNSIGNED; CONV$L_PROLOGUE : UNSIGNED; CONV$L_IGNORE_PROLOGUE : UNSIGNED; CONV$L_SECONDARY : UNSIGNED; END; CONST CONV$K_STATISTICS_COUNT = 0; CONV$K_FILE_COUNT = 1; CONV$K_RECORD_COUNT = 2; CONV$K_EXCEPT_COUNT = 3; CONV$K_VALID_COUNT = 4; CONV$K_MAX_STATISTICS = 4; CONV$C_MAX_STATISTICS = 4; CONV$S_STATISTICS = 20; CONV$K_KEY_NUMBER = 5; CONV$K_REC_OUT = 6; CONV$K_NODES = 7; CONV$K_WRK_ALQ = 8; CONV$K_INI_RUNS = 9; CONV$K_MRG_ORDER = 10; CONV$K_MRG_PASSES = 11; CONV$K_SORT_DIO_COUNT = 12; CONV$K_SORT_BIO_COUNT = 13; CONV$K_SORT_ELAPSED_TIME = 14; CONV$K_SORT_CPU_TIME = 16; CONV$K_SORT_PF_COUNT = 18; CONV$K_LOAD_DIO_COUNT = 19; CONV$K_LOAD_BIO_COUNT = 20; CONV$K_LOAD_ELAPSED_TIME = 21; CONV$K_LOAD_CPU_TIME = 23; CONV$K_LOAD_PF_COUNT = 25; CONV$K_EXT_STATISTICS = 25; CONV$C_EXT_STATISTICS = 25; CONV$S_EXT_STATISTICS = 104; TYPE CONV$STATISTICS = RECORD CONV$L_STATISTICS_COUNT : UNSIGNED; CONV$L_FILE_COUNT : UNSIGNED; CONV$L_RECORD_COUNT : UNSIGNED; CONV$L_EXCEPT_COUNT : UNSIGNED; CONV$L_VALID_COUNT : UNSIGNED; CONV$L_KEY_NUMBER : UNSIGNED; CONV$L_REC_OUT : UNSIGNED; CONV$L_NODES : UNSIGNED; CONV$L_WRK_ALQ : UNSIGNED; CONV$L_INI_RUNS : UNSIGNED; CONV$L_MRG_ORDER : UNSIGNED; CONV$L_MRG_PASSES : UNSIGNED; CONV$L_SORT_DIO_COUNT : UNSIGNED; CONV$L_SORT_BIO_COUNT : UNSIGNED; CONV$Q_SORT_ELAPSED_TIME : $UQUAD; CONV$Q_SORT_CPU_TIME : $UQUAD; CONV$L_SORT_PF_COUNT : UNSIGNED; CONV$L_LOAD_DIO_COUNT : UNSIGNED; CONV$L_LOAD_BIO_COUNT : UNSIGNED; CONV$Q_LOAD_ELAPSED_TIME : $UQUAD; CONV$Q_LOAD_CPU_TIME : $UQUAD; CONV$L_LOAD_PF_COUNT : UNSIGNED; END; CONST RECL$K_STATISTICS_COUNT = 0; RECL$K_SCAN_COUNT = 1; RECL$K_DATA_COUNT = 2; RECL$K_INDEX_COUNT = 3; RECL$K_TOTAL_COUNT = 4; RECL$K_MAX_STATISTICS = 4; RECL$C_MAX_STATISTICS = 4; RECL$S_STATISTICS = 20; TYPE RECL$STATISTICS = RECORD RECL$L_STATISTICS_COUNT : UNSIGNED; RECL$L_SCAN_COUNT : UNSIGNED; RECL$L_DATA_COUNT : UNSIGNED; RECL$L_INDEX_COUNT : UNSIGNED; RECL$L_TOTAL_COUNT : UNSIGNED; END; (* END. *) (* MODULE CONVMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CONVMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:47.05 *) (* *) (************************************************************************** *) (** * *) (** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1980, 1982, 1984, * *) (** 1991,1992 * *) (** ALL RIGHTS RESERVED. * *) (** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (** STATES. * *) (** * *) (** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (** DIGITAL EQUIPMENT CORPORATION. * *) (** * *) (** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (** * *) (************************************************************************** *) (* *) (*++ *) (* *) (* FACILITY: VAX-11 CONVERT *) (* *) (* ENVIRONMENT: *) (* *) (* VAX/VMS OPERATING SYSTEM *) (* *) (* ABSTRACT: *) (* 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 THAT *) (* 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. *) (* *) (* X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991 *) (* SET MACRO NAME TO $CONVMSGDEF *) (* *) (* X-2 RMM0004 RICHARD M. MARSHALL 9-AUG-1991 *) (* PORTED TO ALPHA. CORRECTED MORE SPELLING. *) (* *) (* V03-005 RAS0318 RON SCHAEFER 27-JUN-1984 *) (* FIX SPELLINGS AND TEXT OF MESSAGES. *) (* *) (* V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983 *) (* CHANGE THE TEXT OF RSZ *) (* *) (* V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1982 *) (* CHANGE THE TEXT OF CREA_ERR *) (* *) (* V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-1982 *) (* CHANGE THE MESSGAE TEXT OF PROERR TO INCLUDE VBN AND *) (* MAKE THE SIGNED VALUES UNSIGNED. *) (* *) (* V03-001 KBT0039 KEITH THOMPSON 3-APR-1982 *) (* CHANGE THE EXCEPTION MESSAGES TO INFO *) (* *) (***** *) CONST CONVERT$_FACILITY = 178; CONV$_CREATEDSTM = 11670267; (* /FAO=1 *) CONV$_INSVIRMEM = 11670258; (* *) CONV$_OPENERR = 11670410; (* /FAO=1 *) CONV$_OPENIN = 11669658; (* /FAO=1 *) CONV$_OPENOUT = 11669666; (* /FAO=1 *) CONV$_READERR = 11669682; (* /FAO=1 *) CONV$_WRITEERR = 11669714; (* /FAO=1 *) CONV$_CLOSEIN = 11669586; (* /FAO=1 *) CONV$_CLOSEOUT = 11669594; (* /FAO=1 *) CONV$_BADLOGIC = 11669794; (* *) CONV$_NOWILD = 11669802; (* *) CONV$_VALERR = 11669994; (* *) CONV$_CONFQUAL = 11670242; (* *) CONV$_FAO_MAX = 2; CONV$_NI = 11698187; CONV$_PAD = 11698195; CONV$_RMS = 11698203; CONV$_RTL = 11698211; CONV$_RTS = 11698219; CONV$_VFC = 11698227; CONV$_DUP = 11698235; CONV$_KEY = 11698243; CONV$_REX = 11698251; CONV$_RSK = 11698259; CONV$_RSZ = 11698267; CONV$_SEQ = 11698275; CONV$_BADBLK = 11698282; CONV$_CREA_ERR = 11698290; CONV$_DELPRI = 11698298; (*UNUSED IN V4 *) CONV$_EXTN_ERR = 11698306; CONV$_FATALEXC = 11698314; CONV$_BADSORT = 11698322; CONV$_FILLIM = 11698330; CONV$_IDX_LIM = 11698338; CONV$_ILL_KEY = 11698346; CONV$_ILL_VALUE = 11698354; CONV$_INP_FILES = 11698362; CONV$_KEYREF = 11698370; (*UNUSED IN V4 *) CONV$_LOADIDX = 11698378; CONV$_NARG = 11698386; CONV$_NOKEY = 11698394; CONV$_NOTIDX = 11698402; CONV$_NOTSEQ = 11698410; CONV$_ORDER = 11698418; CONV$_OPENEXC = 11698426; CONV$_PROERR = 11698434; CONV$_PROL_WRT = 11698442; CONV$_UDF_BKS = 11698450; CONV$_UDF_BLK = 11698458; CONV$_INVBKT = 11698466; CONV$_PLV = 11698474; (* END. *) (* MODULE CRF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CRFDEF ***) (* *) (* CRF$INSRTREF ARGUMENT LIST *) (* *) TYPE CRF$TYPE = RECORD CRFDEF$$_FILL_1 : INTEGER; (* ARGUMENT COUNT *) CRF$L_IR_CTLTBL : UNSIGNED; (* CRF CONTROL TABLE ADR *) CRF$L_IR_KEYADR : UNSIGNED; (* KEY ADDRESS *) CRF$L_IR_REFADR : UNSIGNED; (* REFERENCE INDICATOR ADR *) CRF$W_IR_REFLAG : $UWORD; (* REFERENCE INDICATOR FLAGS *) CRFDEF$$_FILL_2 : ARRAY [1..2] OF $BYTE; (* UNUSED *) CRF$B_IR_DEFIND : $UBYTE; (* DEFINITION INDICATOR *) CRFDEF$$_FILL_3 : ARRAY [1..3] OF $BYTE; (* UNUSED *) END; (* *) (* CRF$INSRTKEY ARGUMENT LIST *) (* *) TYPE CRF1$TYPE = RECORD CRFDEF$$_FILL_4 : INTEGER; (* ARGUMENT COUNT *) CRF$L_IK_CTLTBL : UNSIGNED; (* CRF CONTROL TABLE ADR *) CRF$L_IK_KEYADR : UNSIGNED; (* ADDRESS OF KEY *) CRF$L_IK_VALADR : UNSIGNED; (* ADDRESS OF VALUE *) CRF$W_IK_VALFLG : $UWORD; (* VALUE FLAGS *) CRFDEF$$_FILL_5 : ARRAY [1..2] OF $BYTE; (* UNUSED *) END; (* *) (* CRF$OUT ARGUMENT LIST *) (* *) TYPE CRF2$TYPE = RECORD CRFDEF$$_FILL_6 : INTEGER; (* ARGUMENT COUNT *) CRF$L_OU_CTLTBL : UNSIGNED; (* CRF CONTROL TABLE ADR *) CRF$L_OU_LINWID : UNSIGNED; (* OUTPUT LINE WIDTH *) CRF$B_OU_PAG1 : $UBYTE; (* ! LINES/PAGE 1 *) CRFDEF$$_FILL_7 : ARRAY [1..3] OF $BYTE; (* UNUSED *) CRF$B_OU_SUCPAG : $UBYTE; (* ! LINES/SUCCESSIVE PAGES *) CRFDEF$$_FILL_8 : ARRAY [1..3] OF $BYTE; (* UNUSED *) CRF$B_OU_PRTIND : $UBYTE; (* REF PRINT INDICATOR *) CRFDEF$$_FILL_9 : ARRAY [1..3] OF $BYTE; (* UNUSED *) CRF$B_OU_SAVIND : $UBYTE; (* SAVE INDICATOR *) END; (* *) (* CRF CONTROL TABLE OFFSETS *) (* *) CONST CRF$M_MULDEF = 1; TYPE CRF3$TYPE = RECORD CASE INTEGER OF 1: (CRF$L_HASHT : UNSIGNED; (* HASH TABLE ADDRESS *) CRF$L_LASTKEY : UNSIGNED; (* LAST KEY LOOKED AT ADDRESS *) CRF$R_KEYTYPE_OVERLAY : [BYTE(1)] RECORD END; CRF$R_FILL_0_ : [BYTE(1)] RECORD END; CRF$W_ERRSTS : $UWORD; (* SECONDARY ERROR STATUS CODE *) CRF$L_ENTRIES : UNSIGNED; (* NUMBER OF ENTRIES IN CROSS REFERENCE *) CRF$L_DYNMEM : ARRAY [1..2] OF UNSIGNED; (* LISTHEAD OF DYNAMIC MEMORY *) CRF$L_MAXBLK : UNSIGNED; (* SIZE (IN BYTES) OF BLOCK TO ALLOCATE *) CRF$L_MEMEXP : UNSIGNED; (* SIZE (IN PAGES) OF BLOCK TO ALLOCATE *) CRF$W_CTLTABVER : $UWORD; (* VERSION OF CONTROL TABLE *) CRF$B_VALTYPE : $UBYTE; (* SYMBOL VALUE DATA TYPE (Ver 1 and later) *) CRF$B_REFTYPE : $UBYTE; (* SYMBOL REFERENCE DATA TYPE (Ver 1 and later) *) CRFDEF$$_FILL_10 : ARRAY [1..7] OF INTEGER; (* SPARES *) CRF$L_ERROR : UNSIGNED; (* ERROR ROUTINE ADDRESS *) CRF$L_OUTPUT : UNSIGNED; (* OUTPUT ROUTINE ADDRESS *) CRF$L_K1FMTBL : UNSIGNED; (* KEY1 FIELD FORMAT TBL ADR *) CRF$L_K2FMTBL : UNSIGNED; (* KEY2 FIELD FORMAT TBL ADR *) CRF$L_V1FMTBL : UNSIGNED; (* VAL1 FIELD FORMAT TBL ADR *) CRF$L_V2FMTBL : UNSIGNED; (* VAL2 FIELD FORMAT TBL ADR *) CRF$L_R1FMTBL : UNSIGNED; (* REF1 FIELD FORMAT TBL ADR *) CRF$L_R2FMTBL : UNSIGNED; (* REF2 FIELD FORMAT TBL ADR *) ); 2: (CRF$B_KEYTYPE : [POS(64)] $UBYTE; (* TYPE OF KEY IN TABLE *) CRF$B_FLAGS : [POS(72)] $UBYTE; (* MISC. FLAGS FOR FUTURE EXPANSION *) ); 3: (CRF$R_KEYTYPE_BITS : [POS(64), BYTE(1)] RECORD END; ); 4: (CRF$V_BINARY : [POS(64)] $BOOL; (* OBSOLETE FIELD. RETAINED FOR COMPATIBLILTY *) CRF$V_MULDEF : [POS(72)] $BOOL; (* Multi-Definers *) ) END; (* END. *) (* MODULE CRFERRMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CRFMSG ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:41.19 *) (* *) (* *) (* *) (* VERSION: 'V04-004' *) (* *) (* *) (* © COPYRIGHT 1978-2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. *) (* *) (* RESTRICTED RIGHTS LEGEND *) (* *) (* USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TO *) (* RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTS *) (* IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. *) (* *) (* HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P *) (* 3000 HANOVER STREET *) (* PALO ALTO, CA 94304 *) (* U.S.A. *) (* *) (* RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS *) (* SET FORTH IN FAR 52.227-19(C)(1,2). *) (* UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. *) (* *) (* *) (* RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM *) (* *) (* MODIFIED BY: *) (* *) (* V04-004 TMS0569 TODD SCHOELLER 27-DEC-2004 *) (* ADD NOFOOTNOTES. *) (* *) (* V04-003 TMS0567 TODD SCHOELLER 6-OCT-2004 *) (* ADD MULDEFFMT FOR MULTI-DEFINER SUPPORT *) (* *) (* V04-002 TMS0532 TODD SCHOELLER 16-OCT-2003 *) (* ADD CROPPING FOR CROPPING/FOOTNOTING SUPPORT. *) (* *) (* V04-001 TMS0294 TODD SCHOELLER 4-NOV-1994 *) (* ADD ARGCOUNT FOR ARGUMENT COUNT CHECKING. *) (* *) (* V02-002 BLS0156 BENN SCHREIBER 1-MAR-1982 *) (* REMOVE UNUSED MESSAGES *) (* *) (* V02-001 BLS0123 BENN SCHREIBER 19-DEC-1981 *) (* CHANGE TEXT OF FAOFAIL *) (* *) (* *) (* SUCCESS CODES (SEVERITY LEVEL 1) *) (* *) CONST CREF$_FACILITY = 101; CRF$_SUCCESS = 6651905; CRF$_KEYPRVENTR = 6651913; CRF$_KEY1STENTR = 6651921; CRF$_REFPRVENTR = 6651929; CRF$_UNUSERR = 6651937; CRF$_CROP = 6651945; (* *) (* SEVERE ERROR CODES (SEVERITY LEVEL 2) *) (* *) CONST CRF$_UNUERR1 = 6651986; CRF$_UNUERR2 = 6651994; CRF$_UNUERR3 = 6652002; CRF$_UNUERR4 = 6652010; CRF$_UNUERR5 = 6652018; CRF$_UNUERR6 = 6652026; CRF$_UNUERR7 = 6652034; CRF$_NO_OUTRTN = 6652042; CRF$_LINELNG = 6652050; CRF$_FAOFAIL = 6652058; CRF$_UNUERR8 = 6652066; CRF$_BADTYPE = 6652074; CRF$_ARGCOUNT = 6652082; CRF$_MULDEFFMT = 6652090; CRF$_NOFOOTNOTES = 6652098; (* END. *) (* MODULE DDTMMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $DDTMMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:51:26.33 *) (* *) (* .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODES *) (* *) (************************************************************************** *) (** * *) (** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1993 * *) (** ALL RIGHTS RESERVED. * *) (** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (** STATES. * *) (** * *) (** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (** DIGITAL EQUIPMENT CORPORATION. * *) (** * *) (** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (** * *) (************************************************************************** *) (* *) (*++ *) (* FACILITY: DDTM *) (* *) (* ABSTRACT: *) (* *) (* 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-1993 *) (* UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE *) (* TEXT AS FOUND IN HELP MESSAGE TEXT. *) (* *) (* A-3 KJP KEVIN PLAYFORD 23-AUG-1993 *) (* UPDATED ALPHA VERSION OF DECDTM MESSAGES TO DECDTM V1.2 *) (* FUNCTIONALITY. *) (* *) (* *** VAX CHANGES PICKED UP FOR ALPHA *) (* *) (* X-6 RM RUDI MARTIN 9-AUG-1993 *) (* 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-1991 *) (* MODIFY WORDING ON SOME MESSAGES TO CONFORM TO *) (* FUNCTIONAL SPECIFICATION OF DECDTM V1.2. *) (* *) (* X-3 CW1023 CHRIS WHITAKER 21-MAY-1990 *) (* ADD RESERVED CODE AS FIRST MESSAGE. *) (* *) (* X-2 JEJ0599 JAMES E JOHNSON 23-APR-1990 *) (* ADD LOG_FAIL, SYNC_FAIL, AND ORPHAN_BRANCH *) (* *) (*-- *) CONST DDTM$_FACILITY = 1187; DDTM$_UNKNOWN = 0; (* NO EXTENDED CODE PROVIDED *) (* ERROR CODES: *) (* *) CONST DDTM$_RESERVED = 77824002; DDTM$_TIMEOUT = 77824010; DDTM$_PART_TIMEOUT = 77824018; DDTM$_SEG_FAIL = 77824026; DDTM$_COMM_FAIL = 77824034; DDTM$_VETOED = 77824042; DDTM$_ABORTED = 77824050; DDTM$_SERIALIZATION = 77824058; DDTM$_PART_SERIAL = 77824066; DDTM$_INTEGRITY = 77824074; DDTM$_LOG_FAIL = 77824082; DDTM$_SYNC_FAIL = 77824090; DDTM$_ORPHAN_BRANCH = 77824098; DDTM$_DEADLOCK = 77824106; DDTM$_PROTERROR = 77824114; DDTM$_ROLLBACK = 77824122; DDTM$_TRANSIENT = 77824130; (* END. *) (* MODULE DSTDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $DSTDEF ***) (* Use a K to indicate constant *) CONST DST$K_LOCOMMAND = 0; (* Low value for range checking *) DST$K_STA_R00 = 0; (* Stack contents of R0 *) DST$K_STA_R01 = 1; (* Stack contents of R1 *) DST$K_STA_R02 = 2; (* Stack contents of R2 *) DST$K_STA_R03 = 3; (* Stack contents of R3 *) DST$K_STA_R04 = 4; (* Stack contents of R4 *) DST$K_STA_R05 = 5; (* Stack contents of R5 *) DST$K_STA_R06 = 6; (* Stack contents of R6 *) DST$K_STA_R07 = 7; (* Stack contents of R7 *) DST$K_STA_R08 = 8; (* Stack contents of R8 *) DST$K_STA_R09 = 9; (* Stack contents of R9 *) DST$K_STA_R10 = 10; (* Stack contents of R10 *) DST$K_STA_R11 = 11; (* Stack contents of R11 *) DST$K_STA_R12 = 12; (* Stack contents of R12 (AP) *) DST$K_STA_R13 = 13; (* Stack contents of R13 (FP) *) DST$K_STA_R14 = 14; (* Stack contents of R14 (SP) *) DST$K_STA_R15 = 15; (* Stack contents of R15 (PC) *) DST$K_STA_IMM_B = 16; (* Stack contents of byte operand *) (* sign extending to longword *) CONST DST$K_STA_IMM_W = 17; (* Stack contents of word operand *) (* sign extending to longword *) CONST DST$K_STA_IMM_L = 18; (* Stack contents of longword operand *) DST$K_OPR_ADD = 19; (* Pop two operands, add , *) (* stack longword result *) CONST DST$K_STA_REP_B = 20; (* Pop top item and stack sign extended *) (* byte at that address *) CONST DST$K_STA_REP_W = 21; (* Pop top item and stack sign extended *) (* word at that address *) CONST DST$K_STA_REP_L = 22; (* Pop top item and stack longword at *) (* that address *) CONST DST$K_OPR_STOP = 23; (* Terminate command string. Longword *) (* at top of stack contains address *) (* of data item. *) CONST DST$K_HICOMMAND = 23; (* Hi value for range checking *) (* END. *) (* MODULE FDLMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FDLMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:47.82 *) (* *) (* *) (* VERSION: 'X-4' *) (* *) (* ************************************************************************* *) (* * * *) (* * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978, 1979, 1980, 1981, * *) (* * 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 * *) (* * ALL RIGHTS RESERVED. * *) (* * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (* * STATES. * *) (* * * *) (* * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (* * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (* * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (* * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (* * DIGITAL EQUIPMENT CORPORATION. * *) (* * * *) (* * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (* * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (* * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (* * * *) (* ************************************************************************* *) (*++ *) (* *) (* 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 *) (* 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. *) (* *) (* X-3 SBL1003 STEVEN B. LIONEL 13-DEC-1991 *) (* SET MACRO NAME TO $FDMLSGDEF *) (* *) (* X-2 RNM0063 RUSSELL MURRAY 13-APR-1988 *) (* ADD TAGGED FILE SUPPORT. ADD MESSAGE FDL$_UNKNOWN_TAG *) (* *) (* V03-004 KFH0003 KEN HENDERSON 21 DEC 1982 *) (* REWORDED "key word" TO "keyword" *) (* *) (* V03-003 KFH0002 KEN HENDERSON 22-NOV-1982 *) (* REWORDED "on line" TO "in statement" *) (* *) (* V03-002 KFH0001 KEN HENDERSON 25-OCT-1982 *) (* ADDED INVBLK MESSAGE *) (* *) (* V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982 *) (* ADD INVDATIM MESSAGE *) (* *) (***** *) CONST FDL$_FACILITY = 180; FDL$_BADLOGIC = 11800866; (* *) FDL$_CLOSEIN = 11800658; (* /FAO=1 *) FDL$_CLOSEOUT = 11800666; (* /FAO=1 *) FDL$_CREATED = 11800691; (* /FAO=1 *) FDL$_CREATEDSTM = 11801339; (* /FAO=1 *) FDL$_INSVIRMEM = 11801330; (* *) FDL$_OPENIN = 11800730; (* /FAO=1 *) FDL$_OPENOUT = 11800738; (* /FAO=1 *) FDL$_READERR = 11800754; (* /FAO=1 *) FDL$_VALERR = 11801066; (* *) FDL$_WRITEERR = 11800786; (* /FAO=1 *) FDL$_FAO_MAX = 5; FDL$_TITLE = 11829259; FDL$_ABKW = 11829264; FDL$_INVDATIM = 11829272; FDL$_MULSEC = 11829280; FDL$_NOQUAL = 11829288; FDL$_NULLPRI = 11829296; FDL$_RFLOC = 11829304; FDL$_VALPRI = 11829312; FDL$_UNQUAKW = 11829320; FDL$_UNSECKW = 11829328; FDL$_WARNING = 11829336; FDL$_ABPRIKW = 11829346; FDL$_CREATE = 11829354; FDL$_FDLERROR = 11829362; FDL$_ILL_ARG = 11829370; FDL$_MULPRI = 11829378; FDL$_OPENFDL = 11829386; FDL$_OUTORDER = 11829394; FDL$_SYNTAX = 11829402; FDL$_UNPRIKW = 11829410; FDL$_INVBLK = 11829418; FDL$_UNKNOWN_TAG = 11829426; (* END. *) (* MODULE FORMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FORDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:34.54 *) (* *) (* FILE: FOR_MSG.MSG *) (* *) (********************************************************************** *) (*** * *) (*** COPYRIGHT 2001 COMPAQ COMPUTER CORPORATION * *) (*** * *) (*** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION * *) (*** TECHNOLOGIES GROUP, L.P. * *) (*** * *) (*** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ * *) (*** REQUIRED FOR POSSESSION, USE OR COPYING. CONSISTENT WITH FAR * *) (*** 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, COMPUTER * *) (*** SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS * *) (*** ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (*** COMMERCIAL LICENSE. * *) (*** * *) (********************************************************************** *) (* *) (* 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980 *) (* 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980 *) (* 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. *) (* SBL 6-JAN-1981 *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM FORMSG.MDL *) (* VERSION 1-016. SBL 22-APR-1981 *) (* 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-1981 *) (* 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXED *) (* 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-1983 *) (* 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS. *) (* 2-008 - ADD INVMATKEY. DJM 14-SEP-1987. *) (* 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987 *) (* X-4 STEVE LIONEL 16-OCT-1989 *) (* ADD SUBPRCDEL,UNAWAKSUB. *) (* X-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 FLECCHIA *) (* ADDED DEC FORTRAN MESSAGES FOR OTHER PLATFORMS. *) (* 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. *) (* X-13 MAKE MESSAGE ENDRECDUR, END OF RECORD DURING READ FATAL INSTEAD *) (* ERROR, LIKE THE OTHER OPERATING SYSTEMS. THE STANDARD SAYS FATAL, AND *) (* THIS SHOULD FIX BUG DFB2234. TCM 24-MAR-1995 *) (* X-14 ADD POINTERS TO THE MESSAGE TEXT FOR INVDEALLOC. TCM 19-JUN-1995. *) (* X-15 FIX THE MESSAGE TEXT OF ERROR 69 (SIGINT) *) (* INTERRUPT WAS SPELLED WRONG, MISSING AN R. TCM 29-MAR-1996 *) (* X-16 ADD PRELIMINARY VISUAL FORTRAN SUPPORT. *) (* THUS, ADDING ALL OF THE MSF ERROR MESSAGES. *) (* NOTE: THESE MESSAGES MUST BE CONTIGUOUS, SO *) (* THAT THE MAPPING OF MSF ERRORS TO VISUAL *) (* FORTRAN CAN BE DONE WITH EASE. TCM 26-APR-1996 *) (* X-17 FIX THE MESSAGE TEXT OF MSF ERRORS 6970, 6971. *) (* IT SHOULD BE D FIELD NOT M FIELD, ETC. ALSO *) (* FIX F6750-52, REMOVE UNIX IN THE TEXT. TCM 07-NOV-1996 *) (* X-18 ADD INVDEALLOC2. WCH 15-JUL-1999. *) (* X-19 CHANGE PRODUCT NAME FROM DEC TO COMPAQ PMK 8-NOV-1999 *) (* X-20 REPLACE DEC WITH COMPAQ IN RESACQFAI MESSAGE. PMK 9-NOV-1999 *) (* X-21 ADD SHORTDATEARG, SHORTTIMEARG, & SHORTZONEARG. PMK 31-JUL-2000 *) (* X-22 ADD COUNTING FLTING INEXACTS. WCH 10-AUG-2000. *) (* X-23 ADD NEW ERRORS FOR COMPILER GENERATED RUNTIME MESSAGES. WCH 16-AUG-2000. *) (* X-24 ADD A GENERIC DIVIDE BY ZERO MESSAGE FOR CASES WHEN WE CANNOT TELL IF *) (* IT WAS A TRUE FLOATING POINT DIV0 OR AN INTEGER DIV0. AS OF GEM BL46, *) (* GEM SOMETIMES DOES INTEGER DIV IN THE FP UNIT ON ALPHA. WCH 06-OCT-2000. *) (* X-25 ADD A NEW MESSAGE FOR ATTEMPTED ARRAY ALLOCATIONS THAT OVERFLOW MAX *) (* ARRAY SIZE (32/64 BITS). WCH 13-OCT-2000. *) (*-- *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* FOR$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* 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 *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94). *) (* THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY, *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (* ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED) *) (* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *) (* ; SET LH TO 24 (DECIMAL). *) CONST FOR$_FACILITY = 24; FOR$_NOTFORSPE = 1605644; (* ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR *) (* ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY *) (* ; THAN FOR$ OR MTH$ DETECTED THE ERROR. *) CONST FOR$_NOTIMP = 1605652; FOR$_IGNORED = 1605656; FOR$_IGNNOTDEL = 1605664; FOR$_VERSION = 1605683; FOR$_BUG_CHECK = 1605700; FOR$_PERACCFIL = 1605708; FOR$_CANOVEEXI = 1605716; FOR$_UNINOTCON = 1605723; FOR$_SYNERRNAM = 1605772; FOR$_TOOMANVAL = 1605780; FOR$_INVREFVAR = 1605788; FOR$_REWERR = 1605796; FOR$_DUPFILSPE = 1605804; FOR$_INPRECTOO = 1605812; FOR$_BACERR = 1605820; FOR$_ENDDURREA = 1605828; FOR$_RECNUMOUT = 1605836; FOR$_OPEDEFREQ = 1605844; FOR$_TOOMANREC = 1605852; FOR$_CLOERR = 1605860; FOR$_FILNOTFOU = 1605868; FOR$_OPEFAI = 1605876; FOR$_MIXFILACC = 1605884; FOR$_INVLOGUNI = 1605892; FOR$_ENDFILERR = 1605900; FOR$_UNIALROPE = 1605908; FOR$_SEGRECFOR = 1605916; FOR$_ATTACCNON = 1605924; FOR$_INCRECLEN = 1605932; FOR$_ERRDURWRI = 1605940; FOR$_ERRDURREA = 1605948; FOR$_RECIO_OPE = 1605956; FOR$_INSVIRMEM = 1605964; FOR$_NO_SUCDEV = 1605972; FOR$_FILNAMSPE = 1605980; FOR$_INCRECTYP = 1605988; FOR$_KEYVALERR = 1605996; FOR$_INCOPECLO = 1606004; FOR$_WRIREAFIL = 1606012; FOR$_INVARGFOR = 1606020; FOR$_INVKEYSPE = 1606028; FOR$_INCKEYCHG = 1606036; FOR$_INCFILORG = 1606044; FOR$_SPERECLOC = 1606052; FOR$_NO_CURREC = 1606060; FOR$_REWRITERR = 1606068; FOR$_DELERR = 1606076; FOR$_UNLERR = 1606084; FOR$_FINERR = 1606092; FOR$_MORONEREC = 1605852; FOR$_ATTREANON = 1605924; FOR$_FMTSYN = 1606099; FOR$_LISIO_SYN = 1606108; FOR$_INFFORLOO = 1606116; FOR$_FORVARMIS = 1606124; FOR$_SYNERRFOR = 1606132; FOR$_OUTCONERR = 1606138; FOR$_INPCONERR = 1606148; FOR$_FLTINV = 1606156; FOR$_OUTSTAOVE = 1606164; FOR$_INPSTAREQ = 1606172; FOR$_VFEVALERR = 1606180; FOR$_SIGINT = 1606186; FOR$_INTOVF = 1606196; FOR$_INTDIV = 1606204; FOR$_FLTOVF = 1606210; FOR$_FLTDIV = 1606218; FOR$_FLTUND = 1606226; FOR$_SIGFPE = 1606234; FOR$_SIGIOT = 1606242; FOR$_SUBRNG = 1606252; FOR$_SIGTERM = 1606258; FOR$_SIGQUIT = 1606266; FOR$_WRONUMARG = 1606276; FOR$_INVARGMAT = 1606284; FOR$_UNDEXP = 1606292; FOR$_LOGZERNEG = 1606300; FOR$_SQUROONEG = 1606308; FOR$_SIGLOSMAT = 1606332; FOR$_FLOOVEMAT = 1606340; FOR$_FLOUNDMAT = 1606346; FOR$_ADJARRDIM = 1606380; FOR$_INVMATKEY = 1606388; FOR$_FLOCONFAI = 1606394; FOR$_CANSTAFIL = 1606500; FOR$_OPEREQSEE = 1606596; FOR$_BRK_USERBP = 1606676; FOR$_BRK_KERNELBP = 1606684; FOR$_BRK_BD_TAKEN = 1606700; FOR$_BRK_BD_NOTTAKEN = 1606708; FOR$_BRK_SSTEPBP = 1606716; FOR$_BRK_OVERFLOW = 1606724; FOR$_BRK_DIVZERO = 1606732; FOR$_BRK_RANGE = 1606740; FOR$_BRK_RANGE2 = 1606748; (* ********** *) (* [X-9] THE FOLLOWING ERRORS REFER TO GENTRAP EXCEPTIONS OR SIGNALS *) (* AND ARE NOT RETURNED BY IOSTAT. *) CONST FOR$_FLTINE = 1606756; FOR$_DECOVF = 1606764; FOR$_DECDIV = 1606772; FOR$_DECINV = 1606780; FOR$_ROPRAND = 1606788; FOR$_ASSERTERR = 1606796; FOR$_NULPTRERR = 1606804; FOR$_STKOVF = 1606812; FOR$_STRLENERR = 1606820; FOR$_SUBSTRERR = 1606828; FOR$_RANGEERR = 1606836; (* ********** *) (* [X-10] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS *) CONST FOR$_INVREALLOC = 1606844; (* ********** *) (* [X-11] *) CONST FOR$_RESACQFAI = 1606852; (* ********** *) (* [X-12] THE FOLLOWING MESSAGE IS FOR FORTRAN 90'S ALLOCATABLE ARRAYS *) (* [X-14] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. *) CONST FOR$_INVDEALLOC = 1606860; (* ********** *) (* [X-18] THE COMPILER MAY NOW CAUSE THIS MESSAGE TO BE GENERATED FOR POINTERS. *) CONST FOR$_INVDEALLOC2 = 1607020; (* ********** *) (* [X-21] NEW ERRORS GENERATED FOR ARGUMENT LENGTHS SHORTER THAN STANDARD SPECIFIES FOR *) (* INTRINSIC DATE_AND_TIME. *) (* [X-24] NEW ERROR FOR GENERIC DIVIDE BY ZERO. *) (* [X-25] NEW ERROR FOR ARRAY ALLOCATION SIZE OVERFLOW. *) CONST FOR$_SHORTDATEARG = 1607036; FOR$_SHORTTIMEARG = 1607044; FOR$_SHORTZONEARG = 1607052; FOR$_DIV = 1607060; FOR$_ARRSIZEOVF = 1607068; (* ********** *) (* THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY IN *) (* EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE) *) (* CONTIGUOUS WITH THE MESSAGES ABOVE. *) (* THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN *) (* FOR$$IO_BEG AND FOR$$CB. *) CONST FOR$_UNFIO_FMT = 1607684; FOR$_FMTIO_UNF = 1607692; FOR$_DIRIO_KEY = 1607700; FOR$_SEQIO_DIR = 1607708; FOR$_KEYIO_DIR = 1607716; FOR$_IO_NONFOR = 1607724; (* THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN *) (* FOR$$UDF_WF AND FOR$$UDF_WL. *) CONST FOR$_INVTEXREC = 1607732; FOR$_INVTEX = 1607740; (* ADDITIONAL SECONDARY MESSAGES *) CONST FOR$_OPEREQDIS = 1607748; FOR$_OPEREQSEQ = 1607756; FOR$_PROABOUSE = 1607762; FOR$_FLOCONFAIU = 1607770; (* ********** *) (* [X-13] THE FOLLOWING MESSAGE IS A FATAL MESSAGE ACCORDING TO THE F90 STANDARD *) CONST FOR$_ENDRECDUR = 1607780; (* THESE NEXT 4 MESSAGES ARE USED IN THE EXIT HANDLER WHICH IS DECLARED BY FOR$HANDLER. *) CONST FOR$_FLOINEEXC = 1608003; FOR$_FLOINVEXC = 1608011; FOR$_FLOOVFEXC = 1608019; FOR$_FLODIV0EXC = 1608027; FOR$_FLOUNDEXC = 1608035; FOR$_VECALIGNEXC = 1608043; (* END OF SPECIAL MESSAGES *) (* ********** *) (* ********** *) (* RESERVE A NUMBER FOR A MESSAGE TO REPORT COMPILED CODE GENERATED *) (* RUNTIME ERRORS. *) CONST FOR$_MSGBUFOVF = 1608828; FOR$_DIAGNOSTIC = 1608836; (* ********** *) (* THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE *) (* VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT. *) (* *) CONST FOR$_FATINTERR = 1609732; FOR$_SUBPRCDIED = 1609740; FOR$_NOTIMPRET = 1609748; FOR$_FAIOWNERID = 1609756; FOR$_FAIPRCID = 1609764; FOR$_FAIPRCNAME = 1609772; FOR$_FAIACTCPU = 1609780; FOR$_FAIIDPRC = 1609788; FOR$_FAIIMAGNAME = 1609796; FOR$_FAIDCLEXIT = 1609804; FOR$_FAISUBPRC = 1609812; FOR$_INVNUMPRC = 1609820; FOR$_MEMSHRERR = 1609828; FOR$_LOCALSHRERR = 1609836; FOR$_LOCALACCESS = 1609844; FOR$_INVLCLADR = 1609852; FOR$_COMSHRERR = 1609860; FOR$_INVCOMADR = 1609868; FOR$_PARINITERR = 1609876; FOR$_STACKSHRERR = 1609884; FOR$_FAISHRSTACK = 1609892; FOR$_INVUNWIND = 1609900; FOR$_STKBUFOVR = 1609908; FOR$_SUBPRCDEL = 1609916; FOR$_ASSERTFAIL = 1609924; (* ********** *) (* THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM MICORSOFT FORTRAN AND NOW *) (* VISUAL FORTRAN. *) (* *) (* [X-16] THE FOLLOWING ERRORS REFER TO MSF ERROR MESSAGES. *) (* THESE MESSAGES MUST REMAIN IN CONTIGUOUS ORDER SO THAT AN *) (* OFFSET INTO A MAPPING ARRAY CAN BE COMPUTED FROM THE MESSAGE *) (* BASE NUMBER, WHICH IS 540 FOR MSF MESSAGES. THAT WAY VISUAL *) (* FORTRAN CAN RETURN IOSTAT NUMBERS SIMILAR TO MSF. ALSO *) (* WE PUT THESE MESSAGES THIS FAR DOWN TO KEEP IN SYNCH WITH *) (* THE VMS MESSAGE FILE. IT HAS CONTIGUOUS OPENINGS UP TO 768 *) (* IN THIS RANGE. THE NEXT CONTIGUOUS OPENING BEGINS FROM 1024. *) CONST FOR$_F6096 = 1609956; FOR$_F6097 = 1609964; FOR$_F6098 = 1609972; FOR$_F6099 = 1609980; FOR$_F6100 = 1609988; FOR$_F6101 = 1609996; FOR$_F6102 = 1610004; FOR$_F6103 = 1610012; FOR$_F6104 = 1610020; FOR$_F6105 = 1610028; FOR$_F6106 = 1610036; FOR$_F6200 = 1610044; FOR$_F6201 = 1610052; FOR$_F6202 = 1610060; FOR$_F6203 = 1610068; FOR$_F6204 = 1610076; FOR$_F6205 = 1610084; FOR$_F6206 = 1610092; FOR$_F6207 = 1610100; FOR$_F6208 = 1610108; FOR$_F6209 = 1610116; FOR$_F6210 = 1610124; FOR$_F6211 = 1610132; FOR$_F6212 = 1610140; FOR$_F6213 = 1610148; FOR$_F6214 = 1610156; FOR$_F6300 = 1610164; FOR$_F6301 = 1610172; FOR$_F6302 = 1610180; FOR$_F6303 = 1610188; FOR$_F6304 = 1610196; FOR$_F6305 = 1610204; FOR$_F6306 = 1610212; FOR$_F6307 = 1610220; FOR$_F6308 = 1610228; FOR$_F6309 = 1610236; FOR$_F6310 = 1610244; FOR$_F6311 = 1610252; FOR$_F6312 = 1610260; FOR$_F6313 = 1610268; FOR$_F6314 = 1610276; FOR$_F6315 = 1610284; FOR$_F6316 = 1610292; FOR$_F6317 = 1610300; FOR$_F6318 = 1610308; FOR$_F6319 = 1610316; FOR$_F6400 = 1610324; FOR$_F6401 = 1610332; FOR$_F6402 = 1610340; FOR$_F6403 = 1610348; FOR$_F6404 = 1610356; FOR$_F6405 = 1610364; FOR$_F6406 = 1610372; FOR$_F6407 = 1610380; FOR$_F6408 = 1610388; FOR$_F6409 = 1610396; FOR$_F6410 = 1610404; FOR$_F6411 = 1610412; FOR$_F6412 = 1610420; FOR$_F6413 = 1610428; FOR$_F6414 = 1610436; FOR$_F6415 = 1610444; FOR$_F6416 = 1610452; FOR$_F6417 = 1610460; FOR$_F6418 = 1610468; FOR$_F6419 = 1610476; FOR$_F6420 = 1610484; FOR$_F6421 = 1610492; FOR$_F6422 = 1610500; FOR$_F6423 = 1610508; FOR$_F6424 = 1610516; FOR$_F6425 = 1610524; FOR$_F6500 = 1610532; FOR$_F6501 = 1610540; FOR$_F6502 = 1610548; FOR$_F6503 = 1610556; FOR$_F6504 = 1610564; FOR$_F6505 = 1610572; FOR$_F6506 = 1610580; FOR$_F6507 = 1610588; FOR$_F6508 = 1610596; FOR$_F6509 = 1610604; FOR$_F6510 = 1610612; FOR$_F6511 = 1610620; FOR$_F6512 = 1610628; FOR$_F6513 = 1610636; FOR$_F6514 = 1610644; FOR$_F6515 = 1610652; FOR$_F6516 = 1610660; FOR$_F6600 = 1610668; FOR$_F6601 = 1610676; FOR$_F6602 = 1610684; FOR$_F6700 = 1610692; FOR$_F6701 = 1610700; FOR$_F6970 = 1610708; FOR$_F6971 = 1610716; FOR$_F6972 = 1610724; FOR$_F6980 = 1610732; FOR$_F6981 = 1610740; FOR$_F6982 = 1610748; FOR$_F6983 = 1610756; FOR$_F6984 = 1610764; FOR$_F6985 = 1610772; FOR$_F6986 = 1610780; FOR$_F6987 = 1610788; FOR$_F6988 = 1610796; FOR$_F6989 = 1610804; FOR$_F6990 = 1610812; FOR$_F6991 = 1610820; FOR$_F6992 = 1610828; FOR$_F6993 = 1610836; FOR$_F6994 = 1610844; FOR$_F6995 = 1610852; FOR$_F6996 = 1610860; FOR$_F6997 = 1610868; FOR$_F6998 = 1610876; FOR$_F6999 = 1610884; FOR$_F6702 = 1610892; FOR$_F6703 = 1610900; FOR$_F6704 = 1610908; FOR$_F6705 = 1610916; FOR$_F6706 = 1610924; FOR$_F6707 = 1610932; FOR$_F6708 = 1610940; FOR$_F6709 = 1610948; FOR$_F6710 = 1610956; FOR$_F6711 = 1610964; FOR$_F6712 = 1610972; FOR$_F6713 = 1610980; FOR$_F6714 = 1610988; FOR$_F6715 = 1610996; FOR$_F6716 = 1611004; FOR$_F6717 = 1611012; FOR$_F6718 = 1611020; FOR$_F6719 = 1611028; FOR$_F6720 = 1611036; FOR$_F6721 = 1611044; FOR$_F6722 = 1611052; FOR$_F6723 = 1611060; FOR$_F6724 = 1611068; FOR$_F6725 = 1611076; FOR$_F6726 = 1611084; FOR$_F6727 = 1611092; FOR$_F6728 = 1611100; FOR$_F6729 = 1611108; FOR$_F6730 = 1611116; FOR$_F6731 = 1611124; FOR$_F6732 = 1611132; FOR$_F6733 = 1611140; FOR$_F6734 = 1611148; FOR$_F6735 = 1611156; FOR$_F6736 = 1611164; FOR$_F6737 = 1611172; FOR$_F6738 = 1611180; FOR$_F6739 = 1611188; FOR$_F6740 = 1611196; FOR$_F6741 = 1611204; FOR$_F6742 = 1611212; FOR$_F6743 = 1611220; FOR$_F6744 = 1611228; FOR$_F6745 = 1611236; FOR$_F6746 = 1611244; FOR$_F6747 = 1611252; FOR$_F6748 = 1611260; FOR$_F6749 = 1611268; FOR$_F6750 = 1611276; FOR$_F6751 = 1611284; FOR$_F6752 = 1611292; FOR$_F6753 = 1611300; FOR$_F6754 = 1611308; FOR$_F6755 = 1611316; FOR$_F6756 = 1611324; FOR$_F6757 = 1611332; FOR$_F6758 = 1611340; FOR$_F6759 = 1611348; FOR$_F6760 = 1611356; FOR$_F6761 = 1611364; FOR$_F6762 = 1611372; FOR$_F6763 = 1611380; FOR$_F6764 = 1611388; FOR$_F6765 = 1611396; FOR$_F6766 = 1611404; FOR$_F6767 = 1611412; FOR$_F6768 = 1611420; FOR$_F6769 = 1611428; FOR$_F6770 = 1611436; FOR$_F6771 = 1611444; FOR$_F6772 = 1611452; FOR$_F6773 = 1611460; FOR$_F6774 = 1611468; FOR$_F6775 = 1611476; FOR$_F6776 = 1611484; FOR$_F6777 = 1611492; FOR$_F6778 = 1611500; FOR$_F6779 = 1611508; FOR$_F6780 = 1611516; FOR$_F6781 = 1611524; FOR$_F6782 = 1611532; FOR$_F6783 = 1611540; FOR$_F6784 = 1611548; FOR$_F6785 = 1611556; FOR$_F6786 = 1611564; FOR$_F6787 = 1611572; FOR$_F6788 = 1611580; FOR$_F6789 = 1611588; FOR$_F6790 = 1611596; FOR$_F6791 = 1611604; FOR$_F6792 = 1611612; FOR$_F6793 = 1611620; FOR$_F6794 = 1611628; FOR$_F6795 = 1611636; FOR$_F6796 = 1611644; FOR$_F6797 = 1611652; FOR$_F6798 = 1611660; FOR$_F6799 = 1611668; FOR$_F6800 = 1611676; FOR$_F6801 = 1611684; FOR$_F6802 = 1611692; FOR$_F6803 = 1611700; FOR$_F6804 = 1611708; (* END OF SPECIAL MISCROSOFT ERROR MESSAGES *) (* ********** *) CONST FOR$_INVLOGNAM = 1611778; FOR$_TOOMANPRC = 1611786; FOR$_INVDSTRSIZE = 1611794; FOR$_DEFVALUSED = 1615875; FOR$_UNIPROCESS = 1615883; FOR$_NOPARINIT = 1615891; FOR$_NOTRUNINPP = 1615899; FOR$_NESTPPLOOP = 1615907; FOR$_UNAWAKSUB = 1615915; (* END OF FORRTL2 MESSAGES *) (* ********** *) (* END. *) (* MODULE JBCMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $JBCMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:32.17 *) (* *) (* *) (* VERSION: 'X-5' *) (* *) (* ************************************************************************* *) (* * * *) (* * © COPYRIGHT 2004 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *) (* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *) (* * * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *) (* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *) (* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *) (* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *) (* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *) (* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *) (* * ADDITIONAL WARRANTY. * *) (* * * *) (* ************************************************************************* *) (* *) (* MODIFIED BY: *) (* *) (* X-5 CAK ASWIN CHALUPADI 28-FEB-2006 *) (* ADD NEW LMFLICERR TO SIGNAL WHEN NON-COMPLIANT LICENSE *) (* IS DETECTED. ALSO ADD TWO OTHER GENERIC ERRORS FOR FURTHER USE. *) (* *) (* X-4 DJS DAVID J. SWEENEY 16-FEB-2001 *) (* ADD NOTIMZONRUL TO BE SIGNALLED WHEN THE SYS$TIMEZONE_RULE *) (* LOGICAL IS NOT DEFINED, MEANING DAYLIGHT SAVINGS TIME CLOCK *) (* ADJUSTMENT WILL NOT BE MADE. *) (* *) (* X-3 LAD LORI A. DESMARAIS 03-JUN-1993 *) (* ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND *) (* 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 1992 *) (* ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER *) (* TO ABORT. *) (* *) (* OLD AUDIT TRAIL..... *) (* *) (* X-17 RG40209 RAY GUZMAN 11-NOV-1991 *) (* ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS IS *) (* RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT IS *) (* ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUEST *) (* IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENT *) (* QUEUE MANAGERS. INVQMANNAM IS RETURNED FOR INVALIDE QUEUE *) (* MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES. *) (* *) (* X-16 RG40126 RAY GUZMAN 4-APR-1991 *) (* MODIFY THE TEXT OF TWO MESSAGES INVMSG, NOAUTOSTART & *) (* QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, & BADLOCK FROM *) (* THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITH *) (* ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF *) (* MESSAGES TO BE SIGNALLED. *) (* *) (* X-15 RG40063 RAY GUZMAN 8-FEB-1991 *) (* ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES *) (* AND ANOTHER FOR RESOLVING LOST DELPROC MESSAGES. *) (* *) (* X-14 RG40052 RAY GUZMAN 22-JAN-1991 *) (* MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR. *) (* *) (* X-13 RG40043 RAY GUZMAN 11-JAN-1991 *) (* ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULD *) (* NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADD *) (* QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE *) (* STARTED. *) (* *) (* X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990 *) (* MODIFY NOTSUPPORTED AND TOOMUCHINFO. *) (* ADD INITFAIL AND NOMASTER. *) (* *) (* X-11 SEH0020 SUSAN HEIMBACH 12-OCT-1989 *) (* ADD MESSAGES FOR VERSION 6. *) (* *) (* X-10 JAK0579 J A KRYCKA 18-NOV-1987 *) (* ADD MESSAGE JOBCTLABORT. *) (* *) (* X-9 JES0038 JACK SPEIGHT 07-JAN-1987 *) (* ADD NEW ERRORS - NOSUCHENT, NOMOREENT. *) (* *) (* X-8 JES0037 JACK SPEIGHT 23-OCT-1986 *) (* FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE *) (* THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER *) (* OF QUEUE STATES - STALLED, STOPPED, PAUSED ETC. *) (* *) (* X-7 JES0036 JACK SPEIGHT 08-SEP-1986 *) (* ADD NEW MESSAGES FOR VERSION 5.0 - BASE LEVEL 1. *) (* *) (* V04-007 JES0035 JACK SPEIGHT 04-OCT-1985 *) (* CHANGE TEXT FOR JBC$_NOSUCHNODE. *) (* *) (* V04-006 JES0034 JACK SPEIGHT 05-SEP-1985 *) (* ADD JBC$_NOSUCHNODE, JBC$_RESTARTCOM. *) (* *) (* V04-005 JAK0407 J A KRYCKA 29-APR-1985 *) (* MOVE JBC$_NOCMKRNL, JBC$_NOOPER, AND JBC$_SYSNAM DEFINITIONS *) (* HERE FROM JOBCTLDEF.REQ. *) (* *) (* V04-004 JAK0405 J A KRYCKA 26-APR-1985 *) (* ADD JBC$_NOMORECHAR, JBC$_NOMOREFILE, JBC$_NOMOREFORM, *) (* JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQUECTX *) (* MESSAGES. *) (* *) (* V04-003 JES0033 JACK SPEIGHT 26-APR-1985 *) (* SPECIFY AN EXPLICIT SEVERITY LEVEL FOR EACH ERROR MESSAGE *) (* SO THAT THE DEFINITIONS HERE AGREE WITH WHAT IS ACTUALLY *) (* RETURNED BY THE JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK. *) (* PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HERE *) (* WITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDED *) (* THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN *) (* MESSAGE TEXT. *) (* *) (* V04-002 JES0032 JACK SPEIGHT 03-APR-1985 *) (* ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM, *) (* AND JBC$_NFY_WSVAL MESSAGES. *) (* *) (* V04-001 JES0031 JACK SPEIGHT 15-MAR-1985 *) (* ADD JBC$_QUENOTSTOP MESSAGE. *) CONST JBC$_FACILITY = 4; (* *) (* THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB *) (* SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. *) (* *) (* THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. *) (* *) (* NOTE: ERROR CODES WITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE *) (* A SEVERITY LEVEL OF SEVERE. *) (* *) CONST JBC$_NORMAL = 262145; (* *) JBC$_NOCMKRNL = 272386; (* *) JBC$_NOOPER = 272530; (* *) JBC$_NOSYSNAM = 272402; (* *) JBC$_ILLDEVNAM = 294916; JBC$_UNSDEVTYP = 294924; JBC$_ILLFILNAM = 294932; JBC$_INVQUENAM = 294940; JBC$_NOPRIV = 294946; JBC$_NOQUEHDR = 294956; JBC$_NOQUESPACE = 294962; JBC$_NOSUCHQUE = 294970; JBC$_NOSUCHJOB = 294978; JBC$_NOOPENJOB = 294986; JBC$_REFERENCED = 294994; JBC$_STARTED = 295002; JBC$_INVITMCOD = 295012; JBC$_INVFUNCOD = 295020; JBC$_EMPTYJOB = 295026; JBC$_JOBQUEDIS = 295034; JBC$_JOBABORT = 295044; JBC$_ACMINVOP = 295052; JBC$_INVPARLEN = 295060; JBC$_TRMMBXUSE = 295068; JBC$_MAXSYMEXD = 295076; JBC$_SCTTABFUL = 295084; JBC$_CREPRCFAL = 295092; JBC$_SYMNTBFUL = 295100; JBC$_NODSTQUE = 295106; JBC$_INVDSTQUE = 295116; JBC$_JOBDELETE = 295124; JBC$_NORESTART = 295130; JBC$_JOBREQUEUE = 295140; JBC$_QUERESET = 295148; JBC$_SYSFAIL = 295156; JBC$_EXECUTING = 295162; JBC$_INVMSGBUF = 295172; JBC$_MISREQPAR = 295180; JBC$_INVPARVAL = 295188; JBC$_INCQUETYP = 295196; JBC$_INCDSTQUE = 295204; JBC$_JOBQUEENA = 295210; JBC$_NOTASSIGN = 295218; JBC$_INCOMPLETE = 295226; JBC$_INVCHANAM = 295236; JBC$_INVFORNAM = 295244; JBC$_NOSUCHCHAR = 295250; JBC$_NOSUCHFORM = 295258; JBC$_DUPFORM = 295266; JBC$_INCFORMPAR = 295276; JBC$_NOSUCHFILE = 295282; JBC$_DELACCESS = 295290; JBC$_QUENOTSTOP = 295298; JBC$_NOMORECHAR = 295306; JBC$_NOMOREFILE = 295314; JBC$_NOMOREFORM = 295322; JBC$_NOMOREJOB = 295330; JBC$_NOMOREQUE = 295338; JBC$_NOJOBCTX = 295346; JBC$_NOQUECTX = 295354; JBC$_NOSUCHNODE = 295362; JBC$_GEN_MAX = 295370; JBC$_QUE_CLOSED = 295378; JBC$_NOSUCHENT = 295386; JBC$_NOMOREENT = 295394; JBC$_JOBCTLABORT = 295404; JBC$_NOTSUPPORTED = 295412; JBC$_NOTMEANINGFUL = 295419; JBC$_QUEDISABLED = 295426; JBC$_NOTDISABLED = 295434; JBC$_NOTENAGEN = 295442; JBC$_ENABLEQUE = 295448; JBC$_QUENOTMOD = 295459; JBC$_ATT_MAX = 295466; JBC$_ATTNOTAVAIL = 295474; JBC$_QEXISTS = 295482; JBC$_NOSUCHQMGR = 295490; JBC$_JOBNOTEXEC = 295498; JBC$_DUPCHARNAME = 295506; JBC$_DUPCHARNUM = 295514; JBC$_DUPFORMNAME = 295522; JBC$_STKNOTCHANGE = 295530; JBC$_ITMREMOVED = 295539; JBC$_PRIOSMALL = 295547; JBC$_QMANMAX = 295552; JBC$_NOAUTOSTART = 295560; JBC$_NOTALLREQUE = 295568; JBC$_NULL1 = 295580; JBC$_TOOMUCHINFO = 295586; JBC$_AUTONOTSTART = 295595; JBC$_NULL2 = 295602; JBC$_QMANNOTSTARTED = 295610; JBC$_BUFTOOSMALL = 295616; JBC$_INTERNALERROR = 295624; JBC$_QMGREXISTS = 295634; JBC$_TWOQMGRS = 295642; JBC$_INVQMANNAM = 295650; JBC$_NOMOREQMGR = 295658; JBC$_QMANABORT = 295668; (* *) (* THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S *) (* TERMINAL BY THE JOB CONTROLLER. *) (* *) (* THESE MESSAGES ARE NOT PUBLIC AND MAY CHANGE FROM RELEASE TO REALEASE. *) (* *) (* NOTE: THE JOB CONTROLLER ABORTS EXECUTION AND RESTARTS ITSELF WHEN A SEVERE *) (* ERROR IS SIGNALLED TO THE CONSOLE. *) (* *) CONST JBC$_ACCDISERR = 295939; JBC$_ALLOCMEM = 295948; JBC$_COMREMJBC = 295956; JBC$_INVBLOCK = 295964; JBC$_INVMSG = 295970; JBC$_NEWQUEUE = 295979; JBC$_OPEJBCMBX = 295988; JBC$_PRCREAT = 295996; JBC$_QUEFORMAT = 296000; JBC$_REAJBCMBX = 296012; JBC$_REQUEST = 296019; JBC$_SETIMR = 296026; JBC$_SYMCREPRC = 296034; JBC$_SYMDEL = 296042; JBC$_WRIRSPMSG = 296050; JBC$_WRISMBMBX = 296058; JBC$_NFY_COMPLETE = 296067; JBC$_NFY_CURRENT = 296075; JBC$_NFY_HOLD = 296083; JBC$_NFY_PENDING = 296091; JBC$_NFY_TIMER = 296099; JBC$_STRUCT_LEVEL = 296107; JBC$_DIAGNOSTIC = 296112; JBC$_DIAG_TEXT = 296120; JBC$_DIAG_DATA = 296128; JBC$_RESTRICT = 296136; JBC$_NFY_FAILURE = 296147; JBC$_NFY_CPULIM = 296155; JBC$_NFY_WSVAL = 296163; JBC$_RESTARTCOM = 296171; JBC$_NFY_NOACCESS = 296179; JBC$_NFY_CHARAC = 296187; JBC$_NFY_NOLOWER = 296195; JBC$_NFY_SIZE_MIN = 296203; JBC$_NFY_SIZE_MAX = 296211; JBC$_NFY_FORM = 296219; JBC$_NFY_QUESTATE = 296227; JBC$_FAILCREPRC = 296234; JBC$_QMANCREPRC = 296242; JBC$_INITFAIL = 296252; JBC$_QMANDEL = 296258; JBC$_NOTIMZONRUL = 296264; JBC$_LMFPRCFAIL = 296272; JBC$_LMFLICERR = 296280; JBC$_LMFERROR = 296288; (* *) (* THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES. *) (* THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB *) (* SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. *) (* *) (* THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. *) (* *) CONST JBC$_ACCNOTENB = 298914; (* END. *) (* MODULE LATMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LATMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:21:52.77 *) (* *) (* MODULE: LATMSG.MSG *) (* VERSION: 'V6.0-064' *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* V6.0-064 MICHAEL D. RASPUZZI 16-JAN-1995 *) (* ADD ERROR MESSAGE FOR INVALID PORT NAME. *) (* *) (* V6.0-063 MICHAEL D. RASPUZZI 14-SEP-1994 *) (* ADD ERROR MESSAGE FOR INVALID NODE UID. *) (* *) (* V6.0-062 MICHAEL D. RASPUZZI 16-MAY-1994 *) (* ADD ERROR MESSAGES FOR NEW LAT RATING IMAGE. THIS MESSAGES *) (* ARE USED TO INDICATE THE STATE OF THE LAT$RATING IMAGE. IT *) (* SHOULD BE LOADED CORRECTLY IF THE SYSTEM USED THE PROPER *) (* LAT STARTUP. HOWEVER, WE ALL KNOW THAT PEOPLE LIKE TO DO *) (* THINGS THEIR OWN WAY ... *) (* *) (* V05-061 MICHAEL D. RASPUZZI 22-FEB-1994 *) (* ADD NEW REJECT REASON FOR LTPAD. MATCHES DECSERVER REJECT *) (* REASON FOR SAME FUNCTIONALITY. *) (* *) (* V05-060 MICHAEL D. RASPUZZI 6-JAN-1994 *) (* ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT *) (* CHARACTER IS DISABLED. *) (* *) (* V05-059 MICHAEL D. RASPUZZI 30-AUG-1993 *) (* ADD NEW MESSAGE FOR INCOMPATIBLE PROTOCOL VERSION. *) (* *) (* V05-058 MICHAEL D. RASPUZZI 3-MAY-1993 *) (* ADDED INCOMPATIBLE DRIVER/ACP ERROR CODE. *) (* *) (* V05-057 MICHAEL D. RASPUZZI 16-APR-1993 *) (* ADD MORE CONNECT FAILURE MESSAGES. *) (* *) (* V05-056 MICHAEL D. RASPUZZI 8-SEP-1992 *) (* ADD MESSAGE FOR DELETING CONNECTION. *) (* *) (* V05-055 MICHAEL D. RASPUZZI 28-AUG-1992 *) (* ADD INFORMATIONAL ERROR MESSAGE FOR LTPAD TO QUEUE *) (* QUEUE POSITION REPORTING. *) (* *) (* V05-54 MICHAEL D. RASPUZZI 19-AUG-1992 *) (* ADD ERROR MESSAGE WHEN ONE TRIES TO RUN LATACP IMPROPERLY. *) (* *) (* V05-53 MICHAEL D. RASPUZZI 3-AUG-1992 *) (* ADD INFORMATIONAL RETURN FOR LIMITED SERVICE CONNECTION. *) (* *) (* V05-52 MICHAEL D. RASPUZZI 24-JUL-1992 *) (* ADD "no active links" ERROR. *) (* *) (* V05-51 MICHAEL D. RASPUZZI 13-JAN-1992 *) (* ADD MISSING LRJ REASON CODES. *) (* *) (* V05-50 MICHAEL D. RASPUZZI 4-NOV-1991 *) (* ADD CONNECT SOLICIT CODE FOR REGULAR CONNECTIONS. *) (* *) (* V05-49 MICHAEL D. RASPUZZI 5-SEP-1991 *) (* ADD LAN DRIVER ERROR MESSAGE SO LAT WON'T START IF VCI *) (* DRIVERS ARE ABSENT. *) (* *) (* V05-48 MICHAEL D. RASPUZZI 19-JUN-1991 *) (* MAKE SDL MODULE NAME $LATMSGDEF TO PREVENT CONFLICTS WITH *) (* REAL $LATDEF THAT IS IN STARLET. *) (* *) (* V05-47 ERIC L. MERSHON 10-MAY-1991 *) (* MAKE GRAMMATICAL CHANGE TO DRIVERNOTSHUT AS REQUESTED BY *) (* VMS DOC WRITER. *) (* *) (* V05-46 ERIC L. MERSHON 4-APR-1991 *) (* MAKE COSMETIC CHANGES RECOMMENDED BY VMS DOCUMENTATION. *) (* *) (* V05-45 MICHAEL D. RASPUZZI 8-MAR-1991 *) (* ADD MESSAGE FOR X SOLICIT REQUESTS. *) (* *) (* V05-44 MICHAEL D. RASPUZZI 19-JAN-1991 *) (* ADD QUEUED ENTRY MESSAGES. *) (* *) (* V05-43 MICHAEL D. RASPUZZI 31-DEC-1990 *) (* ADD CONNECTION MESSAGES AND CHANGE "server mode disabled". *) (* *) (* V05-42 SHOOU YIU 28-NOV-1990 *) (* ADD MESSAGE FOR LINK NAME THAT IS TOO LONG *) (* *) (* V05-41 ERIC L. MERSHON 25-OCT-1990 *) (* REMOVE LNKOBS, SRVRSOBS, AND PRTOBS. ADD QUALOBS, CMDOBS. *) (* *) (* V05-40 MICHAEL D. RASPUZZI 13-SEP-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-1990 *) (* ADD CONATMPT AND REMOVE CAPITILIZATION OF THE BEGINNING OF *) (* SOME MESSAGES. *) (* *) (* V05-37 ERIC L. MERSHON 27-JUN-1990 *) (* REMOVE QUOTES FROM TODISCON, AND ADD CONFQUAVAL. *) (* *) (* V05-36 ERIC L. MERSHON 13-JUN-1990 *) (* ADD CNTRSOBS, SRVRSOBS, AND PRTOBS. *) (* *) (* V05-35 ERIC L. MERSHON 15-MAY-1990 *) (* ADD DEFINEKEY. *) (* *) (* V05-34 ERIC L. MERSHON 30-JAN-1990 *) (* ADD LNKOBS. *) (* *) (* V05-33 ERIC L. MERSHON 12-JAN-1990 *) (* MODIFIED TODISCON TO ACCEPT AN FAO PARAMETER TO DISPLAY *) (* USER'S CUSTOMIZED DISCONNECT CHARACTER (FOR LTPAD). *) (* *) (* V05-32 MICHAEL D. RASPUZZI 9-JAN-1990 *) (* ADD DRIVERNOTSHUT MESSAGE *) (* *) (* V05-31 JAMES F. CAHILL 15-NOV-1989 *) (* ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME *) (* *) (* V05-30 MICHAEL D. RASPUZZI 16-OCT-1989 *) (* ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS *) (* *) (* V05-29 JAMES F. CAHILL 16-OCT-1989 *) (* ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER. *) (* *) (* V05-28 DAVID H. COOK 06-OCT-1989 *) (* ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT. *) (* *) (* V05-27 DAVID H. COOK 18-SEP-1989 *) (* ADD NOMORENODS, NOMORESVCS, NOSELF, NOTOFFERED. *) (* *) (* V05-26 DAVID H. COOK 04-AUG-1989 *) (* ADD ENTNOTFOU. *) (* *) (* V05-25 JAMES F. CAHILL 24-JUL-1989 *) (* ADD CANTATTACH. *) (* *) (* V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989 *) (* CHANGED FAO PARAMETER OF END TO ASCID. *) (* *) (* V05-23 ELM023 ERIC L. MERSHON 29-JUN-1989 *) (* REMOVED FAO ARGUMENTS FROM FAILOVER. *) (* *) (* V05-22 JAMES F. CAHILL 21-JUN-1989 *) (* ADD CONTROLC. *) (* *) (* V05-21 ELM012 ERIC L. MERSHON 6-JUN-1989 *) (* REMOVED NORESP AND ADDED TODISCON. *) (* *) (* V05-19 DHC002 DAVID H. COOK 30-MAY-1989 *) (* CREATE AN LAT SHUTDOWN MESSAGE. *) (* *) (* V05-17 ELM011 ERIC L. MERSHON 23-MAY-1989 *) (* CHANGE CONNECTED TO HAVE A SEVERITY LEVEL INDICATOR OF *) (* SUCCESS. ADD FLEXIBILITY TO SAME MESSAGE FOR CONNECTIONS *) (* TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER. *) (* *) (* V05-16 SY001 SHOOU YIU 16-MAY-1989 *) (* ADD MESSAGES USED BY LTDRIVER MODULES *) (* *) (* V05-15 ELM010 ERIC L. MERSHON 16-MAY-1989 *) (* ADD REMAINING (HOPEFULLY) LAT REJECT CODES AND PWDPROMPT, *) (* USED FOR PASSWORD PROMPTING ON PASSWORD PROTECTED SERVICES. *) (* *) (* V05-014 JAMES F. CAHILL 2-MAY-1989 *) (* CHANGE SEVERITY OF REINITERR AND DRVERROR. RENAME NOTERM *) (* TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS. *) (* *) (* V05-013 ELM009 ERIC L. MERSHON 1-MAY-1989 *) (* ADD NOTERM MESSAGE. *) (* *) (* V05-012 ELM008 ERIC L. MERSHON 28-APR-1989 *) (* ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM *) (* CONFAIL AND CONLOST. *) (* *) (* V05-011 ELM007 ERIC L. MERSHON 18-APR-1989 *) (* ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT *) (* NO LONGER NEEDED FOR DDE. *) (* *) (* V05-010 JAMES F. CAHILL 10-APR-1989 *) (* CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS. *) (* *) (* V05-009 JAMES 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. *) (* *) (* V05-007 ELM006 ERIC L. MERSHON 8-MAR-1989 *) (* MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE *) (* DECSERVER EMULATOR MESSAGES. *) (* *) (* V05-006 ELM005 ERIC L. MERSHON 25-FEB-1989 *) (* ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL *) (* *) (* V05-005 ELM002 ERIC L. MERSHON 15-FEB-1989 *) (* ADD DECSERVER EMULATOR MESSAGES *) (* *) (* V05-004 DHC0001 DAVID H. COOK 18-NOV-1988 *) (* ADD ACP MSGS *) (* *) (* V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988 *) (* ADD TWO MESSAGES FOR LMF *) (* *) (* V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987 *) (* FIX CAPITALIZATION PROBLEMS *) (* *) (* V05-001 (VARIOUS AUTHORS) *) (* INITIAL VERSION *) (* *) (* THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP, LAT, AND LGU *) (* LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THE *) (* ERROR NAMES ARE CHANGED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THE *) (* ERROR MESSAGE NUMBERS/MEANINGS ARE NOT. NEW ERROR MESSAGES ARE ADDED *) (* AT THE SECTION BELOW WHERE .BASE VALUES HAVE BEEN ASSIGNED. *) (* *) CONST LAT$_FACILITY = 374; LAT$_CMDBUFOVFLW = 24543244; LAT$_CANTBIND = 24543250; LAT$_IVCMD = 24543258; LAT$_IVDEV = 24543266; LAT$_IVQUAL = 24543274; LAT$_MAXSERV = 24543282; LAT$_NOTERMS = 24543290; LAT$_NONODE = 24543298; LAT$_NOTLOADED = 24543306; LAT$_NOTINITED = 24543314; LAT$_NOTSTARTED = 24543322; LAT$_NOTSTOPPED = 24543330; LAT$_NOTSET = 24543338; LAT$_NOHISTORY = 24543346; LAT$_NOSTARTHIST = 24543354; LAT$_NOSUCHSERV = 24543362; LAT$_NOTFROMLAT = 24543370; LAT$_INTERNAL = 24543378; LAT$_SERVEXISTS = 24543386; LAT$_LOCKED = 24543394; LAT$_UNDEFLINK = 24543402; LAT$_LINKEXISTS = 24543410; LAT$_LINKACTIVE = 24543418; LAT$_MAXLINKS = 24543426; LAT$_IVPORT = 24543434; LAT$_NOLINK = 24543440; LAT$_STARTED = 24543451; LAT$_STOPPED = 24543459; LAT$_SET = 24543467; LAT$_NOSERVERS = 24543475; (* *) (* NEW MESSAGES ARE ADDED ONLY IN THE SECTIONS BELOW *) (* *) CONST LAT$_ALREADYDEF = 24544835; LAT$_NOTDEF = 24544843; LAT$_NOCONTEXT = 24544851; LAT$_RELNOTES = 24544859; LAT$_ACPINIT = 24544867; LAT$_ACPSTATS = 24544875; LAT$_FAILOVER = 24544883; LAT$_DISCONNECTED = 24544891; LAT$_LOSTMSG = 24544899; LAT$_PWDPROT = 24544907; LAT$_OUTOFRANGE = 24544915; LAT$_END = 24544923; LAT$_CTRLY = 24544931; LAT$_PWDPROMPT = 24544939; LAT$_TODISCON = 24544947; LAT$_CONTROLC = 24544955; LAT$_NEWLINK = 24544963; (* CREATE /LOG MESSAGES *) LAT$_NEWPORT = 24544971; LAT$_NEWSERVICE = 24544979; LAT$_NEWLOGNAME = 24544987; LAT$_DELLINK = 24544995; (* DELETE /LOG MESSAGES *) LAT$_DELPORT = 24545003; LAT$_DELSERVICE = 24545011; LAT$_DELENTRY = 24545019; LAT$_MODLINK = 24545027; (* SET /LOG MESSAGES *) LAT$_MODPORT = 24545035; LAT$_MODSERVICE = 24545043; LAT$_MODNODE = 24545051; LAT$_ZEROLINK = 24545059; (* ZERO /LOG MESSAGES *) LAT$_ZEROPORT = 24545067; LAT$_ZEROSERVICE = 24545075; LAT$_ZERONODE = 24545083; LAT$_DEFINEKEY = 24545091; LAT$_CONATMPT = 24545099; LAT$_NODECNTRSONLY = 24545107; LAT$_CONNECTLIMITED = 24545115; LAT$_CONNECTQUEUED = 24545123; LAT$_DELETEDCONN = 24545131; LAT$_NODISCON = 24545139; LAT$_NAMETOOLONG = 24546434; LAT$_LOGSTOPPED = 24546442; LAT$_CONTEXTINIT = 24546450; LAT$_ILLSTRUCT = 24546458; LAT$_CONSISTANCY = 24546466; LAT$_NOCNCT = 24546474; LAT$_BADGETJPI = 24546482; LAT$_BRDCSTMSG = 24546490; LAT$_BRDCSTOUT = 24546498; LAT$_CANTATTACH = 24546506; LAT$_CANTSPAWN = 24546514; LAT$_CANTCOPYSTR = 24546522; LAT$_ERRCREKBD = 24546530; LAT$_ERRVIRDPY = 24546538; LAT$_NOGCDAVAIL = 24546546; LAT$_NOIDBAVAIL = 24546554; LAT$_NOITMLST = 24546562; LAT$_NOREQUEST = 24546570; LAT$_DRVERROR = 24546578; LAT$_CANTRUNACP = 24546586; LAT$_INVCMD = 24548032; LAT$_CMDERROR = 24548040; LAT$_REINITERR = 24548048; LAT$_QUALOBS = 24548056; LAT$_CNTRSOBS = 24548064; LAT$_CMDOBS = 24548072; LAT$_CONNECTED = 24549633; (* *) (* LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TO *) (* THE REJECTION REASON CODES GENERATED BY LTDRIVER WHEN A CONNECTION *) (* REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN PART *) (* OF THE IOSB AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW *) (* WITH A SIMPLE TRANSLATION VECTOR. *) (* *) CONST LAT$_LRJUNKNOWN = 24551236; LAT$_LRJSHUTDOWN = 24551244; LAT$_LRJRESOURCE = 24551252; LAT$_LRJINUSE = 24551260; LAT$_LRJNOSERVICE = 24551268; LAT$_LRJDISABLE = 24551276; LAT$_LRJNOTOFFERED = 24551284; LAT$_LRJNAMEUNKNOWN = 24551292; LAT$_LRJACCESSREJECT = 24551300; LAT$_LRJACCESSDENIED = 24551308; LAT$_LRJCORRUPT = 24551316; LAT$_LRJNOTSUPPORT = 24551324; LAT$_LRJNOSTART = 24551332; LAT$_LRJDELETED = 24551340; LAT$_LRJILLEGAL = 24551348; LAT$_LRJUSERDIS = 24551356; LAT$_LRJIVPASSWORD = 24551364; LAT$_CONTIMEOUT = 24551372; LAT$_CONAPPLICATION = 24551380; LAT$_LICREQUIRED = 24551388; LAT$_UNREACHABLE = 24551396; LAT$_NOSUCHNODE = 24551404; LAT$_NOSRVC = 24551412; LAT$_PWDSYNTAX = 24551420; LAT$_SERUNAV = 24551428; LAT$_SESLIM = 24551436; LAT$_SRVCNODE = 24551444; LAT$_VCLIM = 24551452; LAT$_NODUNAV = 24551460; LAT$_INITERR = 24551468; LAT$_OUTERROR = 24551476; LAT$_AUTHFAIL = 24551484; LAT$_CONFAIL = 24551492; LAT$_CONLOST = 24551500; LAT$_INSRES = 24551508; LAT$_NOMASTER = 24551516; LAT$_TIMEOUT = 24551524; LAT$_PROTERR = 24551532; LAT$_SRVDIS = 24551540; LAT$_NOACP = 24551548; LAT$_NOSLOT = 24551556; LAT$_BADCIRC = 24551564; LAT$_VCSESLIM = 24551572; LAT$_BADLINK = 24551580; LAT$_NOTATERM = 24551588; LAT$_NOCIB = 24551596; LAT$_INSRESOURCE = 24551604; LAT$_CIBLIM = 24551612; LAT$_PROTVIO = 24551620; LAT$_NOROOM = 24551628; LAT$_LISTTOOSHORT = 24551636; LAT$_LATSTOPPING = 24551644; LAT$_NOTWITHCONN = 24551652; LAT$_ENTNOTFOU = 24551660; LAT$_NOMORENODS = 24551668; LAT$_NOMORESVCS = 24551676; LAT$_NOSELF = 24551684; LAT$_NOTOFFERED = 24551692; LAT$_ACPNOCTL = 24551700; LAT$_ACPNOKSTK = 24551708; LAT$_ACPNOVIRT = 24551716; LAT$_NODLIMIT = 24551724; LAT$_VERMISMATCH = 24551732; LAT$_DRIVERNOTSHUT = 24551740; LAT$_CONFQUAVAL = 24551748; LAT$_NODESHUT = 24551756; LAT$_INCDISABLED = 24551764; LAT$_CANTMODCONN = 24551772; LAT$_UNDEFCONN = 24551780; LAT$_NOMORECONN = 24551788; LAT$_UNDEFENTRY = 24551796; LAT$_NOMOREENTRIES = 24551804; LAT$_ENTRYDELONLY = 24551812; LAT$_XSOLICIT = 24551820; LAT$_NOLANDEV = 24551828; LAT$_SOLGENSVC = 24551836; LAT$_LRJUSERDISC = 24551844; LAT$_LRJNOTQUEUED = 24551852; LAT$_NOACTLINKS = 24551860; LAT$_CONNDELETEONLY = 24551868; LAT$_LRJREMDISABLED = 24551876; LAT$_INCOMPDRVACP = 24551884; LAT$_LRJINCOMPVER = 24551892; LAT$_LRJIVMSG = 24551900; LAT$_NORATINGIMAGE = 24551908; LAT$_RATINGNOTINIT = 24551916; LAT$_INVNODEUID = 24551924; (* END. *) (* MODULE LBRUSR ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LBRCTLTBL ***) CONST LBR$C_CTLTBLID = 203; (* Ident for control table *) LBR$M_LOCATE = 1; LBR$M_OPEN = 2; LBR$K_LENGTH = 30; LBR$C_LENGTH = 30; TYPE LBRCTLTBL$TYPE = RECORD CASE INTEGER OF 1: (LBR$B_ID : $UBYTE; (* Control table ID *) LBR$B_TBLSIZ : $UBYTE; (* Control table size *) LBR$B_TYPE : $UBYTE; (* Type of library opened *) LBR$B_FUNC : $UBYTE; (* Operation (function) requested *) LBRCTLTBL$$_FILL_1 : ARRAY [1..2] OF $BYTE; (* Reserved extra bytes *) LBR$R_USRFLG_OVERLAY : [BYTE(4)] RECORD END; LBR$L_HDRPTR : UNSIGNED; (* Pointer to in-core header *) LBR$L_CTXPTR : UNSIGNED; (* Pointer to context control block *) LBR$L_CURIDX : UNSIGNED; (* Number of current index *) LBR$L_USRNAM : UNSIGNED; (* Pointer to user NAM block *) LBR$L_OLDHDRPTR : UNSIGNED; (* Pointer to unmodified in-core header block *) ); 2: (LBR$L_USRFLG : [POS(48)] UNSIGNED; (* Flags longword *) ); 3: (LBR$R_USRFLG_BITS : [POS(48), BYTE(1)] RECORD END; ); 4: (LBR$V_LOCATE : [POS(48)] $BOOL; (* Use "locate" rather than "move" mode *) LBR$V_OPEN : [POS(49)] $BOOL; (* Library open *) ) END; (*** MODULE $MHDDEF ***) (* *) (* Module header *) (* *) CONST MHD$C_MHDID = 173; (* Value that must be in the ident *) MHD$K_REFLNG = 8; (* Length of record to end of ref count *) MHD$C_REFLNG = 8; (* Length of record to end of ref count *) MHD$K_INSTIME = 8; (* Label for start of insert time *) MHD$C_INSTIME = 8; (* Label for start of insert time *) MHD$K_USRDAT = 16; (* Start of user additional header data *) MHD$C_USRDAT = 16; (* Start of user additional header data *) MHD$K_MHDLEN = 16; (* Length of fixed part of MHD *) MHD$C_MHDLEN = 16; (* Length of fixed part of MHD *) MHD$M_SELSRC = 1; MHD$M_OBJTIR = 2; MHD$M_WKSYM = 4; MHD$K_OBJIDENT = 18; (* *) MHD$C_OBJIDENT = 18; (* *) MHD$K_OREFOFFSET = 52; (* Offset of the other ref. count *) MHD$C_OREFOFFSET = 52; (* Offset of the other ref. count *) TYPE MHD$TYPE = RECORD CASE INTEGER OF 1: (MHD$B_LBRFLAG : $UBYTE; (* Librarian-controlled flag byte *) MHD$B_ID : $UBYTE; (* Ident *) MHDDEF$$_FILL_1 : $WORD; (* Reserved word *) MHD$L_REFCNT : UNSIGNED; (* Reference count *) MHD$L_DATIM : UNSIGNED; (* Date/time inserted *) MHD$R_FILL_2_OVERLAY : [BYTE(4)] RECORD END; MHD$R_OBJSTAT_OVERLAY : [BYTE(1)] RECORD END; MHD$R_OBJIDLNG_OVERLAY : [BYTE(1)] RECORD END; MHDDEF$$_FILL_5 : ARRAY [1..31] OF $BYTE; (* Object module ident data or GSMATCH area *) MHDDEF$$_FILL_6 : ARRAY [1..3] OF $BYTE; (* space *) MHD$L_OTHEREFCNT : UNSIGNED; (* Other reference count *) MHD$L_MODSIZE : UNSIGNED; (* Module size *) MHD$L_FILL_7 : UNSIGNED; (* part of module size. *) ); 2: (MHD$B_OBJSTAT : [POS(128)] $UBYTE; (* Status of object module *) MHD$B_OBJIDLNG : [POS(136)] $UBYTE; (* Length of ident *) ); 3: (MHD$R_FILL_2_FIELDS : [POS(96), BYTE(4)] RECORD END; MHD$R_OBJSTAT_BITS : [POS(128), BYTE(1)] RECORD END; MHD$R_OBJIDLNG_FIELDS : [POS(136), BYTE(1)] RECORD END; ); 4: (MHD$B_USRDAT : [POS(128)] RECORD END ; (* Start of user additional header data *) MHD$V_SELSRC : [POS(128)] $BOOL; (* Selective search *) MHD$V_OBJTIR : [POS(129)] $BOOL; (* Module contains TIR records *) MHD$V_WKSYM : [POS(130)] $BOOL; (* Module contains other non-group global symbol *) MHD$T_OBJIDENT : [POS(144)] RECORD END ; (* Object module ident *) ) END; (*** MODULE $HLPDEF ***) (* *) (* Data structures for help processing *) (* *) CONST HLP$M_PROMPT = 1; HLP$M_PROCESS = 2; HLP$M_GROUP = 4; HLP$M_SYSTEM = 8; HLP$M_LIBLIST = 16; HLP$M_HELP = 32; HLP$M_SPARE1 = 64; HLP$M_PAGE_SAVE = 128; HLP$M_PAGE = 256; HLP$M_OUTPUT = 512; HLP$M_LIBRARY = 1024; HLP$M_ALL = 2048; HLP$M_PAGEDEF = 4096; HLP$M_PMPTDEF = 8192; HLP$M_NOTTERM = 16384; TYPE HLP$TYPE = RECORD CASE INTEGER OF 1: (HLP$R_HLPDEF_BITS : [BYTE(2)] RECORD END; ); 2: (HLP$V_PROMPT : [POS(0)] $BOOL; (* Prompting enabled *) HLP$V_PROCESS : [POS(1)] $BOOL; (* Process logical name table searches enabled *) HLP$V_GROUP : [POS(2)] $BOOL; (* Group logical name table searches enabled *) HLP$V_SYSTEM : [POS(3)] $BOOL; (* System logical name table searched enabled *) HLP$V_LIBLIST : [POS(4)] $BOOL; (* Output list of default libraries *) HLP$V_HELP : [POS(5)] $BOOL; (* Display help on help before list of topics *) HLP$V_SPARE1 : [POS(6)] $BOOL; HLP$V_PAGE_SAVE : [POS(7)] $BOOL; (* Page=Save enabled *) HLP$V_PAGE : [POS(8)] $BOOL; (* Page breaks enabled *) HLP$V_OUTPUT : [POS(9)] $BOOL; (* Output listing file enabled *) HLP$V_LIBRARY : [POS(10)] $BOOL; (* Main library specified by user *) HLP$V_ALL : [POS(11)] $BOOL; (* Some logical name table searches enabled *) HLP$V_PAGEDEF : [POS(12)] $BOOL; (* Page flag defaulting disabled *) HLP$V_PMPTDEF : [POS(13)] $BOOL; (* Prompt flag defaulting disabled *) HLP$V_NOTTERM : [POS(14)] $BOOL; (* Input device is not a terminal *) ) END; CONST HLP$M_NOHLPTXT = 1; HLP$M_KEYNAMLIN = 2; HLP$M_OTHERINFO = 4; TYPE HLP1$TYPE = RECORD CASE INTEGER OF 1: (HLP$L_DESC : UNSIGNED; (* Address of string descriptor for line *) HLP$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; HLP$L_DATA : UNSIGNED; (* Address of user data passed to GET_HELP *) HLP$L_LEVEL : UNSIGNED; (* Level of this help *) ); 2: (HLP$L_FLAGS : [POS(32)] UNSIGNED; (* Flags *) ); 3: (HLP$R_FLAGS_BITS : [POS(32), BYTE(1)] RECORD END; ); 4: (HLP$V_NOHLPTXT : [POS(32)] $BOOL; (* Line is part of text due to no help found *) HLP$V_KEYNAMLIN : [POS(33)] $BOOL; (* Line contains keynames to be printed *) HLP$V_OTHERINFO : [POS(34)] $BOOL; (* Line is part of "other info available" *) ) END; (*** MODULE $LBRDEF ***) (* *) (* Types of libraries *) (* *) (* Define the library types *) CONST LBR$C_TYP_UNK = 0; (* Unknown/unspecified library type *) LBR$C_TYP_OBJ = 1; (* Object/shareable image library *) LBR$C_TYP_MLB = 2; (* Macro library *) LBR$C_TYP_HLP = 3; (* Help file library *) LBR$C_TYP_TXT = 4; (* TEXT library *) LBR$C_TYP_SHSTB = 5; (* Shareable image symbol library *) LBR$C_TYP_NCS = 6; (* NCS library *) LBR$C_TYP_DECMX = 6; (* Maximum Digital library type defined *) LBR$C_TYP_EOBJ = 7; (* Alpha object library *) LBR$C_TYP_ESHSTB = 8; (* Alpha Shareable image symbol library *) LBR$C_TYP_ELFOBJ = 9; (* ELF object library *) LBR$C_TYP_ELFSHSTB = 10; (* ELF Shareable image symbol library *) ELBR$C_TYP_DECMX = 10; (* Maximum library type defined *) LBR$C_TYP_RDEC = 127; (* Types between DECMX and RDEC are *) (* reserved to Digital *) CONST LBR$C_TYP_USRLW = 128; (* User library types range from 128 *) LBR$C_TYP_USRHI = 255; (* to 255. *) (* *) (* Function codes for lbr$flush *) (* *) CONST LBR$C_FLUSHDATA = 1; (* Flush data blocks from cache *) LBR$C_FLUSHALL = 0; (* Flush data blocks, then index blocks *) (* *) (* Librarian fixed parameters *) (* *) CONST LBR$C_MAXRECSIZ = 2048; (* Maximum record size allowed *) LBR$C_PAGESIZE = 512; (* Size of memory page *) LBR$C_HASHSIZE = 512; (* Size of hash table ** Must be power of 2 ** *) LBR$C_TEXTPAGE = 508; (* No. of useable bytes on a text page *) LBR$C_DEXTQ = 50; (* Library default extend quantity *) LBR$C_MAXCTL = 64; (* Maximum number of open libraries *) LBR$C_MAXHDRSIZ = 128; (* Maximum length of module header *) (* (max user length is: *) (* lbr$c_maxhdrsiz-mhd$c_length) *) CONST LBR$C_DEFENTALL = 300; (* Number of entries to allocate by default *) LBR$C_RETRYOPEN = 120; (* Number of times to retry open on RMS$_FLK *) LBR$C_RETRYWAIT = 1; (* Number of seconds to wait *) LBR$C_MINREAD = 2; (* Minimum number of blocks to read *) LBR$C_MAXREAD = 100; (* Max blocks can ever read *) LBR$C_MEMXTRA = 50; (* Number blocks to expand region by above and beyond lbr$gl_maxread *) LBR$C_PUTBUFSIZ = 30; (* Block size of VM empty cache buffer *) LBR$C_FLSHBFSIZ = 1; (* Block size of stack mt_cache buffer *) LBR$C_MAXIDXRD = 20; (* Maximum blocks in one index read *) LBR$C_ELFMAXKEYLEN = 1024; (* Maximum length of an ASCII keyword for ELF libraries *) LBR$C_MAXKEYLEN = 128; (* Maximum length of an ASCII keyword, at most N, where *) (* 3*(N+7) < or = 506 *) CONST LBR$C_MAXLUHREC = 32768; (* maximum library update history record length *) LBR$M_SYM_WEAK = 1; (* Weak symbol attribute *) LBR$M_SYM_GROUP = 2; (* Group symbol attribute *) LBR$M_SYM_ALL = -2147483648; (* All types symbol *) LBR$M_SYM_NGG = 1; (* Symbol type bitmasks - Nongroup global symbol *) LBR$M_SYM_UXWK = 2; (* Symbol type bitmasks - Unix weak symbol *) LBR$M_SYM_GG = 4; (* Symbol type bitmasks - group global symbol *) LBR$M_SYM_GUXWK = 8; (* Symbol type bitmasks - group Unix weak symbol *) (* *) (* Librarian fixed parameters for ALPHA *) (* *) CONST ELBR$C_MAXRECSIZ = 8192; (* Maximum record size allowed *) (* *) (* LBR$INI_CONTROL argument list *) (* *) CONST LBR$C_CREATE = 0; (* Create a new library *) LBR$C_READ = 1; (* Read an existing library *) LBR$C_UPDATE = 2; (* Update an exisiting library *) LBR$C_MAXFUNC = 2; (* Maximum legal function *) TYPE LBR$TYPE = RECORD LBRDEF$$_FILL_1 : INTEGER; (* Argument count *) LBR$L_IC_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_IC_FUNC : UNSIGNED; (* Function *) LBR$L_IC_TYPE : UNSIGNED; (* Type of library expected to open *) (* *) (* LBR$OPEN argument list *) (* *) END; LBR1$TYPE = RECORD LBRDEF$$_FILL_2 : INTEGER; (* Argument count *) LBR$L_OP_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_OP_FNS : UNSIGNED; (* Address of string descriptor for filename *) LBR$L_OP_CREOPT : UNSIGNED; (* Address of create options array *) LBR$L_OP_DNS : UNSIGNED; (* Address of descriptor for default name string *) LBR$L_OP_RLFNA : UNSIGNED; (* Address of NAM block for related file *) LBR$L_OP_RNS : UNSIGNED; (* Address of descriptor for related filename string *) LBR$L_OP_RNSLEN : UNSIGNED; (* Address of longword to store resultant filename string length *) (* *) (* LBR$CLOSE argument list *) (* *) END; LBR2$TYPE = RECORD LBRDEF$$_FILL_3 : INTEGER; (* Argument count *) LBR$L_CL_CTLTBL : UNSIGNED; (* Control index address *) (* *) (* LBR$GET_HEADER argument list *) (* *) END; LBR3$TYPE = RECORD LBRDEF$$_FILL_4 : INTEGER; (* Argument count *) LBR$L_GH_CTLTBL : UNSIGNED; (* Address of Control index *) LBR$L_GH_RETARY : UNSIGNED; (* Address of 128-longword array for return info *) (* *) (* LBR$SET_INDEX argument list *) (* *) END; LBR4$TYPE = RECORD LBRDEF$$_FILL_5 : INTEGER; (* Argument count *) LBR$L_SI_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_SI_IDXNUM : UNSIGNED; (* Address of index number *) (* *) (* LBR$LOOKUP_KEY argument list *) (* *) END; LBR5$TYPE = RECORD LBRDEF$$_FILL_6 : INTEGER; (* Argument count *) LBR$L_LK_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_LK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) LBR$L_LK_TXTRFA : UNSIGNED; (* Address of quadword to return RFA if found *) (* *) (* LBR$INSERT_KEY argument list *) (* *) END; LBR6$TYPE = RECORD LBRDEF$$_FILL_7 : INTEGER; (* Argument count *) LBR$L_IK_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_IK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) LBR$L_IK_TXTRFA : UNSIGNED; (* Address of RFA of text *) (* *) (* LBR$REPLACE_MOD argument list *) (* *) (* *) (* LBR$REPLACE_KEY argument list *) (* *) END; LBR7$TYPE = RECORD LBRDEF$$_FILL_8 : INTEGER; (* Argument count *) LBR$L_RK_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_RK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) LBR$L_RK_OLDRFA : UNSIGNED; (* Address of RFA of old text *) LBR$L_RK_NEWRFA : UNSIGNED; (* Address of RFA of new text *) (* *) (* LBR$DELETE_KEY argument list *) (* *) END; LBR8$TYPE = RECORD LBRDEF$$_FILL_9 : INTEGER; (* Argument count *) LBR$L_DK_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_DK_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) (* *) (* LBR$DELETE_DATA argument list *) (* *) END; LBR9$TYPE = RECORD LBRDEF$$_FILL_10 : INTEGER; (* Argument count *) LBR$L_DD_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_DD_TXTRFA : UNSIGNED; (* Address of RFA to delete from *) (* *) (* LBR$GET_RECORD argument list *) (* *) END; LBR10$TYPE = RECORD LBRDEF$$_FILL_11 : INTEGER; (* Argument count *) LBR$L_GR_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_GR_BUFDES : UNSIGNED; (* Address of descriptor of buffer *) LBR$L_GR_BUFLEN : UNSIGNED; (* Address of longword to return record size *) (* *) (* LBR$PUT_RECORD argument list *) (* *) END; LBR11$TYPE = RECORD LBRDEF$$_FILL_12 : INTEGER; (* Argument count *) LBR$L_PR_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_PR_BUFDES : UNSIGNED; (* Address of descriptor of buffer to output *) LBR$L_PR_TXTRFA : UNSIGNED; (* Address of quadword to return RFA *) (* of text record *) (* *) (* LBR$PUT_END argument list *) (* *) END; LBR12$TYPE = RECORD LBRDEF$$_FILL_13 : INTEGER; (* Argument count *) LBR$L_PE_CTLTBL : UNSIGNED; (* Control index address *) (* *) (* LBR$SEARCH argument list *) (* *) END; LBR13$TYPE = RECORD LBRDEF$$_FILL_14 : INTEGER; (* Argument count *) LBR$L_SR_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_SR_IDXNUM : UNSIGNED; (* Address of index number *) LBR$L_SR_RFA : UNSIGNED; (* Address of RFA to search index for *) LBR$L_SR_USRTN : UNSIGNED; (* User routine to call on match *) (* *) (* Argument list for user routine called by LBR$SEARCH *) (* *) END; LBR14$TYPE = RECORD LBRDEF$$_FILL_15 : INTEGER; (* Argument count *) LBR$L_SU_KEYDES : UNSIGNED; (* Address of string descriptor or binary value *) LBR$L_SU_TXTRFA : UNSIGNED; (* Address of array containing rfa of module *) (* *) (* LBR$GET_INDEX argument list *) (* *) END; LBR15$TYPE = RECORD LBRDEF$$_FILL_16 : INTEGER; (* Argument count *) LBR$L_GI_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_GI_IDXNUM : UNSIGNED; (* Index number *) LBR$L_GI_USRTN : UNSIGNED; (* User routine to call for each entry *) (* *) (* Argument list for user routine called by LBR$GET_INDEX *) (* *) END; LBR16$TYPE = RECORD LBRDEF$$_FILL_17 : INTEGER; (* Argument count *) LBR$L_GU_KEYADR : UNSIGNED; (* Address of descriptor or binary value *) LBR$L_GU_TXTRFA : UNSIGNED; (* RFA of associated text *) (* *) (* LBR$ADD_UPDATE argument list *) (* *) END; CONST LBR$C_ADDMOD = 1; (* Add module *) LBR$C_DELMOD = 2; (* Delete module *) LBR$C_REPMOD = 3; (* Replace module *) (* *) TYPE LBR17$TYPE = RECORD LBRDEF$$_FILL_18 : INTEGER; (* Argument count *) LBR$L_AU_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_AU_FLAGS : UNSIGNED; (* Flags *) LBR$L_AU_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) (* Types of operations logged *) (* LBR$GET_UPDATES argument list *) (* *) END; LBR18$TYPE = RECORD LBRDEF$$_FILL_19 : INTEGER; (* Argument count *) LBR$L_GU_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_GU_USRTN : UNSIGNED; (* User routine to call for each update *) (* *) (* Argument list for user routine called by LBR$GET_UPDATES *) (* *) END; LBR19$TYPE = RECORD LBRDEF$$_FILL_20 : INTEGER; (* Argument list *) LBR$L_UU_UPDESC : UNSIGNED; (* String descriptor for history line *) END; (* *) (* LBR$MAP_MODULE argument list *) (* *) TYPE LBR20$TYPE = RECORD LBRDEF$$_FILL_21 : INTEGER; (* Argument count *) LBR$L_MM_CTLTBL : UNSIGNED; (* Control index address *) LBR$Q_MM_VAADDR : $UQUAD; (* 64-bit virtual Address of the specified object module *) LBR$Q_MM_MODSIZ : $UQUAD; (* Address of module size *) LBR$L_MM_TXTRFA : UNSIGNED; (* Address of RFA to map from *) (* *) (* Argument list for user routine called by LBR$MAP_MODULE *) (* *) END; (* *) (* LBR$UNMAP_MODULE argument list *) (* *) TYPE LBR21$TYPE = RECORD LBRDEF$$_FILL_22 : INTEGER; (* Argument count *) LBR$L_UM_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_UM_TXTRFA : UNSIGNED; (* Address of RFA to unmap *) (* *) (* Argument list for user routine called by LBR$UNMAP_MODULE *) (* *) END; (* *) (* LBR$GET_VERSION argument list *) (* *) TYPE LBR22$TYPE = RECORD LBRDEF$$_FILL_23 : INTEGER; (* Argument count *) LBR$L_GV_VERDESC : UNSIGNED; (* Addr of Version Descriptor *) LBR$L_GV_RETLEN : UNSIGNED; (* Address of ret. len. *) (* *) (* Argument list for user routine called by LBR$GET_VERSION *) (* *) END; (* *) (* LBR$LOOKUP_TYPE argument list *) (* *) TYPE LBR23$TYPE = RECORD LBRDEF$$_FILL_24 : INTEGER; (* Argument count *) LBR$L_LT_CTLTBL : UNSIGNED; (* Control index address *) LBR$L_LT_KEYNAM : UNSIGNED; (* Address of string descriptor or binary value *) LBR$L_LT_TXTRFA : UNSIGNED; (* Address of quadword to return RFA if found *) LBR$L_LT_FLAG : UNSIGNED; (* Address of ret. flag *) (* *) (* Argument list for user routine called by LBR$LOOKUP_TYPE *) (* *) END; (* *) (* LBR$PUT_MODULE argument list *) (* *) TYPE LBR24$TYPE = RECORD LBRDEF$$_FILL_25 : INTEGER; (* Argument count *) LBR$L_PM_CTLTBL : UNSIGNED; (* Control index address *) LBR$Q_PM_VAADDR : $UQUAD; (* 64-bit virtual Address of the specified object module *) LBR$Q_PM_MODSIZ : $UQUAD; (* Address of module size *) LBR$L_PM_TXTRFA : UNSIGNED; (* Address of return RFA *) (* *) (* Argument list for user routine called by LBR$PUT_MODULE *) (* *) END; (*** MODULE $LHIDEF ***) (* *) (* Library header information array offsets *) (* *) TYPE LHI$TYPE = RECORD LHI$L_TYPE : UNSIGNED; (* Library type *) LHI$L_NINDEX : UNSIGNED; (* Number of indices *) LHI$L_MAJORID : UNSIGNED; (* Library format major id *) LHI$L_MINORID : UNSIGNED; (* Library format minor id *) LHI$T_LBRVER : PACKED ARRAY [1..32] OF CHAR; (* ASCIC version of librarian that created *) LHI$L_CREDAT : UNSIGNED; (* Creation date/time *) LHIDEF$$_FILL_1 : INTEGER; (* ... *) LHI$L_UPDTIM : UNSIGNED; (* Date/time of last update *) LHIDEF$$_FILL_2 : INTEGER; (* ... *) LHI$L_UPDHIS : UNSIGNED; (* VBN of start of update history *) LHI$L_FREEVBN : UNSIGNED; (* 1st logically deleted block *) LHI$L_FREEBLK : UNSIGNED; (* Number of deleted blocks *) LHI$B_NEXTRFA : ARRAY [1..6] OF $UBYTE; (* RFA of end of library *) LHI$W_RFAXTR : $UWORD; (* Spare word, zeroed *) LHI$L_NEXTVBN : UNSIGNED; (* Next VBN to allocate at end of file *) LHI$L_FREIDXBLK : UNSIGNED; (* Number of free pre-allocated index blocks *) LHI$L_FREEIDX : UNSIGNED; (* Listhead for pre-allocated index blocks *) LHI$L_HIPREAL : UNSIGNED; (* VBN of highest pre-allocated block *) LHI$L_IDXBLKS : UNSIGNED; (* Number of index blocks in use *) LHI$L_IDXCNT : UNSIGNED; (* Number of index entries (total) *) LHI$L_MODCNT : UNSIGNED; (* Number of entries in index 1 (module names) *) LHI$L_MHDUSZ : UNSIGNED; (* Length of user-maintained info in module header *) LHI$L_MAXLUHREC : UNSIGNED; (* Maximum number of library update histories records maintained *) LHI$L_NUMLUHREC : UNSIGNED; (* Number of LUH records in history *) LHI$L_LIBSTATUS : UNSIGNED; (* False if there was an error closing lib *) END; (*** MODULE $CREDEF ***) (* *) (* Create options table *) (* *) CONST CRE$C_VMSV2 = 2; (* VMS version V04-000 format *) CRE$C_VMSV3 = 3; (* VMS version 3 format *) CRE$C_VMSV4 = 4; (* VMS version 4 format for an ELF files. *) CRE$C_VMSV5 = 5; (* VMS version 5 format for an ELF files. *) CRE$C_VMSV6 = 6; (* VMS version 6 format for an ELF files. *) CRE$M_NOCASECMP = 1; CRE$M_NOCASENTR = 2; CRE$M_UPCASNTRY = 4; CRE$C_HLPCASING = 6; (* Treat upper casing as it is for HELP libs *) CRE$C_OBJCASING = 3; (* Treat upper casing as it is for OBJECT libs *) CRE$C_MACTXTCAS = 0; (* Treat upper casing as it is for MACRO and TEXT libs *) CRE$K_LENGTH = 80; (* *) CRE$C_LENGTH = 80; (* *) TYPE CRE$TYPE = RECORD CASE INTEGER OF 1: (CRE$L_TYPE : UNSIGNED; (* Type of library *) (* (library types defined in $LBRDEF) *) CRE$L_KEYLEN : UNSIGNED; (* Length of keys in library *) CRE$L_ALLOC : UNSIGNED; (* Initial file allocation *) CRE$L_IDXMAX : UNSIGNED; (* Maximum number of indices *) CRE$L_UHDMAX : UNSIGNED; (* Size of additional module header data *) CRE$L_ENTALL : UNSIGNED; (* Number of index entries to pre-allocate *) CRE$L_LUHMAX : UNSIGNED; (* Number of library update history records to store *) CRE$L_VERTYP : UNSIGNED; (* Version type of library to create *) CRE$R_IDXOPT_OVERLAY : [BYTE(4)] RECORD END; CREDEF$$_FILL_1 : ARRAY [1..11] OF INTEGER; (* Reserved 11 longwords *) ); 2: (CRE$L_IDXOPT : [POS(256)] UNSIGNED; (* Index options *) ); 3: (CRE$R_IDXOPT_BITS : [POS(256), BYTE(1)] RECORD END; ); 4: (CRE$V_NOCASECMP : [POS(256)] $BOOL; (* Do not upper case the match key *) CRE$V_NOCASENTR : [POS(257)] $BOOL; (* Do not upper case the index key when comparing with a match key *) CRE$V_UPCASNTRY : [POS(258)] $BOOL; (* Upper case the index key when entering it into the library *) ) END; (* END. *) (* MODULE LIBCLIDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBCLIDEF ***) (* Definitions for LIB$ CLI callback procedures *) CONST LIB$K_CLI_LOCAL_SYM = 1; LIB$K_CLI_GLOBAL_SYM = 2; LIB$M_CLI_CTRLT = 1048576; LIB$M_CLI_CTRLY = 33554432; TYPE CLI$CTRL_FIELDS = RECORD LIB$V_FILL_A_S : [POS(0)] $BIT20; (* Ctrl-A to Ctrl-S are unused *) LIB$V_CLI_CTRLT : [POS(20)] $BOOL; LIB$V_FILL_U_X : [POS(21)] $BIT4; (* Ctrl-U to Ctrl-X are unused *) LIB$V_CLI_CTRLY : [POS(25)] $BOOL; LIB$V_FILL_0_ : [POS(26)] $BIT6; END; (* END. *) (* MODULE LIBCQDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $CQUALDEF ***) CONST UTIL$M_CQF_CONFIRM = 1; UTIL$M_CQF_EXCLUDE = 2; UTIL$M_CQF_BEFORE = 4; UTIL$M_CQF_SINCE = 8; UTIL$M_CQF_CREATED = 16; UTIL$M_CQF_MODIFIED = 32; UTIL$M_CQF_EXPIRED = 64; UTIL$M_CQF_BACKUP = 128; UTIL$M_CQF_BYOWNER = 256; UTIL$M_CQF_ACCESSED = 512; UTIL$M_CQF_ATTRIBUTES = 1024; UTIL$M_CQF_UPDATE_DATA = 2048; UTIL$M_CQF_SYMLINK_SEARCH = 4096; UTIL$M_CQF_SYMLINK_TARGET = 8192; TYPE CFQUALS$TYPE = RECORD CASE INTEGER OF 1: (UTIL$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; ); 2: (UTIL$L_QUALIFIER_FLAGS : [POS(0), BYTE(4)] RECORD END; ); 3: (UTIL$V_CQF_CONFIRM : [POS(0)] $BOOL; (* *) UTIL$V_CQF_EXCLUDE : [POS(1)] $BOOL; (* *) UTIL$V_CQF_BEFORE : [POS(2)] $BOOL; (* *) UTIL$V_CQF_SINCE : [POS(3)] $BOOL; (* *) UTIL$V_CQF_CREATED : [POS(4)] $BOOL; (* *) UTIL$V_CQF_MODIFIED : [POS(5)] $BOOL; (* *) UTIL$V_CQF_EXPIRED : [POS(6)] $BOOL; (* *) UTIL$V_CQF_BACKUP : [POS(7)] $BOOL; (* *) UTIL$V_CQF_BYOWNER : [POS(8)] $BOOL; (* *) UTIL$V_CQF_ACCESSED : [POS(9)] $BOOL; (* *) UTIL$V_CQF_ATTRIBUTES : [POS(10)] $BOOL; (* *) UTIL$V_CQF_UPDATE_DATA : [POS(11)] $BOOL; (* *) UTIL$V_CQF_SYMLINK_SEARCH : [POS(12)] $BOOL; (* *) UTIL$V_CQF_SYMLINK_TARGET : [POS(13)] $BOOL; (* *) ); 4: (UTIL$R_QF_OVERLAY2 : [POS(0), BYTE(4)] RECORD END; ); 5: (UTIL$V_CQF_ASSIGNED : [POS(0)] $BIT14; UTIL$V_CQF_UNASSIGNED : [POS(14)] $BIT18; ) END; (* *) (* define prompt parameter values *) (* *) CONST UTIL$K_CQF_UNSPECIFIED = 0; UTIL$K_CQF_SHORT = 1; UTIL$K_CQF_LONG = 2; UTIL$K_CQF_CONDENSED = 1; UTIL$K_CQF_EXPANDED = 2; UTIL$K_CQF_MAX_FORM = 2; (* *) (* Flag values output argument *) (* *) CONST UTIL$K_SEARCH_SYMLINK_DEFAULT = 0; (* use process default *) UTIL$K_SEARCH_SYMLINK_NONE = 1; (* use no symlinks *) UTIL$K_SEARCH_SYMLINK_ALL = 2; (* use symlinks always *) UTIL$K_SEARCH_SYMLINK_NOELLIPS = 3; (* use symlinks except in ellipsis *) UTIL$M_CQF_SYMLINK_NOTARGET = 4; TYPE CFVALS$TYPE = RECORD CASE INTEGER OF 1: (UTIL$R_FILL_0_ : [BYTE(4)] RECORD END; ); 2: (UTIL$L_FLAG_VALUES : [POS(0)] INTEGER; ); 3: (); 4: (UTIL$V_CQF_SYMLINK_MODE : [POS(0)] $BIT2; (* *) (* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *) (* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) UTIL$V_CQF_SYMLINK_NOTARGET : [POS(2)] $BOOL; (* *) ) END; (* *) (* TO BE REMOVED *) CONST LIB$M_CQF_CONFIRM = 1; LIB$M_CQF_EXCLUDE = 2; LIB$M_CQF_BEFORE = 4; LIB$M_CQF_SINCE = 8; LIB$M_CQF_CREATED = 16; LIB$M_CQF_MODIFIED = 32; LIB$M_CQF_EXPIRED = 64; LIB$M_CQF_BACKUP = 128; LIB$M_CQF_BYOWNER = 256; TYPE CQUALS$TYPE = RECORD CASE INTEGER OF 1: (LIB$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; ); 2: (LIB$L_QUALIFIER_FLAGS : [POS(0), BYTE(4)] RECORD END; ); 3: (LIB$V_CQF_CONFIRM : [POS(0)] $BOOL; (* *) LIB$V_CQF_EXCLUDE : [POS(1)] $BOOL; (* *) LIB$V_CQF_BEFORE : [POS(2)] $BOOL; (* *) LIB$V_CQF_SINCE : [POS(3)] $BOOL; (* *) LIB$V_CQF_CREATED : [POS(4)] $BOOL; (* *) LIB$V_CQF_MODIFIED : [POS(5)] $BOOL; (* *) LIB$V_CQF_EXPIRED : [POS(6)] $BOOL; (* *) LIB$V_CQF_BACKUP : [POS(7)] $BOOL; (* *) LIB$V_CQF_BYOWNER : [POS(8)] $BOOL; (* *) ); 4: (LIB$R_QF_OVERLAY2 : [POS(0), BYTE(4)] RECORD END; ); 5: (LIB$V_CQF_ASSIGNED : [POS(0)] $BIT9; LIB$V_CQF_UNASSIGNED : [POS(9)] $BIT23; ) END; (* END. *) (* MODULE LIBDCFDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBDCFDEF ***) (* Definitions for LIB$DECODE_FAULT *) (* *) (* Operand definition codes *) (* *) CONST LIB$M_DCFACC = 7; LIB$M_DCFTYP = 248; TYPE LIB$B_DCF_OPERAND = RECORD LIB$V_DCFACC : [POS(0)] $BIT3; (* Operand access type *) LIB$V_DCFTYP : [POS(3)] $BIT5; (* Operand data type *) END; (* *) (* Operand access type codes *) (* *) CONST LIB$K_DCFACC_R = 1; (* Operand is to be read *) LIB$K_DCFACC_M = 2; (* Operand is to be modified *) LIB$K_DCFACC_W = 3; (* Operand is to be written *) LIB$K_DCFACC_A = 4; (* Operand is an address *) LIB$K_DCFACC_V = 5; (* Operand is a field (may be register or address) *) LIB$K_DCFACC_B = 6; (* Operand is a branch displacement *) (* *) (* Operand data type codes *) (* *) CONST LIB$K_DCFTYP_B = 1; (* Operand is a byte *) LIB$K_DCFTYP_W = 2; (* Operand is a word *) LIB$K_DCFTYP_L = 3; (* Operand is a longword *) LIB$K_DCFTYP_Q = 4; (* Operand is a quadword *) LIB$K_DCFTYP_O = 5; (* Operand is an octaword *) LIB$K_DCFTYP_F = 6; (* Operand is an F_floating *) LIB$K_DCFTYP_D = 7; (* Operand is a D_floating *) LIB$K_DCFTYP_G = 8; (* Operand is a G_floating *) LIB$K_DCFTYP_H = 9; (* Operand is an H_floating *) (* *) (* Combined operand access and data type codes *) (* *) CONST LIB$K_DCFOPR_AB = 8; LIB$K_DCFOPR_RB = 9; LIB$K_DCFOPR_MB = 10; LIB$K_DCFOPR_WB = 11; LIB$K_DCFOPR_VB = 12; LIB$K_DCFOPR_BB = 13; LIB$K_DCFOPR_AW = 16; LIB$K_DCFOPR_RW = 17; LIB$K_DCFOPR_MW = 18; LIB$K_DCFOPR_WW = 19; LIB$K_DCFOPR_VW = 20; LIB$K_DCFOPR_BW = 21; LIB$K_DCFOPR_AL = 24; LIB$K_DCFOPR_RL = 25; LIB$K_DCFOPR_ML = 26; LIB$K_DCFOPR_WL = 27; LIB$K_DCFOPR_VL = 28; LIB$K_DCFOPR_BL = 29; LIB$K_DCFOPR_AQ = 32; LIB$K_DCFOPR_RQ = 33; LIB$K_DCFOPR_MQ = 34; LIB$K_DCFOPR_WQ = 35; LIB$K_DCFOPR_VQ = 36; LIB$K_DCFOPR_AO = 40; LIB$K_DCFOPR_RO = 41; LIB$K_DCFOPR_MO = 42; LIB$K_DCFOPR_WO = 43; LIB$K_DCFOPR_VO = 44; LIB$K_DCFOPR_AF = 48; LIB$K_DCFOPR_RF = 49; LIB$K_DCFOPR_MF = 50; LIB$K_DCFOPR_WF = 51; LIB$K_DCFOPR_VF = 52; LIB$K_DCFOPR_AD = 56; LIB$K_DCFOPR_RD = 57; LIB$K_DCFOPR_MD = 58; LIB$K_DCFOPR_WD = 59; LIB$K_DCFOPR_VD = 60; LIB$K_DCFOPR_AG = 64; LIB$K_DCFOPR_RG = 65; LIB$K_DCFOPR_MG = 66; LIB$K_DCFOPR_WG = 67; LIB$K_DCFOPR_VG = 68; LIB$K_DCFOPR_AH = 72; LIB$K_DCFOPR_RH = 73; LIB$K_DCFOPR_MH = 74; LIB$K_DCFOPR_WH = 75; LIB$K_DCFOPR_VH = 76; LIB$K_DCFOPR_END = 0; (* *) (* END. *) (* MODULE LIBDTDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBDTDEF ***) (* *) (* Interface definitions for LIB$DT (date/time) package *) (* *) (* *) (* Request codes for LIB$INIT_DATE_TIME_CONTEXT *) (* *) CONST LIB$K_MONTH_NAME = 0; (*Pre-init the month names *) LIB$K_MONTH_NAME_ABB = 3; (*Pre-init the month names *) LIB$K_WEEKDAY_NAME = 6; (*Pre-init the week names *) LIB$K_WEEKDAY_NAME_ABB = 9; (*Pre-init the week names *) LIB$K_MERIDIEM_INDICATOR = 12; (*Pre-init the AM/PM names *) LIB$K_OUTPUT_FORMAT = 1; (*Pre-init the format *) LIB$K_INPUT_FORMAT = 2; (*Pre-init the format *) LIB$K_RELATIVE_DAY_NAME = 15; (*Pre-init "TODAY", etc. *) LIB$K_FORMAT_MNEMONICS = 18; (*Pre-init MM, DD, YYYY, etc. *) LIB$K_LANGUAGE = 4; (*Pre-init user's language *) (* *) (* Operation codes (flags) for date time conversion routines. *) (* NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION *) (* *) CONST LIB$K_MONTH_OF_YEAR = 1; (* requests output in units of month of year *) LIB$K_DAY_OF_YEAR = 2; (* requests output in days of year 1-366 *) LIB$K_HOUR_OF_YEAR = 3; (* requests output in hours of year 1-8784 *) LIB$K_MINUTE_OF_YEAR = 4; (* requests output in minutes of year 1-527040 *) LIB$K_SECOND_OF_YEAR = 5; (* requests output in seconds of year 1-31622400 *) LIB$K_DAY_OF_MONTH = 6; (* request output in days of month 1-31 *) LIB$K_HOUR_OF_MONTH = 7; (* request output in hours of month 1-744 *) LIB$K_MINUTE_OF_MONTH = 8; (* request output in minutes of month 1-44640 *) LIB$K_SECOND_OF_MONTH = 9; (* requests output in seconds of month 1-2678400 *) LIB$K_DAY_OF_WEEK = 10; (* requests output in days of week 1-7 with monday = 1 *) LIB$K_HOUR_OF_WEEK = 11; (* requests output in hours of week 1-168 *) LIB$K_MINUTE_OF_WEEK = 12; (* requests in minutes of week 1-10080 *) LIB$K_SECOND_OF_WEEK = 13; (* requests output in seconds of week 1-604800 *) LIB$K_HOUR_OF_DAY = 14; (* requests output in hours of day 1-24 *) LIB$K_MINUTE_OF_DAY = 15; (* requests output in minutes of day 1-1440 *) LIB$K_SECOND_OF_DAY = 16; (* requests output in seconds of day 1-3600 *) LIB$K_MINUTE_OF_HOUR = 17; (* requests output in minutes of hour 1-60 *) LIB$K_SECOND_OF_HOUR = 18; (* requests output in minutes of hour 1-3600 *) LIB$K_SECOND_OF_MINUTE = 19; (* requests output in seconds of minutes 1-60 *) LIB$K_JULIAN_DATE = 20; (* requests output as a julian day number *) LIB$K_DELTA_WEEKS = 21; (* input/output in terms of delta weeks *) LIB$K_DELTA_DAYS = 22; (* input/output in terms of delta days *) LIB$K_DELTA_HOURS = 23; (* input/output in terns of delta hours *) LIB$K_DELTA_MINUTES = 24; (* input/output in terms of delta minutes *) LIB$K_DELTA_SECONDS = 25; (* input/output in terms of delta seconds *) LIB$K_DELTA_WEEKS_F = 26; (* input/output in terms of fractional delta weeks *) LIB$K_DELTA_DAYS_F = 27; (* input/output in terms of fractional delta days *) LIB$K_DELTA_HOURS_F = 28; (* input/output in terms of fractional delta hours *) LIB$K_DELTA_MINUTES_F = 29; (* input/output in terms of fractional delta minutess *) LIB$K_DELTA_SECONDS_F = 30; (* input/output in terms of fractional delta seconds *) LIB$K_MAX_OPERATION = 31; (* 1+ max # of conversion flags *) (* *) (* Masks for outputting date or time fields only *) (* *) CONST LIB$M_TIME_FIELDS = 1; LIB$M_DATE_FIELDS = 2; TYPE DT_PRINT_FIELDS$TYPE = RECORD LIB$V_TIME_FIELDS : [POS(0)] $BOOL; (* Force printing of time fields *) LIB$V_DATE_FIELDS : [POS(1)] $BOOL; (* Force printing of date fields *) LIB$V_FILL_0_ : [POS(2)] $BIT6; END; (* *) (* Masks for input defaulting flag longword *) (* *) CONST LIB$M_YEAR = 1; LIB$M_MONTH = 2; LIB$M_DAY = 4; LIB$M_HOUR = 8; LIB$M_MINUTE = 16; LIB$M_SECOND = 32; LIB$M_HUNDREDTHS = 64; TYPE DT_AULT_FIELDS$TYPE = RECORD LIB$V_YEAR : [POS(0)] $BOOL; (* Allow the year to be defaulted *) LIB$V_MONTH : [POS(1)] $BOOL; (* Allow the month to be defaulted *) LIB$V_DAY : [POS(2)] $BOOL; (* Allow the day to be defaulted *) LIB$V_HOUR : [POS(3)] $BOOL; (* Allow the hour to be defaulted *) LIB$V_MINUTE : [POS(4)] $BOOL; (* Allow the minute to be defaulted *) LIB$V_SECOND : [POS(5)] $BOOL; (* Allow the second to be defaulted *) LIB$V_HUNDREDTHS : [POS(6)] $BOOL; (* Allow the fract to be defaulted *) LIB$V_FILL_1_ : [POS(7)] $BOOL; END; (* END. *) (* MODULE LIBICB ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE LIBICB IDENT V2.0 ***) CONST LIB$K_PROC_VALUE_NULL = 0; LIB$K_INVO_HANDLE_NULL = 0; LIBICB$K_INVO_HANDLE_SIZE = 4; LIBICB$K_INVO_CONTEXT_VERSION = 1; (* *) CONST LIBICB$M_FFLAGS_BITS = 16777215; LIBICB$M_EXCEPTION_FRAME = 1; LIBICB$M_AST_FRAME = 2; LIBICB$M_BOTTOM_OF_STACK = 4; LIBICB$M_BASE_FRAME = 8; LIBICB$K_INVO_CONTEXT_BLK_SIZE = 544; TYPE INVO_CONTEXT_BLK$TYPE = RECORD CASE INTEGER OF 1: ( (* The first quadword contains: *) (* *) (* o The length of the structure in bytes (a longword field) *) (* o The frame flags (a 3 byte field of bits) *) (* o The version number (a 1 byte field) *) (* *) LIBICB$R_HDR : [BYTE(8)] RECORD END; (* *) (* The address of the procedure descriptor for the procedure. *) (* *) LIBICB$PH_PROCEDURE_DESCRIPTOR : $QUAD; (* *) (* The current PC of a given procedure invocation. *) (* *) LIBICB$Q_PROGRAM_COUNTER : $QUAD; (* *) (* The current PS of a given procedure invocation. *) (* *) LIBICB$Q_PROCESSOR_STATUS : $QUAD; (* *) (* The register contents areas. 31 for scalars, 31 for float. *) (* *) LIBICB$Q_IREG : ARRAY [0..30] OF $QUAD; LIBICB$Q_FREG : ARRAY [0..30] OF $QUAD; (* *) (* The following is an "internal" area that's reserved for use by *) (* the operating system. It's size may vary over time. *) (* *) LIBICB$R_SYSTEM_SPECIFIC : [BYTE(16)] RECORD END; (* *) (* Align to octaword. *) (* *) LIBICB$T_ALIGN : RECORD END ; ); 2: (LIBICB$Q_HDR_QUAD : [POS(0)] $QUAD; LIBICB$PH_CHFCTX_ADDR : [POS(4224)] $QUAD; ); 3: (LIBICB$R_HDR_DESC : [POS(0), BYTE(8)] RECORD END; LIBICB$Q_SYSTEM_DEFINED : [POS(4224)] ARRAY [0..1] OF $QUAD; ); 4: (LIBICB$L_CONTEXT_LENGTH : [POS(0)] UNSIGNED; LIBICB$R_FRAMEFLAGS : [POS(32), BYTE(3)] RECORD END; LIBICB$B_BLOCK_VERSION : [POS(56)] $UBYTE; ); 5: (LIBICB$V_FFLAGS_BITS : [POS(32)] $BIT24; ); 6: (LIBICB$R_FFLAGS_DESC : [POS(32), BYTE(1)] RECORD END; ); 7: (LIBICB$V_EXCEPTION_FRAME : [POS(32)] $BOOL; LIBICB$V_AST_FRAME : [POS(33)] $BOOL; LIBICB$V_BOTTOM_OF_STACK : [POS(34)] $BOOL; LIBICB$V_BASE_FRAME : [POS(35)] $BOOL; ) END; (* END. *) (* MODULE LIBMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:35.58 *) (* *) (* FILE: LIBMSG.MSG *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* *) (* 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981 *) (* 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81 *) (* 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_INVNBDS *) (* LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81 *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL *) (* VERSION 1-015. SBL 23-APR-1981 *) (* 2-002 - USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981 *) (* 2-003 - ADD LIB$_INTOVF, LIB$_FLTOVF, LIB$_FLTUND, LIB$_DECOVF, LIB$_ROPRAND. *) (* 2-004 - ADD LIB$_WRONUMARG. RKR 4-SEP-1981 *) (* 2-005 - ADD MESSAGES FOR LIB$CLI_CALLBACK. SBL 14-SEPT-1981 *) (* 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. SBL 1-OCT-1981 *) (* 2-007 - ADD LIB$_WASSET AND LIB$_WASCLR. SBL 16-OCT-1981 *) (* 2-008 - CORRECT TYPO IN LIB$_UNAEXTRAN. SBL 30-OCT-1981 *) (* 2-009 - REMOVE LIB$_WASSET AND LIB$_WASCLR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981 *) (* 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981 *) (* 2-011 - CORRECT TYPO. SBL 23-DEC-1981 *) (* 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981 *) (* 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982 *) (* 2-014 - ADD LIB$_INVXAB, LIB$_FILFAIMAT, LIB$_NEGANS, LIB$_QUIPRO, *) (* LIB$_QUICONACT. TSK 20-SEP-1982 *) (* 2-015 - ADD LIB$_RESTART. SBL 1-MAR-1983 *) (* 2-016 - ADD LIB$_NO_STRACT FOR SCREEN PACKAGE. PLL 19-JUL-1983 *) (* 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984 *) (* 2-018 - ADD NEW MESSAGES FOR FUTURE LIB$VM. BLS 11-APR-1984 *) (* 2-019 - ADD LIB$_NOTIMP. MDL 11-JUL-1985 *) (* 2-020 - ADD LIB$_BADZONE. SMM 09-APR-1986 *) (* *) (* 2-021 - ADD ERROR MESSAGES FOR DATE/TIME ROUTINES. LIB$_IVTIME, *) (* LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER, *) (* LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986 *) (* 2-022 - ADD SEVERAL NEW MESSAGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986 *) (* 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987 *) (* 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988 *) (* 2-025 - ADD LITERALS FOR SHR$_ SYMBOLS USED BY LIBRTL. KC 16-OCT-1989. *) (* X-5 - MAH MARK A. HOWELL 3-AUG-1990 *) (* ADD LIB$UID MESSAGES *) (* X-7 - CW CHRIS WHITAKER 25-FEB-1991 *) (* ROLL LIB UID SUPPORT FORWARD *) (* X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991 *) (* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *) (* 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 *) (* PRECEDING AUDIT TRAIL IS FROM THE VMS MASTERPACK. *) (* *) (* X-4 JAH0090 JOHN A HARNEY 28-MAR-1994 *) (* ADD MESSAGE FOR LIB$BUILD_NODESPEC: *) (* NODTOOLNG - PRIMARY NODE NAME TOO LONG AFTER BEING QUOTED *) (* ADD MESSAGE FOR LIB$GET_HOSTNAME *) (* NOHOSNAM - NO HOST NODE NAME FOUND *) (*- *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* LIB$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* 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 *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (* ; SET LH TO 21 (DECIMAL). *) CONST LIB$_FACILITY = 21; LIB$_NORMAL = 1409025; LIB$_STRTRU = 1409041; LIB$_ONEENTQUE = 1409049; (* ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI *) CONST LIB$_KEYALRINS = 1409057; (* ; LIB$INSERT_TREE *) CONST LIB$_ERRROUCAL = 1409065; (* ; LIB$DELETE_FILE, LIB$RENAME_FILE *) CONST 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). *) (* ; SO THAT EACH CODE WILL BE AN WARNING CODE. *) (* ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW. *) CONST LIB$_BADSTA = 1409540; (* ; LIB$FIXUP_FLT *) CONST LIB$_FATERRLIB = 1409548; (* ; LIB$VM_GET *) CONST LIB$_INSVIRMEM = 1409556; (* ; LIB$VM_GET, LIB$LOOKUP_KEY *) CONST LIB$_INPSTRTRU = 1409564; (* ; LIB$GET_INPUT *) CONST LIB$_INVSTRDES = 1409572; (* ; LIB$SCOPY_XXXX *) CONST LIB$_INTLOGERR = 1409580; LIB$_INVARG = 1409588; (* ; LIB$LOOKUP_KEY *) CONST LIB$_AMBKEY = 1409596; (* ; LIB$LOOKUP_KEY *) CONST LIB$_UNRKEY = 1409604; LIB$_PUSSTAOVE = 1409612; (* ; LIB$FIXUP_FLT *) CONST LIB$_USEFLORES = 1409620; (* ; LIB$LOOKUP_KEY *) CONST LIB$_SIGNO_ARG = 1409628; (* ; LIB$SIGNAL, LIB$STOP *) CONST LIB$_BADBLOADR = 1409636; (* ; LIB$FREE_VM, LIB$VM_FREE[_P] *) CONST LIB$_BADBLOSIZ = 1409644; (* ; LIB$GET_VM *) CONST LIB$_NOTFOU = 1409652; (* ; LIB$FFS, LIB$FFC *) CONST LIB$_ATTCONSTO = 1409660; (* ; LIB$SIGNAL, LIB$STOP *) CONST LIB$_SYNTAXERR = 1409668; LIB$_INVTYPE = 1409676; (* ; LIB$TPARSE *) CONST LIB$_INSEF = 1409684; (* ; LIB$GET_EF *) CONST LIB$_EF_ALRFRE = 1409692; (* ; LIB$FREE_EF *) CONST LIB$_EF_ALRRES = 1409700; (* ; LIB$RESERVE_EF *) CONST LIB$_EF_RESSYS = 1409708; (* ; LIB$FREE_EF, LIB$RESERVE_EF *) CONST LIB$_INSLUN = 1409716; (* ; LIB$GET_LUN *) CONST LIB$_LUNALRFRE = 1409724; (* ; LIB$FREE_LUN *) CONST LIB$_LUNRESSYS = 1409732; (* ; LIB$FREE_LUN, LIB$RESERVE_LUN *) CONST LIB$_SCRBUFOVF = 1409740; (* ; SCR PACKAGE *) CONST LIB$_INVSCRPOS = 1409748; (* ; SCR PACKAGE *) CONST LIB$_SECINTFAI = 1409756; (* ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI *) CONST LIB$_INVCHA = 1409764; (* ; LIB$TRA_ASC_EBC, LIB$TRA_EBC_ASC *) CONST LIB$_QUEWASEMP = 1409772; (* ; LIB$REMQHI, LIB$REMQTI *) CONST LIB$_STRIS_INT = 1409780; (* ; LIB$SCOPY, ETC. *) CONST LIB$_KEYNOTFOU = 1409788; (* ; LIB$LOOKUP_TREE *) CONST LIB$_INVCVT = 1409796; (* ; LIB$CVTDXDX *) CONST LIB$_INVDTYDSC = 1409804; (* ; LIB$CVTDXDX *) CONST LIB$_INVCLADSC = 1409812; (* ; LIB$CVTDXDX *) CONST LIB$_INVCLADTY = 1409820; (* ; LIB$CVTDXDX *) CONST LIB$_INVNBDS = 1409828; (* ; LIB$CVTDXDX *) CONST LIB$_DESSTROVF = 1409836; (* ; LIB$CVTDXDX *) CONST LIB$_INTOVF = 1409844; (* ; LIB$CVTDXDX *) CONST LIB$_DECOVF = 1409852; (* ; LIB$CVTDXDX *) CONST LIB$_FLTOVF = 1409860; (* ; LIB$CVTDXDX *) CONST LIB$_FLTUND = 1409868; (* ; LIB$CVTDXDX *) CONST LIB$_ROPRAND = 1409876; (* ; LIB$CVTDXDX *) CONST LIB$_WRONUMARG = 1409884; (* ; LIB$ANALYZE_SDESC *) CONST LIB$_NOSUCHSYM = 1409892; (* ; LIB$CLI_CALLBACK *) CONST LIB$_INSCLIMEM = 1409900; (* ; LIB$CLI_CALLBACK *) CONST LIB$_AMBSYMDEF = 1409908; (* ; LIB$CLI_CALLBACK *) CONST LIB$_NOCLI = 1409916; (* ; LIB$CLI_CALLBACK *) CONST LIB$_UNECLIERR = 1409924; (* ; LIB$CLI_CALLBACK *) CONST LIB$_INVSYMNAM = 1409932; (* ; LIB$CLI_CALLBACK *) CONST LIB$_ATTREQREF = 1409940; (* ; LIB$ATTACH *) CONST LIB$_INVFILSPE = 1409948; (* ; LIB$FID_TO_NAME, LIB$EXTRACT_CONCEALED, *) (* ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR *) CONST LIB$_INVXAB = 1409956; (* ; LIB$QUAL_FILE_PARSE *) CONST LIB$_NO_STRACT = 1409964; (* ; SCR PACKAGE *) CONST LIB$_BADTAGVAL = 1409972; (* ; LIB$VM *) CONST LIB$_INVOPEZON = 1409980; (* ; LIB$VM *) CONST LIB$_PAGLIMEXC = 1409988; (* ; LIB$VM *) CONST LIB$_NOTIMP = 1409996; (* ; LIB$NOT_IMPLEMENTED *) CONST LIB$_BADZONE = 1410004; (* ; LIB$VERIFY_VM_ZONE, LIB$SHOW_VM_ZONE, LIB$STAT_VM_ZONE *) (* ; LIB$FIND_VM_ZONE *) CONST 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_STRING *) CONST LIB$_ONEDELTIM = 1410020; (* ; LIB$ADD_TIMES *) CONST LIB$_NEGTIM = 1410028; (* ; LIB$SUB_TIMES *) CONST LIB$_INVARGORD = 1410036; (* ; LIB$SUB_TIMES *) CONST LIB$_ABSTIMREQ = 1410044; (* ; LIB$CVT_FROM_INTERNAL_TIME *) CONST LIB$_DELTIMREQ = 1410052; (* ; LIB$CVT_FROM_INTERNAL_TIME *) CONST LIB$_INVOPER = 1410060; (* ; LIB$CVT_XXX_INTERNAL_TIME *) CONST LIB$_REENTRANCY = 1410068; (* ;LIB$FORMAT_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT, *) (* ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT *) CONST LIB$_UNRFORCOD = 1410076; (* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *) (* ;LIB$GET_DATE_FORMAT *) CONST LIB$_ILLINISTR = 1410084; (* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_NUMELEMENTS = 1410092; (* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_ELETOOLON = 1410100; (* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_ILLCOMPONENT = 1410108; (* ;LIB$INIT_DATE_TIME_CONTEXT *) CONST LIB$_AMBDATTIM = 1410116; (* ;LIB$CONVERT_DATE_STRING *) CONST LIB$_INCDATTIM = 1410124; (* ;LIB$CONVERT_DATE_STRING *) CONST LIB$_ILLFORMAT = 1410132; (* ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT *) CONST LIB$_UNSUPVER = 1410140; (* ; LIB$ASCII_TO_UID, LIB$COMPARE_UID, LIB$UID_TO_ASCII *) CONST LIB$_BADFORMAT = 1410148; (* ; LIB$ASCII_TO_UID *) CONST LIB$_NODTOOLNG = 1410156; (* ; LIB$BUILD_NODESPEC *) CONST LIB$_NOHOSNAM = 1410164; (* ; LIB$GET_HOSTNAME *) CONST LIB$_OUTSTRTRU = 1413120; (* ; LIB$CVTDXDX *) CONST LIB$_FILFAIMAT = 1413128; (* ; LIB$QUAL_FILE_MATCH *) CONST LIB$_NEGANS = 1413136; (* ; LIB$CONFIRM_ACT *) CONST LIB$_QUIPRO = 1413144; (* ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH *) CONST LIB$_QUICONACT = 1413152; (* ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH *) CONST LIB$_ENGLUSED = 1413160; (* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *) (* ;LIB$GET_DATE_FORMAT *) CONST LIB$_DEFFORUSE = 1413168; (* ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, *) (* ;LIB$GET_DATE_FORMAT *) CONST LIB$_MEMALRFRE = 1413176; (* ;LIB$VM_FREE *) CONST LIB$_BADCCC = 1425408; (* ; LIB$$READ_OBJECT *) CONST LIB$_EOMERROR = 1425416; (* ; LIB$$READ_OBJECT *) CONST LIB$_EOMFATAL = 1425424; (* ; LIB$$READ_OBJECT *) CONST LIB$_EOMWARN = 1425432; (* ; LIB$$READ_OBJECT *) CONST LIB$_GSDTYP = 1425440; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLFMLCNT = 1425448; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLMODNAM = 1425456; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLPSCLEN = 1425464; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECLEN = 1425472; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECLN2 = 1425480; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECTYP = 1425488; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLRECTY2 = 1425496; (* ; LIB$$READ_OBJECT *) CONST LIB$_ILLSYMLEN = 1425504; (* ; LIB$$READ_OBJECT *) CONST LIB$_NOEOM = 1425512; (* ; LIB$$READ_OBJECT *) CONST LIB$_RECTOOSML = 1425520; (* ; LIB$$READ_OBJECT *) CONST LIB$_SEQUENCE = 1425528; (* ; LIB$$READ_OBJECT *) CONST LIB$_SEQUENCE2 = 1425536; (* ; LIB$$READ_OBJECT *) CONST LIB$_STRLVL = 1425544; (* ; LIB$$READ_OBJECT *) CONST LIB$_NOWILD = 1380650; LIB$_ACTIMAGE = 1381050; LIB$_OPENIN = 1380506; LIB$_CLOSEIN = 1380432; LIB$_READERR = 1380530; (* END. *) (* MODULE LIBVMDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LIBVMDEF ***) (* Interface definitions for LIB$VM package *) (* *) (* LIB$CREATE_VM_ZONE algorithm codes *) CONST LIB$K_VM_FIRST_FIT = 1; (* First fit *) LIB$K_VM_QUICK_FIT = 2; (* Quick fit, with fixed queues of preferred sizes *) LIB$K_VM_FREQ_SIZES = 3; (* First fit, with frequent sizes cache *) LIB$K_VM_FIXED = 4; (* Fixed size blocks *) (* LIB$CREATE_VM_ZONE flag definitions *) CONST LIB$M_VM_BOUNDARY_TAGS = 1; (* Boundary tagged blocks *) LIB$M_VM_GET_FILL0 = 2; (* 0-fill for LIB$GET_VM *) LIB$M_VM_GET_FILL1 = 4; (* 1-fill for LIB$GET_VM *) LIB$M_VM_FREE_FILL0 = 8; (* 0-fill for LIB$FREE_VM *) LIB$M_VM_FREE_FILL1 = 16; (* 1-fill for LIB$FREE_VM *) LIB$M_VM_EXTEND_AREA = 32; (* Add extent to existing area if possible *) LIB$M_VM_NO_EXTEND = 64; (* Area is not allowed to be extended *) LIB$M_VM_TAIL_LARGE = 128; (* Add larger than normal areas at the tail *) (* END. *) (* MODULE LICENSEMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LICENSEDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:57:37.66 *) (* *) (* ************************************************************************* *) (* * * *) (* * © COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *) (* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *) (* * * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *) (* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *) (* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *) (* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *) (* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *) (* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *) (* * ADDITIONAL WARRANTY. * *) (* * * *) (* ************************************************************************* *) (*++ *) (* *) (* FACILITY: *) (* *) (* VAX/VMS LICENSING SYSTEM SERVICES *) (* *) (* ABSTRACT: *) (* *) (* THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONS *) (* THAT CAN OCCUR WHILE ATTEMPTING TO DO LICENSING CHECKS FOR A *) (* DSLA LICENSED SOFTWARE PRODUCT. *) (* *) (* AUTHOR: *) (* *) (* TRUDY C. MATTHEWS *) (* *) (* CREATION DATE: *) (* *) (* 26 JANUARY 1987 *) (* *) (* MODIFIED BY: *) (* *) (* X-10 GP030104 GUY PELEG 01-MAR-2004 *) (* ADD NONCOMPLIANCE. *) (* *) (* X-9 GP121003 GUY PELEG 10-DEC-2003 *) (* UPDATE ILLPRODUCER TO INCLUDE HP. *) (* *) (* X-8 EAG2 ERIC ABIS 3-JUN-1998 *) (* ADDED USER_MODE. *) (* *) (* X-7 EA12 ERIC ABIS 4-APR-1995 *) (* ADDED INVALID_TOKEN. *) (* *) (* X-6 EA001 ERIC ABIS 29-APR-1991 *) (* ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS. IT IS *) (* PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID *) (* MESSAGE BECAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED *) (* 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-1987 *) (* 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-1987 *) (* ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE *) (* *) (* X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-1987 *) (* REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES. *) (* *) (* X-1 TCM0001 TRUDY C. MATTHEWS 26-JAN-1987 *) (* INITIAL VERSION. *) (*-- *) CONST LICENSE_FACILITY = 2708; (* SUCCESS CODES *) (* THESE CODES RETURN INFORMATION *) CONST LICENSE$_SYSMGR = 177505059; LICENSE$_NONCOMPLIANCE = 177505067; (* THESE CODES RETURN SLIGHTLY DISMAYING INFORMATION *) (* THESE CODES INDICATE UNRECOVERABLE ERRORS *) CONST LICENSE$_NOAUTH = 177507058; (* ALL OF THESE ARE FATAL *) CONST LICENSE$_NOLICENSE = 177507860; LICENSE$_EXCEEDED = 177507868; LICENSE$_NOT_STARTED = 177507876; LICENSE$_INVALID_DATE = 177507884; LICENSE$_INVALID_VERSION = 177507892; LICENSE$_TERMINATED = 177507900; LICENSE$_NOTINRSRVLIST = 177507908; (*+ *) (* RETURNED BY SYS$LOOKUP_LICENSE *) (*- *) CONST LICENSE$_BADPARAM = 177507916; LICENSE$_ILLPRODUCER = 177507924; LICENSE$_WRONUMARG = 177507932; LICENSE$_INVALID_HW_ID = 177507940; LICENSE$_INVALID_TOKEN = 177507948; (*+ *) (* NEW MESSAGES *) (*- *) CONST LICENSE$_USER_MODE = 177507956; (* END. *) (* MODULE LOGINMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $LGIDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:49.88 *) (* *) (*--- *) (* *) (* ERROR MESSAGES FOR LOGINOUT *) (* *) (*--- *) (* *) (* ************************************************************************* *) (* * * *) (* * © COPYRIGHT 1981 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *) (* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *) (* * * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *) (* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *) (* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *) (* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *) (* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *) (* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *) (* * ADDITIONAL WARRANTY. * *) (* * * *) (* ************************************************************************* *) (* *) (*++ *) (* FACILITY: LOGINOUT *) (* *) (* ABSTRACT: *) (* *) (* THESE ARE THE ERROR MESSAGES USED BY THE LOGINOUT PROGRAM. *) (* *) (* ENVIRONMENT: *) (* *) (* VMS OPERATING SYSTEM, PRIVILEGED UTILITY. *) (* *) (* AUTHOR: TIM HALVORSEN, MARCH 1981 *) (* *) (* MODIFIED BY: *) (* *) (* X-13 JAH0504 JOHN A HARNEY 23-MAR-2005 *) (* D'OH. I DUPLICATED THE SPACE PADDING IN THE NEW *) (* PWDCLEARSEC MESSAGE FROM THE MESSAGE ABOVE; THAT'D *) (* HAVE BEEN WONDERFUL IF THE MESSAGE JUST ABOVE WAS *) (* A SIMILAR MESSAGE. ADD ONE MORE SPACE, TO MAKE *) (* PWDCLEARSEC JUST LIKE PWDSYNCHSEC. *) (* *) (* X-12 JAH0504 JOHN A HARNEY 05-JAN-2005 *) (* ADD PWDCLEARSEC - *) (* "OpenVMS secondary password has been cleared" *) (* *) (* X-11 MAS0803 MARK A. STILES 10-NOV-2004 *) (* ONCE AGAIN, WE BOW TO THE LEGAL BEAGLES, BEAN COUNTERS, *) (* AND SPIN DOCTORS. MAKE "hp" BE "HP" IN THE PRODUCT NAME *) (* IN THE BANNER. *) (* *) (* X-10 MAS0796 MARK A. STILES 4-APR-2004 *) (* FINALLY USE REAL PRODUCT NAME IN WELCOME. *) (* FOR TOPAZ, THIS WILL BE: *) (* HP OPENVMS INDUSTRY STANDARD 64 OPERATING SYSTEM, VERSION V8.2 *) (* *) (* X-9 MAS0784 MARK A. STILES 23-JUN-2003 *) (* YOU DIDN'T THINK THEY'D LET US GET OUT WITHOUT AT *) (* LEAST ONE PRODUCT/BANNER/WELCOME NAME CHANGE, DO YOU?? *) (* FOR MAKO_BL2, THE BANNER/WELCOME BECOMES: *) (* HP OPENVMS INDUSTRY STANDARD 64 EVALUATION RELEASE V8.0 *) (* *) (* X-8 JAH0434 JOHN A HARNEY 25-FEB-2003 *) (* ADD IA64HELLO WELCOME MESSAGE. *) (* *) (* X-7 LJK0200 LAWRENCE J. KILGALLEN 13-DEC-2000 *) (* ADD THE STATUS CODE LGI$_DECWRESTART. *) (* *) (* X-6 LJK0198 LAWRENCE J. KILGALLEN 12-DEC-2000 *) (* ADD THE STATUS CODE LGI$_NULLNETUSER. *) (* *) (* 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. *) (* *) (* X-4 LJK0119 LAWRENCE J. KILGALLEN 29-JAN-1999 *) (* ADD LGI$_LOSTSYNC MESSAGE. *) (* *) (* 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. *) (* *) (* X-2 LJK0033 LAWRENCE J. KILGALLEN 13-MAY-1998 *) (* ADD LGI$_LOGDISABLOPR. *) (* ADD SPACE TO LGI$_LOSTLGI. *) (* ADD SPACE TO LGI$_LOSTDEC. *) (* *) (* X-1 LJK0009 LAWRENCE J. KILGALLEN 11-MAR-1998 *) (* 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 LOGINMSG AND MOVE IT TO STARLET. *) (* *) (* X-19 RJB0023 RICHARD J. BARRY 4-MAR-1996 *) (* ADD SINGLE SIGN-ON MESSAGES. *) (* *) (* X-18 JAH0202 JOHN A HARNEY 16-JAN-1996 *) (* PUT THE (TM) IN THE RIGHT PLACE IN ALPHAHELLO AND VAXHELLO. *) (* *) (* X-17 NYK487 NITIN Y. KARKHANIS 29-SEP-1995 *) (* O INCREASE FIELD WIDTH FOR NUMBER DISPLAYED AFTER THE *) (* PEAK PAGE FILE SIZE TEXT IN LOGOUT/FULL. *) (* O CHANGED THE FIELD WIDTHS FOR WS PEAK AND MOUNTED *) (* VOLUME COUNT SO THAT THE NUMBERS ARE ALIGNED ON THE *) (* RIGHT-HAND-SIDE, FOR LOGOUT/FULL. *) (* O REPLACED THE "Peak page file size" TEXT WITH "PEAK *) (* VIRTUAL SIZE" SINCE THAT IS THE VALUE THAT IS ACTUALLY *) (* DISPLAYED. *) (* *) (* X-16 JAH0180 JOHN A HARNEY 08-MAY-1995 *) (* CHANGE THE ALPHA'S WELCOME MESSAGE TO REMOVE AXP REFERENCE *) (* *) (* X-15 TNS003 TOM SCARPELLI 21-SEP-1993 *) (* UPDATE MESSAGES TO MATCH VAX VERSION. *) (* *) (* X-14 TNS003 TOM SCARPELLI 29-JUN-1993 *) (* 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. *) (* *) (* X-6 TNS001 TOM SCARPELLI 23-JAN-1992 *) (* MERGE THE FOLLOWING CHANGE: *) (* (X-15 DDP1119 DERRELL D. PIPER 8-JAN-1992 12:16 *) (* ADD MESSAGE FOR WHEN LOGINOUT IS NOT PROPERLY INSTALLED.) *) (* *) (* X-5 TNS001 TOM SCARPELLI 23-DEC-1991 *) (* MERGE THE FOLLOWING CHANGE: *) (* (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: *) (* (X-13 JRC1015 JOHN R. COVERT 22-FEB-1991 14:45 *) (* IMPLEMENT LOGINOUT CALLOUTS.) *) (* *) (* X-3 TNS001 TOM SCARPELLI 22-APR-1991 *) (* ADD WELCOME AND LOGOUT MESSAGE TEXT. *) (* *) (* X-9 DDP0352 DERRELL D. PIPER 24-FEB-1989 14:51 *) (* ADD VAXCLUSTER LICENSE MESSAGE. *) (* *) (* X-8 DDP0303 DERRELL D. PIPER 27-JUN-1988 15:15 *) (* MERGE DECWINDOWS CHANGES INTO MAINLINE. *) (* *) (* 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" *) (* *) (* X-6 RJB0034 RICHARD J. BOUCHARD JR. 26-OCT-1987 *) (* ADD MESSAGES FOR SUPPORT OF LMF CALL WITHIN LOGINOUT *) (* *) (* 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. *) (* *) (* X-4 DDP0076 DERRELL D. PIPER 18-MAY-1987 19:04 *) (* ADD LGI$_FRCPWDERR MESSAGE FOR FORCED PASSWORD CHANGE *) (* ERRORS (POINT USER TO ). *) (* *) (* X-3 DDP0052 DERRELL D. PIPER 01-APR-1987 *) (* ADD LGI$_NOTMODEM MESSAGE FOR INCORRECTLY WIRED MODEMS. *) (* *) (* V04-001 ACG0478 ANDREW C. GOLDSTEIN, 12-APR-1985 19:41 *) (* ADD LGI$_EXLICENSE, LGI$_DISUSER, LGI$_AUTOLOGIN, *) (* AND LGI$_INVINPUT MESSAGES *) (* *) (* V03-008 MHB0142 MARK BRAMHALL 27-APR-1984 *) (* ADD NOSUCHUSER AND INVPWD. *) (* *) (* V03-007 MHB0130 MARK BRAMHALL 10-APR-1984 *) (* MAKE CONNERR ONLY AN ERROR, NOT FATAL. *) (* ADD CLITBLFAIL AND CLITBLPROT. *) (* *) (* V03-006 MHB0112 MARK BRAMHALL 21-MAR-1984 *) (* ADD CONNERR AND DISRECONNECT. *) (* *) (* V03-005 PCG0001 PETER GEORGE 04-FEB-1984 *) (* ADD ACNTEXPIR AND PWDEXPIR. *) (* *) (* V03-004 ACG0385 ANDREW C. GOLDSTEIN, 29-DEC-1983 11:59 *) (* ADD NEW RESTRICTION MESSAGES *) (* *) (* V03-003 ACG0376 ANDREW C. GOLDSTEIN, 29-NOV-1983 14:23 *) (* ADD DEFCLI RESTRICTIONS MESSAGE *) (* *) (* V03-002 GAS-162 GERRY SMITH 30-JUL-1983 *) (* ADD MESSAGES FOR SYSTEM PASSWORD AND BREAKIN EVASION. *) (* *) (* V03-001 GAS0123 GERRY SMITH 20-APR-1983 *) (* ADD NETUAFACC, ERROR ACCESSING NETUAF FILE. *) (* *) (* V02-003 HRJ0036 HERB JACOBS 08-DEC-1981 *) (* ADDED MORE MESSAGES FOR TERMINAL TYPE RESTRICTIONS. *) (* *) (* V02-002 HRJ0031 HERB JACOBS 02-NOV-1981 *) (* ADD MESSAGES FOR TIME OF DAY AND USER ACCOUNT RESTRICTIONS. *) (* *) (* V001 TMH0001 TIM HALVORSEN 22-OCT-1981 *) (* ADD ERROR MESSAGE FOR CAPTIVE ACCOUNTS *) (* CHANGE TO USE SYSTEM-WIDE FACILITY NUMBER. *) (*---- *) (* IMPORTANT: *) (* *) (* THESE MESSAGES ARE MADE AVAILABLE TO INSTALLATION CALLOUT ROUTINES AND ARE *) (* STORED IN THE ACCOUNTING FILE AND MUST NOT CHANGE VALUE FROM NOW ON. YOU *) (* MUST ADD ALL NEW MESSAGES TO THE APPROPRIATE SECTION AT THE END OF THIS *) (* MODULE. *) CONST LOGIN$_FACILITY = 211; (* DEFAULT SEVERITY IS FATAL *) CONST LGI$_JBCMIXUP = 13860876; LGI$_LOGDISABL = 13860884; LGI$_EXQUOTA = 13860892; LGI$_CLIFAIL = 13860900; LGI$_CLIPROT = 13860908; LGI$_CLISYMTBL = 13860916; LGI$_NOTVALID = 13860924; LGI$_FILEACC = 13860932; LGI$_USERAUTH = 13860940; LGI$_INPUTERR = 13860948; LGI$_OUTPUTERR = 13860956; LGI$_CMDINPUT = 13860964; LGI$_OPENIN = 13860968; LGI$_CAPTIVE = 13860980; LGI$_BADHOUR = 13860988; LGI$_USEREXC = 13860996; LGI$_ACNTEXC = 13861004; LGI$_BADDAY = 13861012; LGI$_RESTRICT = 13861020; LGI$_NETUAFACC = 13861028; LGI$_SYSPWDTMO = 13861036; LGI$_EVADE = 13861044; LGI$_DEFCLI = 13861052; LGI$_ACNTEXPIR = 13861060; LGI$_PWDEXPIR = 13861068; LGI$_CONNERR = 13861074; LGI$_DISRECONNECT = 13861084; LGI$_CLITBLFAIL = 13861092; LGI$_CLITBLPROT = 13861100; LGI$_NOSUCHUSER = 13861108; LGI$_INVPWD = 13861116; LGI$_EXLICENSE = 13861124; LGI$_DISUSER = 13861132; LGI$_AUTOLOGIN = 13861140; LGI$_INVINPUT = 13861148; LGI$_NOTMODEM = 13861156; LGI$_FRCPWDERR = 13861164; LGI$_LICCHKINV = 13861172; LGI$_FISFAIL = 13861180; LGI$_DECWCAPTIVE = 13861188; LGI$_NOVAXCLUSTER = 13861196; (* SEVERITY OF THIS MESSAGE IS INFORMATIONAL *) CONST LGI$_FRCPWDHLP = 13861203; (* SEVERITY OF THESE MESSAGES IS SUCCESS *) CONST LGI$_LICNOTREQ = 13861209; LGI$_LOGOPRCON = 13861217; LGI$_LICCHKVAL = 13861225; (* ALL NEW MESSAGES MUST BE ADDED TO ONE OF THE FOLLOWING SECTIONS. YOU CANNOT *) (* ADD A MESSAGE ABOVE AS THIS WILL CHANGE THE VALUES OF THOSE MESSAGES WHICH *) (* FOLLOW YOUR NEW (PRESUMABLY FATAL) MESSAGE. *) (* INFORMATIONAL MESSAGES *) CONST LGI$_LOGDISABLOPR = 13861267; (* SUCCESS MESSAGES *) CONST LGI$_SKIPRELATED = 13861665; (* INTERNAL COMMUNICATION ONLY *) (* WARNING MESSAGES *) (* ERROR MESSAGES *) (* *) (* THE FOLLOWING TWO MESSAGES DUPLICATE SET$_ MESSAGES IN SEVERITY AND *) (* TEXT (ALTHOUGH NOT IN CODE VALUE) TO ALLOW TRANSMISSION OF THEIR *) (* VALUE TO SYS$ACM CLIENTS WHO DO NOT HAVE SET$_ MESSAGES CODES IN *) (* THEIR IMAGE. FOR THE PARTICULAR CASES OF LOGINOUT COMMUNICATING *) (* WITH AN LGI-CALLOUT PROVIDER OR SET PASSWORD RETURNING STATUS TO *) (* DCL, THESE LGI$_ CODES GET CONVERTED TO THE CORRESPONDING SET CODES *) (* TO PRESERVE COMPATIBILITY WITH VERSIONS OF VMS PRIOR TO V7.2. *) (* *) CONST LGI$_PWD2NOTSET = 13863266; LGI$_SYSPWDERR = 13863274; (* FATAL ERRORS *) CONST LGI$_COUNTWRONG = 13864068; LGI$_RDBACCERR = 13864076; LGI$_NOTALLPRIV = 13864084; LGI$_NOEXTAUTH = 13864092; LGI$_NOLOCAUTH = 13864100; (* *) (* FATAL MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II *) (* *) CONST LGI$_LOSTDEC = 13864108; LGI$_LOSTLGI = 13864116; LGI$_NOSYSPWD = 13864124; LGI$_WRONGPRINCIPAL = 13864132; LGI$_LOSTSYNC = 13864140; (* *) (* FAILURE MESSAGES ADDED FOR EXTERNAL AUTHENTICATION III *) (* *) CONST LGI$_NULLNETUSER = 13864148; LGI$_DECWRESTART = 13864156; (* *) (* ALL ERROR MESSAGES SHOULD BE ADDED BEFORE THIS POINT. THE MESSAGES *) (* FOLLOWING THE .BASE DIRECTIVE BELOW ARE TEXT OUTPUT BY LOGINOUT *) (* OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. *) (* *) (* *) (* THE FOLLOWING ARE MESSAGES OUTPUT IN LOGIN.B32 *) (* *) CONST LGI$_JOBTERM = 13869057; LGI$_JOBLOGOUT = 13869065; LGI$_PROCEND = 13869073; LGI$_ACNTINFO = 13869081; LGI$_ACNTINFO1 = 13869089; LGI$_ACNTINFO2 = 13869097; LGI$_ACNTINFO3 = 13869105; LGI$_ACNTINFO4 = 13869113; LGI$_ACNTINFO5 = 13869121; LGI$_PASEXP = 13869129; LGI$_PRIPASEXP = 13869137; LGI$_SECPASEXP = 13869145; LGI$_SETPAS = 13869153; LGI$_SETPRIPAS = 13869161; LGI$_SETSECPAS = 13869169; LGI$_EXPSETPAS = 13869177; LGI$_PRISETPAS = 13869185; LGI$_SECSETPAS = 13869193; (* *) (* THE FOLLOWING ARE MESSAGES OUTPUT IN INTERACT.B32 *) (* *) CONST LGI$_USERNAME = 13869201; LGI$_PASSWORD = 13869209; LGI$_VAXHELLO = 13869217; LGI$_ALPHAHELLO = 13869225; LGI$_ONNODE = 13869233; LGI$_LASINTLOG = 13869241; LGI$_LASNOINTLOG = 13869249; LGI$_LOGFAILS = 13869257; LGI$_NEWMAILCNT = 13869265; LGI$_NEWMAIL = 13869273; LGI$_DISCONPROC = 13869281; LGI$_DISCONPROCS = 13869289; LGI$_DISCONHDR = 13869297; LGI$_DISCONTXT = 13869305; LGI$_CONTOTERM = 13869313; LGI$_CONTOPROC = 13869321; LGI$_YESRESP = 13869329; LGI$_NONERESP = 13869337; LGI$_TERMCONN = 13869345; LGI$_MONDAY = 13869353; LGI$_TUESDAY = 13869361; LGI$_WEDNESDAY = 13869369; LGI$_THURSDAY = 13869377; LGI$_FRIDAY = 13869385; LGI$_SATURDAY = 13869393; LGI$_SUNDAY = 13869401; (* *) (* NEW SINGLE SIGN-ON MESSAGES. *) (* *) CONST LGI$_PWDSYNCH = 13869409; LGI$_PWDNOSYNCH = 13869417; LGI$_LOCLOGIN = 13869425; (* *) (* MESSAGES ADDED FOR EXTERNAL AUTHENTICATION II *) (* *) CONST LGI$_PROCSTEP = 13869433; LGI$_SUBPROGRAM = 13869441; LGI$_OLDPOLICY = 13869449; LGI$_PWDSYNCHPRI = 13869457; LGI$_PWDSYNCHSEC = 13869465; LGI$_PWDNOSYNCHPRI = 13869473; LGI$_PWDNOSYNCHSEC = 13869481; (* *) (* MESSAGES COPIED FROM SET.MSG SO THEY WILL BE AVAILABLE *) (* TO THIRD PARTY ACME AGENTS. *) (* *) CONST LGI$_OLDPASS = 13869489; LGI$_NEWPASS = 13869497; LGI$_CHKPASS = 13869505; (* *) (* IA64HELLO WELCOME MESSAGE *) (* *) CONST LGI$_IA64HELLO = 13869513; (* *) (* ANOTHER MESSAGE ADDED FOR EXTERNAL AUTHENTICATION II *) (* *) CONST LGI$_PWDCLEARSEC = 13869521; (* *) (* ERROR MESSAGES SHOULD BE NOT ADDED AT THIS POINT. THE MESSAGES *) (* FOLLOWING THE .BASE DIRECTIVE ABOVE ARE TEXT OUTPUT BY LOGINOUT *) (* OR THE VMS ACME AND ARE NOT RETURNED TO THE USER. *) (* *) (* END. *) (* MODULE MAILMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MAILMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:57:17.85 *) (* *) (* *) (* VERSION: 'X-14' *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (*++ *) (* *) (* FACILITY: VMS SYSTEM MACRO LIBRARIES *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES *) (* *) (* ENVIRONMENT: *) (* *) (* N/A *) (* *) (* *) (* *) (* AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 *) (* *) (* MODIFICATION HISTORY: *) (* *) (* X-14 RKS020909 RANJAN KUMAR SARANGI 09-FEB-2009 *) (* MODIFIED DIRHD0 MESSAGE FORMAT FOR MAIL HEADER *) (* ALIGNMENT(PTR-75-120-515). *) (* *) (* 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 ILLEDTNAM MESSAGE. REMOVE X-10. *) (* *) (* X-10 SG067 SHEELA GAYATRI 13-NOV-1995 *) (* ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD *) (* SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL *) (* BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR *) (* DDIF/DTIF FILE PROCESSING IS ADDED. *) (* *) (* X-9 ROP1002 ROBERT POSNIAK 7-JUN-1995 *) (* ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. *) (* *) (* X-8 MB0020 MARINA BUCKLEY 12-OCT-1994 *) (* MODIFY THE TEXT OF THE CODERR FATAL ERROR. *) (* *) (* X-7 MB0011 MARINA BUCKLEY 16-JUN-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-1993 *) (* 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 *) (* FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE *) (* USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS *) (* INVALID. *) (* *) (* X-5 MFS0069 MARK F. SCANLON 26-JUN-1992 *) (* QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. *) (* *) (* X-4 RAB RICHARD A. BISHOP 21-MAY-1992 *) (* MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: *) (* *) (* X-19 DAC060 DAVE CANTOR 15-APR-1992 *) (* CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP *) (* *) (* X-18 DAC058 DAVE CANTOR 02-APR-1992 *) (* SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME *) (* FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) *) (* *) (* X-3 RAB RICHARD A. BISHOP 29-JAN-1992 *) (* 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. *) (* *) (* =============================================================== *) (* *) (* X-17 DRB0084 DAWN R. BANKS 8-AUG-1991 *) (* ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. *) (* *) (* X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988 *) (* CHANGE THE TEXT OF FORMSG. *) (* *) (* X-15 ROP0342 ROBERT POSNIAK 10-AUG-1987 *) (* ADD SHOW220, SHOW 225. *) (* *) (* X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 *) (* ADD NOACCPTMSG MESSAGE. *) (* *) (* X-13 ROP0297 ROBERT POSNIAK 2-MAR-1987 *) (* MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF *) (* SPACES BETWEEN DATE AND SUBJECT FIELDS. *) (* *) (* X-12 ROP0283 ROBERT POSNIAK 24-FEB-1987 *) (* ADD MAILFOLD AND WASTEFOLD MESSAGES. *) (* *) (* X-11 ROP0249 ROBERT POSNIAK 9-FEB-1987 *) (* MAKE MAIL COPY OF THE SHARED MESSAGES *) (* USED BY THE MAIL FACILITY. *) (* *) (* X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 *) (* ADD SHOW210 AND SHOW215. *) (* *) (* X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 *) (* ADD YES. *) (* *) (* X-8 ROP0179 ROBERT POSNIAK 27-OCT-1986 *) (* 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. *) (* 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-1985 *) (* NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED *) (* *) (* V03-015 ROP0004 ROBERT POSNIAK 6-JUN-1984 *) (* NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR *) (* REENTERING LINE. *) (* *) (* V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 *) (* NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. *) (* *) (* V03-013 BLS0263 BENN SCHREIBER 5-FEB-1984 *) (* NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. *) (* *) (* V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983 *) (* NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE *) (* *) (* V03-011 BLS0250 BENN SCHREIBER 8-DEC-1983 *) (* NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR *) (* ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. *) (* *) (* V03-010 BLS0246 BENN SCHREIBER 28-NOV-1983 *) (* NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. *) (* *) (* V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983 *) (* NEW MESSAGE "you have new mail". *) (* *) (* V03-008 BLS0227 BENN SCHREIBER 1-JUL-1983 *) (* NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE *) (* THE NODE NAME. *) (* *) (* V03-007 BLS0225 BENN SCHREIBER 17-JUN-1983 *) (* NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING *) (* *) (* V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983 *) (* NEW MESSAGE FOR RECLAIMING SPACE *) (* *) (* V03-005 BLS0220 BENN SCHREIBER 30-APR-1983 *) (* NEW MESSAGES FOR NEW FEATURES *) (* *) (* V03-004 BLS0217 BENN SCHREIBER 12-APR-1983 *) (* CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT *) (* FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. *) (* *) (* V03-003 BLS0211 BENN SCHREIBER 13-MAR-1983 *) (* NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO *) (* BE EMBEDDED IN THE PROGRAM. *) (* *) (* V03-002 BLS0202 BENN SCHREIBER 5-JAN-1983 *) (* NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL *) (* CHARACTER IN STRING *) (* *) (* V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982 *) (* NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE *) (* IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR *) (* SET FORWARD. *) (* *) (*-- *) (* *) (* DEFINE MAIL RELATED ERROR/STATUS VALUES *) (* *) (* *) (* DEFINE ERROR MESSAGES *) (* *) CONST MAIL$_FACILITY = 126; MAIL$_CODERR = 8290316; MAIL$_UPGRADE = 8290324; MAIL$_UAFGETERR = 8290330; MAIL$_UAFOPNERR = 8290338; MAIL$_NOSUCHUSR = 8290346; MAIL$_NOTREADIN = 8290354; MAIL$_LOGLINK = 8290362; MAIL$_CREPRIJOB = 8290370; MAIL$_SENDERR = 8290378; MAIL$_NOMOREMSG = 8290386; MAIL$_NOMSGS = 8290394; MAIL$_USERSPEC = 8290402; MAIL$_SENDABORT = 8290410; MAIL$_EDITPROC = 8290418; MAIL$_INVCMD = 8290426; MAIL$_NOTFOUND = 8290434; MAIL$_NETIOERR = 8290442; MAIL$_USERDSABL = 8290450; MAIL$_FORWLOOP = 8290458; MAIL$_NAMTOOBIG = 8290466; MAIL$_ILLCHAR = 8290474; MAIL$_DATIMUSED = 8290482; MAIL$_NOTISAM = 8290490; MAIL$_DELMSG = 8290498; MAIL$_DELWASTE = 8290506; MAIL$_NOFOLDER = 8290514; MAIL$_NOTEXIST = 8290522; MAIL$_NOTSUBDIR = 8290530; MAIL$_ILLSUBDIR = 8290538; MAIL$_ILLFOLNAM = 8290546; MAIL$_NOMSGPRI = 8290554; MAIL$_ALTPRIJOB = 8290562; MAIL$_ILLPERNAM = 8290570; MAIL$_NOSUCHUSRAT = 8290578; MAIL$_SENDERRAT = 8290586; MAIL$_CONABORT = 8290594; MAIL$_NOTCALEDT = 8290602; MAIL$_FILECONFUSED = 8290610; MAIL$_CAPTIVE = 8290618; MAIL$_IVPROTVAL = 8290626; MAIL$_RECTOBIG = 8290634; MAIL$_ILLCTXADR = 8290642; MAIL$_WRONGCTX = 8290650; MAIL$_FAILGETVM = 8290658; MAIL$_INVITMCOD = 8290666; MAIL$_MISREQITM = 8290674; MAIL$_INVITMLEN = 8290682; MAIL$_FILEOPEN = 8290690; MAIL$_NOFILEOPEN = 8290698; MAIL$_CONITMCOD = 8290706; MAIL$_NOMORECTX = 8290714; MAIL$_WRONGFILE = 8290722; MAIL$_ILLTPRT = 8290730; MAIL$_INVITMVAL = 8290738; MAIL$_ERACTED = 8290746; MAIL$_FORMSG = 8290754; MAIL$_NOTFORMSG = 8290762; MAIL$_ERRACTRNS = 8290770; MAIL$_BADVALUE = 8290778; MAIL$_CLOSEDEL = 8290786; MAIL$_FILNOTDEL = 8290794; MAIL$_OPENIN = 8290802; MAIL$_OPENOUT = 8290810; MAIL$_PARSEFAIL = 8290818; MAIL$_READERR = 8290826; MAIL$_SEARCHFAIL = 8290834; MAIL$_SYSERROR = 8290842; MAIL$_NOSYSNAM = 8290850; MAIL$_NOSYSPRV = 8290858; MAIL$_PROTOCOL = 8290866; MAIL$_NOACCPTMSG = 8290874; MAIL$_DOTSPACK = 8290882; MAIL$_DOTSUNPACK = 8290890; MAIL$_NOUSERSPEC = 8290898; MAIL$_INVRANGE = 8290906; MAIL$_LISTTOOLONG = 8290914; MAIL$_SELECTED = 8306307; MAIL$_DELMSGS = 8306315; MAIL$_CVTFILE = 8306323; MAIL$_DELSPACE = 8306331; MAIL$_NEWFOLDER = 8306339; MAIL$_RECLPLSWAIT = 8306347; MAIL$_REENTER = 8306355; MAIL$_DELETED = 8306363; MAIL$_FFMTMSG = 8306371; MAIL$_MOREMSG = 8314304; MAIL$_DIRHD0 = 8314312; (*SD070507!RKS020909 *) MAIL$_DIRHD10 = 8314320; MAIL$_DIRHD20 = 8314328; MAIL$_DIRDEL10 = 8314336; MAIL$_ISUB10 = 8314344; MAIL$_ISUB20 = 8314352; MAIL$_ISUB30 = 8314360; MAIL$_PRESRET = 8314368; MAIL$_YOUHAVENEW = 8314376; MAIL$_MAIL10 = 8314384; MAIL$_MAIL20 = 8314392; MAIL$_WANTOSEND = 8314400; MAIL$_NOTIFY10 = 8314408; MAIL$_NOTIFY20 = 8314416; MAIL$_JOBENTERED = 8314424; MAIL$_SHOW10 = 8314432; MAIL$_SHOW20 = 8314440; MAIL$_SHOW30 = 8314448; MAIL$_SHOW40 = 8314456; MAIL$_SHOW50 = 8314464; MAIL$_SHOW60 = 8314472; MAIL$_SHOW70 = 8314480; MAIL$_SHOW80 = 8314488; MAIL$_SHOW90 = 8314496; MAIL$_SHOW100 = 8314504; MAIL$_SHOW110 = 8314512; MAIL$_EDIT10 = 8314520; MAIL$_INFO10 = 8314528; MAIL$_INFO20 = 8314536; MAIL$_INFO30 = 8314544; MAIL$_SEND = 8314552; MAIL$_REPLY = 8314560; MAIL$_SHOW120 = 8314568; MAIL$_SHOW130 = 8314576; MAIL$_INFO50 = 8314584; MAIL$_SHOW140 = 8314592; MAIL$_SHOW150 = 8314600; MAIL$_SHOW160 = 8314608; MAIL$_ISUB50 = 8314616; MAIL$_MAIL30 = 8314624; MAIL$_RETCONT = 8314632; MAIL$_NEWSEQ = 8314640; MAIL$_MAILDIR = 8314648; MAIL$_MAILFILE = 8314656; MAIL$_MAILFOLDER = 8314664; MAIL$_MAIL40 = 8314672; MAIL$_CRENEWFOLD = 8314680; MAIL$_NONEWMAIL = 8314688; MAIL$_SHOWKEY10 = 8314696; MAIL$_SHOWKEY20 = 8314704; MAIL$_SHOWKEY30 = 8314712; MAIL$_SHOWKEY40 = 8314720; MAIL$_SHOWKEY50 = 8314728; MAIL$_SHOWKEY60 = 8314736; MAIL$_SHOWKEY70 = 8314744; MAIL$_NOTIFY30 = 8314752; MAIL$_NOTIFY40 = 8314760; MAIL$_NOPARENT = 8314768; MAIL$_FILEMPTY = 8314776; MAIL$_NONEFOUND = 8314784; MAIL$_NOMOREREC = 8314792; (* *) (* THE FOLLOWING MESSAGE IS USED FOR COMMUNICATION *) (* BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. *) (* *) CONST MAIL$_USERFWD = 8314800; MAIL$_PROMPT = 8314808; MAIL$_INFO12 = 8314816; MAIL$_INFO14 = 8314824; MAIL$_INFO16 = 8314832; MAIL$_INFO18 = 8314840; MAIL$_CRENEWFILE = 8314848; MAIL$_SHOW15 = 8314856; MAIL$_SHOW25 = 8314864; MAIL$_SHOW35 = 8314872; MAIL$_FORWARD = 8314880; MAIL$_SHOW200 = 8314888; MAIL$_SHOW205 = 8314896; MAIL$_SHOW210 = 8314904; MAIL$_SHOW215 = 8314912; MAIL$_CLOSEIN = 8314920; MAIL$_CLOSEOUT = 8314928; MAIL$_INVQUAVAL = 8314936; MAIL$_WRITEERR = 8314944; MAIL$_SHOW220 = 8314952; MAIL$_SHOW225 = 8314960; MAIL$_HPROMPT = 8314968; MAIL$_SHOWNOSIG = 8314976; MAIL$_SHOWSIG = 8314984; MAIL$_BADLOGVAL = 8314992; MAIL$_MSGTEXT = 8322305; MAIL$_MSGINFO = 8322313; MAIL$_MSGSENT = 8322321; MAIL$_MSGSENTAT = 8322329; MAIL$_YES = 8322337; MAIL$_COPIEDR = 8322345; MAIL$_CREATED = 8322353; MAIL$_RENAMED = 8322361; MAIL$_TEXT = 8322369; (* *) (* THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL *) (* *) CONST MAIL$_MAILFOLD = 8322377; MAIL$_WASTEFOLD = 8322385; MAIL$_ILLEDTNAM = 8322394; MAIL$_KEYNOTDEF = 8322402; MAIL$_INVKEYNAM = 8322410; (* END. *) (* MODULE MMEMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MMEMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:57:41.10 *) (* *) (*++ *) (************************************************************************** *) (** * *) (** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1991, 1992, 1993 * *) (** ALL RIGHTS RESERVED. * *) (** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (** STATES. * *) (** * *) (** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (** DIGITAL EQUIPMENT CORPORATION. * *) (** * *) (** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (** * *) (************************************************************************** *) (* *) (*++ *) (* FACILITY: *) (* MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* *) (* ABSTRACT: *) (* CONTAINS MESSAGES FOR THE MEDIA MANAGEMENT EXTENSIONS. *) (* *) (* AUTHOR: *) (* DAN KYLER *) (* *) (* CREATION DATE: 11-SEP-1991 *) (* *) (* MODIFICATION HISTORY: *) (* *) (* X-3 SGS0032 STEVE SKONETSKI 30-SEP-1993 *) (* FIX BUILD BUG. WRONG COMMENT CHARACTER USED IN NEW COPYRIGHT. *) (* *) (* X-2 SGS0032 STEVE SKONETSKI 30-SEP-1993 *) (* VAX TO ALPHA PORT. ADD /MACRO=$MMEMSGDEF TO .FACILITY *) (* DIRECTIVE. ALLOWS US TO REMOVE MMEMSGDEF.COM FROM THE BUILD *) (* PROCEDURE. *) (* *) (* *) (* X-1 MME-JDE013 JOHN EIKENBERRY 21 NOV 1991 *) (* MERGED INTO BLADE *) (* *) (*-- *) (*+ *) (* FACILITY DEFINITION *) (*- *) CONST MME_FACILITY = 3439; (*+ *) (* SUCCESS MESSAGES *) (*- *) (* *) (*+ *) (* INFORMATIONAL MESSAGES *) (*- *) (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_NO_MME = 225411875; (* *) (*+ *) (* WARNING MESSAGES *) (*- *) (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIVED A MAILBOX MESSAGE *) (* CONTAINING AN ARGUMENT WHICH WAS UNRECOGNIZED. THE ARGUMENT *) (* WILL BE IGNORED. *) (* USER ACTION: NONE *) (*-- *) CONST MME$_BADARGIGN = 225412672; (* *) (*+ *) (* ERROR MESSAGES *) (*- *) (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: THE MEDIA MANAGEMENT PROCESS RECEIEVED A MAILBOX MESSAGE *) (* INDICATING AN ACTION ROUTINE FOR WHICH THE MEDIA MANAGEMENT *) (* SOFTWARE HAS NOT DECLARED A ROUTINE. *) (* USER ACTION: NONE. *) (*-- *) CONST MME$_RTNNOTDECL = 225415074; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_BADMSGTYPE = 225415082; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_FACMISMATCH = 225415090; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MBXFAOERR = 225415098; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MBXASNERR = 225415106; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MBXWRTERR = 225415114; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_ASTNOTQED = 225415122; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_AVRFAOERR = 225415130; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_AVRENQERR = 225415138; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_AVRASNERR = 225415146; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_GETNAMERR = 225415154; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_UICMISMATCH = 225415162; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MBXDVIERR = 225415170; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_JPIUICERR = 225415178; (* *) (*+ *) (* FATAL MESSAGES *) (*- *) (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_FINTERNAL = 225419076; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MBXRDERR = 225419084; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_POSTMBXERR = 225419092; (*++ *) (* FACILITY: MME - VMS MEDIA MANAGEMENT EXTENSIONS *) (* EXPLANATION: *) (* USER ACTION: *) (*-- *) CONST MME$_MEMALLERR = 225419100; (* *) (* END. *) (* MODULE MOUNTMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MOUNDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:31.65 *) (* *) (* *) (* VERSION: 'X-26' *) (* *) (************************************************************************** *) (** * *) (** COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978 - 1999 * *) (** ALL RIGHTS RESERVED. * *) (** UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (** STATES. * *) (** * *) (** THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (** THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (** POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (** MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (** DIGITAL EQUIPMENT CORPORATION. * *) (** * *) (** RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (** GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (** (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (** * *) (************************************************************************** *) (*++ *) (* *) (* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES. *) (* *) (* ENVIRONMENT: *) (* *) (* MAINTAINERS TAKE NOTE! THIS MODULE IS COMMON SOURCE FOR VAX AND *) (* ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER. *) (* *) (*-- *) (* *) (* *) (* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *) (* *) (* MODIFIED BY: *) (* *) (* X-26 JJF0296 J. JEFFERY FRIEDRICHS 4-MAY-2004 *) (* ADD MESSAGES FOR BAD SCB *) (* *) (* X-25 RAB087 ROBERT A. BROOKS 18-FEB-2004 *) (* (RESYNCH IDENT WITH WHAT VDE THINKS . . .) *) (* FOLD FROM V73-2R-HBMM . . . *) (* *) (* X-35 JJF0260 J. JEFFERY FRIEDRICHS 10-NOV-2003 *) (* ADD MBRTOOSMALL *) (* *) (* X-35 JJF0279 J. JEFFERY FRIEDRICHS 12-FEB-2004 *) (* ADD SHDWREQALLOC FOR SHADOW SET MEMBERS *) (* *) (* X-34 JJF0213 J. JEFFERY FRIEDRICHS 7-FEB-2003 *) (* ADD NOCAPABILITY AND OPTCAPABILITY *) (* *) (* 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). *) (* *) (* X-31 JJF0116 J. JEFFERY FRIEDRICHS 20-DEC-1999 *) (* ADD MESSAGES FOR MINICOPY *) (* *) (* X-30 JJF0095 J. JEFFERY FRIEDRICHS 24-FEB-1999 *) (* ADD WARNING MESSAGE FOR SIZE CONFLICT *) (* *) (* X-29 JJF0095 J. JEFFERY FRIEDRICHS 8-JAN-1999 *) (* ADD NEW MESSAGES OLDSHDRIVER, NOTALLMEM AND POLICY MESSAGES *) (* *) (* X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997 *) (* SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES *) (* *) (* 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 *) (* *) (* X-25 TGC0049 TOM CARR 19-JUN-1996 *) (* ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT *) (* A MEMBER IS ALREADY A MEMBER OF A SHADOW SET *) (* *) (* X-24 TGC0048 TOM CARR 29-MAY-1996 *) (* ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THAT *) (* 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 *) (* *) (* X-22 TGC0045 TOM CARR 29-MAR-1996 *) (* ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE. *) (* *) (* X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-1994 *) (* NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS... *) (* *) (* X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994 *) (* REMOVE BADSECSUG *) (* *) (* X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-1994 *) (* CHANGE BADSECSYS AND BADSECSUG TO ERRORS *) (* *) (* X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994 *) (* ADD BADSECSYS AND BADSECSUG *) (* *) (* X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994 *) (* ADD DENIGNORED. *) (* *) (* X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994 *) (* ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING *) (* CHANGE. *) (* *) (* X-15 JJF0008 J. JEFFERY FRIEDRICHS 9-MAR-1994 *) (* REMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER *) (* *) (* X-14 JJF0005 J. JEFFERY FRIEDRICHS 1-FEB-1994 *) (* FIX TYPO IN MESSAGE BADUNDFAT *) (* *) (* X-13 AJK0003 ADAM J. KOJNOK 12-OCT-1993 *) (* ADDING NEW MESSAGE WAITDEVRDY FOR MOUNT. *) (* *) (* X-12 AJK0002 ADAM J. KOJNOK 12-OCT-1993 *) (* RETROFITTING MESSAGE VOLSETALRMNT FROM ALPHA VMS. *) (* *) (* X-4 ABELL53 ALLY BELL 25-JUNE-1993 *) (* ADDED FATAL MESSAGE VOLSETALRMNT FOR WHEN A VOLUME SET IS BEING *) (* MOUNTED WITH THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET. *) (* *) (* X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993 *) (* ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN *) (* MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY *) (* 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 PART OF A VOLUME SET. SUCH DISKS ARE *) (* LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIRE LONGWORD *) (* 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 *) (* *) (* X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-1991 *) (* ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF *) (* SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME. *) (* (FOR DAN KYLER) *) (* *) (* X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-DEC-1990 *) (* REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED *) (* IN WRONG VERSION) *) (* *) (* X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990 *) (* ADDED DEVNOFE MESSAGE. *) (* *) (* X-18 RKK0036 ROBERT K. KOSAKOWSKI 17-NOV-1990 *) (* ADDED INVQUAVAL MESSAGE. *) (* *) (* X-17 PRD PAUL R. DESTEFANO 26-APR-1990 *) (* ADDED NOALOCLASS MESSAGE. *) (* *) (* X-16 PRD PAUL R. DESTEFANO 20-MAR-1990 *) (* ADDED NOTACLU MESSAGE. *) (* *) (* X-15 PRD0548 PAUL R. DESTEFANO 06-NOV-1989 *) (* ADDED BADMDFMT MESSAGE. *) (* *) (* X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-1989 *) (* ADDED MESSAGES SHDWMEMERGE, AUTOMEMSUCC, AUTOMEMCOPY *) (* AND AUTOMEMERGE, *) (* *) (* X-13 PRD0462 PAUL R. DESTEFANO 16-OCT-1988 *) (* ADDED WAITINGMNT AND RMTMNTSUCC MESSAGES. *) (* *) (* X-12 PRD0455 PAUL R. DESTEFANO 05-OCT-1988 *) (* ADDED MOUN$_MOUNT MESSAGE FOR IO$_DISPLAY CALL IN *) (* ASSIST. *) (* *) (* X-11 PRD0445 PAUL R. DESTEFANO 18-MAY-1988 *) (* ADD QUOTAFNF MESSAGE. *) (* *) (* X-10 PRD0416 PAUL R. DESTEFANO 23-SEP-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-1985 *) (* FOR CONSISTENCY, RENAME THIS MACRO TO $MOUNDEF. *) (* *) (* X-7 HH0116 HAI HUANG 03-OCT-1985 *) (* ADD SHDWINCVOL MESSAGE. *) (* *) (* X-6 HH0110 HAI HUANG 19-SEP-1985 *) (* CHANGE TEXT OF SHADOWFAIL MESSAGE. *) (* *) (* X-5 HH0110 HAI HUANG 19-SEP-1985 *) (* ADD SHADOWFAIL MESSAGE. *) (* *) (* X-4 HH0103 HAI HUANG 09-SEP-1985 *) (* ADD SHDWCOPYREQ MESSAGE. ALSO, RENAME SHAMEM TO *) (* SHDWMEM. *) (* *) (* X-3 HH0092 HAI HUANG 20-AUG-1985 *) (* REMOVE OBSOLETE BADJRNL MESSAGE. *) (* *) (* X-2 HH0073 HAI HUANG 16-MAY-1985 *) (* ADD VOLUME SHADOWING MESSAGES. *) (* *) (*** *) (*+ *) (* *) (* THE FOLLOWING ARE MESSAGES ISSUED BY THE MOUNT UTILITY. *) (* *) (*- *) (* *) (* ***** FOLLOWING MESSAGES ARE SHARED WITH INIT *) (* *) (* WHEN ADDING A NEW MESSAGE IN THIS SECTION, USE THE FILL VALUES DX. *) (* *) CONST MOUNT$_FACILITY = 114; MOUN$_BADDATCHK = 7503884; MOUN$_BADDENS = 7503892; MOUN$_BADPRO = 7503900; MOUN$_BADUIC = 7503908; MOUN$_CONFQUAL = 7503916; MOUN$_ILLOPT = 7503924; MOUN$_NONLOCAL = 7503932; MOUN$_NOTRAN = 7503940; MOUN$_UNKDEV = 7503948; MOUN$_BADLABELQ = 7503956; MOUN$_VALCNVERR = 7503964; MOUN$_D3 = 7503972; MOUN$_D4 = 7503980; MOUN$_D5 = 7503988; (* *) (* ***** PRECEDING MESSAGES ARE SHARED WITH INIT *) (* *) CONST MOUN$_LOGNAME = 7503996; MOUN$_MAXDEV = 7504004; MOUN$_MAXLAB = 7504012; MOUN$_NOACPDEV = 7504020; MOUN$_MOUVOL = 7504028; MOUN$_INCOMPACP = 7504036; MOUN$_INCOMPAT = 7504044; MOUN$_VOLALRMNT = 7504052; MOUN$_BADVOL1 = 7504060; MOUN$_ILLDENS = 7504068; MOUN$_NOTGENDEV = 7504076; MOUN$_DUPDEVSPC = 7504084; MOUN$_ILLANSIBS = 7504092; MOUN$_ACCERR = 7504100; MOUN$_FILNOTEXP = 7504108; MOUN$_NOPRIV = 7504116; MOUN$_NOTANSI = 7504124; MOUN$_NOTLABEL = 7504132; MOUN$_NOTVOLSET = 7504140; MOUN$_NOTRELVOL = 7504148; MOUN$_OFFLINE = 7504156; MOUN$_IOERROR = 7504164; MOUN$_ILLQUAL = 7504172; MOUN$_WRITLCK = 7504180; MOUN$_RECGTRBL = 7504188; MOUN$_ACPNAME = 7504196; MOUN$_ACPTIME = 7504204; MOUN$_AQBTIME = 7504212; MOUN$_BADACP = 7504220; MOUN$_BADEBC = 7504228; MOUN$_BADOVR = 7504236; MOUN$_DEVICES = 7504244; MOUN$_SZTOOBIG = 7504252; MOUN$_INCONSDEV = 7504260; MOUN$_DEVCOUNT = 7504268; MOUN$_VOLINSET = 7504276; MOUN$_RVN1NOTMT = 7504284; MOUN$_SETLIMIT = 7504292; MOUN$_DUPVOLNAM = 7504300; MOUN$_HOMBLKCHK = 7504308; MOUN$_DUPRVN = 7504316; MOUN$_BADCACHE = 7504324; MOUN$_UNRELVOL = 7504332; MOUN$_MBXCRERR = 7504340; MOUN$_MBXRDERR = 7504348; MOUN$_REPLYERR = 7504356; MOUN$_OPRSNDERR = 7504364; MOUN$_OPRABORT = 7504372; MOUN$_BATCHNOOPR = 7504380; MOUN$_MOUNEWVOL = 7504388; MOUN$_REMOUVOL = 7504396; MOUN$_OBSOLETE = 7504404; MOUN$_VOLOERR = 7504412; MOUN$_BADINIT = 7504420; MOUN$_DISMAL = 7504428; MOUN$_INCONSHR = 7504436; MOUN$_INCONPROT = 7504444; MOUN$_INCONQUOTA = 7504452; MOUN$_INCONOWNER = 7504460; MOUN$_INCONWRITE = 7504468; MOUN$_INCONFOR = 7504476; MOUN$_NOVOLACC = 7504484; MOUN$_NOFILACC = 7504492; MOUN$_TAPEPOSLOST = 7504500; MOUN$_BADSHADOW = 7504508; MOUN$_NOSHDWMEM = 7504516; MOUN$_INVSHDWMEM = 7504524; MOUN$_SHDWCOPYREQ = 7504532; MOUN$_SHADOWFAIL = 7504540; MOUN$_SHDWINCVOL = 7504548; MOUN$_NOTSHDWDEV = 7504556; MOUN$_BADMDFMT = 7504564; MOUN$_NOTACLU = 7504572; MOUN$_NOALOCLASS = 7504580; MOUN$_BADASNUNIT = 7504588; MOUN$_BADDISP = 7504596; MOUN$_BADUNDFAT = 7504604; MOUN$_VOLTOOBIG = 7504612; MOUN$_BADSECSYS = 7504620; MOUN$_DEVBUSY = 7504628; MOUN$_DEVDMT = 7504636; MOUN$_BADREPLY = 7504644; MOUN$_MMEABORT = 7504652; MOUN$_NOSHADOW = 7504660; MOUN$_NOTSHDWVU = 7504668; MOUN$_NOSHADLIC = 7504676; MOUN$_DIFVOLMNT = 7504684; MOUN$_DEVSHAMEM = 7504692; MOUN$_SHADSCB = 7504700; MOUN$_NOODS1 = 7504708; MOUN$_WRONGVU = 7504716; MOUN$_DETSHADINCON = 7504724; MOUN$_NOMASTER = 7504732; MOUN$_XSMBRS = 7504740; MOUN$_NOVUID = 7504748; MOUN$_SHADUNSTABLE = 7504756; MOUN$_INCONPOOL = 7504764; MOUN$_DEVBUSYMOU = 7504772; MOUN$_DEVBUSYMOUDSA = 7504780; MOUN$_DEVBUSYDMT = 7504788; MOUN$_DEVBUSYSYS = 7504796; MOUN$_DEVBUSYVOL = 7504804; MOUN$_DEVBUSYORB = 7504812; MOUN$_DEVBUSYINVMOS = 7504820; MOUN$_DEVBUSYINSET = 7504828; MOUN$_NOTALLMEM = 7504836; MOUN$_BADPOLICY = 7504844; MOUN$_POLICYFAIL = 7504852; MOUN$_SPARE = 7504860; MOUN$_REQ_WBM_MERGE = 7504868; MOUN$_REQ_WBM_FAIL = 7504876; MOUN$_ACPNOTPRESENT = 7504884; MOUN$_BADWINDOWS = 7504892; MOUN$_NOCAPABILITY = 7504900; MOUN$_MBRTOOSMALL = 7504908; MOUN$_SHDWREQALLOC = 7504916; MOUN$_INVALIDSCB = 7504924; (************************************************************************ *) (* *) (* ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 385 MORE CODES. *) (* *) (************************************************************************ *) (* *) (* WARNING MESSAGES *) (* *) CONST MOUN$_HOMBLKBAD = 7507968; MOUN$_IDXHDRBAD = 7507976; MOUN$_MAPHDRBAD = 7507984; MOUN$_IDXMAPERR = 7507992; MOUN$_BITMAPERR = 7508000; MOUN$_BADHOMBLK = 7508008; MOUN$_WRTHOMBLK = 7508016; MOUN$_QUOTAFAIL = 7508024; MOUN$_BITMAPINV = 7508032; MOUN$_WRITESCB = 7508040; MOUN$_DISMPART = 7508048; MOUN$_UNUSED = 7508056; MOUN$_DISMOUNTD = 7508064; MOUN$_VOLSHDWMEM = 7508072; MOUN$_RMTMNTFAIL = 7508080; MOUN$_MNTCLUFAIL = 7508088; MOUN$_QUOTAFNF = 7508096; MOUN$_CBSNOTSUPTD = 7508104; MOUN$_CRELNM_FAILED = 7508112; MOUN$_DENIGNORED = 7508120; MOUN$_ALHOMERR = 7508128; MOUN$_ALHOMINV = 7508136; MOUN$_INCONSTRUCT = 7508144; MOUN$_INCONSET = 7508152; MOUN$_OLDSHDRIVER = 7508160; MOUN$_POLICYWARN = 7508168; MOUN$_INCONSIZE = 7508176; MOUN$_OPT_WBM_MERGE = 7508184; MOUN$_WBM_NOTSTARTED = 7508192; MOUN$_OPTCAPABILITY = 7508200; (* *) (* INFORMATIONAL MESSAGES *) (* *) CONST MOUN$_MOUNTED = 7512067; MOUN$_VOLIDENT = 7512075; MOUN$_WRITELOCK = 7512083; MOUN$_REBUILD = 7512091; MOUN$_OPRQST = 7512099; MOUN$_OPREPLY = 7512107; MOUN$_OPRQSTCAN = 7512115; MOUN$_NOOPR = 7512123; MOUN$_INVLDRESP = 7512131; MOUN$_MOUNTDEV = 7512139; MOUN$_VOLNAME = 7512147; MOUN$_NODEVAVL = 7512155; MOUN$_RPLYARRIVD = 7512163; MOUN$_WRONGVOL = 7512171; MOUN$_RQSTDON = 7512179; MOUN$_VOLSTATUS = 7512187; MOUN$_VOLSETSTS = 7512195; MOUN$_REDCACHE = 7512203; MOUN$_REBLDREQD = 7512211; MOUN$_SHDWMEMSUCC = 7512219; MOUN$_SHDWMEMCOPY = 7512227; MOUN$_SHDWMEMFAIL = 7512235; MOUN$_MOUNT = 7512243; (* MAXIMUM = 8 CHARACTERS *) MOUN$_WAITINGMNT = 7512251; MOUN$_RMTMNTSUCC = 7512259; MOUN$_SHDWMEMERGE = 7512267; MOUN$_AUTOMEMSUCC = 7512275; MOUN$_AUTOMEMCOPY = 7512283; MOUN$_AUTOMEMERGE = 7512291; MOUN$_MOUNTVOL = 7512299; MOUN$_ANYSCRATCH = 7512307; MOUN$_SCRATCHCOL = 7512315; MOUN$_SCRATCHLOC = 7512323; MOUN$_SCRCOLLOC = 7512331; MOUN$_SUITDEV = 7512339; MOUN$_DEVTYPE = 7512347; MOUN$_DEVICE = 7512355; MOUN$_MEDIANAME = 7512363; MOUN$_CARTRIDGE = 7512371; MOUN$_CARTSIDE = 7512379; MOUN$_CDROM_ISO = 7512387; MOUN$_CDROM_HS = 7512395; MOUN$_WAITDEVRDY = 7512403; MOUN$_NOTODS2 = 7512411; MOUN$_SRCMBRADD = 7512419; MOUN$_ISACPYTRGT = 7512427; MOUN$_ISAMBR = 7512435; MOUN$_DOSETVOL = 7512443; MOUN$_RETSTATUS = 7512451; MOUN$_SHDWMEMMCPY = 7512459; MOUN$_SHDWNOMCPY = 7512467; (* *) (* MORE FATAL MESSAGES (DO NOT ADD MORE MESSAGES TO THIS SECTION UNTIL *) (* THE BLOCK ABOVE HAS BEEN USED UP.) *) (* *) CONST MOUN$_INVQUAVAL = 7515876; MOUN$_DEVNOFE = 7515884; MOUN$_VOLSETALRMNT = 7515892; (*** MODULE $RBLDDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:31.65 *) (* *) CONST REBUILD$_FACILITY = 1814; RBLD$_NODEVICE = 118915082; RBLD$_ADDERR = 118915090; RBLD$_MODIFYERR = 118915098; RBLD$_CLOSERR = 118915106; RBLD$_LOCKERR = 118915114; RBLD$_UNLOCKERR = 118915122; RBLD$_MAXVOLS = 118915130; RBLD$_ACCINDEXF = 118915138; RBLD$_ACCBITMAP = 118915146; RBLD$_ACCQFILE = 118915154; RBLD$_QUOTARERR = 118915162; RBLD$_BITMAPERR = 118915170; RBLD$_READSCB = 118915178; RBLD$_WRITESCB = 118915186; RBLD$_WRTIBMAP = 118915194; RBLD$_WRTBITMAP = 118915202; RBLD$_MEMALLOC = 118915210; RBLD$_HOMEBLOCK = 118915218; RBLD$_SYSHEADER = 118915226; RBLD$_ERRORS = 118915234; RBLD$_SHADSCB = 118915242; RBLD$_DUALLOC = 118915248; RBLD$_HEADERERR = 118915256; RBLD$_WRITEHDR = 118915264; RBLD$_ERASEBLKS = 118915272; RBLD$_VOLNOTPRESENT = 118915280; RBLD$_INVBACKLINK = 118915288; RBLD$_NOREBLDREQD = 118915299; RBLD$_REBLDREQD = 118915307; RBLD$_REBLDDONE = 118915313; RBLD$_INVALIDSCB = 118915322; (* END. *) (* MODULE MTHMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MTHDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:36.18 *) (* *) (* DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG *) (* 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" *) (* 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" *) (* *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp" *) (* 1A1 20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry" *) (* *1 18-JUN-1985 03:36:07 SYSTEMBUILD "Initial entry of V4.0 source" *) (* DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG *) (* FILE: MTHMSG.MSG EDIT: JCW2004 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM MTHMSG.MDL *) (* VERSION 1-004. SBL 22-APR-1981 *) (* 2-002 - ADD .TITLE. SBL 28-AUG-1982 *) (* 2-003 - ADD MTH$_NOTIMP. SMM 03-SEP-1985 *) (* 2-004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88. *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* MTH$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* 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 *) (* *) (* 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 EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *) (* ; SET LH TO 22 (DECIMAL) MTH$ PREFIX *) CONST MTH$_FACILITY = 22; MTH$_WRONUMARG = 1475204; MTH$_INVARGMAT = 1475212; MTH$_UNDEXP = 1475220; MTH$_LOGZERNEG = 1475228; MTH$_SQUROONEG = 1475236; (* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *) (* ; SET LH TO 22 (DECIMAL) MTH$ PREFIX *) CONST MTH$_SIGLOSMAT = 1475260; MTH$_FLOOVEMAT = 1475268; MTH$_FLOUNDMAT = 1475276; MTH$_NOTIMP = 1475284; (* MTH$NOT_IMPLEMENTED *) CONST MTH$_VEC_INVARGMAT = 1475292; MTH$_VEC_UNDEXP = 1475300; MTH$_VEC_LOGZERNEG = 1475308; MTH$_VEC_SQUROONEG = 1475316; MTH$_VEC_FLOOVEMAT = 1475324; MTH$_VEC_FLOUNDMAT = 1475332; MTH$_SINCOSSIG = 1475260; (* END. *) (* MODULE NCSMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $NCSDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:25:47.36 *) (* *) (* FILE: NCSMSG.MSG EDIT: PDG1001 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1982 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* *) (* FACILITY: VAX-11 NCS *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE DEFINITION FOR THE NCS FACILITY SPECIFIC *) (* ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???. *) (* *) (* ENVIRONMENT: VAX/VMS USER MODE *) (* *) (* AUTHOR: P. GILBERT, CREATION DATE: 11-OCT-1983 *) (* *) (* MODIFIED BY: *) (* *) (* E01-001 ORIGINAL *) (* *) (* E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989 *) (* USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND *) (* TFF$_ MESSAGES. *) (*-- *) CONST NCS$_FACILITY = 561; NCS$_CVTNUM = 36798466; NCS$_EXPCHAR = 36798474; NCS$_EXPMORTXT = 36798482; NCS$_DUMMY_1 = 36798490; NCS$_INVCOLSEQ = 36798498; NCS$_NOMEMORY = 36798508; NCS$_NUMTRUNC = 36798512; NCS$_QUOTOOLONG = 36798522; NCS$_COL_ADJ = 36798532; NCS$_COL_CMPLX = 36798540; NCS$_COL_CHAR = 36798548; NCS$_COL_PAD = 36798556; NCS$_COL_THREE = 36798564; NCS$_ON_LINE = 36798571; NCS$_INVAPPEND = 36798578; NCS$_NYI = 36798586; NCS$_NOT_CS = 36798594; NCS$_NOT_CF = 36798602; NCS$_LINEINFO = 36798611; NCS$_CONMODEQL = 36798618; NCS$_EXPECTED = 36798626; NCS$_EXP1CHAR = 36798634; NCS$_RANDIF = 36798642; NCS$_BADCS = 36798652; NCS$_BADCF = 36798660; NCS$_INSERTED = 36799265; NCS$_DELETED = 36799273; NCS$_REPLACED = 36799281; NCS$_REMOVED = 36799289; NCS$_EXTRACTED = 36799297; NCS$_DIFTYP = 36799304; NCS$_NOMTCHFOU = 36799312; NCS$_BRKNLIB = 36799320; NCS$_HISTERR = 36799328; NCS$_INVKEYCHAR = 36799336; NCS$_DELKEYERR = 36799346; NCS$_DELDATERR = 36799354; NCS$_DUPMOD = 36799362; NCS$_FAOFAIL = 36799370; NCS$_INDEXERR = 36799378; NCS$_INSERTERR = 36799386; NCS$_LOOKUPERR = 36799394; NCS$_MODNAMLNG = 36799402; NCS$_NOMODNAM = 36799410; NCS$_NOTOBJLIB = 36799418; NCS$_NOTFORUNK = 36799426; NCS$_CNVRTING = 36799435; NCS$_EMPTYLIBRARY = 36799443; NCS$_MHDERR = 36799452; NCS$_INITERR = 36799460; NCS$_LIBEMPTY = 36800064; NCS$_DUPLTAB = 36800072; NCS$_NOREADLIB = 36800080; NCS$_NOWRTLIB = 36800088; NCS$_IVTABNAM = 36800098; NCS$_NOSUCHTAB = 36800106; NCS$_NOWILD = 36800114; (* END. *) (* MODULE NSAMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $NSAMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:46.84 *) (* *) (* *) (* *) (* *********************************************************************** *) (* * * *) (* * * *) (* * COPYRIGHT 1989 COMPAQ COMPUTER CORPORATION * *) (* * * *) (* * COMPAQ REGISTERED IN U.S. PATENT AND TRADEMARK OFFICE. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ OR * *) (* * AUTHORIZED SUBLICENSOR REQUIRED FOR POSSESSION, USE OR COPYING. * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE,* *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * * *) (* * * *) (* *********************************************************************** *) (* *) (* *) (*++ *) (* *) (* FACILITY: *) (* *) (* VMSLIB *) (* *) (* ABSTRACT: *) (* *) (* THIS MODULE DEFINES THE MESSAGES CODES USED TO AUDIT USE OF PRIVILEGE *) (* WITHIN THE VMS TCB. MESSAGE CODES ARE NUMBERED FROM 0-4095. *) (* *) (* THE FIRST HALF OF THIS RANGE IS RESERVED EXCLUSIVELY FOR PRIVILEGE *) (* AUDITING AND ARE FURTHER BROKEN DOWN BY PRIVILEGE. THE SECOND HALF OF THE *) (* RANGE IS RESERVED FOR OTHER MESSAGES ASSOCIATED WITH TCB AUDIT EVENTS. *) (* *) (* ENVIRONMENT: *) (* *) (* VMS EXECUTIVE *) (* *) (* AUTHOR: *) (* *) (* DERRELL D. PIPER APRIL 17TH, 1989 *) (* *) (* NOTA BENE: *) (* *) (* OBSOLETE PRIVILEGE AUDITING MESSAGE CODES CANNOT BE REMOVED FROM THIS *) (* MODULE! THESE MESSAGE CODES ARE DEFINED IN STARLET AND REFERENCED BY *) (* NAME IN THE $IFPRIV/$IFNPRIV AND $HAS_PRIV MACROS. IF YOU WANT TO *) (* "remove" AN OBSOLETE MESSAGE, REPLACE THE TEXT WITH "< -- unused -- >". *) (* IF YOU'RE ADDING A NEW MESSAGE, PLEASE RE-USE ANY UNUSED MESSAGES. *) (* *) (* MODIFICATIONS: *) (* *) (* X-37 GP051505 GUY PELEG 15-MAY-2006 *) (* ADD COMB_20 AND WORLD_6. *) (* *) (* X-36 RAB0148 ROBERT A. BROOKS 11-JAN-2006 *) (* ADD OPER_94 FOR SET PATH AUDITING. *) (* *) (* X-35 RAB0143 ROBERT A. BROOKS 28-NOV-2005 *) (* ADD SYSPRV_52 FOR SET PATH AUDITING. *) (* *) (* X-34 WCC WILLIAM CLEMENCE 15-JUL-2004 *) (* ADDED CMKRNL_37 FOR IPMI AUDITING *) (* *) (* X-33 JJF0282 J. JEFFERY FRIEDRICHS 9-MAR-2004 *) (* ADDED SYSPRV_51 FOR SETSHOSHADOW AUDITING *) (* *) (* X-32 LC0002 LARRY CAMILLI 15-JAN-2003 *) (* ADDED OPER_93 FOR OPER PRIVILEGE REQUIREMENT FOR *) (* SET CACHE/FLUSH, AND REMOVED VOLPRO_16. (SEE X-31.) *) (* *) (* X-31 LC0001 LARRY CAMILLI 19-DEC-2002 *) (* 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-2002 *) (* MORE COE FOLD: AUDITS FOR MEDDLE BIT PRIV CHECK: *) (* *) (* X-25A1A2 JAH0404 JOHN A HARNEY 24-JUL-2002 *) (* ADD CMKRNL_36 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. *) (* *) (* X-25A1A1 JAH0404 JOHN A HARNEY 23-JUL-2002 *) (* ADD CMEXEC_2 FOR $SET_PROCESS_PROPERTIES MEDDLE_ENABLE BIT. *) (* *) (* X-29 DOUGLAS FYFE 15-FEB-2002 *) (* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER *) (* /SUSPEND, /RESUME AND /CLUSTER. *) (* *) (* X-28 JAH0378 JOHN A HARNEY 10-OCT-2001 *) (* COE FOLD: CHANGE AUDIT MESSAGE FOR IMPERSONATE_12 *) (* *) (* X-27 LJK0230 LAWRENCE J. KILGALLEN 15-FEB-2001 *) (* ONE MORE MESSAGE FOR USE-OF-PRIVILEGE AUDITING WITHIN *) (* SHOW SERVER. *) (* *) (* X-25 LJK0219 LAWRENCE J. KILGALLEN 2-FEB-2001 *) (* RESOLVE A FOLD BETWEEN X-24, X-23 AND X-22A. *) (* *) (* X-24 PEM0070 PAUL E. MOSTEIKA 01-AUG-2000 *) (* ADD IMPERSONATE_12 - AUDIT THE NEW ACE TYPE *) (* POSIX_OWNER FOR COE SUPPORT OF EFFECTIVE UID/GID. *) (* *) (* X-23 KGBCOE KENNETH G.BLAYLOCK 18-JUL-2000 *) (* MODIFY XQP_16 WITH NEW MESSAGE NAME AND ADD *) (* A NEW XQP_23 MESSAGE. *) (* *) (* X-22A LJK0218 LAWRENCE J. KILGALLEN 1-FEB-2001 *) (* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING WITHIN SET SERVER *) (* AND SHOW SERVER. *) (* ADD MESSAGES FOR USE-OF-PRIVILEGE AUDITING BY SYS$ACM[W]. *) (* *) (* X-22 JAH0331 JOHN A HARNEY 10-MAR-1999 *) (* ADD IMPERSONATE_11 FOR USES OF $PERSONA_RESERVE. *) (* *) (* X-21 JAH0317 JOHN A HARNEY 24-SEP-1998 *) (* ADD AUDIT_3 FOR NEW $SETUAI ITEM WHICH REQUIRES AUDIT PRIV. *) (* *) (* X-20 JMB004 JIM BLUE 08-JUN-1998 *) (* ADD OPER_79, OPER_80, AND OPER_81 MESSAGES FOR *) (* MULTIPATH SET DEVICE /ENABLE, /POLL, AND /SWITCH *) (* OPTIONS. *) (* *) (* X-19 JAH0269 JOHN A HARNEY 11-NOV-1997 *) (* ADD NSA$_IMPERSONATE_8, _9, AND _10 FOR PERSONA SERVICES. *) (* *) (* X-18 MCJ MICHAEL C. JOHNSON 31-JUL-1997 *) (* ADD CMKRNL_35, XQP_21 AND XQP_22 MESSAGES FOR XFC *) (* (EXTENDED FILE CACHE) PROJECT. *) (* *) (* X-17 NL NICCOLE LUCE 04-MAR-1997 *) (* ADD NETMBX_3 MESSAGE FOR ICC (RAVEN_FT1). *) (* *) (* X-16 WXD BILL DAVENPORT 13-DEC-1995 *) (* PERTHREAD SECURITY STAGE 1 CHECKIN: *) (* - 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. *) (* *) (* X-15 RJB0016 RICHARD J. BARRY 28-JUN-1995 *) (* CHANGE TEXT OF MACBYPASSED MESSAGE. *) (* *) (* X-14 JRK369 JIM KAUFFMAN 25-APR-1995 *) (* ADD ALTPRI_7 AND WORLD_5 *) (* *) (* X-13 CHANGE TEXT OF MESSAGES SO 64-BIT SYSTEM SERVICES CAN *) (* SHARE ROUTINES 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 *) (* *) (* X-12 JCH703 JOHN C. HALLYBURTON, JR. 17-JAN-1995 *) (* CHANGE TEXT OF LOG_IO_1, PHY_IO_9, PHY_IO_14 AND DETACH_1. *) (* ADD ALTPRI_6. *) (* *) (* X-11 REG002 RUTH GOLDENBERG 26-OCT-1994 *) (* 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 *) (* *) (* X-9 NYK028 NITIN Y. KARKHANIS 20-MAY-1994 *) (* RELEASE OPER_47 AND USE CMKRNL_34 FOR FLAGGING ATTEMPTED *) (* MODIFICATIONS TO CONSOLE ENVIRONMENT VARIABLES. *) (* *) (* X-8 NYK023 NITIN Y. KARKHANIS 14-APR-1994 *) (* RE-USED OPER_47 FOR "USER MODIFYING CONSOLE ENVIRONMENT *) (* VARIABLES. *) (* *) (* X-7 JAH0086 JOHN A HARNEY 14-MAR-1994 *) (* ADD SECURITY_20 TO SECURITY_25 MESSAGES. *) (* *) (* X-6 SGS0042 STEVE SKONETSKI 10-MAR-1994 *) (* ADD MEDIA MANAGEMENT EXTENSIONS (MME) SPECIFIC *) (* AUDITING MESSAGES. *) (* *) (* X-5 SAD0296 STUART A. DAVIDSON 9-DEC-1993 *) (* ADD DETACH_7 FOR IMPERSONATION. *) (* *) (* X-4 TRB TOM BENSON 23-OCT-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. *) (* *) (*** *) CONST NSA$_FACILITY = 1072; NSA$_CMKRNL_1 = 70287363; NSA$_CMKRNL_2 = 70287371; NSA$_CMKRNL_3 = 70287379; NSA$_CMKRNL_4 = 70287387; NSA$_CMKRNL_5 = 70287395; NSA$_CMKRNL_6 = 70287403; NSA$_CMKRNL_7 = 70287411; (* UNDOCUMENTED *) NSA$_CMKRNL_8 = 70287419; NSA$_CMKRNL_9 = 70287427; NSA$_CMKRNL_10 = 70287435; (* UNDOCUMENTED *) NSA$_CMKRNL_11 = 70287443; (* UNDOCUMENTED *) NSA$_CMKRNL_12 = 70287451; NSA$_CMKRNL_13 = 70287459; NSA$_CMKRNL_14 = 70287467; (* UNDOCUMENTED *) NSA$_CMKRNL_15 = 70287475; NSA$_CMKRNL_16 = 70287483; (* UNDOCUMENTED *) NSA$_CMKRNL_17 = 70287491; NSA$_CMKRNL_18 = 70287499; (* UNDOCUMENTED *) NSA$_CMKRNL_19 = 70287507; NSA$_CMKRNL_20 = 70287515; (* UNDOCUMENTED *) NSA$_CMKRNL_21 = 70287523; (* UNDOCUMENTED *) NSA$_CMKRNL_22 = 70287531; NSA$_CMKRNL_23 = 70287539; NSA$_CMKRNL_24 = 70287547; NSA$_CMKRNL_25 = 70287555; (* UNDOCUMENTED *) NSA$_CMKRNL_26 = 70287563; NSA$_CMKRNL_27 = 70287571; (* UNDOCUMENTED *) NSA$_CMKRNL_28 = 70287579; NSA$_CMKRNL_29 = 70287587; NSA$_CMKRNL_30 = 70287595; NSA$_CMKRNL_31 = 70287603; NSA$_CMKRNL_32 = 70287611; NSA$_CMKRNL_33 = 70287619; NSA$_CMKRNL_34 = 70287627; NSA$_CMKRNL_35 = 70287635; NSA$_CMKRNL_36 = 70287643; (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON IPF *) (* *) CONST NSA$_CMKRNL_37 = 70287651; (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON IPF *) (* *) CONST NSA$_CMEXEC_1 = 70287763; NSA$_CMEXEC_2 = 70287771; NSA$_SYSNAM_1 = 70287843; NSA$_SYSNAM_2 = 70287851; NSA$_SYSNAM_3 = 70287859; NSA$_SYSNAM_4 = 70287867; NSA$_SYSNAM_5 = 70287875; NSA$_SYSNAM_6 = 70287883; NSA$_SYSNAM_7 = 70287891; NSA$_SYSNAM_8 = 70287899; NSA$_SYSNAM_9 = 70287907; NSA$_SYSNAM_10 = 70287915; NSA$_SYSNAM_11 = 70287923; NSA$_SYSNAM_12 = 70287931; NSA$_SYSNAM_13 = 70287939; NSA$_GRPNAM_1 = 70288083; NSA$_GRPNAM_2 = 70288091; NSA$_GRPNAM_3 = 70288099; NSA$_ALLSPOOL_1 = 70288163; NSA$_DETACH_1 = 70288243; NSA$_DETACH_2 = 70288251; NSA$_DETACH_3 = 70288259; NSA$_DETACH_4 = 70288267; NSA$_DETACH_5 = 70288275; NSA$_DETACH_6 = 70288283; NSA$_DETACH_7 = 70288291; NSA$_IMPERSONATE_1 = 70288243; NSA$_IMPERSONATE_2 = 70288251; NSA$_IMPERSONATE_3 = 70288259; NSA$_IMPERSONATE_4 = 70288267; NSA$_IMPERSONATE_5 = 70288275; NSA$_IMPERSONATE_6 = 70288283; NSA$_IMPERSONATE_7 = 70288291; NSA$_IMPERSONATE_8 = 70288299; NSA$_IMPERSONATE_9 = 70288307; NSA$_IMPERSONATE_10 = 70288315; (* THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE. *) CONST NSA$_DIAGNOSE_1 = 70288323; NSA$_DIAGNOSE_2 = 70288331; NSA$_DIAGNOSE_3 = 70288339; NSA$_DIAGNOSE_4 = 70288347; (* UNDOCUMENTED *) NSA$_DIAGNOSE_5 = 70288355; NSA$_DIAGNOSE_6 = 70288363; NSA$_DIAGNOSE_7 = 70288371; NSA$_DIAGNOSE_8 = 70288379; NSA$_LOG_IO_1 = 70288403; NSA$_LOG_IO_2 = 70288411; NSA$_LOG_IO_3 = 70288419; NSA$_LOG_IO_4 = 70288427; NSA$_LOG_IO_5 = 70288435; (* UNDOCUMENTED *) NSA$_LOG_IO_6 = 70288443; NSA$_LOG_IO_7 = 70288451; NSA$_GROUP_1 = 70288483; NSA$_GROUP_2 = 70288491; NSA$_GROUP_3 = 70288499; NSA$_GROUP_4 = 70288507; NSA$_GROUP_5 = 70288515; NSA$_GROUP_6 = 70288523; NSA$_GROUP_7 = 70288531; NSA$_GROUP_8 = 70288539; NSA$_GROUP_9 = 70288547; NSA$_GROUP_10 = 70288555; NSA$_ACNT_1 = 70288643; NSA$_ACNT_2 = 70288651; NSA$_PRMCEB_1 = 70288723; NSA$_PRMCEB_2 = 70288731; NSA$_PRMMBX_1 = 70288803; NSA$_PRMMBX_2 = 70288811; NSA$_PRMMBX_3 = 70288819; NSA$_PSWAPM_1 = 70288883; NSA$_PSWAPM_2 = 70288891; NSA$_PSWAPM_3 = 70288899; NSA$_PSWAPM_4 = 70288907; NSA$_ALTPRI_1 = 70288963; NSA$_ALTPRI_2 = 70288971; NSA$_ALTPRI_3 = 70288979; NSA$_ALTPRI_4 = 70288987; NSA$_ALTPRI_5 = 70288995; NSA$_ALTPRI_6 = 70289003; NSA$_ALTPRI_7 = 70289011; NSA$_IMPORT_1 = 70289043; NSA$_TMPMBX_1 = 70289123; NSA$_TMPMBX_2 = 70289131; NSA$_WORLD_1 = 70289203; NSA$_WORLD_2 = 70289211; NSA$_WORLD_3 = 70289219; NSA$_WORLD_4 = 70289227; NSA$_WORLD_5 = 70289235; NSA$_WORLD_6 = 70289243; NSA$_MOUNT_1 = 70289283; NSA$_OPER_1 = 70289363; NSA$_OPER_2 = 70289371; NSA$_OPER_3 = 70289379; NSA$_OPER_4 = 70289387; NSA$_OPER_5 = 70289395; NSA$_OPER_6 = 70289403; NSA$_OPER_7 = 70289411; NSA$_OPER_8 = 70289419; NSA$_OPER_9 = 70289427; NSA$_OPER_10 = 70289435; NSA$_OPER_11 = 70289443; NSA$_OPER_12 = 70289451; NSA$_OPER_13 = 70289459; NSA$_OPER_14 = 70289467; (* UNDOCUMENTED *) NSA$_OPER_15 = 70289475; (* UNDOCUMENTED *) NSA$_OPER_16 = 70289483; NSA$_OPER_17 = 70289491; (* UNDOCUMENTED *) NSA$_OPER_18 = 70289499; (* UNDOCUMENTED *) NSA$_OPER_19 = 70289507; NSA$_OPER_20 = 70289515; NSA$_OPER_21 = 70289523; NSA$_OPER_22 = 70289531; NSA$_OPER_23 = 70289539; NSA$_OPER_24 = 70289547; (* UNDOCUMENTED *) NSA$_OPER_25 = 70289555; NSA$_OPER_26 = 70289563; NSA$_OPER_27 = 70289571; NSA$_OPER_28 = 70289579; NSA$_OPER_29 = 70289587; NSA$_OPER_30 = 70289595; NSA$_OPER_31 = 70289603; NSA$_OPER_32 = 70289611; NSA$_OPER_33 = 70289619; NSA$_OPER_34 = 70289627; NSA$_OPER_35 = 70289635; (* UNDOCUMENTED *) NSA$_OPER_36 = 70289643; NSA$_OPER_37 = 70289651; NSA$_OPER_38 = 70289659; NSA$_OPER_39 = 70289667; NSA$_OPER_40 = 70289675; NSA$_OPER_41 = 70289683; NSA$_OPER_42 = 70289691; NSA$_OPER_43 = 70289699; NSA$_OPER_44 = 70289707; NSA$_OPER_45 = 70289715; NSA$_OPER_46 = 70289723; NSA$_OPER_47 = 70289731; NSA$_OPER_48 = 70289739; NSA$_OPER_49 = 70289747; NSA$_OPER_50 = 70289755; NSA$_OPER_51 = 70289763; NSA$_OPER_52 = 70289771; NSA$_OPER_53 = 70289779; NSA$_OPER_54 = 70289787; NSA$_OPER_55 = 70289795; NSA$_OPER_56 = 70289803; (* UNDOCUMENTED *) NSA$_OPER_57 = 70289811; NSA$_OPER_58 = 70289819; NSA$_OPER_59 = 70289827; NSA$_OPER_60 = 70289835; NSA$_OPER_61 = 70289843; NSA$_OPER_62 = 70289851; NSA$_OPER_63 = 70289859; NSA$_OPER_64 = 70289867; NSA$_OPER_65 = 70289875; NSA$_OPER_66 = 70289883; NSA$_OPER_67 = 70289891; NSA$_OPER_68 = 70289899; NSA$_OPER_69 = 70289907; NSA$_OPER_70 = 70289915; (* UNDOCUMENTED *) NSA$_OPER_71 = 70289923; NSA$_OPER_72 = 70289931; NSA$_OPER_73 = 70289939; NSA$_OPER_74 = 70289947; NSA$_OPER_75 = 70289955; NSA$_OPER_76 = 70289963; NSA$_OPER_77 = 70289971; NSA$_OPER_78 = 70289979; NSA$_OPER_79 = 70289987; NSA$_OPER_80 = 70289995; NSA$_OPER_81 = 70290003; (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_OPER_82 = 70290011; NSA$_OPER_83 = 70290019; NSA$_OPER_84 = 70290027; NSA$_OPER_85 = 70290035; NSA$_OPER_86 = 70290043; NSA$_OPER_87 = 70290051; NSA$_OPER_88 = 70290059; NSA$_OPER_89 = 70290067; NSA$_OPER_90 = 70290075; NSA$_OPER_91 = 70290083; NSA$_OPER_92 = 70290091; NSA$_OPER_93 = 70290099; NSA$_OPER_94 = 70290107; (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_EXQUOTA_1 = 70290323; (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_EXQUOTA_2 = 70290331; NSA$_EXQUOTA_3 = 70290339; (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_NETMBX_1 = 70290403; NSA$_NETMBX_2 = 70290411; NSA$_NETMBX_3 = 70290419; NSA$_VOLPRO_1 = 70290483; NSA$_VOLPRO_2 = 70290491; NSA$_VOLPRO_3 = 70290499; (* UNDOCUMENTED *) NSA$_VOLPRO_4 = 70290507; NSA$_VOLPRO_5 = 70290515; NSA$_VOLPRO_6 = 70290523; NSA$_VOLPRO_7 = 70290531; NSA$_VOLPRO_8 = 70290539; NSA$_VOLPRO_9 = 70290547; NSA$_VOLPRO_10 = 70290555; NSA$_VOLPRO_11 = 70290563; NSA$_VOLPRO_12 = 70290571; NSA$_VOLPRO_13 = 70290579; NSA$_VOLPRO_14 = 70290587; NSA$_VOLPRO_15 = 70290595; NSA$_PHY_IO_1 = 70290643; NSA$_PHY_IO_2 = 70290651; NSA$_PHY_IO_3 = 70290659; NSA$_PHY_IO_4 = 70290667; NSA$_PHY_IO_5 = 70290675; NSA$_PHY_IO_6 = 70290683; NSA$_PHY_IO_7 = 70290691; NSA$_PHY_IO_8 = 70290699; NSA$_PHY_IO_9 = 70290707; NSA$_PHY_IO_10 = 70290715; NSA$_PHY_IO_11 = 70290723; NSA$_PHY_IO_12 = 70290731; NSA$_PHY_IO_13 = 70290739; (* UNDOCUMENTED *) NSA$_PHY_IO_14 = 70290747; NSA$_PHY_IO_15 = 70290755; NSA$_BUGCHK_1 = 70290883; NSA$_BUGCHK_2 = 70290891; NSA$_PRMGBL_1 = 70290963; NSA$_PRMGBL_2 = 70290971; NSA$_SYSGBL_1 = 70291043; NSA$_SYSGBL_2 = 70291051; NSA$_PFNMAP_1 = 70291123; NSA$_PFNMAP_2 = 70291131; NSA$_PFNMAP_3 = 70291139; NSA$_SHMEM_1 = 70291203; NSA$_SHMEM_2 = 70291211; NSA$_SHMEM_3 = 70291219; NSA$_SHMEM_4 = 70291227; NSA$_SHMEM_5 = 70291235; NSA$_SYSPRV_1 = 70291283; NSA$_SYSPRV_2 = 70291291; NSA$_SYSPRV_3 = 70291299; NSA$_SYSPRV_4 = 70291307; NSA$_SYSPRV_5 = 70291315; NSA$_SYSPRV_6 = 70291323; (* UNDOCUMENTED *) NSA$_SYSPRV_7 = 70291331; NSA$_SYSPRV_8 = 70291339; NSA$_SYSPRV_9 = 70291347; NSA$_SYSPRV_10 = 70291355; NSA$_SYSPRV_11 = 70291363; NSA$_SYSPRV_12 = 70291371; NSA$_SYSPRV_13 = 70291379; NSA$_SYSPRV_14 = 70291387; (* RESERVED *) NSA$_SYSPRV_15 = 70291395; NSA$_SYSPRV_16 = 70291403; NSA$_SYSPRV_17 = 70291411; NSA$_SYSPRV_18 = 70291419; NSA$_SYSPRV_19 = 70291427; NSA$_SYSPRV_20 = 70291435; NSA$_SYSPRV_21 = 70291443; NSA$_SYSPRV_22 = 70291451; NSA$_SYSPRV_23 = 70291459; NSA$_SYSPRV_24 = 70291467; NSA$_SYSPRV_25 = 70291475; NSA$_SYSPRV_26 = 70291483; NSA$_SYSPRV_27 = 70291491; NSA$_SYSPRV_28 = 70291499; NSA$_SYSPRV_29 = 70291507; NSA$_SYSPRV_30 = 70291515; NSA$_SYSPRV_31 = 70291523; NSA$_SYSPRV_32 = 70291531; NSA$_SYSPRV_33 = 70291539; NSA$_SYSPRV_34 = 70291547; NSA$_SYSPRV_35 = 70291555; NSA$_SYSPRV_36 = 70291563; NSA$_SYSPRV_37 = 70291571; NSA$_SYSPRV_38 = 70291579; NSA$_SYSPRV_39 = 70291587; NSA$_SYSPRV_40 = 70291595; (* THE ABOVE LIST IS FULL. USE THE OVERFLOW REGION AT THE END OF THE MODULE. *) NSA$_BYPASS_1 = 70291603; NSA$_BYPASS_2 = 70291611; NSA$_BYPASS_3 = 70291619; NSA$_BYPASS_4 = 70291627; NSA$_BYPASS_5 = 70291635; NSA$_BYPASS_6 = 70291643; NSA$_BYPASS_7 = 70291651; NSA$_BYPASS_8 = 70291659; NSA$_BYPASS_9 = 70291667; NSA$_BYPASS_10 = 70291675; NSA$_BYPASS_11 = 70291683; NSA$_BYPASS_12 = 70291691; NSA$_BYPASS_13 = 70291699; NSA$_BYPASS_14 = 70291707; NSA$_BYPASS_15 = 70291715; (* RESERVED *) NSA$_BYPASS_16 = 70291723; (* RESERVED *) NSA$_BYPASS_17 = 70291731; NSA$_BYPASS_18 = 70291739; NSA$_BYPASS_19 = 70291747; NSA$_BYPASS_20 = 70291755; NSA$_BYPASS_21 = 70291763; NSA$_BYPASS_22 = 70291771; NSA$_BYPASS_23 = 70291779; NSA$_BYPASS_24 = 70291787; NSA$_BYPASS_25 = 70291795; NSA$_BYPASS_26 = 70291803; NSA$_BYPASS_27 = 70291811; NSA$_BYPASS_28 = 70291819; NSA$_BYPASS_29 = 70291827; NSA$_BYPASS_30 = 70291835; NSA$_SYSLCK_1 = 70291923; NSA$_SYSLCK_2 = 70291931; NSA$_SHARE_1 = 70292003; NSA$_GRPPRV_1 = 70292083; NSA$_GRPPRV_2 = 70292091; NSA$_GRPPRV_3 = 70292099; NSA$_GRPPRV_4 = 70292107; (* RESERVED *) NSA$_GRPPRV_5 = 70292115; NSA$_GRPPRV_6 = 70292123; NSA$_GRPPRV_7 = 70292131; NSA$_GRPPRV_8 = 70292139; NSA$_GRPPRV_9 = 70292147; NSA$_GRPPRV_10 = 70292155; NSA$_GRPPRV_11 = 70292163; NSA$_GRPPRV_12 = 70292171; NSA$_GRPPRV_13 = 70292179; NSA$_GRPPRV_14 = 70292187; NSA$_GRPPRV_15 = 70292195; NSA$_GRPPRV_16 = 70292203; NSA$_GRPPRV_17 = 70292211; NSA$_GRPPRV_18 = 70292219; NSA$_READALL_1 = 70292243; NSA$_READALL_2 = 70292251; NSA$_READALL_3 = 70292259; (* RESERVED *) NSA$_SECURITY_1 = 70292483; NSA$_SECURITY_2 = 70292491; NSA$_SECURITY_3 = 70292499; NSA$_SECURITY_4 = 70292507; NSA$_SECURITY_5 = 70292515; NSA$_SECURITY_6 = 70292523; NSA$_SECURITY_7 = 70292531; NSA$_SECURITY_8 = 70292539; NSA$_SECURITY_9 = 70292547; NSA$_SECURITY_10 = 70292555; NSA$_SECURITY_11 = 70292563; NSA$_SECURITY_12 = 70292571; NSA$_SECURITY_13 = 70292579; NSA$_SECURITY_14 = 70292587; NSA$_SECURITY_15 = 70292595; NSA$_SECURITY_16 = 70292603; NSA$_SECURITY_17 = 70292611; NSA$_SECURITY_18 = 70292619; NSA$_SECURITY_19 = 70292627; NSA$_SECURITY_20 = 70292635; NSA$_SECURITY_21 = 70292643; NSA$_SECURITY_22 = 70292651; NSA$_SECURITY_23 = 70292659; NSA$_SECURITY_24 = 70292667; NSA$_SECURITY_25 = 70292675; (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_SECURITY_26 = 70292683; NSA$_SECURITY_27 = 70292691; NSA$_SECURITY_28 = 70292699; NSA$_SECURITY_29 = 70292707; NSA$_SECURITY_30 = 70292715; (* THE ABOVE LIST IS FULL. CONTINUES AT BASE 3180 *) (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_UPGRADE_1 = 70292723; NSA$_UPGRADE_2 = 70292731; (* RESERVED *) NSA$_DOWNGRADE_1 = 70292803; NSA$_DOWNGRADE_2 = 70292811; (* RESERVED *) NSA$_SETPRV_1 = 70292883; (* UNDOCUMENTED *) NSA$_SETPRV_2 = 70292891; NSA$_SETPRV_3 = 70292899; NSA$_SETPRV_4 = 70292907; NSA$_SETPRV_5 = 70292915; NSA$_SETPRV_6 = 70292923; NSA$_AUDIT_1 = 70292963; NSA$_AUDIT_2 = 70292971; NSA$_AUDIT_3 = 70292979; (* *) (* THE RANGE FROM 1900 TO 2000 IS USED FOR IMPLIED SYSPRV FROM UIC GROUP BEING *) (* LESS THAN OR EQUAL TO MAXSYSGRP. *) (* *) CONST NSA$_IMP_SYSPRV_1 = 70302563; NSA$_IMP_SYSPRV_2 = 70302571; NSA$_IMP_SYSPRV_3 = 70302579; NSA$_IMP_SYSPRV_4 = 70302587; NSA$_IMP_SYSPRV_5 = 70302595; NSA$_IMP_SYSPRV_6 = 70302603; NSA$_IMP_SYSPRV_7 = 70302611; NSA$_IMP_SYSPRV_8 = 70302619; NSA$_IMP_SYSPRV_9 = 70302627; NSA$_IMP_SYSPRV_10 = 70302635; NSA$_IMP_SYSPRV_11 = 70302643; NSA$_IMP_SYSPRV_12 = 70302651; NSA$_IMP_SYSPRV_13 = 70302659; NSA$_IMP_SYSPRV_14 = 70302667; NSA$_IMP_SYSPRV_15 = 70302675; NSA$_IMP_SYSPRV_16 = 70302683; NSA$_IMP_SYSPRV_17 = 70302691; (* *) (* THE RANGE FROM 2000-2047 IS RESERVED FOR EVENTS WHICH ARE GOVERNED BY *) (* MULTIPLE PRIVILEGES. THIS KIND OF THING IS SERIOUSLY FROWNED UPON AND SO *) (* WE'LL ONLY RESERVE A MEASLY 48 MESSAGES CODES FOR THEM. *) (* *) CONST NSA$_COMB_1 = 70303363; NSA$_COMB_2 = 70303371; NSA$_COMB_3 = 70303379; NSA$_COMB_4 = 70303387; (* UNDOCUMENTED *) NSA$_COMB_5 = 70303395; NSA$_COMB_6 = 70303403; NSA$_COMB_7 = 70303411; NSA$_COMB_8 = 70303419; NSA$_COMB_9 = 70303427; NSA$_COMB_10 = 70303435; NSA$_COMB_11 = 70303443; NSA$_COMB_12 = 70303451; NSA$_COMB_13 = 70303459; NSA$_COMB_14 = 70303467; NSA$_COMB_15 = 70303475; NSA$_COMB_16 = 70303483; NSA$_COMB_17 = 70303491; NSA$_COMB_18 = 70303499; (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_COMB_19 = 70303507; (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_COMB_20 = 70303515; (* *) (* THE RANGE OF MESSAGE CODES FROM 2048-4095 ARE RESERVED TO PORTIONS OF THE TCB *) (* WHICH NEED TO ASSOCIATE ONE LINE OF TEXT WITH THEIR AUDIT MESSAGE. *) (* *) (* *) (* FILE AND VOLUME AUDIT MESSAGES (F11BXQP). *) (* *) CONST NSA$_XQP_1 = 70303747; NSA$_XQP_2 = 70303755; NSA$_XQP_3 = 70303763; NSA$_XQP_4 = 70303771; NSA$_XQP_5 = 70303779; NSA$_XQP_6 = 70303787; NSA$_XQP_7 = 70303795; NSA$_XQP_8 = 70303803; NSA$_XQP_9 = 70303811; NSA$_XQP_10 = 70303819; NSA$_XQP_11 = 70303827; NSA$_XQP_12 = 70303835; NSA$_XQP_13 = 70303843; NSA$_XQP_14 = 70303851; NSA$_XQP_15 = 70303859; NSA$_XQP_16 = 70303867; NSA$_XQP_17 = 70303875; NSA$_XQP_18 = 70303883; NSA$_XQP_19 = 70303891; NSA$_XQP_20 = 70303899; NSA$_XQP_21 = 70303907; NSA$_XQP_22 = 70303915; NSA$_XQP_23 = 70303923; (* *) (* MESSAGE TO DIFFERENTIATE VARIOUS TCB OPERATIONS. *) (* *) CONST NSA$_ALLOCATE = 70311939; NSA$_ASSIGN = 70311947; NSA$_SETSECURITY = 70311955; NSA$_SHOSECURITY = 70311963; NSA$_GSDACCESS = 70311971; NSA$_KFEACCESS = 70311979; NSA$_MACBYPASSED = 70311987; (* *) (* PRIVILEGE AUDIT OVERFLOW. *) (* *) CONST NSA$_SYSPRV_41 = 70312163; NSA$_SYSPRV_42 = 70312171; NSA$_SYSPRV_43 = 70312179; NSA$_SYSPRV_44 = 70312187; NSA$_SYSPRV_45 = 70312195; NSA$_SYSPRV_46 = 70312203; NSA$_SYSPRV_47 = 70312211; NSA$_SYSPRV_48 = 70312219; NSA$_SYSPRV_49 = 70312227; NSA$_SYSPRV_50 = 70312235; NSA$_SYSPRV_51 = 70312243; NSA$_SYSPRV_52 = 70312251; (* *) (* IMPERSONATION AUDIT OVERFLOW *) (* *) CONST NSA$_IMPERSONATE_11 = 70312483; NSA$_IMPERSONATE_12 = 70312491; (* *) (* SECURITY AUDIT OVERFLOW *) (* *) (* *) (* START OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) CONST NSA$_SECURITY_31 = 70312803; NSA$_SECURITY_32 = 70312811; NSA$_SECURITY_33 = 70312819; NSA$_SECURITY_34 = 70312827; NSA$_SECURITY_35 = 70312835; NSA$_SECURITY_36 = 70312843; NSA$_SECURITY_37 = 70312851; NSA$_SECURITY_38 = 70312859; NSA$_SECURITY_39 = 70312867; (* *) (* END OF A SET OF AUDITS ISSUED ONLY ON ALPHA *) (* *) (* END. *) (* MODULE OBJFMT ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OBJRECDEF ***) CONST OBJ$M_PSC_PIC = 1; OBJ$M_PSC_LIB = 2; OBJ$M_PSC_OVL = 4; OBJ$M_PSC_REL = 8; OBJ$M_PSC_GBL = 16; OBJ$M_PSC_SHR = 32; OBJ$M_PSC_EXE = 64; OBJ$M_PSC_RD = 128; OBJ$M_PSC_WRT = 256; OBJ$M_SYM_WEAK = 1; OBJ$M_SYM_DEF = 2; OBJ$M_SYM_UNI = 4; OBJ$M_SYM_REL = 8; OBJ$M_SYMV_WEAK = 1; OBJ$M_SYMV_DEF = 2; OBJ$M_SYMV_UNI = 4; OBJ$M_SYMV_REL = 8; OBJ$M_SYMM_WEAK = 1; OBJ$M_SYMM_DEF = 2; OBJ$M_SYMM_UNI = 4; OBJ$M_SYMM_REL = 8; TYPE SDAS$TYPE = RECORD CASE INTEGER OF 1: (OBJ$R_TYPE_OVERLAY : [BYTE(1)] RECORD END; OBJ$R_RECORDS_OVERLAY : [BYTE(15)] RECORD END; ); 2: (OBJ$B_TYPE : [POS(0)] $UBYTE; (* Type of record *) ); 3: (OBJ$B_GSD_TYPE : [POS(0)] $UBYTE; (* Type of GSD record *) OBJ$B_PSC_ALI : [POS(8)] $UBYTE; (* PSECT alignment (2**n) *) OBJ$L_PSC_LEN : [POS(32)] UNSIGNED; (* Length of PSECT *) OBJ$T_PSC_NAME : [POS(64)] CHAR; (* PSECT name (counted string) *) ); 4: (OBJ$W_PSC_FLAG : [POS(16)] $UWORD; (* PSECT flags: *) ); 5: (); 6: (OBJ$V_PSC_PIC : [POS(16)] $BOOL; (* Position independent *) OBJ$V_PSC_LIB : [POS(17)] $BOOL; (* Defined from sharable image *) OBJ$V_PSC_OVL : [POS(18)] $BOOL; (* Overlaid psect *) OBJ$V_PSC_REL : [POS(19)] $BOOL; (* Requires relocation *) OBJ$V_PSC_GBL : [POS(20)] $BOOL; (* PSECT is global *) OBJ$V_PSC_SHR : [POS(21)] $BOOL; (* Potentially sharable *) OBJ$V_PSC_EXE : [POS(22)] $BOOL; (* Executable *) OBJ$V_PSC_RD : [POS(23)] $BOOL; (* Can be read *) OBJ$V_PSC_WRT : [POS(24)] $BOOL; (* Can be written *) ); 7: (); 8: (OBJ$B_SYM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$B_SYM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_SYM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$T_SYM_NAME : [POS(72)] CHAR; (* Symbol name (counted string) *) ); 9: (OBJ$W_SYM_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 10: (); 11: (OBJ$V_SYM_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *) OBJ$V_SYM_DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *) OBJ$V_SYM_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *) OBJ$V_SYM_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 12: (); 13: (OBJ$B_EPM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$W_EPM_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *) OBJ$B_EPM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_EPM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$W_EPM_MASK : [POS(72)] $UWORD; (* Entry mask *) OBJ$T_EPM_NAME : [POS(88)] CHAR; (* Symbol name (counted string) *) ); 14: (); 15: (OBJ$B_SYMV_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$B_SYMV_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_SYMV_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$L_SYMV_VECTOR : [POS(72)] UNSIGNED; (* Vectored value of symbol (only if def) *) OBJ$T_SYMV_NAME : [POS(104)] CHAR; (* Symbol name (counted string) *) ); 16: (OBJ$W_SYMV_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 17: (); 18: (OBJ$V_SYMV_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *) OBJ$V_SYMV_DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *) OBJ$V_SYMV_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *) OBJ$V_SYMV_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 19: (); 20: (OBJ$B_EPMV_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$W_EPMV_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *) OBJ$B_EPMV_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_EPMV_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$L_EPMV_VECTOR : [POS(72)] UNSIGNED; (* Vectored value of symbol (only if def) *) OBJ$W_EPMV_MASK : [POS(104)] $UWORD; (* Entry mask *) OBJ$T_EPMV_NAME : [POS(120)] CHAR; (* Symbol name (counted string) *) ); 21: (); 22: (OBJ$B_SYMM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$B_SYMM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_SYMM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$L_SYMM_VERSION_MASK : [POS(72)] UNSIGNED; (* Version mask of symbol (only if def) *) OBJ$T_SYMM_NAME : [POS(104)] CHAR; (* Symbol name (counted string) *) ); 23: (OBJ$W_SYMM_FLAGS : [POS(16)] $UWORD; (* Symbol flags: *) ); 24: (); 25: (OBJ$V_SYMM_WEAK : [POS(16)] $BOOL; (* Weak resolution (0 = strong) *) OBJ$V_SYMM_DEF : [POS(17)] $BOOL; (* Definition (0 = reference) *) OBJ$V_SYMM_UNI : [POS(18)] $BOOL; (* Universal definition (0 = local) *) OBJ$V_SYMM_REL : [POS(19)] $BOOL; (* Relative symbol (0 = absolute) *) ); 26: (); 27: (OBJ$B_EPMM_DTYPE : [POS(8)] $UBYTE; (* Data type (see Arch. Handbook, Ap. C) *) OBJ$W_EPMM_FLAGS : [POS(16)] $UWORD; (* Flags (same as SYM_FLAGS) *) OBJ$B_EPMM_PSIND : [POS(32)] $UBYTE; (* PSECT index (only if def) *) OBJ$L_EPMM_VALUE : [POS(40)] UNSIGNED; (* Value of symbol (only if def) *) OBJ$L_EPMM_VERSION_MASK : [POS(72)] UNSIGNED; (* Version mask of symbol (only if def) *) OBJ$W_EPMM_MASK : [POS(104)] $UWORD; (* Entry mask *) OBJ$T_EPMM_NAME : [POS(120)] CHAR; (* Symbol name (counted string) *) ); 28: (); 29: (OBJ$B_EOM_SEV : [POS(8)] $UBYTE; (* Error severity for module *) OBJ$B_EOM_PSIND : [POS(16)] $UBYTE; (* PSECT index of transfer address *) OBJ$L_EOM_TRANS : [POS(24)] UNSIGNED; (* Transfer address *) ) END; CONST OBJ$C_HDR = 0; (*Module header record *) OBJ$C_HDR_MHD = 0; (* Main header record *) OBJ$C_HDR_LNM = 1; (* Language processor record *) OBJ$C_HDR_SRC = 2; (* Source files description *) OBJ$C_HDR_TTL = 3; (* Title text *) OBJ$C_HDR_CPR = 4; (* Copyright text *) OBJ$C_HDR_MTC = 5; (* Maintenance text *) OBJ$C_HDR_GTX = 6; (* General text *) OBJ$C_GSD = 1; (*Global symbol definition record *) OBJ$C_GSD_PSC = 0; (* P-sect definition *) OBJ$C_GSD_SYM = 1; (* Symbol (simple) definition *) OBJ$C_GSD_EPM = 2; (* Entry point definition *) OBJ$C_GSD_PRO = 3; (* Procedure definition *) OBJ$C_GSD_SYMW = 4; (* Symbol definition with word psect *) OBJ$C_GSD_EPMW = 5; (* Entry point definition with word psect *) OBJ$C_GSD_PROW = 6; (* Procedure definition with word psect *) OBJ$C_GSD_IDC = 7; (* Random entity check *) OBJ$C_GSD_ENV = 8; (* Environment definition *) OBJ$C_GSD_LSY = 9; (* Local symbol definition/reference *) OBJ$C_GSD_LEPM = 10; (* Local symbol entry point def. *) OBJ$C_GSD_LPRO = 11; (* Local symbol procedure def. *) OBJ$C_GSD_SPSC = 12; (* Shareable image psect definition *) OBJ$C_GSD_SYMV = 13; (* Global symbol definition (vectored) *) OBJ$C_GSD_EPMV = 14; (* Entry point definition (vectored) *) OBJ$C_GSD_PROV = 15; (* Procedure definition (vectored) *) OBJ$C_GSD_SYMM = 16; (* Global symbol definition (special double valued) *) OBJ$C_GSD_EPMM = 17; (* Entry point definition (special double valued) *) OBJ$C_GSD_PROM = 18; (* Procedure definition (special double valued) *) OBJ$C_TIR = 2; (*Text information record *) OBJ$C_EOM = 3; (*End of module record *) OBJ$C_DBG = 4; (*Debugger information record *) OBJ$C_TBT = 5; (*Traceback information record *) OBJ$C_LNK = 6; (*Linker options record *) OBJ$C_EOMW = 7; (*End of module record with word psect *) OBJ$C_MAXRECTYP = 7; (*Last assigned record type *) OBJ$K_SUBTYP = 1; OBJ$C_SUBTYP = 1; OBJ$C_MAXRECSIZ = 2048; (*Maximum legal record size *) OBJ$C_STRLVL = 0; (*Structure level *) OBJ$C_SYMSIZ = 31; (*Maximum symbol length *) OBJ$C_STOREPLIM = -1; (*Maximum repeat count on store commands *) OBJ$C_PSCALILIM = 9; (*Maximum p-sect alignment *) TYPE OBJREC$TYPE = RECORD CASE INTEGER OF 1: (OBJ$B_RECTYP : $UBYTE; (*First byte always record type *) (*Permissable record types *) OBJ$B_SUBTYP : $UBYTE; (*Record sub-type byte *) OBJ$B_MHD_STRLV : $UBYTE; (*Structure level *) OBJ$R_MHD_RECSZ_OVERLAY : [BYTE(2)] RECORD END; ); 2: (OBJ$W_MHD_RECSZ : [POS(24)] $UWORD; (*Maximum record size *) ); 3: (); 4: (OBJ$T_MHD_NAME : [POS(40)] RECORD END ; (*Module name field *) (*Misc. constants *) ) END; (*** MODULE $MHDEF ***) (* *) (* Module header record (MHD) *) (* *) CONST MHD$C_MHD = 0; (*Main header record *) MHD$C_LNM = 1; (*Language name and version *) MHD$C_SRC = 2; (*Source file specification *) MHD$C_TTL = 3; (*Title text of module *) MHD$C_CPR = 4; (*Copyright notice *) MHD$C_MTC = 5; (*Maintenence status *) MHD$C_GTX = 6; (*General text *) MHD$C_MAXHDRTYP = 6; (*Maximum allowable type *) TYPE MH$TYPE = RECORD MHD$B_RECTYP : $UBYTE; (*Record type (OBJ$C_MHD) *) MHD$B_HDRTYP : $UBYTE; (*Type field for MHD *) (*Types of header records *) MHD$B_STRLVL : $UBYTE; (*Structure level *) MHD$W_RECSIZ : $UWORD; (*Maximum record size *) MHD$B_NAMLNG : $UBYTE; (*Module name length *) MHD$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Module name *) END; (*** MODULE $EOMDEF ***) (* *) (* End of module record (EOM) *) (* *) CONST EOM$C_SUCCESS = 0; (*Successful (no errors) *) EOM$C_WARNING = 1; (*Warnings issued *) EOM$C_ERROR = 2; (*Errors detected *) EOM$C_ABORT = 3; (*Abort the link *) EOM$K_EOMMIN = 2; (*Min length of EOM record *) EOM$C_EOMMIN = 2; (*Min length of EOM record *) EOM$K_EOMMX1 = 7; (*Length of EOM record w/o transfer flags *) EOM$C_EOMMX1 = 7; (*Length of EOM record w/o transfer flags *) EOM$K_EOMMAX = 8; (*Maximum length of EOM record *) EOM$C_EOMMAX = 8; (*Maximum length of EOM record *) EOM$M_WKTFR = 1; TYPE EOM$TYPE = RECORD CASE INTEGER OF 1: (EOM$B_RECTYP : $UBYTE; (*Record type (OBJ$C_EOM) *) EOM$B_COMCOD : $UBYTE; (*Compiler completion code *) (*Values *) EOM$B_PSINDX : $UBYTE; (*P-sect of transfer address *) EOM$L_TFRADR : UNSIGNED; (*Transfer address *) EOM$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END; ); 2: (EOM$B_TFRFLG : [POS(56)] $UBYTE; (*Transfer address flags *) ); 3: (); 4: (EOM$V_WKTFR : [POS(56)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $EOMWDEF ***) (* *) (* End of module record with word of psect (EOMW) *) (* *) CONST EOMW$K_EOMMIN = 2; (*Min length of EOM record *) EOMW$C_EOMMIN = 2; (*Min length of EOM record *) EOMW$K_EOMMX1 = 8; (*Length of EOMW record w/o transfer flags *) EOMW$C_EOMMX1 = 8; (*Length of EOMW record w/o transfer flags *) EOMW$K_EOMMAX = 9; (*Maximum length of EOMW record *) EOMW$C_EOMMAX = 9; (*Maximum length of EOMW record *) EOMW$M_WKTFR = 1; TYPE EOMW$TYPE = RECORD CASE INTEGER OF 1: (EOMW$B_RECTYP : $UBYTE; (*Record type (OBJ$C_EOM) *) EOMW$B_COMCOD : $UBYTE; (*Compiler completion code *) EOMW$W_PSINDX : $UWORD; (*P-sect of transfer address *) EOMW$L_TFRADR : UNSIGNED; (*Transfer address *) EOMW$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END; ); 2: (EOMW$B_TFRFLG : [POS(64)] $UBYTE; (*Transfer address flags *) ); 3: (); 4: (EOMW$V_WKTFR : [POS(64)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $LNKDEF ***) (* *) (* Linker Options Record (LNK) *) (* *) CONST LNK$C_OLB = 0; (* object library spec *) LNK$C_SHR = 1; (* shareable image library spec *) LNK$C_OLI = 2; (* object library with inclusion list *) LNK$C_OBJ = 3; (* object file or symbol table file *) LNK$C_SHA = 4; (* individually specified shr img *) LNK$C_MAXRECTYP = 4; (* highest current record type *) LNK$M_SELSER = 1; LNK$M_LIBSRCH = 2; TYPE LNK$TYPE = RECORD CASE INTEGER OF 1: (LNK$B_RECTYP : $UBYTE; (* record type LNK *) LNK$B_LNKTYP : $UBYTE; (* sub record type *) LNK$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; LNK$R_NAMLNG_OVERLAY : [BYTE(2)] RECORD END; ); 2: (LNK$W_FLAGS : [POS(16)] $UWORD; LNK$W_NAMLNG : [POS(32)] $UWORD; (* length of filespec name *) ); 3: (); 4: (LNK$V_SELSER : [POS(16)] $BOOL; (* selectively searched (LNK$C_OBJ) *) LNK$V_LIBSRCH : [POS(17)] $BOOL; LNK$T_NAME : [POS(48)] RECORD END ; (* actual name *) ) END; (*** MODULE $GSDEF ***) (* *) (* Global symbol definition record (GSD) *) (* *) CONST GSD$K_ENTRIES = 1; (*Offset to first entry in record *) GSD$C_ENTRIES = 1; (*Offset to first entry in record *) GSD$C_PSC = 0; (*Psect definition *) GSD$C_SYM = 1; (*Symbol specification *) GSD$C_EPM = 2; (*Entry point and mask definition *) GSD$C_PRO = 3; (*Procedure with formal arguments *) GSD$C_SYMW = 4; (*Symbol specification with word psect *) GSD$C_EPMW = 5; (*Entry point mask with word psect *) GSD$C_PROW = 6; (*Procedure with word psect *) GSD$C_IDC = 7; (*Random entity check *) GSD$C_ENV = 8; (*Define environment *) GSD$C_LSY = 9; (*Local symbol *) GSD$C_LEPM = 10; (*Local symbol entry point definition *) GSD$C_LPRO = 11; (*Local symbol procedure definition *) GSD$C_SPSC = 12; (*Shareable image psect definition *) (* *) CONST GSD$C_VECTOR_TYPE_INCREMENT = 12; GSD$C_SYMV = 13; (*Vectored (dual-valued) versions of SYM, *) GSD$C_EPMV = 14; (* EPM, *) GSD$C_PROV = 15; (* PRO *) (* *) CONST GSD$C_MASK_TYPE_INCREMENT = 15; GSD$C_SYMM = 16; (*Masked versions of SYM, *) GSD$C_EPMM = 17; (* EPM, *) GSD$C_PROM = 18; (* PRO *) GSD$C_MAXRECTYP = 18; (*Maximum entry type defined *) TYPE GS$TYPE = RECORD GSD$B_RECTYP : $UBYTE; (*Record type (OBJ$C_GSD) *) GSD$B_GSDTYP : $UBYTE; (*Type of entry (first byte of entry) *) (* Vectored symbol types are (regular + 12). For example, SYMV = SYM + 12. *) (* *) (* Mask symbol types are (regular + 15). For example, SYMM = SYM + 15. *) (* *) END; (*** MODULE $GPSDEF ***) (* *) (* GSD entry - P-section definition *) (* *) CONST GPS$M_PIC = 1; GPS$M_LIB = 2; GPS$M_OVR = 4; GPS$M_REL = 8; GPS$M_GBL = 16; GPS$M_SHR = 32; GPS$M_EXE = 64; GPS$M_RD = 128; GPS$M_WRT = 256; GPS$M_VEC = 512; GPS$M_NOMOD = 1024; GPS$M_COM = 2048; GPS$K_NAME = 9; GPS$C_NAME = 9; TYPE GPS$TYPE = RECORD CASE INTEGER OF 1: (GPS$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; GPS$B_ALIGN : $UBYTE; (*P-sect alignment *) GPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; GPS$L_ALLOC : UNSIGNED; (*Length of this contribution *) GPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *) GPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (GPS$B_GSDTYP : [POS(0)] $UBYTE; (*Typ field *) GPS$W_FLAGS : [POS(16)] $UWORD; (*P-sect flags *) ); 3: (); 4: (GPS$T_START : [POS(0)] RECORD END ; GPS$V_PIC : [POS(16)] $BOOL; (*Position independent *) GPS$V_LIB : [POS(17)] $BOOL; (*From a shareable image *) GPS$V_OVR : [POS(18)] $BOOL; (*Overlaid memory allocation *) GPS$V_REL : [POS(19)] $BOOL; (*Relocatable *) GPS$V_GBL : [POS(20)] $BOOL; (*Global scope *) GPS$V_SHR : [POS(21)] $BOOL; (*Shareable *) GPS$V_EXE : [POS(22)] $BOOL; (*Executable *) GPS$V_RD : [POS(23)] $BOOL; (*Readable *) GPS$V_WRT : [POS(24)] $BOOL; (*Writeable *) GPS$V_VEC : [POS(25)] $BOOL; (*Vector psect *) GPS$V_NOMOD : [POS(26)] $BOOL; (*Not stored into *) GPS$V_COM : [POS(27)] $BOOL; (*Associated with COMM sym *) ) END; (*** MODULE $SGPSDEF ***) (* *) (* GSD entry - P-section definition in shareable image *) (* *) CONST SGPS$M_PIC = 1; SGPS$M_LIB = 2; SGPS$M_OVR = 4; SGPS$M_REL = 8; SGPS$M_GBL = 16; SGPS$M_SHR = 32; SGPS$M_EXE = 64; SGPS$M_RD = 128; SGPS$M_WRT = 256; SGPS$M_VEC = 512; SGPS$M_NOMOD = 1024; SGPS$M_COM = 2048; SGPS$K_NAME = 13; SGPS$C_NAME = 13; TYPE SGPS$TYPE = RECORD CASE INTEGER OF 1: (SGPS$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SGPS$B_ALIGN : $UBYTE; (*P-sect alignment *) SGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; SGPS$L_ALLOC : UNSIGNED; (*Length of this psect in shr image *) SGPS$L_BASE : UNSIGNED; (*Base of this psect in shr image *) SGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *) SGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (SGPS$B_GSDTYP : [POS(0)] $UBYTE; (*Typ field *) SGPS$W_FLAGS : [POS(16)] $UWORD; (*P-sect flags *) ); 3: (); 4: (SGPS$T_START : [POS(0)] RECORD END ; SGPS$V_PIC : [POS(16)] $BOOL; (*Position independent *) SGPS$V_LIB : [POS(17)] $BOOL; (*From a shareable image *) SGPS$V_OVR : [POS(18)] $BOOL; (*Overlaid memory allocation *) SGPS$V_REL : [POS(19)] $BOOL; (*Relocatable *) SGPS$V_GBL : [POS(20)] $BOOL; (*Global scope *) SGPS$V_SHR : [POS(21)] $BOOL; (*Shareable *) SGPS$V_EXE : [POS(22)] $BOOL; (*Executable *) SGPS$V_RD : [POS(23)] $BOOL; (*Readable *) SGPS$V_WRT : [POS(24)] $BOOL; (*Writeable *) SGPS$V_VEC : [POS(25)] $BOOL; (*Vector psect *) SGPS$V_NOMOD : [POS(26)] $BOOL; (*Not stored into *) SGPS$V_COM : [POS(27)] $BOOL; (*Associated with COMM sym *) ) END; (*** MODULE $GSYDEF ***) (* *) (* GSD entry - Symbol definition *) (* *) (* common to definitions, references, and entry *) (* point definitions. *) (* *) CONST GSY$M_WEAK = 1; GSY$M_DEF = 2; GSY$M_UNI = 4; GSY$M_REL = 8; GSY$M_COMM = 16; TYPE GSY$TYPE = RECORD CASE INTEGER OF 1: (GSY$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; GSY$B_DATYP : $UBYTE; (*Symbol data type *) GSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ); 2: (GSY$B_GSDTYP : [POS(0)] $UBYTE; (*Type field *) GSY$W_FLAGS : [POS(16)] $UWORD; (*Symbol flags *) ); 3: (); 4: (GSY$T_START : [POS(0)] RECORD END ; GSY$V_WEAK : [POS(16)] $BOOL; (*Weak symbol *) GSY$V_DEF : [POS(17)] $BOOL; (*Definition *) GSY$V_UNI : [POS(18)] $BOOL; (*Universal *) GSY$V_REL : [POS(19)] $BOOL; (*Relocatable *) GSY$V_COMM : [POS(20)] $BOOL; (*C common globaldef *) ) END; (*** MODULE $SRFDEF ***) (* *) (* Symbol reference (SYM$M_DEF in GSY$W_FLAGS is 0) *) (* *) CONST SRF$K_NAME = 5; SRF$C_NAME = 5; TYPE SRF$TYPE = RECORD CASE INTEGER OF 1: (SRF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SRF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) SRF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) SRF$B_NAMLNG : $UBYTE; (*Length of symbol name *) SRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (SRF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (SRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFDEF ***) (* *) (* Symbol definition *) (* *) CONST SDF$K_NAME = 10; SDF$C_NAME = 10; TYPE SDF$TYPE = RECORD CASE INTEGER OF 1: (SDF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SDF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) SDF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) SDF$B_PSINDX : $UBYTE; (*Owning psect number *) SDF$L_VALUE : UNSIGNED; (*Value of symbol *) SDF$B_NAMLNG : $UBYTE; (*Length of name *) SDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (SDF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (SDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFVDEF ***) (* *) (* Symbol definition for vectored symbols *) (* *) CONST SDFV$K_NAME = 14; SDFV$C_NAME = 14; TYPE SDFV$TYPE = RECORD CASE INTEGER OF 1: (SDFV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SDFV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) SDFV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) SDFV$B_PSINDX : $UBYTE; (*Owning psect number *) SDFV$L_VALUE : UNSIGNED; (*Value of symbol *) SDFV$L_VECTOR : UNSIGNED; (*Vectored value of symbol *) SDFV$B_NAMLNG : $UBYTE; (*Length of name *) SDFV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (SDFV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (SDFV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $SDFMDEF ***) (* *) (* Symbol definition for version mask symbols *) (* *) CONST SDFM$K_NAME = 14; SDFM$C_NAME = 14; TYPE SDFM$TYPE = RECORD CASE INTEGER OF 1: (SDFM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SDFM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) SDFM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) SDFM$B_PSINDX : $UBYTE; (*Owning psect number *) SDFM$L_VALUE : UNSIGNED; (*Value of symbol *) SDFM$L_VERSION_MASK : UNSIGNED; (*Mask for symbol *) SDFM$B_NAMLNG : $UBYTE; (*Length of name *) SDFM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (SDFM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (SDFM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMDEF ***) (* *) (* GSD entry - Entry point definition, normal symbols *) (* *) CONST EPM$K_NAME = 12; EPM$C_NAME = 12; TYPE EPM$TYPE = RECORD CASE INTEGER OF 1: (EPM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; EPM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) EPM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) EPM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) EPM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) EPM$W_MASK : $UWORD; (*Entry point mask *) EPM$B_NAMLNG : $UBYTE; (*Length of name *) EPM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (EPM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (EPM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMVDEF ***) (* *) (* GSD entry - Entry point definition, vectored symbols *) (* *) CONST EPMV$K_NAME = 16; EPMV$C_NAME = 16; TYPE EPMV$TYPE = RECORD CASE INTEGER OF 1: (EPMV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; EPMV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) EPMV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) EPMV$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) EPMV$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) EPMV$L_VECTOR : UNSIGNED; (*Vectored entry point address *) EPMV$W_MASK : $UWORD; (*Entry point mask *) EPMV$B_NAMLNG : $UBYTE; (*Length of name *) EPMV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (EPMV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (EPMV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMMDEF ***) (* *) (* GSD entry - Entry point definition, version mask symbols *) (* *) CONST EPMM$K_NAME = 16; EPMM$C_NAME = 16; TYPE EPMM$TYPE = RECORD CASE INTEGER OF 1: (EPMM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; EPMM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) EPMM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) EPMM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) EPMM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) EPMM$L_VERSION_MASK : UNSIGNED; (*Mask value for symbol *) EPMM$W_MASK : $UWORD; (*Entry point mask *) EPMM$B_NAMLNG : $UBYTE; (*Length of name *) EPMM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (EPMM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (EPMM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PRODEF ***) (* *) (* GSD entry - Procedure definition, normal symbols *) (* *) CONST PRO$K_NAME = 12; PRO$C_NAME = 12; TYPE PRO$TYPE = RECORD CASE INTEGER OF 1: (PRO$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; PRO$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) PRO$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) PRO$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) PRO$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) PRO$W_MASK : $UWORD; (*Entry point mask *) PRO$B_NAMLNG : $UBYTE; (*Length of name *) PRO$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (PRO$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (PRO$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROVDEF ***) (* *) (* GSD entry - Procedure definition, vectored symbols *) (* *) CONST PROV$K_NAME = 16; PROV$C_NAME = 16; TYPE PROV$TYPE = RECORD CASE INTEGER OF 1: (PROV$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; PROV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) PROV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) PROV$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) PROV$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) PROV$L_VECTOR : UNSIGNED; (*Vectored entry point address *) PROV$W_MASK : $UWORD; (*Entry point mask *) PROV$B_NAMLNG : $UBYTE; (*Length of name *) PROV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (PROV$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (PROV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROMDEF ***) (* *) (* GSD entry - Procedure definition, version mask symbols *) (* *) CONST PROM$K_NAME = 16; PROM$C_NAME = 16; TYPE PROM$TYPE = RECORD CASE INTEGER OF 1: (PROM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; PROM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) PROM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) PROM$B_PSINDX : $UBYTE; (*Maps over SDF$B_PSINDX *) PROM$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDF$L_VALUE *) PROM$L_VERSION_MASK : UNSIGNED; (*Mask value for symbol *) PROM$W_MASK : $UWORD; (*Entry point mask *) PROM$B_NAMLNG : $UBYTE; (*Length of name *) PROM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (PROM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (PROM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $FMLDEF ***) (* *) (* Appended to a procedure definition are the formal arguments: *) (* FML$ - The fixed part of the formal arguments description *) (* *) CONST FML$K_SIZE = 2; FML$C_SIZE = 2; TYPE FML$TYPE = RECORD FML$B_MINARGS : $UBYTE; (*Minimum number of arguments *) FML$B_MAXARGS : $UBYTE; (*Maximum which include function if procedure is one *) END; (*** MODULE $ARGDEF ***) (* *) (* ARG$ - The argument descriptors *) (* *) CONST ARG$C_UNKNOWN = 0; (* Unspecified or unknown *) ARG$C_VALUE = 1; (* Passed by value *) ARG$C_REF = 2; (* Passed by reference *) ARG$C_DESC = 3; (* Passed by descriptor *) ARG$K_SIZE = 2; ARG$C_SIZE = 2; TYPE ARG$TYPE = RECORD CASE INTEGER OF 1: (ARG$R_VALCTL_OVERLAY : [BYTE(1)] RECORD END; ARG$B_BYTECNT : $UBYTE; (*Remaining byte count *) ); 2: (ARG$B_VALCTL : [POS(0)] $UBYTE; (*Validation control byte *) ); 3: (); 4: (ARG$V_PASSMECH : [POS(0)] $BIT2; (*Passing mechanism *) (* Passing mechanisms *) ) END; (*** MODULE $SDFWDEF ***) (* *) (* Symbol definition with word of psect value *) (* *) CONST SDFW$K_NAME = 11; SDFW$C_NAME = 11; TYPE SDFW$TYPE = RECORD CASE INTEGER OF 1: (SDFW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; SDFW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) SDFW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) SDFW$W_PSINDX : $UWORD; (*Owning psect number *) SDFW$L_VALUE : UNSIGNED; (*Value of symbol *) SDFW$B_NAMLNG : $UBYTE; (*Length of name *) SDFW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (SDFW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (SDFW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EPMWDEF ***) (* *) (* GSD entry - Entry point definition with word of psect value *) (* *) CONST EPMW$K_NAME = 13; EPMW$C_NAME = 13; TYPE EPMW$TYPE = RECORD CASE INTEGER OF 1: (EPMW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; EPMW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) EPMW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) EPMW$W_PSINDX : $UWORD; (*Maps over SDFW$W_PSINDX *) EPMW$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDFW$L_VALUE *) EPMW$W_MASK : $UWORD; (*Entry point mask *) EPMW$B_NAMLNG : $UBYTE; (*Length of name *) EPMW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (EPMW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (EPMW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $PROWDEF ***) (* *) (* GSD entry - Procedure definition with word of psect value *) (* *) CONST PROW$K_NAME = 13; PROW$C_NAME = 13; TYPE PROW$TYPE = RECORD CASE INTEGER OF 1: (PROW$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; PROW$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) PROW$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) PROW$W_PSINDX : $UWORD; (*Maps over SDFW$W_PSINDX *) PROW$L_ADDRS : UNSIGNED; (*Entry point address, maps over SDFW$L_VALUE *) PROW$W_MASK : $UWORD; (*Entry point mask *) PROW$B_NAMLNG : $UBYTE; (*Length of name *) PROW$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (PROW$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (PROW$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $IDCDEF ***) (* *) (* IDC - Random entity ident consistency check *) (* *) CONST IDC$C_LEQ = 0; IDC$C_EQUAL = 1; TYPE IDC$TYPE = RECORD CASE INTEGER OF 1: (IDC$B_GSDTYP : $UBYTE; (*Type field *) IDC$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; IDC$R_NAMLNG_OVERLAY : [BYTE(1)] RECORD END; ); 2: (IDC$W_FLAGS : [POS(8)] $UWORD; (*Flags *) IDC$B_NAMLNG : [POS(24)] $UBYTE; (*Length of entity name *) ); 3: (); 4: (IDC$V_BINIDENT : [POS(8)] $BOOL; (*Ident is binary longword rather than ASCIC *) IDC$V_IDMATCH : [POS(9)] $BIT2; (*Field for ident match control if binary ident *) IDC$V_ERRSEV : [POS(11)] $BIT3; (*Error severity (default is warning-0) *) (*Match control values *) IDC$T_NAME : [POS(32)] RECORD END ; (* *) (* Followed by entity name *) (* Followed by *) (* byte of ident length *) (* ident string (length = string length) *) (* or *) (* ident binary value (length = 4) *) (* Followed by byte of length of name of object *) (* Followed by the object name *) ) END; (*** MODULE $ENVDEF ***) (* *) (* ENV - Define/reference an environment *) (* *) CONST ENV$M_DEF = 1; ENV$M_NESTED = 2; TYPE ENV$TYPE = RECORD CASE INTEGER OF 1: (ENV$B_GSDTYP : $UBYTE; (*Type field *) ENV$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ENV$W_ENVINDX : $UWORD; (*Index of parent environment *) ENV$B_NAMLNG : $UBYTE; (*Length of environment name *) ENV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Environment name *) ); 2: (ENV$W_FLAGS : [POS(8)] $UWORD; (*Environment flags *) ); 3: (); 4: (ENV$V_DEF : [POS(8)] $BOOL; (*Definition of environment *) ENV$V_NESTED : [POS(9)] $BOOL; (*Nested environment if set *) ) END; (*** MODULE $LSYDEF ***) (* *) (* LSY - Module-Local symbol definition *) (* *) (* Common to definitions, references, entry points, and procedure definitions *) (* *) CONST LSY$M_WEAK = 1; LSY$M_DEF = 2; LSY$M_UNI = 4; LSY$M_REL = 8; TYPE LSY$TYPE = RECORD CASE INTEGER OF 1: (LSY$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; LSY$B_DATYP : $UBYTE; (*Symbol type *) LSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; LSY$W_ENVINDX : $UWORD; (*Environment index *) ); 2: (LSY$B_GSDTYP : [POS(0)] $UBYTE; (*Type field *) LSY$W_FLAGS : [POS(16)] $UWORD; (*Symbol flags *) ); 3: (); 4: (LSY$T_START : [POS(0)] RECORD END ; LSY$V_WEAK : [POS(16)] $BOOL; (*Weak symbol (not used) *) LSY$V_DEF : [POS(17)] $BOOL; (*Defined symbol *) LSY$V_UNI : [POS(18)] $BOOL; (*Universal (not used) *) LSY$V_REL : [POS(19)] $BOOL; (*Relocatable *) ) END; (*** MODULE $LSRFDEF ***) (* *) (* Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) *) (* *) CONST LSRF$K_NAME = 7; LSRF$C_NAME = 7; TYPE LSRF$TYPE = RECORD CASE INTEGER OF 1: (LSRF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; LSRF$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *) LSRF$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *) LSRF$W_ENVINDX : $UWORD; (*Maps over LSY$W_ENVINDX *) LSRF$B_NAMLNG : $UBYTE; (*Length of symbol name *) LSRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (LSRF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: (); 4: (LSRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LSDFDEF ***) (* *) (* Module-local Symbol definition *) (* *) CONST LSDF$K_NAME = 13; LSDF$C_NAME = 13; TYPE LSDF$TYPE = RECORD CASE INTEGER OF 1: (LSDF$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; LSDF$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *) LSDF$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *) LSDF$W_ENVINDX : $UWORD; (*Environment index symbol defined in *) LSDF$W_PSINDX : $UWORD; (*Owning psect number *) LSDF$L_VALUE : UNSIGNED; (*Value of symbol *) LSDF$B_NAMLNG : $UBYTE; (*Length of name *) LSDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (LSDF$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: (); 4: (LSDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LEPMDEF ***) (* *) (* GSD entry - Module local entry point definition *) (* *) CONST LEPM$K_NAME = 15; LEPM$C_NAME = 15; TYPE LEPM$TYPE = RECORD CASE INTEGER OF 1: (LEPM$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; LEPM$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *) LEPM$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *) LEPM$W_ENVINDX : $UWORD; (*Environment index symbol defined in *) LEPM$W_PSINDX : $UWORD; (*Maps over LSDF$W_PSINDX *) LEPM$L_ADDRS : UNSIGNED; (*Entry point address, maps *) (* over LSDF$L_VALUE *) LEPM$W_MASK : $UWORD; (*Entry point mask *) LEPM$B_NAMLNG : $UBYTE; (*Length of name *) LEPM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (LEPM$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: (); 4: (LEPM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $LPRODEF ***) (* *) (* GSD entry - Module Local Procedure definition *) (* *) CONST LPRO$K_NAME = 15; LPRO$C_NAME = 15; TYPE LPRO$TYPE = RECORD CASE INTEGER OF 1: (LPRO$R_GSDTYP_OVERLAY : [BYTE(1)] RECORD END; LPRO$B_DATYP : $UBYTE; (*Maps over LSY$B_DATYP *) LPRO$W_FLAGS : $UWORD; (*Maps over LSY$W_FLAGS *) LPRO$W_ENVINDX : $UWORD; (*Environment index symbol defined in *) LPRO$W_PSINDX : $UWORD; (*Maps over LSDF$W_PSINDX *) LPRO$L_ADDRS : UNSIGNED; (*Entry point address, maps *) (* over LSDF$L_VALUE *) LPRO$W_MASK : $UWORD; (*Entry point mask *) LPRO$B_NAMLNG : $UBYTE; (*Length of name *) LPRO$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (LPRO$B_GSDTYP : [POS(0)] $UBYTE; (*Maps over LSY$B_GSDTYP *) ); 3: (); 4: (LPRO$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $TIRDEF ***) (* *) (* Text, information and relocation record (TIR) *) (* *) CONST TIR$C_STA_GBL = 0; (*Stack global symbol value *) TIR$C_STA_SB = 1; (*Stack signed byte *) TIR$C_STA_SW = 2; (*Stack signed word *) TIR$C_STA_LW = 3; (*Stack longword *) TIR$C_STA_PB = 4; (*Stack psect base plus byte offset *) TIR$C_STA_PW = 5; (*Stack psect base plus word offset *) TIR$C_STA_PL = 6; (*Stack psect base plus longword offset *) TIR$C_STA_UB = 7; (*Stack unsigned byte *) TIR$C_STA_UW = 8; (*Stack unsigned word *) TIR$C_STA_BFI = 9; (*Stack byte from image *) TIR$C_STA_WFI = 10; (*Stack word from image *) TIR$C_STA_LFI = 11; (*Stack longword from image *) TIR$C_STA_EPM = 12; (*Stack entry point mask *) TIR$C_STA_CKARG = 13; (*Stack result of argument checking (true or false) *) TIR$C_STA_WPB = 14; (*Stack psect base plus byte offset -- word psect number *) TIR$C_STA_WPW = 15; (*Stack psect base plus word offset -- word psect number *) TIR$C_STA_WPL = 16; (*Stack psect base plus longword offset -- word of psect number *) TIR$C_STA_LSY = 17; (*Stack local symbol value *) TIR$C_STA_LIT = 18; (*Stack literal *) TIR$C_STA_LEPM = 19; (*Stack local symbol entry point mask *) TIR$C_MAXSTACOD = 19; (*Last assigned code of stack group *) TIR$C_MINSTOCOD = 20; (*First assigned store command code *) TIR$C_STO_SB = 20; (*Store signed byte *) TIR$C_STO_SW = 21; (*Store signed word *) TIR$C_STO_L = 22; (*Store longword *) TIR$C_STO_BD = 23; (*Store byte displaced *) TIR$C_STO_WD = 24; (*Store word displaced *) TIR$C_STO_LD = 25; (*Store longword displaced *) TIR$C_STO_LI = 26; (*Store short literal *) TIR$C_STO_PIDR = 27; (*Store pos. indep. data reference *) TIR$C_STO_PICR = 28; (*Store pos. indep. code reference *) TIR$C_STO_RSB = 29; (*Store repeated signed byte *) TIR$C_STO_RSW = 30; (*Store repeated signed word *) TIR$C_STO_RL = 31; (*Store repeated longword *) TIR$C_STO_VPS = 32; (*Store arbitrary field *) TIR$C_STO_USB = 33; (*Store unsigned byte *) TIR$C_STO_USW = 34; (*Store unsigned word *) TIR$C_STO_RUB = 35; (*Store repeated unsigned byte *) TIR$C_STO_RUW = 36; (*Store repeated unsigned word *) TIR$C_STO_B = 37; (*Store byte *) TIR$C_STO_W = 38; (*Store word *) TIR$C_STO_RB = 39; (*Store repeated byte *) TIR$C_STO_RW = 40; (*Store repeated word *) TIR$C_STO_RIVB = 41; (*Store repeated immediate variable bytes *) TIR$C_STO_PIRR = 42; (*Store pos. indep. relative reference *) TIR$C_MAXSTOCOD = 42; (*Last assigned store command code *) TIR$C_MINOPRCOD = 50; (*First assigned operator command code *) TIR$C_OPR_NOP = 50; (*No-op *) TIR$C_OPR_ADD = 51; (*Add *) TIR$C_OPR_SUB = 52; (*Subtract *) TIR$C_OPR_MUL = 53; (*Multiply *) TIR$C_OPR_DIV = 54; (*Divide *) TIR$C_OPR_AND = 55; (*Logical AND *) TIR$C_OPR_IOR = 56; (*Logical inclusive OR *) TIR$C_OPR_EOR = 57; (*Logical exclusive OR *) TIR$C_OPR_NEG = 58; (*Negate *) TIR$C_OPR_COM = 59; (*Complement *) TIR$C_OPR_INSV = 60; (*Insert bit field *) TIR$C_OPR_ASH = 61; (*Arithmetic shift *) TIR$C_OPR_USH = 62; (*Unsigned shift *) TIR$C_OPR_ROT = 63; (*Rotate *) TIR$C_OPR_SEL = 64; (*Select one of three longwords on top of stack *) TIR$C_OPR_REDEF = 65; (*Redefine this symbol after pass 2 *) TIR$C_OPR_DFLIT = 66; (*Define a literal *) TIR$C_MAXOPRCOD = 66; (*Last assigned operator command code *) TIR$C_MINCTLCOD = 80; (*First assigned control command code *) TIR$C_CTL_SETRB = 80; (*Set relocation base *) TIR$C_CTL_AUGRB = 81; (*Augment relocation base *) TIR$C_CTL_DFLOC = 82; (*Define debug location *) TIR$C_CTL_STLOC = 83; (*Set debug location *) TIR$C_CTL_STKDL = 84; (*Stack debug location *) TIR$C_MAXCTLCOD = 84; (*Last assigned control command code *) TYPE TIR$TYPE = RECORD TIR$B_RECTYP : $UBYTE; (*Record type (OBJ$C_TIR) *) (* Define relocation commands *) END; (* *) (* EVAX dependent structures start here *) (* *) (*** MODULE $EOBJRECDEF ***) (* *) (* These are the record types defined for VAX and EVAX object records. *) (* Some types are only recognized in one format of object file, but *) (* the types must be a single set of distinct codes. *) (* *) CONST EOBJ$C_EMH = 8; (*EVAX module header record *) EOBJ$C_EEOM = 9; (*EVAX end of module record *) EOBJ$C_EGSD = 10; (*EVAX global symbol definition record *) EOBJ$C_ETIR = 11; (*EVAX text information record *) EOBJ$C_EDBG = 12; (*EVAX Debugger information record *) EOBJ$C_ETBT = 13; (*EVAX Traceback information record *) EOBJ$C_MAXRECTYP = 13; (*Last assigned record type *) EOBJ$K_SUBTYP = 4; EOBJ$C_SUBTYP = 4; EOBJ$C_MAXRECSIZ = 8192; (*Maximum legal record size *) EOBJ$C_STRLVL = 2; (*Structure level *) EOBJ$C_STRLVL64 = 3; (*Structure level *) EOBJ$C_SYMSIZ = 64; (*Maximum symbol length *) EOBJ$C_STOREPLIM = -1; (*Maximum repeat count on store commands *) EOBJ$C_PSCALILIM = 16; (*Maximum p-sect alignment *) TYPE EOBJREC$TYPE = RECORD CASE INTEGER OF 1: ( (* *) (* These are the record types defined for VAX object records. *) (* *) EOBJ$W_RECTYP : $UWORD; (*First byte always record type *) EOBJ$W_SIZE : $UWORD; (*Second is always record size *) (*Permissable record types *) EOBJ$W_SUBTYP : $UWORD; (*Record sub-type byte *) EOBJ$B_MHD_STRLV : $UBYTE; (*Structure level *) EOBJ$B_MHD_HOLD : $UBYTE; (*alignment temp *) EOBJ$R_MHD_RECSZ_OVERLAY : [BYTE(2)] RECORD END; ); 2: (EOBJ$W_MHD_RECSZ : [POS(64)] $UWORD; (*Maximum record size *) ); 3: (); 4: (EOBJ$T_MHD_NAME : [POS(80)] RECORD END ; (*Module name field *) (*Misc. constants *) ) END; (*** MODULE $EMHDEF ***) (* *) (* EVAX Module header record (EMH) *) (* *) CONST EMH$C_MHD = 0; (*Main header record *) EMH$C_LNM = 1; (*Language name and version *) EMH$C_SRC = 2; (*Source file specification *) EMH$C_TTL = 3; (*Title text of module *) EMH$C_CPR = 4; (*Copyright notice *) EMH$C_MTC = 5; (*Maintenence status *) EMH$C_GTX = 6; (*General text *) EMH$C_MAXHDRTYP = 6; (*Maximum allowable type *) TYPE EMH$TYPE = RECORD EMH$W_RECTYP : $UWORD; (*Record type (OBJ$C_MHD) *) EMH$W_SIZE : $UWORD; (*length of this EMH *) EMH$W_HDRTYP : $UWORD; (*Type field for MHD *) (*Types of header records *) EMH$B_STRLVL : $UBYTE; (*Structure level *) EMH$B_TEMP : $UBYTE; (*temp pad byte *) EMH$L_ARCH1 : INTEGER; (*target architecture LW1 *) EMH$L_ARCH2 : INTEGER; (*target architecture LW2 *) EMH$L_RECSIZ : UNSIGNED; (*Maximum record size *) EMH$B_NAMLNG : $UBYTE; (*Module name length *) EMH$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Module name *) END; (*** MODULE $EEOMDEF ***) (* *) (* EVAX End of module record (EEOM) *) (* *) CONST EEOM$C_SUCCESS = 0; (*Successful (no errors) *) EEOM$C_WARNING = 1; (*Warnings issued *) EEOM$C_ERROR = 2; (*Errors detected *) EEOM$C_ABORT = 3; (*Abort the link *) EEOM$K_EOMMIN = 10; (*Min length of EOM record *) EEOM$C_EOMMIN = 10; (*Min length of EOM record *) EEOM$K_EOMMX1 = 10; (*Length of EOM record w/o transfer flags *) EEOM$C_EOMMX1 = 10; (*Length of EOM record w/o transfer flags *) EEOM$M_WKTFR = 1; EEOM$K_EOMMAX = 24; (*Maximum length of EOM record *) EEOM$C_EOMMAX = 24; (*Maximum length of EOM record *) TYPE EEOM$TYPE = RECORD CASE INTEGER OF 1: (EEOM$W_RECTYP : $UWORD; (*Record type (OBJ$C_EOM) *) EEOM$W_SIZE : $UWORD; (*size of this EEMOD *) EEOM$L_TOTAL_LPS : UNSIGNED; (*Number of conditional linkage pairs - max-index/2 *) EEOM$W_COMCOD : $UWORD; (*Compiler completion code *) (*Values *) EEOM$R_TFRFLG_OVERLAY : [BYTE(1)] RECORD END; EEOM$B_TEMP : $UBYTE; (*pad to align PSINDX *) EEOM$L_PSINDX : UNSIGNED; (*P-sect of transfer address *) EEOM$R_TFRADR_OVERLAY : [BYTE(8)] RECORD END; ); 2: (EEOM$B_TFRFLG : [POS(80)] $UBYTE; (*Transfer address flags *) EEOM$Q_TFRADR : [POS(128)] $UQUAD; (*Transfer address *) ); 3: (EEOM$L_TFRADR : [POS(128)] UNSIGNED; (*Transfer address *) ); 4: (EEOM$V_WKTFR : [POS(80)] $BOOL; (*Transfer address is weak *) ) END; (*** MODULE $EGSDEF ***) (* *) (* EVAX Global symbol definition record (EGSD) *) (* *) CONST EGSD$K_ENTRIES = 2; (*Offset to first entry in record *) EGSD$C_ENTRIES = 2; (*Offset to first entry in record *) EGSD$C_PSC = 0; (*Psect definition *) EGSD$C_SYM = 1; (*Symbol specification *) EGSD$C_IDC = 2; (*Random entity check *) EGSD$C_SPSC = 5; (*Shareable image psect definition *) EGSD$C_SYMV = 6; (*Vectored (dual-valued) versions of SYM, *) EGSD$C_SYMM = 7; (*Masked versions of SYM, *) EGSD$C_SYMG = 8; (*EGST - gst version of SYM *) EGSD$C_PSC64 = 9; (*Psect with 64-bit length *) EGSD$C_SPSC64 = 10; (*Shareable image psect definition w/64b len/base *) EGSD$C_MAXRECTYP = 10; (*Maximum entry type defined *) TYPE EGS$TYPE = RECORD EGSD$W_RECTYP : $UWORD; (*Record type (OBJ$C_GSD) *) EGSD$W_RECSIZ : $UWORD; (*Size of theis EVAX EGSD *) EGSD$L_ALIGNLW : UNSIGNED; (*Insure that subrecords are QW aligned *) EGSD$W_GSDTYP : $UWORD; (*Type of entry (first byte of entry) *) EGSD$W_GSDSIZ : $UWORD; (*Size of this entry *) END; (*** MODULE $EGPSDEF ***) (* *) (* EVAX GSD entry - P-section definition *) (* *) CONST EGPS$M_PIC = 1; EGPS$M_LIB = 2; EGPS$M_OVR = 4; EGPS$M_REL = 8; EGPS$M_GBL = 16; EGPS$M_SHR = 32; EGPS$M_EXE = 64; EGPS$M_RD = 128; EGPS$M_WRT = 256; EGPS$M_VEC = 512; EGPS$M_NOMOD = 1024; EGPS$M_COM = 2048; EGPS$M_ALLOC_64BIT = 4096; EGPS$K_NAME = 12; EGPS$C_NAME = 12; TYPE EGPS$TYPE = RECORD CASE INTEGER OF 1: (EGPS$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; EGPS$W_SIZE : $UWORD; (*size of this EGPS *) EGPS$B_ALIGN : $UBYTE; (*P-sect alignment *) EGPS$B_TEMP : $UBYTE; (*pad for aligning *) EGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; EGPS$L_ALLOC : UNSIGNED; (*Length of this contribution *) EGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *) EGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (EGPS$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *) EGPS$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *) ); 3: (); 4: (EGPS$T_START : [POS(0)] RECORD END ; EGPS$V_PIC : [POS(48)] $BOOL; (*Position independent *) EGPS$V_LIB : [POS(49)] $BOOL; (*From a shareable image *) EGPS$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *) EGPS$V_REL : [POS(51)] $BOOL; (*Relocatable *) EGPS$V_GBL : [POS(52)] $BOOL; (*Global scope *) EGPS$V_SHR : [POS(53)] $BOOL; (*Shareable *) EGPS$V_EXE : [POS(54)] $BOOL; (*Executable *) EGPS$V_RD : [POS(55)] $BOOL; (*Readable *) EGPS$V_WRT : [POS(56)] $BOOL; (*Writeable *) EGPS$V_VEC : [POS(57)] $BOOL; (*Vector psect *) EGPS$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *) EGPS$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *) EGPS$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (* *) (* EVAX GSD entry - 64-Bit P-section definition *) (* *) CONST EGPS64$M_PIC = 1; EGPS64$M_LIB = 2; EGPS64$M_OVR = 4; EGPS64$M_REL = 8; EGPS64$M_GBL = 16; EGPS64$M_SHR = 32; EGPS64$M_EXE = 64; EGPS64$M_RD = 128; EGPS64$M_WRT = 256; EGPS64$M_VEC = 512; EGPS64$M_NOMOD = 1024; EGPS64$M_COM = 2048; EGPS64$M_ALLOC_64BIT = 4096; EGPS64$K_NAME = 16; EGPS64$C_NAME = 16; TYPE EGPS64$TYPE = RECORD CASE INTEGER OF 1: (EGPS64$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; EGPS64$W_SIZE : $UWORD; (*size of this EGPS *) EGPS64$B_ALIGN : $UBYTE; (*P-sect alignment *) EGPS64$B_TEMP : $UBYTE; (*pad for aligning *) EGPS64$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; EGPS64$R_ALLOC_OVERLAY : [BYTE(8)] RECORD END; EGPS64$B_NAMLNG : $UBYTE; (*Length of p-sect name *) EGPS64$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (EGPS64$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *) EGPS64$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *) EGPS64$Q_ALLOC : [POS(64)] $UQUAD; (*Length of this contribution *) ); 3: (EGPS64$L_ALLOC : [POS(64)] UNSIGNED; (* Low Longword *) ); 4: (EGPS64$T_START : [POS(0)] RECORD END ; EGPS64$V_PIC : [POS(48)] $BOOL; (*Position independent *) EGPS64$V_LIB : [POS(49)] $BOOL; (*From a shareable image *) EGPS64$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *) EGPS64$V_REL : [POS(51)] $BOOL; (*Relocatable *) EGPS64$V_GBL : [POS(52)] $BOOL; (*Global scope *) EGPS64$V_SHR : [POS(53)] $BOOL; (*Shareable *) EGPS64$V_EXE : [POS(54)] $BOOL; (*Executable *) EGPS64$V_RD : [POS(55)] $BOOL; (*Readable *) EGPS64$V_WRT : [POS(56)] $BOOL; (*Writeable *) EGPS64$V_VEC : [POS(57)] $BOOL; (*Vector psect *) EGPS64$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *) EGPS64$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *) EGPS64$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (*** MODULE $ESGPSDEF ***) (* *) (* EVAX GSD entry - P-section definition in shareable image *) (* *) CONST ESGPS$M_PIC = 1; ESGPS$M_LIB = 2; ESGPS$M_OVR = 4; ESGPS$M_REL = 8; ESGPS$M_GBL = 16; ESGPS$M_SHR = 32; ESGPS$M_EXE = 64; ESGPS$M_RD = 128; ESGPS$M_WRT = 256; ESGPS$M_VEC = 512; ESGPS$M_NOMOD = 1024; ESGPS$M_COM = 2048; ESGPS$M_ALLOC_64BIT = 4096; ESGPS$K_NAME = 25; ESGPS$C_NAME = 25; TYPE ESGPS$TYPE = RECORD CASE INTEGER OF 1: (ESGPS$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESGPS$W_SIZE : $UWORD; (*size of this ESGPS *) ESGPS$B_ALIGN : $UBYTE; (*P-sect alignment *) ESGPS$B_TEMP : $UBYTE; (*pad for allignment *) ESGPS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ESGPS$L_ALLOC : UNSIGNED; (*Length of this psect in shr image *) ESGPS$L_BASE : UNSIGNED; (*Offset into img of psect, copy of symbol vector *) ESGPS$R_VALUE_OVERLAY : [BYTE(8)] RECORD END; ESGPS$B_NAMLNG : $UBYTE; (*Length of p-sect name *) ESGPS$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (ESGPS$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *) ESGPS$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *) ESGPS$Q_VALUE : [POS(128)] $UQUAD; ); 3: (ESGPS$L_VALUE : [POS(128)] UNSIGNED; ); 4: (ESGPS$T_START : [POS(0)] RECORD END ; ESGPS$V_PIC : [POS(48)] $BOOL; (*Position independent *) ESGPS$V_LIB : [POS(49)] $BOOL; (*From a shareable image *) ESGPS$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *) ESGPS$V_REL : [POS(51)] $BOOL; (*Relocatable *) ESGPS$V_GBL : [POS(52)] $BOOL; (*Global scope *) ESGPS$V_SHR : [POS(53)] $BOOL; (*Shareable *) ESGPS$V_EXE : [POS(54)] $BOOL; (*Executable *) ESGPS$V_RD : [POS(55)] $BOOL; (*Readable *) ESGPS$V_WRT : [POS(56)] $BOOL; (*Writeable *) ESGPS$V_VEC : [POS(57)] $BOOL; (*Vector psect *) ESGPS$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *) ESGPS$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *) ESGPS$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (* *) (* EVAX GSD entry - 64-Bit P-section definition in shareable image *) (* *) CONST ESGPS64$M_PIC = 1; ESGPS64$M_LIB = 2; ESGPS64$M_OVR = 4; ESGPS64$M_REL = 8; ESGPS64$M_GBL = 16; ESGPS64$M_SHR = 32; ESGPS64$M_EXE = 64; ESGPS64$M_RD = 128; ESGPS64$M_WRT = 256; ESGPS64$M_VEC = 512; ESGPS64$M_NOMOD = 1024; ESGPS64$M_COM = 2048; ESGPS64$M_ALLOC_64BIT = 4096; ESGPS64$K_NAME = 33; ESGPS64$C_NAME = 33; TYPE ESGPS64$TYPE = RECORD CASE INTEGER OF 1: (ESGPS64$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESGPS64$W_SIZE : $UWORD; (*size of this ESGPS *) ESGPS64$B_ALIGN : $UBYTE; (*P-sect alignment *) ESGPS64$B_TEMP : $UBYTE; (*pad for allignment *) ESGPS64$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ESGPS64$R_ALLOC_OVERLAY : [BYTE(8)] RECORD END; ESGPS64$R_BASE_OVERLAY : [BYTE(8)] RECORD END; ESGPS64$R_VALUE_OVERLAY : [BYTE(8)] RECORD END; ESGPS64$B_NAMLNG : $UBYTE; (*Length of p-sect name *) ESGPS64$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Name field *) ); 2: (ESGPS64$W_GSDTYP : [POS(0)] $UWORD; (*Typ field *) ESGPS64$W_FLAGS : [POS(48)] $UWORD; (*P-sect flags *) ESGPS64$Q_ALLOC : [POS(64)] $UQUAD; (*Length of this psect in shr image *) ESGPS64$Q_BASE : [POS(128)] $UQUAD; (*Offset into img of psect, copy of symbol vector *) ESGPS64$Q_VALUE : [POS(192)] $UQUAD; ); 3: (ESGPS64$L_ALLOC : [POS(64)] UNSIGNED; (* Low Longword *) ESGPS64$L_BASE : [POS(128)] UNSIGNED; (* Low Longword *) ESGPS64$L_VALUE : [POS(192)] UNSIGNED; ); 4: (ESGPS64$T_START : [POS(0)] RECORD END ; ESGPS64$V_PIC : [POS(48)] $BOOL; (*Position independent *) ESGPS64$V_LIB : [POS(49)] $BOOL; (*From a shareable image *) ESGPS64$V_OVR : [POS(50)] $BOOL; (*Overlaid memory allocation *) ESGPS64$V_REL : [POS(51)] $BOOL; (*Relocatable *) ESGPS64$V_GBL : [POS(52)] $BOOL; (*Global scope *) ESGPS64$V_SHR : [POS(53)] $BOOL; (*Shareable *) ESGPS64$V_EXE : [POS(54)] $BOOL; (*Executable *) ESGPS64$V_RD : [POS(55)] $BOOL; (*Readable *) ESGPS64$V_WRT : [POS(56)] $BOOL; (*Writeable *) ESGPS64$V_VEC : [POS(57)] $BOOL; (*Vector psect *) ESGPS64$V_NOMOD : [POS(58)] $BOOL; (*Not stored into *) ESGPS64$V_COM : [POS(59)] $BOOL; (*Associated with COMM sym *) ESGPS64$V_ALLOC_64BIT : [POS(60)] $BOOL; (*Load in 64-bit space *) ) END; (*** MODULE $EGSYDEF ***) (* *) (* EVAX GSD entry - Symbol definition *) (* *) (* common to definitions, references, and entry *) (* point definitions. *) (* *) CONST EGSY$M_WEAK = 1; EGSY$M_DEF = 2; EGSY$M_UNI = 4; EGSY$M_REL = 8; EGSY$M_COMM = 16; EGSY$M_VECEP = 32; EGSY$M_NORM = 64; EGSY$M_QUAD_VAL = 128; TYPE EGSY$TYPE = RECORD CASE INTEGER OF 1: (EGSY$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; EGSY$W_SIZE : $UWORD; (*size of this EGSY *) EGSY$B_DATYP : $UBYTE; (*Symbol data type *) EGSY$B_TEMP : $UBYTE; (*pad for alignment *) EGSY$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ); 2: (EGSY$W_GSDTYP : [POS(0)] $UWORD; (*Type field *) EGSY$W_FLAGS : [POS(48)] $UWORD; (*Symbol flags *) ); 3: (); 4: (EGSY$T_START : [POS(0)] RECORD END ; EGSY$V_WEAK : [POS(48)] $BOOL; (*Weak symbol *) EGSY$V_DEF : [POS(49)] $BOOL; (*Definition *) EGSY$V_UNI : [POS(50)] $BOOL; (*Universal *) EGSY$V_REL : [POS(51)] $BOOL; (*Relocatable *) EGSY$V_COMM : [POS(52)] $BOOL; (*C common globaldef *) EGSY$V_VECEP : [POS(53)] $BOOL; (*Vectored Entry Point *) EGSY$V_NORM : [POS(54)] $BOOL; (*Normal Procedure(FD) *) EGSY$V_QUAD_VAL : [POS(55)] $BOOL; (*Value is quadword *) ) END; (*** MODULE $EGSTDEF ***) (* *) (* EVAX Universal Symbol Definition - used by the linker instead of ESDF$ records *) (* when building the global symbol table. The def and univ. bits should always *) (* be set for these records. *) (* *) CONST EGST$K_NAME = 37; EGST$C_NAME = 37; TYPE EGST$TYPE = RECORD CASE INTEGER OF 1: (EGST$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; EGST$W_SIZE : $UWORD; (*size of this EGST *) EGST$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) EGST$B_TEMP : $UBYTE; (*pad for alignment *) EGST$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) EGST$R_VAL_OVERLAY : [BYTE(8)] RECORD END; EGST$R_LP1_OVERLAY : [BYTE(8)] RECORD END; EGST$R_LP2_OVERLAY : [BYTE(8)] RECORD END; EGST$L_PSINDX : UNSIGNED; (*Owning psect number *) EGST$B_NAMLNG : $UBYTE; (*Length of name *) EGST$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (EGST$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) EGST$Q_VALUE : [POS(64)] $UQUAD; EGST$Q_LP_1 : [POS(128)] $UQUAD; EGST$Q_LP_2 : [POS(192)] $UQUAD; ); 3: (EGST$L_VALUE : [POS(64)] UNSIGNED; EGST$L_LP_1 : [POS(128)] UNSIGNED; EGST$L_LP_2 : [POS(192)] UNSIGNED; ); 4: (EGST$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFDEF ***) (* *) (* EVAX Symbol definition *) (* *) CONST ESDF$K_NAME = 33; ESDF$C_NAME = 33; TYPE ESDF$TYPE = RECORD CASE INTEGER OF 1: (ESDF$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESDF$W_SIZE : $UWORD; (*size of this ESDF *) ESDF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) ESDF$B_TEMP : $UBYTE; (*pad for alignment *) ESDF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) ESDF$R_VAL_OVERLAY : [BYTE(8)] RECORD END; ESDF$R_CA_OVERLAY : [BYTE(8)] RECORD END; ESDF$L_CA_PSINDX : UNSIGNED; (*Psect index of the code address (which is in *) (*LP_1 if the norm bit is set). *) ESDF$L_PSINDX : UNSIGNED; (*Owning psect number *) ESDF$B_NAMLNG : $UBYTE; (*Length of name *) ESDF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (ESDF$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) ESDF$Q_VALUE : [POS(64)] $UQUAD; ESDF$Q_CODE_ADDRESS : [POS(128)] $UQUAD; ); 3: (ESDF$L_VALUE : [POS(64)] UNSIGNED; ESDF$L_CODE_ADDRESS : [POS(128)] UNSIGNED; ); 4: (ESDF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFVDEF ***) (* *) (* EVAX Symbol definition for vectored symbols *) (* *) CONST ESDFV$K_NAME = 25; ESDFV$C_NAME = 25; TYPE ESDFV$TYPE = RECORD CASE INTEGER OF 1: (ESDFV$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESDFV$W_SIZE : $UWORD; (*size of this SDFV *) ESDFV$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) ESDFV$B_TEMP : $UBYTE; (*pad for alignment *) ESDFV$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) ESDFV$R_VAL_OVERLAY : [BYTE(8)] RECORD END; ESDFV$L_PSINDX : UNSIGNED; (*Owning psect number *) ESDFV$L_VECTOR : UNSIGNED; (*Vectored value of symbol *) ESDFV$B_NAMLNG : $UBYTE; (*Length of name *) ESDFV$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (ESDFV$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) ESDFV$Q_VALUE : [POS(64)] $UQUAD; ); 3: (ESDFV$L_VALUE : [POS(64)] UNSIGNED; ); 4: (ESDFV$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESDFMDEF ***) (* *) (* EVAX Symbol definition for version mask symbols *) (* *) CONST ESDFM$K_NAME = 25; ESDFM$C_NAME = 25; TYPE ESDFM$TYPE = RECORD CASE INTEGER OF 1: (ESDFM$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESDFM$W_SIZE : $UWORD; (*size of this ESDFM *) ESDFM$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) ESDFM$B_TEMP : $UBYTE; (*pad for alignment *) ESDFM$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) ESDFM$R_VAL_OVERLAY : [BYTE(8)] RECORD END; ESDFM$L_PSINDX : UNSIGNED; (*Owning psect number *) ESDFM$L_VERSION_MASK : UNSIGNED; (*Mask for symbol *) ESDFM$B_NAMLNG : $UBYTE; (*Length of name *) ESDFM$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (ESDFM$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) ESDFM$Q_VALUE : [POS(64)] $UQUAD; ); 3: (ESDFM$L_VALUE : [POS(64)] UNSIGNED; ); 4: (ESDFM$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $ESRFDEF ***) (* *) (* EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) *) (* *) CONST ESRF$K_NAME = 9; ESRF$C_NAME = 9; TYPE ESRF$TYPE = RECORD CASE INTEGER OF 1: (ESRF$R_GSDTYP_OVERLAY : [BYTE(2)] RECORD END; ESRF$W_SIZE : $UWORD; (*size of this ESRF *) ESRF$B_DATYP : $UBYTE; (*Maps over GSY$B_DATYP *) ESRF$B_TEMP : $UBYTE; (*pad for alignment *) ESRF$W_FLAGS : $UWORD; (*Maps over GSY$W_FLAGS *) ESRF$B_NAMLNG : $UBYTE; (*Length of symbol name *) ESRF$T_NAME : PACKED ARRAY [1..31] OF CHAR; (*Symbol name *) ); 2: (ESRF$W_GSDTYP : [POS(0)] $UWORD; (*Maps over GSY$B_GSDTYP *) ); 3: (); 4: (ESRF$T_START : [POS(0)] RECORD END ; ) END; (*** MODULE $EIDCDEF ***) (* *) (* EVAX IDC - Random entity ident consistency check *) (* *) CONST EIDC$C_LEQ = 0; EIDC$C_EQUAL = 1; TYPE EIDC$TYPE = RECORD CASE INTEGER OF 1: (EIDC$W_GSDTYP : $UWORD; (*Type field *) EIDC$W_SIZE : $UWORD; (*size of this EIDCDEF *) EIDC$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; EIDC$R_NAMLNG_OVERLAY : [BYTE(1)] RECORD END; ); 2: (EIDC$L_FLAGS : [POS(32)] UNSIGNED; (*Flags *) EIDC$B_NAMLNG : [POS(64)] $UBYTE; (*Length of entity name *) ); 3: (); 4: (EIDC$V_BINIDENT : [POS(32)] $BOOL; (*Ident is binary longword rather than ASCIC *) EIDC$V_IDMATCH : [POS(33)] $BIT2; (*Field for ident match control if binary ident *) EIDC$V_ERRSEV : [POS(35)] $BIT3; (*Error severity (default is warning-0) *) (*Match control values *) EIDC$T_NAME : [POS(72)] RECORD END ; (* *) (* Followed by entity name *) (* 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) *) (* or *) (* ident binary value (length = 4) *) ) END; (*** MODULE $ETIRDEF ***) (* *) (* EVAX Text, information and relocation record (ETIR) *) (* *) CONST ETIR$C_MINSTACOD = 0; (*Minimum store code *) ETIR$C_STA_GBL = 0; (*Stack global symbol value *) ETIR$C_STA_LW = 1; (*Stack longword *) ETIR$C_STA_QW = 2; (*Stack quadword *) ETIR$C_STA_PQ = 3; (*Stack psect base plus quadword offset *) ETIR$C_STA_LI = 4; (*Stack literal *) ETIR$C_STA_MOD = 5; (*Stack module *) ETIR$C_STA_CKARG = 6; (*Check Arguments *) ETIR$C_MAXSTACOD = 6; (*Maximum stack code *) ETIR$C_MINSTOCOD = 50; (*Minimum store code *) ETIR$C_STO_B = 50; (*Store byte *) ETIR$C_STO_W = 51; (*Store word *) ETIR$C_STO_LW = 52; (*Store longword *) ETIR$C_STO_QW = 53; (*Store quadword *) ETIR$C_STO_IMMR = 54; (*Store immediate Repeated *) ETIR$C_STO_GBL = 55; (*Store global *) ETIR$C_STO_CA = 56; (*Store code address *) ETIR$C_STO_RB = 57; (*Store relative branch *) ETIR$C_STO_AB = 58; (*Store absolute branch *) ETIR$C_STO_OFF = 59; (*Store offset within psect *) ETIR$C_STO_IMM = 61; (*Store immediate *) ETIR$C_STO_GBL_LW = 62; (*Store global Longword *) (*STO_LP_PSB not valid in level 2 use STC_LP_PSB *) CONST ETIR$C_STO_BR_GBL = 64; (*Store 21 bit displayment to global address *) ETIR$C_STO_BR_PS = 65; (*Store 21 bit displayment to psect + offset *) ETIR$C_MAXSTOCOD = 65; (*Maximum store code *) ETIR$C_MINOPRCOD = 100; (*Minimum operate code *) ETIR$C_OPR_NOP = 100; (*No-op *) ETIR$C_OPR_ADD = 101; (*Add *) ETIR$C_OPR_SUB = 102; (*Subtract *) ETIR$C_OPR_MUL = 103; (*Multiply *) ETIR$C_OPR_DIV = 104; (*Divide *) ETIR$C_OPR_AND = 105; (*Logical AND *) ETIR$C_OPR_IOR = 106; (*Logical inclusive OR *) ETIR$C_OPR_EOR = 107; (*Logical exclusive OR *) ETIR$C_OPR_NEG = 108; (*Negate *) ETIR$C_OPR_COM = 109; (*Complement *) ETIR$C_OPR_INSV = 110; (*Insert bit field *) ETIR$C_OPR_ASH = 111; (*Arithmetic shift *) ETIR$C_OPR_USH = 112; (*Unsigned shift *) ETIR$C_OPR_ROT = 113; (*Rotate *) ETIR$C_OPR_SEL = 114; (*Select one of three longwords on top of stack *) ETIR$C_OPR_REDEF = 115; (*Redefine this symbol after pass 2 *) ETIR$C_OPR_DFLIT = 116; (*Define a literal *) ETIR$C_MAXOPRCOD = 116; (*Maximum operate code *) ETIR$C_MINCTLCOD = 150; (*Minimum control code *) ETIR$C_CTL_SETRB = 150; (*Set relocation base *) ETIR$C_CTL_AUGRB = 151; (*Augment relocation base *) ETIR$C_CTL_DFLOC = 152; (*Define debug location *) ETIR$C_CTL_STLOC = 153; (*Set debug location *) ETIR$C_CTL_STKDL = 154; (*Stack debug location *) ETIR$C_MAXCTLCOD = 154; (*Maximum control code *) ETIR$C_MINSTCCOD = 200; (*Minimum store-conditional code *) ETIR$C_STC_LP = 200; (*Store-conditional Linkage Pair *) ETIR$C_STC_LP_PSB = 201; (*Store-conditional Linkage Pair with Procedure Signature *) ETIR$C_STC_GBL = 202; (*Store-conditional Address at global address *) ETIR$C_STC_GCA = 203; (*Store-conditional Code Address at global address *) ETIR$C_STC_PS = 204; (*Store-conditional Address at psect + offset *) ETIR$C_STC_NOP_GBL = 205; (*Store-conditional NOP at address of global *) ETIR$C_STC_NOP_PS = 206; (*Store-conditional NOP at pect + offset *) ETIR$C_STC_BSR_GBL = 207; (*Store-conditional BSR at global address *) ETIR$C_STC_BSR_PS = 208; (*Store-conditional BSR at pect + offset *) ETIR$C_STC_LDA_GBL = 209; (*Store-conditional LDA at global address *) ETIR$C_STC_LDA_PS = 210; (*Store-conditional LDA at psect + offset *) ETIR$C_STC_BOH_GBL = 211; (*Store-conditional BSR or Hint at global address *) ETIR$C_STC_BOH_PS = 212; (*Store-conditional BSR or Hint at pect + offset *) ETIR$C_STC_NBH_GBL = 213; (*Store-conditional NOP,BSR or HINT at global address *) ETIR$C_STC_NBH_PS = 214; (*Store-conditional NOP,BSR or HINT at psect + offset *) ETIR$C_MAXSTCCOD = 214; (*Maximum store-conditional code *) (********************************************************************************************************* *) TYPE ETIR$TYPE = RECORD ETIR$W_RECTYP : $UWORD; (* Record type (OBJ$C_ETIR) *) ETIR$W_SIZE : $UWORD; (* Record size *) (* Define relocation commands *) (* ETIR descriptions *) (* *) (* *) (* MNEUMONIC DESCRIPTION FORMAT STACK EFFECT *) (* --------- ----------- ------ ------------ *) (* 0 2 4 6 8 12 16 20 24 *) (* | | | | | | | | | *) (* v v v v v v v v v *) (* *) (* STA_GBL pushes symbol value on stack |type|size|counted string... +1 *) (* *) (* STA_LW pushes longword value on stack |type|size|longword | +1 *) (* *) (* STA_QW pushes quadword value on stack |type|size| quadword | +1 *) (* *) (* STA_PQ pushes image offset associated |type|size| psect | quadword | +1 *) (* with psect index + quadword *) (* offset on stack *) (* STA_LI pushes literal value on stack |type|size|counted string... +1 *) (* *) (* STA_MOD pushes image offset associated |type|size|counted string... +1 *) (* with module on stack *) (* *) (* STA_CKARG compares poped stack element to |type|size|counted string... 0 *) (* symbol value and pushes result *) (* on stack *) (* *) (* STO_B pops stack and stores low byte |type|size| -1 *) (* at location pointer *) (* *) (* STO_W pops stack and stores low word |type|size| -1 *) (* at location pointer *) (* *) (* STO_LW pops stack and stores low |type|size| -1 *) (* longword at location pointer *) (* *) (* STO_QW pops stack and stores qwadword |type|size| -1 *) (* at location pointer *) (* *) (* STO_GBL stores value associated with |type|size|counted string... 0 *) (* global symbol at location *) (* pointer *) (* *) (* STO_CA stores contents of value |type|size|counted string... 0 *) (* associated with global symbol *) (* +8 at location pointer *) (* *) (* 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 *) (* *) (* STO_AB stores value associated with |type|size|counted string... 0 *) (* global symbol in low 21 bits *) (* at location pointer *) (* *) (* STO_OFF pops offset into image from |type|size| -1 *) (* stack and stores the value in *) (* the linker's location counter *) (* *) (* STO_IMMR pops repeat count and stores |type|size| size |immediate... -1 *) (* this number of immediates at *) (* location counter *) (* *) (* STO_LP stores code address at |type|size|counted string... 0 *) (* location pointer and global *) (* symbol value at location *) (* pointer + 8 *) (* *) (* STO_IMM stores this number of |type|size| size |immediate... 0 *) (* immediates at location counter *) (* *) (* STO_GBL_LW stores low order 32 bits of |type|size|counted string... 0 *) (* value associated with global *) (* symbol at location pointer *) (* *) (* STO_LP_PSB stores code address at |type|size|counted string...|size|signature block...| 0 *) (* location pointer and global *) (* symbol value at location *) (* pointer + 8 and signature *) (* information in fixup section *) (* (following the LP_PSB fixups). *) (* *) (* STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 | *) (* signed offset from virtual |counted string 0 *) (* address signified by ps2 + *) (* off2 to virtual address of *) (* global symbol shifted two bits *) (* to the right into the 21 bit *) (* displacement field of instruction *) (* at location ps1 + off1. *) (* *) (* STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 | *) (* signed offset from virtual |ps3 |off3 | 0 *) (* address signified by ps2 + *) (* off2 to virtual address *) (* signified by ps3 + off3 shifted *) (* two bits to the right into *) (* the 21 bit displacement field *) (* of instruction at location *) (* ps1 + off1. *) (* *) (* OPR_NOP nothing |type|size| 0 *) (* *) (* OPR_ADD pop two elements from stack |type|size| -1 *) (* adds and push results *) (* *) (* OPR_SUB pop two elements from stack |type|size| -1 *) (* subtracts and push results *) (* *) (* OPR_MUL pop two elements from stack |type|size| -1 *) (* multiplys and push results *) (* *) (* OPR_DIV pop two elements from stack |type|size| -1 *) (* divides and push results *) (* *) (* OPR_AND pop two elements from stack |type|size| -1 *) (* ANDs and push results *) (* *) (* OPR_IOR pop two elements from stack |type|size| -1 *) (* inclusive ors and push results *) (* *) (* OPR_EOR pop two elements from stack |type|size| -1 *) (* exclusive ors and push results *) (* *) (* OPR_NEG pop one element from stack |type|size| 0 *) (* negates and push results *) (* *) (* OPR_COM pop one element from stack |type|size| 0 *) (* compliments and push results *) (* *) (* OPR_INSV pop two elements from stack |type|size| -1 *) (* inserts bit field from first *) (* into second and push results *) (* *) (* OPR_USH pop two elements from stack |type|size| -1 *) (* unsigned shift and push results *) (* *) (* OPR_ASH pop two elements from stack |type|size| -1 *) (* arithmetic shift and push *) (* results *) (* *) (* OPR_ROT pop two elements from stack |type|size| -1 *) (* rotate and push results *) (* *) (* OPR_SEL pop three elements from stack |type|size| -2 *) (* if first is true *) (* then push third *) (* else push second *) (* *) (* OPR_REDEF pop value from stack and |type|size|counted string... -1 *) (* assign this value to global *) (* symbol *) (* *) (* OPR_DFLIT pop value from stack and |type|size|counted string... -1 *) (* assign this value to literal *) (* *) (* *) (* CTL_SETRB pop value from stack and move |type|size| -1 *) (* to location pointer *) (* *) (* CTL_AUGRB add quadword to location |type|size| quadword | 0 *) (* pointer *) (* *) (* 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 DESCRIPTION FORMAT STACK EFFECT *) (* --------- ----------- ------ ------------ *) (* 0 2 4 6 8 12 16 20 24 *) (* | | | | | | | | | *) (* v v v v v v v v v *) (* *) (* STC_LP If the linkage pair specified |type|size|lp index |counted string... 0 *) (* by the index is referenced, *) (* i.e. all instructions ref'ing *) (* it weren't successfully replaced *) (* by other STC_** commands, then *) (* store code address at location *) (* pointer and global symbol value *) (* at location pointer + 8. *) (* *) (* STC_LP_PSB If the linkage pair specified |type|size|lp index |counted string...|- 0 *) (* by the index is referenced, |size|signature block...| *) (* i.e. all instructions ref'ing *) (* it weren't successfully replaced *) (* by other STC_** commands, then *) (* store code address at location *) (* pointer and global symbol value *) (* at location pointer + 8. Store *) (* signature information in fixup *) (* section following the LP_PSB *) (* fixups. *) (* *) (* STC_GBL store value associated with |type|size|lp index |counted string... 0 *) (* global symbol (if norm bit is *) (* set this is the procedure desc. *) (* address) in the linkage pair *) (* pointed to by the index only *) (* if that part of the lp is referenced. *) (* When the norm bit is set the index will *) (* point to the second quadword of *) (* the linkage pair. *) (* *) (* STC_GCA store the value from the field |type|size|lp index |counted string... 0 *) (* ESDF$L_LP_1 of the global *) (* symbol in the linkage pair *) (* pointed to by the index only *) (* if that part of the lp is referenced. *) (* The global symbol must be a procedure, *) (* and the norm bit must be set. *) (* The lp index must point to the *) (* first quadword of the linkage pair. *) (* *) (* *) (* STC_PS store the address associated |type|size|lp index |psct|qw offset| 0 *) (* with the psect + offset in the *) (* lp pointed to by the index. *) (* The index may point to either *) (* quadword. *) (* *) (* STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - *) (* compiler) at the location |repl inst|psc2|qw off2 |counted string 0 *) (* pointed to by PS1, offset1 *) (* if the displacement from *) (* ps2, offset2 to the value in *) (* the EGSY$L_LP_1 field of the *) (* global symbol + its psect base *) (* can be squished into 21 bits. *) (* *) (* *) (* STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - *) (* compiler) at the location |repl inst|psc2|qw off2 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 | 0 *) (* if the displacement from *) (* ps2, offset2 to ps3,offset3 *) (* can be squished into 21 bits. *) (* *) (* STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - *) (* repl inst) at the location |repl inst|psc2|qw off2 |counted string 0 *) (* pointed to by PS1, offset1 *) (* if the displacement from *) (* ps2, offset2 to the value in *) (* the EGSY$L_LP_1 field of the *) (* global symbol + its psect base *) (* can be squished into 21 bits. *) (* Insert the 21 bit displacement *) (* into the instruction. *) (* *) (* STC_BSR_PS Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - *) (* repl inst) at the location |repl inst|psc2|qw off2 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 | 0 *) (* if the displacement from *) (* ps2, offset2 to ps3,offset3 *) (* can be squished into 21 bits. *) (* Insert the 21 bit displacement *) (* into the instruction. *) (* *) (* STC_LDA_GBL Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - *) (* repl inst) at the location |repl inst|psc2|qw off2 |counted string 0 *) (* pointed to by PS1, offset1 *) (* if the displacement from *) (* ps2, offset2 to the value in *) (* the EGSY$L_VALUE field of the *) (* global symbol + its psect base *) (* can be squished into 16 bits. *) (* The global symbol cannot be from *) (* a shareable image. *) (* Insert the 16 bit displacement *) (* into the instruction. *) (* The index is only nonzero if the *) (* instruction being replaced refs *) (* a linkage pair. *) (* *) (* 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 | - *) (* pointed to by PS1, offset1 |psc3|qw off3 | 0 *) (* if the displacement from *) (* ps2, offset2 to ps3,offset3 *) (* can be squished into 16 bits. *) (* PS3 cannot be a shareable image psect. *) (* Insert the 16 bit displacement *) (* into the instruction. *) (* The index is only nonzero if the *) (* instruction being replaced refs *) (* a linkage pair. *) (* *) (* STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - *) (* repl inst) at the location |repl inst|ps2 |qw off2 |counted string 0 *) (* pointed to by ps1, off1 *) (* if the displacement from *) (* ps2, off2 to the value in *) (* the EGSY$L_LP_1 field of the *) (* global symbol + its psect base *) (* can be squished into 21 bits. *) (* Insert the 21 bit displacement *) (* into the instruction. If the *) (* displacement is too large, then *) (* store the low order 16 bits of *) (* the virtual address of the global *) (* symbol shifted two bits to the *) (* right into the location *) (* ps1 + off1. *) (* *) (* STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - *) (* repl inst) at the location |repl inst|ps2 |qw off2 | - *) (* pointed to by PS1, off1 |ps3 |qw off3 | 0 *) (* if the displacement from *) (* ps2, off2 to ps3,off3 *) (* can be squished into 21 bits. *) (* Insert the 21 bit displacement *) (* into the instruction. If the *) (* displacement is too large, then *) (* store the low order 16 bits of *) (* the virtual address of the global *) (* symbol shifted two bits to the *) (* right into the location *) (* ps1, off1. *) (* *) (* 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 | - *) (* off2 + 4, counted string, |repl ins2|counted string... 0 *) (* followed by STC_BOH_GBL, index, *) (* ps2, off2, ins2, ps2, off2 + 4, *) (* counted string. *) (* Implicit assumption is that *) (* the original instructions (LDQ, JSR) *) (* are contiguous. *) (* *) (* 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 | - *) (* off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 | 0 *) (* followed by STC_BOH_PS, index, *) (* ps2, off2, ins2, ps2, off2 + 4, *) (* ps3, off3. *) (* Implicit assumption is that *) (* the original instructions (LDQ, JSR) *) (* are contiguous. *) (* *) (************************************************************************************************ *) END; (* END. *) (* MODULE OPCDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OPCDEF ***) CONST OPC$_RQ_TERME = 1; (* ENABLE TERMINAL *) OPC$_RQ_LOGI = 2; (* INITIALIZE THE LOG *) OPC$_RQ_RQST = 3; (* OPERATOR REQUEST *) OPC$_RQ_REPLY = 4; (* OPERATOR REPLY *) OPC$_RQ_CANCEL = 5; (* CANCEL REQUEST *) OPC$_RQ_STATUS = 6; (* REQUEST OPERATOR STATUS *) OPC$_RQ_SECURITY = 7; (* MESSAGE TO SECURITY OPERATOR *) OPC$_RQ_LICENSE = 8; (* MESSAGE TO LICENSE OPERATOR *) OPC$M_RQ_NOOCS = 128; OPC$M_NM_CENTRL = 1; OPC$M_NM_PRINT = 2; OPC$M_NM_TAPES = 4; OPC$M_NM_DISKS = 8; OPC$M_NM_DEVICE = 16; OPC$M_NM_CARDS = 32; OPC$M_NM_NTWORK = 64; OPC$M_NM_CLUSTER = 128; OPC$M_NM_SECURITY = 256; OPC$M_NM_REPLY = 512; OPC$M_NM_SOFTWARE = 1024; OPC$M_NM_LICENSE = 2048; OPC$M_NM_OPER1 = 4096; OPC$M_NM_OPER2 = 8192; OPC$M_NM_OPER3 = 16384; OPC$M_NM_OPER4 = 32768; OPC$M_NM_OPER5 = 65536; OPC$M_NM_OPER6 = 131072; OPC$M_NM_OPER7 = 262144; OPC$M_NM_OPER8 = 524288; OPC$M_NM_OPER9 = 1048576; OPC$M_NM_OPER10 = 2097152; OPC$M_NM_OPER11 = 4194304; OPC$M_NM_OPER12 = 8388608; TYPE OPC$TYPE = RECORD CASE INTEGER OF 1: (OPC$B_MS_TYPE : $UBYTE; (* MESSAGE TYPE *) OPC$R_MS_C_T_S_OVERLAY : [BYTE(3)] RECORD END; (* Class-Target-Status *) OPC$R_MS_RPLYID_OVERLAY : [BYTE(4)] RECORD END; OPC$R_MS_TEXT_OVERLAY : [BYTE(4)] RECORD END; OPCDEF$$_FILL_1 : ARRAY [1..7] OF $WORD; (* SPACE FOR NAME *) OPC$L_MS_OTEXT : ARRAY [1..32] OF UNSIGNED; (* OPERATOR TEXT *) OPC$R_MS_MAXSZ_OVERLAY : [BYTE(4)] RECORD END; ); 2: (OPC$R_MS_TARG_STAT_OVERLAY : [POS(8), BYTE(3)] RECORD END; OPC$L_MS_RPLYID : [POS(32)] UNSIGNED; (* REPLY ID *) OPC$L_MS_TEXT : [POS(64)] UNSIGNED; (* MESSAGE TEXT *) OPC$L_MS_MAXSZ : [POS(1232)] UNSIGNED; (* MESSAGE MAX SIZE *) (* OPERATOR MESSAGE TYPES *) ); 3: (OPC$R_MS_TARGET_OVERLAY : [POS(8), BYTE(1)] RECORD END; OPC$W_MS_STATUS : [POS(16)] $UWORD; (* MESSAGE STATUS *) OPC$R_MS_MASK_OVERLAY : [POS(32), BYTE(4)] RECORD END; OPC$R_MS_TEXT_FIELDS : [POS(64), BYTE(3)] RECORD END; OPC$R_MS_MAXSZ_BITS : [POS(1232), BYTE(3)] RECORD END; ); 4: (OPC$B_MS_TARGET : [POS(8)] $UBYTE; (* MESSAGE TARGET *) OPC$L_MS_MASK : [POS(32)] UNSIGNED; (* MESSAGE MASK *) OPC$W_MS_OUNIT : [POS(64)] $UWORD; (* OPERATOR UNIT NUMBER *) OPC$T_MS_ONAME : [POS(80)] CHAR; (* OPERATOR NAME *) OPC$V_NM_CENTRL : [POS(1232)] $BOOL; (* *) OPC$V_NM_PRINT : [POS(1233)] $BOOL; OPC$V_NM_TAPES : [POS(1234)] $BOOL; OPC$V_NM_DISKS : [POS(1235)] $BOOL; OPC$V_NM_DEVICE : [POS(1236)] $BOOL; OPC$V_NM_CARDS : [POS(1237)] $BOOL; OPC$V_NM_NTWORK : [POS(1238)] $BOOL; OPC$V_NM_CLUSTER : [POS(1239)] $BOOL; OPC$V_NM_SECURITY : [POS(1240)] $BOOL; OPC$V_NM_REPLY : [POS(1241)] $BOOL; OPC$V_NM_SOFTWARE : [POS(1242)] $BOOL; OPC$V_NM_LICENSE : [POS(1243)] $BOOL; OPC$V_NM_OPER1 : [POS(1244)] $BOOL; OPC$V_NM_OPER2 : [POS(1245)] $BOOL; OPC$V_NM_OPER3 : [POS(1246)] $BOOL; OPC$V_NM_OPER4 : [POS(1247)] $BOOL; OPC$V_NM_OPER5 : [POS(1248)] $BOOL; OPC$V_NM_OPER6 : [POS(1249)] $BOOL; OPC$V_NM_OPER7 : [POS(1250)] $BOOL; OPC$V_NM_OPER8 : [POS(1251)] $BOOL; OPC$V_NM_OPER9 : [POS(1252)] $BOOL; OPC$V_NM_OPER10 : [POS(1253)] $BOOL; OPC$V_NM_OPER11 : [POS(1254)] $BOOL; OPC$V_NM_OPER12 : [POS(1255)] $BOOL; ); 5: (OPC$B_MS_ENAB : [POS(8)] $UBYTE; (* MESSAGE ENABLES *) OPC$L_MS_RQSTID : [POS(32)] UNSIGNED; (* REQUEST ID *) ); 6: (OPC$Z_MS_TARGET_CLASSES : [POS(8)] ARRAY [1..3] OF $UBYTE; ); 7: (OPC$Z_MS_ENAB_TERMINALS : [POS(8)] ARRAY [1..3] OF $UBYTE; ) END; CONST OPC$M_OPR_CENTRAL = 1; OPC$M_OPR_PRINTER = 2; OPC$M_OPR_TAPES = 4; OPC$M_OPR_DISKS = 8; OPC$M_OPR_DEVICES = 16; OPC$M_OPR_CARDS = 32; OPC$M_OPR_NETWORK = 64; OPC$M_OPR_CLUSTER = 128; OPC$M_OPR_SECURITY = 256; OPC$M_OPR_REPLY = 512; OPC$M_OPR_SOFTWARE = 1024; OPC$M_OPR_LICENSE = 2048; OPC$M_OPR_USER1 = 4096; OPC$M_OPR_USER2 = 8192; OPC$M_OPR_USER3 = 16384; OPC$M_OPR_USER4 = 32768; OPC$M_OPR_USER5 = 65536; OPC$M_OPR_USER6 = 131072; OPC$M_OPR_USER7 = 262144; OPC$M_OPR_USER8 = 524288; OPC$M_OPR_USER9 = 1048576; OPC$M_OPR_USER10 = 2097152; OPC$M_OPR_USER11 = 4194304; OPC$M_OPR_USER12 = 8388608; TYPE OPC_OPR$TYPE = RECORD CASE INTEGER OF 1: (OPC$R_OPRDEF_BITS : [BYTE(3)] RECORD END; ); 2: (OPC$V_OPR_CENTRAL : [POS(0)] $BOOL; OPC$V_OPR_PRINTER : [POS(1)] $BOOL; OPC$V_OPR_TAPES : [POS(2)] $BOOL; OPC$V_OPR_DISKS : [POS(3)] $BOOL; OPC$V_OPR_DEVICES : [POS(4)] $BOOL; OPC$V_OPR_CARDS : [POS(5)] $BOOL; OPC$V_OPR_NETWORK : [POS(6)] $BOOL; OPC$V_OPR_CLUSTER : [POS(7)] $BOOL; OPC$V_OPR_SECURITY : [POS(8)] $BOOL; OPC$V_OPR_REPLY : [POS(9)] $BOOL; OPC$V_OPR_SOFTWARE : [POS(10)] $BOOL; OPC$V_OPR_LICENSE : [POS(11)] $BOOL; OPC$V_OPR_USER1 : [POS(12)] $BOOL; OPC$V_OPR_USER2 : [POS(13)] $BOOL; OPC$V_OPR_USER3 : [POS(14)] $BOOL; OPC$V_OPR_USER4 : [POS(15)] $BOOL; OPC$V_OPR_USER5 : [POS(16)] $BOOL; OPC$V_OPR_USER6 : [POS(17)] $BOOL; OPC$V_OPR_USER7 : [POS(18)] $BOOL; OPC$V_OPR_USER8 : [POS(19)] $BOOL; OPC$V_OPR_USER9 : [POS(20)] $BOOL; OPC$V_OPR_USER10 : [POS(21)] $BOOL; OPC$V_OPR_USER11 : [POS(22)] $BOOL; OPC$V_OPR_USER12 : [POS(23)] $BOOL; ) END; CONST OPC$K_SYSTEM = 1; OPC$K_GROUP = 2; OPC$K_USER = 3; OPC$K_UNSPEC = 4; OPC$C_SYSTEM = 1; OPC$C_GROUP = 2; OPC$C_USER = 3; OPC$C_UNSPEC = 4; OPC$K_SW_VERSION = 9; OPC$K_MAXREAD = 2560; OPC$K_MAXMESSAGE = 2048; OPC$K_COMHDRSIZ = 38; OPC$_OPCOMERROR = 99999; (* New error message *) OPC$_X_OPRENABLE = 10; OPC$_X_LOGFILE = 11; OPC$_X_REQUEST = 12; OPC$_X_REPLY = 13; OPC$_X_CANCEL = 14; OPC$_X_STATUS = 15; OPC$_X_SHUTDOWN = 16; OPC$_X_TIMESTAMP = 17; OPC$_X_SECURITY = 18; OPC$_X_CLUSMSG = 19; OPC$_X_DEBUG = 20; OPC$_X_CNXMAN = 21; OPC$_X_REQUEST_END_MARK = 22; OPC$K_CLM__ACKNOWLEDGEMENT = 1; (* Response to acknowledge request *) OPC$K_CLM__ACKNOWLEDGE_PLEASE = 2; (* Request for remote node to announce itself *) OPC$K_CLM__CANCEL = 3; (* Explicit cancel of request *) OPC$K_CLM__CHECK_OPERATOR = 4; (* Make sure this operator is in the database *) OPC$K_CLM__CHECK_REQUEST = 5; (* Make sure a request is in the database *) OPC$K_CLM__CLUMBX = 6; (* Cluster mailbox message passed from cnxman *) OPC$K_CLM__CLUSTER = 7; (* Cluster status change report *) OPC$K_CLM__DEVICE = 8; (* Device message (on-line, off-line etc) *) OPC$K_CLM__IMP_CANCEL = 9; (* Implicitly cancel a request *) OPC$K_CLM__IMP_DISABLE = 10; (* Implicitly disable an operator *) OPC$K_CLM__OPRENABLE = 11; (* Tell everyone else to enable or disable an operator *) OPC$K_CLM__REPLY = 12; (* REPLY /PEND etc command *) OPC$K_CLM__REPLY_COMPLETE = 13; (* Operator request completed by operator *) OPC$K_CLM__REQUEST = 14; (* Operator request *) OPC$K_CLM__RPYBRD = 15; (* Message from OPCOM to remotes, info for cluster REPLY /TERM, etc *) OPC$K_CLM__RPYBRD_LOCAL = 16; (* Broadcast message from REPLY to OPCOM on local node *) OPC$K_CLM__RPYNOT = 17; (* Reply notifications *) OPC$K_CLM__SECURITY = 18; (* Security alarm from remote *) OPC$K_CLM__SHUTDOWN = 19; (* Shut down operations *) OPC$K_CLM__LOGFILE = 20; (* Enable/disable logfile operator *) OPC$K_CLM__REQUEST_END_MARK = 21; OPC$K_HDR_SIZE = 26; (* Size of common header *) TYPE HEADER_MESSAGE$TYPE = RECORD CASE INTEGER OF 1: (OPC$B_RQSTCODE : $UBYTE; (* Request code *) OPC$B_SCOPE : $UBYTE; (* Request SCOPE *) OPC$L_OPTIONS : UNSIGNED; (* Request independent option bits. *) OPC$R_RQOPT : [BYTE(4)] RECORD END; OPC$L_ATTNMASK1 : UNSIGNED; (* Attention mask part 1 *) OPC$L_ATTNMASK2 : UNSIGNED; (* Attention mask part 2 *) OPC$L_RQSTID : UNSIGNED; (* User specified request id # *) OPC$L_UIC : UNSIGNED; (* UIC of requestor *) ); 2: (OPC$L_RQ_OPTIONS : [POS(48)] UNSIGNED; (* Request dependent options *) ); 3: (); 4: (OPC$B_RQOPT_CODE : [POS(48)] $UBYTE; (* a code byte and some fill *) ) END; CONST OPC$M_NOLOG = 1; OPC$M_NOBRD = 2; OPC$M_NOCLUSTER = 4; CONST OPC$K_OPRENABLE_MIN_SIZE = 30; (* Min message size header + 4 *) TYPE OPRENABLE_MESSAGE$TYPE = RECORD OPC$B_OPRENABLE_FILL : ARRAY [1..26] OF $BYTE; OPC$T_OPRENABLE_OPR : RECORD END ; (* Start of oper dev name *) END; CONST OPC$M_DISABLE = 1; OPC$M_PERMOPER = 2; OPC$M_NOREMIND = 4; CONST OPC$K_LOGFILE_MIN_SIZE = 30; (* Min message size header + 4 *) OPC$K_INITLOG = 0; (* If one is open, close logfile. Open new logfile. *) OPC$K_CLOSELOG = 1; (* Close logfile. *) OPC$K_ENABLELOG = 2; (* If no logfile is open, open a logfile. *) (* Add classes in ATTNMASK to logfile operator mask. *) CONST OPC$K_DISABLELOG = 3; (* Remove classes in ATTNMASK from logfile operator mask. *) (* If mask goes to 0, close logfile. *) CONST OPC$K_MAX_LOGOPT = 4; (* One more than maximum allowed *) TYPE LOGFILE_MESSAGE$TYPE = RECORD OPC$B_LOGFILE_FILL : ARRAY [1..26] OF $BYTE; (* Skip to request dependent options *) OPC$T_LOGFILE_OPR : RECORD END ; (* Start of oper dev name *) END; CONST OPC$K_REQUEST_MIN_SIZE = 28; (* Min message size *) TYPE REQUEST_MESSAGE$TYPE = RECORD OPC$B_REQUEST_FILL : ARRAY [1..26] OF $BYTE; OPC$W_REQUEST_LENGTH : $UWORD; (* Length of text *) OPC$T_REQUEST_TEXT : RECORD END ; (* Start of text *) END; CONST OPC$K_SECURITY_MIN_SIZE = 28; (* Min message size *) TYPE SECURITY_MESSAGE$TYPE = RECORD OPC$B_SECURITY_FILL : ARRAY [1..26] OF $BYTE; OPC$W_SECURITY_LENGTH : $UWORD; (* Length of text *) OPC$T_SECURITY_TEXT : RECORD END ; (* Start of text *) END; CONST OPC$K_REPLY_MIN_SIZE = 32; TYPE REPLY_MESSAGE$TYPE = RECORD OPC$B_REPLY_FILL : ARRAY [1..26] OF $BYTE; OPC$T_REPLY_OPR : RECORD END ; END; CONST OPC$K_STATUS_MIN_SIZE = 30; (* Min message size header + 4 *) TYPE STATUS_MESSAGE$TYPE = RECORD OPC$B_STATUS_FILL : ARRAY [1..26] OF $BYTE; OPC$T_STATUS_OPR : RECORD END ; (* Start of text *) END; CONST OPC$K_TIMESTAMP_MIN_SIZE = 26; (* Min message size *) TYPE TIMESTAMP_MESSAGE$TYPE = RECORD OPC$B_TIMESTAMP_FILL : ARRAY [1..26] OF $BYTE; END; CONST OPC$K_SHUTDOWN_MIN_SIZE = 26; (* Min message size *) TYPE SHUTDOWN_MESSAGE$TYPE = RECORD OPC$B_SHUTDOWN_FILL : ARRAY [1..26] OF $BYTE; END; CONST OPC$M_CLUSTER = 1; CONST OPC$K_CANCEL_MIN_SIZE = 26; (* Min message size *) TYPE CANCEL_MESSAGE$TYPE = RECORD OPC$B_CANCEL_FILL : ARRAY [1..26] OF $BYTE; END; CONST OPC$M_RQSTDONE = 1; TYPE OPCF_ARG$TYPE = RECORD CASE INTEGER OF 1: (OPCF_ARG$l_arg_data : INTEGER; (* argument data *) ); 2: (OPCF_ARG$r_arg_desc : [BYTE(4)] RECORD END; ); 3: (OPCF_ARG$w_arg_offset : [POS(0)] $UWORD; (* The offset to the argument data *) OPCF_ARG$w_arg_cntrl : [POS(16)] $UWORD; (* A control code for argument handling *) ) END; (* This structure defines a message sent to OPCOM using the MSG$_OPCFAO message type. *) TYPE OPCFAO$TYPE = RECORD CASE INTEGER OF 1: (OPCF$w_msgtype : $UWORD; (* Dispatch message type code *) OPCF$w_spare_1 : $UWORD; (* Unused word - alignment *) OPCF$l_opc_msg : UNSIGNED; (* The message file code for msg text *) OPCF$l_opc_class_msk : UNSIGNED; (* The operator class mask *) OPCF$l_arg_count : UNSIGNED; (* The number of arguments *) OPCF$r_variable_data : [BYTE(240)] RECORD END; ); 2: (OPCF$r_item_arg : [POS(128)] ARRAY [1..60] OF OPCF_ARG$TYPE; (* Argument items *) ); 3: (OPCF$t_item_cd : [POS(128)] PACKED ARRAY [1..240] OF CHAR; (* Argument data - character *) ); 4: (OPCF$l_item_ld : [POS(128)] ARRAY [1..60] OF UNSIGNED; (* Argument data - long *) ) END; (* OPCFAO option codes. Unless commented otherwise, these codes correspond to *) (* the equivalent FAO op code (e.g. !AC --> AC, !%T --> T). These codes are *) (* used as input arguments to exe_std$sndopcfao as controls. *) CONST OPCF$K_AC = 1; OPCF$K_AD = 2; OPCF$K_AF = 3; OPCF$K_AS = 4; OPCF$K_AS_DEVICE_NAME = 5; (* Pass UCB for conversion to device name string with descriptor *) OPCF$K_AZ = 6; OPCF$K_D = 7; OPCF$K_I = 8; OPCF$K_OA = 9; OPCF$K_OB = 10; OPCF$K_OH = 11; OPCF$K_OI = 12; OPCF$K_OJ = 13; OPCF$K_OL = 14; OPCF$K_OQ = 15; OPCF$K_OW = 16; OPCF$K_SA = 17; OPCF$K_SB = 18; OPCF$K_SH = 19; OPCF$K_SI = 20; OPCF$K_SJ = 21; OPCF$K_SL = 22; OPCF$K_SQ = 23; OPCF$K_SW = 24; OPCF$K_T = 25; OPCF$K_U = 26; OPCF$K_UA = 27; OPCF$K_UB = 28; OPCF$K_UH = 29; OPCF$K_UI = 30; OPCF$K_UJ = 31; OPCF$K_UL = 32; OPCF$K_UQ = 33; OPCF$K_UW = 34; OPCF$K_XA = 35; OPCF$K_XB = 36; OPCF$K_XH = 37; OPCF$K_XI = 38; OPCF$K_XJ = 39; OPCF$K_XL = 40; OPCF$K_XQ = 41; OPCF$K_XW = 42; OPCF$K_ZA = 43; OPCF$K_ZB = 44; OPCF$K_ZH = 45; OPCF$K_ZI = 46; OPCF$K_ZJ = 47; OPCF$K_ZL = 48; OPCF$K_ZQ = 49; OPCF$K_ZW = 50; OPCF$K_MIN_OPCFAO_CNTRL = 1; OPCF$K_MAX_OPCFAO_CNTRL = 50; OPCF$K_BY_REF = 1; (* Pass argument by reference *) OPCF$K_BY_VAL = 2; (* Pass argument by value *) OPCF$K_BY_DESC = 3; (* Pass argument by descriptor *) (* END. *) (* MODULE OPCMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OPCMSG ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:30.93 *) (* *) (* OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM *) (* *) (* VERSION: 'X-19' *) (* *) (************************************************************************************************ *) (** * *) (** COPYRIGHT 2001,2002 COMPAQ INFORMATION TECHNOLOGIES GROUP, L.P. * *) (** * *) (** COMPAQ AND THE COMPAQ LOGO ARE TRADEMARKS OF COMPAQ INFORMATION TECHNOLOGIES GROUP, * *) (** L.P. IN THE U.S. AND/OR OTHER COUNTRIES. * *) (** * *) (** CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM COMPAQ REQUIRED FOR POSSESSION, USE OR * *) (** COPYING. CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (** COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL ITEMS ARE LICENSED TO * *) (** THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD COMMERCIAL LICENSE. * *) (** * *) (************************************************************************************************ *) (*++ *) (* *) (* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES. *) (* *) (* ENVIRONMENT: *) (* *) (* N/A *) (* *) (*-- *) (* *) (* *) (* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *) (* *) (* MODIFIED BY: *) (* *) (* X-19 RAB0152 ROBERT A. BROOKS 23-FEB-2006 *) (* ADD SHADISSOLVED, SHAMEMEXPEL, AND SHAMEMDMT *) (* *) (* 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. *) (* *) (* X-16 KSG0145 KEVIN GREANEY 11-FEB-2003 *) (* MOVE MESSAGE MVSUPMSG TO THE BOTTOM OF THE MESSAGE FILE. *) (* THIS WAY, THE ASSOCIATED MESSAGES NUMBERS WILL STAY THE *) (* SAME, AND ANY DEPENDENCE ON THOSE MESSAGE NUMBERS WILL NOT *) (* BE IMPACTED. *) (* X-15 ABP ANU PANT 22-JAN-2003 *) (* ADD NEW SUPPRESS MOUNT VERIFICAITON, MVSUPMSG, MESSAGE CODE. *) (* *) (* X-14 KSG0143 KEVIN GREANEY 19-MAR-2002 *) (* FIX THE TEXT IN THE WSINCLUSTER MESSAGE. OPC$ENABLE_OPA0 *) (* SHOULD BE OPC$OPA0_ENABLE, AND OPC$ENABLE_LOGFILE SHOULD *) (* BE OPC$LOGFILE_ENABLE. *) (* *) (* X-13 RAB010 ROBERT A. BROOKS 31-OCT-2001 *) (* FOR PATHAUTSW AND PATHMANSW, ADD THE NAME OF THE NODE THAT *) (* IS SERVING THE OLD AND NEW PATHS. *) (* *) (* X-12 KSG0138 KEVIN GREANEY 04-OCT-2000 *) (* CHANGE THE TEXT IN WSINCLUSTER TO REMOVE THE REFERENCE TO *) (* WORKSTATION. SINCE MANY ALPHA SERVERS ARE SHIPPING WITH *) (* GRAPHICS CARDS, THEY ARE SEEN AS WORKSTATIONS BY THE COMMAND *) (* PROCEDURE VMS$DEVICE_STARTUP.COM. CUSTOMERS MIGHT NOT BE *) (* HAPPY SEEING THEIR ALPHASERVER REFERRED TO AS A WORKSTATION. *) (* *) (* X-11 KSG0137 KEVIN GREANEY 07-SEP-2000 *) (* MOVE THE MESSAGE ADDED IN X-10 TO THE BOTTOM OF THE FILE. *) (* THIS WAY, MESSAGES WILL RETAIN THE SAME VALUE IN CASE *) (* SOMEONE USES THAT INSTEAD OF THE MESSAGE NAME. *) (* *) (* X-10 OH OLIVER HELLWIG 30-JUN-2000 *) (* PTR 75-45-848 & 75-52-354 *) (* ADD A NEW MESSAGE FOR THE FIBRE CHANNEL DRIVER (FGE) THAT *) (* IS USED TO TELL THE USER THAT A FIBRE CHANNEL STORAGE DEVICE *) (* REJECTED THE DRIVER PORT LOGIN. *) (* *) (* X-9 KSG0132 KEVIN GREANEY 12-AUG-1999 *) (* ADD A TRAILING BLANK LINE TO THE WSINCLUSTER MESSAGE *) (* ADDED BELOW. IT WILL MAKE IT STAND OUT A LITTLE MORE. *) (* *) (* X-8 KSG0132 KEVIN GREANEY 08-JUL-1999 *) (* ADD WSINCLUSTER MESSAGE TO LET USERS KNOW THAT THIS SYSTEM *) (* IS A WORKSTATION IN A CLUSTER. AND, BY DEFAULT, OPCOM WILL *) (* NOT ENABLE THE OPERATOR CONSOLE OR LOGFILE. *) (* *) (* X-7 KSG KEVIN GREANEY 15-APR-1999 *) (* ADD THE CODE TO INCLUDE THE STANDARD HEADER IN THE TWO *) (* MESSAGES THAT WERE ADDED IN EDIT X-6. *) (* *) (* *) (* X-6 KSG KEVIN GREANEY 05-APR-1999 *) (* ADD OPA0CLERR AND LOGFCLERR ERROR MESSAGES. THIS *) (* IS PART OF THE FIX FOR CFS.51506/PTR 70-3-112. *) (* *) (* NOTE: PATHINUSE WAS NOT ADDED IN EDIT X-5. THE *) (* REASON FOR THE OMISSION IS NOT KNOWN. *) (* *) (* X-5 JMB022 JAMES M. BLUE 14-JUL-1998 *) (* THE FOLLOWING MESSAGES HAVE BEEN ADDED FOR DK DRIVER - FIBRE *) (* CHANNEL AND MULTIPATH REQUIREMENTS - *) (* *) (* PATHINUSE - ANOTHER WORLD WIDE ID DEVICE IS CURRENTLY *) (* 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 *) (* AUTOMATICALLY TO A NEW PATH. *) (* PATHMANSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHED *) (* MANUALLY TO A NEW PATH. *) (* *) (* X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993 *) (* ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA. *) (* *) (* X-3 DBM0001 DAVID B. MILLER 13-APR-1993 *) (* BLADE PARITY; MERGE OF LATEST CHANGES: *) (* *) (* X-5 JJA92B05_1 JOHN J. ANDRUSZKIEWICZ 21-DEC-1992 *) (* ALIGN TO EXPECTED VSC GENERATION NUMBER. *) (* MOVE THOSE VOLUME SHADOWING PHASE II MESSAGES. *) (* *) (* X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992 *) (* ADD VOLUME SHADOWING PHASE II MESSAGES. *) (* *) (* X-2 WES WILLIAM E. SNAMAN 12-JUN-1992 14:32 *) (* CHANGE VAXCLUSTER TO VMSCLUSTER. FIX IDENT TO MATCH CMS. *) (* *) (* X-9 CWH5209 CW HOBBS 8-APR-1989 *) (* ADD REQUEST NUMBER TO NOPERATOR MESSAGE. *) (* *) (* X-8 CWH5208 CW HOBBS 12-MAR-1989 *) (* ADD A MORE MEANINGFUL MESSAGE FOR "OPCOM not running". *) (* *) (* X-7 WES0235 WILLIAM E. SNAMAN 08-JAN-1988 *) (* FIX SPACING ERROR IN MESSAGE. *) (* *) (* X-6 WES0185 WILLIAM E. SNAMAN 02-SEP-1987 *) (* ADD SOME NEW CLUSTER MESSAGES FOR SERVED QUORUM DISKS. *) (* *) (* X-5 WES0171 WILLIAM E. SNAMAN 29-JUL-1987 *) (* ADD SOME NEW CLUSTER MESSAGES AND FIX MODULE IDENT. *) (* *) (* X-2 NCD0001 NANCY C. DENARDO 29-DEC-1986 *) (* ADD LICENSE OPERATOR CLASS *) (* *) (* V04-001 DBM0400 DB MILLS 9-SEP-1985 *) (* ADD VOLUME SHADOWING MESSAGES. *) (* *) (* V03-013 CWH3013 CW HOBBS 2-SEP-1984 *) (* RESTORE THE EMBEDDED IN RQST_PROMPT WHICH WAS *) (* REMOVED IN ACG0449. *) (* *) (* V03-012 ACG0449 ANDREW C. GOLDSTEIN, 31-AUG-1984 13:41 *) (* FIX TEXT OF "counterfeit security alarm" MESSAGE *) (* *) (* V03-011 CWH3011 CW HOBBS 18-MAY-1984 *) (* CHANGE THE IN OPREPLY TO A !/ DIRECTIVE. *) (* *) (* V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984 *) (* FIX UP THE SECURITY ALARM MESSAGE. *) (* *) (* V03-009 CWH3169 CW HOBBS 5-MAY-1984 *) (* SECOND PASS FOR CLUSTER-WIDE OPCOM: *) (* - CHANGE SEVERAL MESSAGES TO USE THE STANDARD HEADER, ONLY *) (* A FEW STILL USE THE SHORT HEADER. *) (* - CHANGE THE FORMAT OF THE HEADER SLIGHTLY, MAKE IT MORE *) (* CLEAR WHEN MESSAGES COME FROM OTHER NODES. *) (* - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE *) (* THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE. *) (* - ADD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT *) (* WAS APPARENTLY NEVER PUT IN. *) (* *) (* V03-008 CWH3008 CW HOBBS 12-APR-1984 *) (* CHANGE SOME OF THE CONNECTION MANAGER MESSAGES *) (* *) (* V03-007 RSH0114 R. SCOTT HANNA 12_MAR-1984 *) (* CHANGE THE OPC$_COUNTERFEIT MESSAGE. *) (* *) (* V03-006 RSH0110 R. SCOTT HANNA 28-FEB-1984 *) (* CHANGE THE FAO ARGUMENTS IN THE OPC$_SECUR_ALARM MESSAGE. *) (* *) (* V03-005 CWH3005 CW HOBBS 27-SEP-1983 *) (* IMPROVE CONNECTION MANAGER MESSAGES. *) (* *) (* V03-004 CWH3004 CW HOBBS 16-SEP-1983 *) (* SHORTEN HEADER *) (* *) (* V03-003 CWH3003 CW HOBBS 16-SEP-1983 *) (* ADD CONNECTION MANAGER MESSAGES. *) (* *) (* V03-002 CWH3001 CW HOBBS 30-JUL-1983 *) (* VARIOUS AND SUNDRY THINGS TO MAKE OPCOM DISTRIBUTED *) (* ACROSS THE CLUSTER. *) (* *) (* V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-1982 *) (* ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO. *) (* *) (* V02-006 STJ0180 STEVEN T. JEFFREYS, 07-JAN-1981 *) (* ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLY *) (* CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES. *) (* *) (* V02-005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-1981 *) (* ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP. *) (* *) (* V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981 *) (* ADDED AN ALTERNATE CANCEL MESSAGE. *) (* ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP. *) (* ADDED MESSAGES FOR MOUNT VERIFICATION SUPPORT. *) (* *) (* V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-1981 *) (* CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND *) (* TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES. *) (* *) (* 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 *) (*- *) CONST OPCOM$_FACILITY = 5; OPC$_TERMENAB = 360449; OPC$_LOGINIT = 360457; OPC$_TERMDSBL = 360465; OPC$_RQSTABORT = 360476; OPC$_RQSTPEND = 360481; OPC$_RQSTCMPLTE = 360489; OPC$_LOGFAIL = 360500; OPC$_TERMFAIL = 360508; OPC$_NOSUCHRQST = 360516; OPC$_DEVOFFLINE = 360524; OPC$_DEVONLINE = 360532; OPC$_NOCLI = 360540; OPC$_NOPERATOR = 360545; OPC$_UNKNOPR = 360556; OPC$_DEVNOTERM = 360564; OPC$_ILLRQST = 360572; OPC$_RQSTCAN = 360580; OPC$_OPRNOTIF = 360585; OPC$_OPREPLY = 360593; OPC$_LOGTIME = 360601; OPC$_LOGCLOS = 360612; OPC$_USERQST = 360619; OPC$_USERMSG = 360627; OPC$_LOGSTS = 360635; OPC$_OPERSTS = 360643; OPC$_RQSTSTST = 360651; OPC$_SHUTDOWN = 360659; OPC$_SYSTEMOPER = 360667; OPC$_GROUPOPER = 360675; OPC$_USEROPER = 360683; OPC$_NOTENABLED = 360691; (* *) (* THE FOLLOWING MESSAGES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT IS *) (* POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, AN *) (* INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTHER NAME, SAY FRONT_DESK. *) (* THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ: *) (* *) (* OPER12 *) (* *) (* AFTERWARDS, USERS ON THAT SYSTEM COULD REPLY /ENABLE=FRONT_DESK, REQUEST /TO=FRONT, *) (* A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED. *) (* OF COURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SEND *) (* A MESSAGE TO THE FRONT_DESK, SINCE THE MESSAGE NAME CAN NOT BE CHANGED. *) (* *) CONST OPC$_CENTRL = 360699; OPC$_PRINT = 360707; OPC$_TAPES = 360715; OPC$_DISKS = 360723; OPC$_DEVICE = 360731; OPC$_CARDS = 360739; OPC$_NTWORK = 360747; OPC$_CLUSTER = 360755; OPC$_SECURITY = 360763; OPC$_REPLY = 360771; OPC$_SOFTWARE = 360779; OPC$_LICENSE = 360787; OPC$_OPER1 = 360795; OPC$_OPER2 = 360803; OPC$_OPER3 = 360811; OPC$_OPER4 = 360819; OPC$_OPER5 = 360827; OPC$_OPER6 = 360835; OPC$_OPER7 = 360843; OPC$_OPER8 = 360851; OPC$_OPER9 = 360859; OPC$_OPER10 = 360867; OPC$_OPER11 = 360875; OPC$_OPER12 = 360883; (* *) CONST OPC$_DEVOFFLINX = 360891; OPC$_WRONGVOL = 360899; OPC$_DEVWRTLCK = 360907; (* *) CONST OPC$_INITAPE = 360915; OPC$_RQSTDONE = 360923; OPC$_BLANKTAPE = 360931; (* *) CONST OPC$_MVCOMPLETE = 360939; OPC$_MVABORTED = 360947; OPC$_CTLRUCODE = 360955; OPC$_DUPUNITNO = 360963; OPC$_SECUR_ALARM = 360971; OPC$_COUNTERFEIT = 360979; OPC$_NODE_ACTIVE = 360987; OPC$_NODE_DELETE = 360995; OPC$_NODE_DEPARTED = 361003; OPC$_NODE_INIT = 361011; OPC$_NODE_RETRY = 361019; OPC$_NODE_START = 361027; OPC$_UNKNOWN = 361035; OPC$_CLUSCOMM = 361043; OPC$_VALUERR = 361052; OPC$_NOTRQCB = 361060; OPC$_REPLY_GENERAL = 361067; OPC$_REPLY_SHUTDOWN = 361075; OPC$_REPLY_URGENT = 361083; OPC$_REPLY_NOTALL = 361091; OPC$_REPLY_NOTALLN = 361099; OPC$_REPLY_NOTDEV = 361107; OPC$_REPLY_NOTUSE = 361115; OPC$_REPLY_NOTUSEN = 361123; OPC$_ON_NODE = 361131; (* PREPOSITION FOR "on nodename" ("on ATHENS") MESSAGES *) OPC$_HEADER = 361139; OPC$_RQST_PROMPT = 361147; OPC$_NOLCLBROAD = 361152; OPC$_NOREMBROAD = 361160; OPC$_NOREMWAIT = 361168; (* *) (* CLUSTER MAILBOX MESSAGES *) (* FAO PARAMETER LIST IS: *) (* *) (* TIMESTAMP - POINTER TO QUADWORD TIME *) (* LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM *) (* LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM *) (* LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID *) (* LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID *) (* LCSID - LOCAL SYSTEM CSID *) (* RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM *) (* RSYSNAMA - ADDRESS OF NAME OF REMOTE SYSTEM *) (* RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID *) (* 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. *) (* *) CONST OPC$_CLU_NEWSYS = 361179; OPC$_CLU_CNX = 361187; OPC$_CLU_RECNX = 361195; OPC$_CLU_LOSTCNX = 361203; OPC$_CLU_TIMCNX = 361211; OPC$_CLU_INIFORM = 361219; OPC$_CLU_INIADD = 361227; OPC$_CLU_INIRECNFIG = 361235; OPC$_CLU_MEMREQ = 361243; OPC$_CLU_ABORT = 361251; OPC$_CLU_ADD = 361259; OPC$_CLU_DROPNODE = 361267; OPC$_CLU_FORNCLUS = 361275; OPC$_CLU_INQUORUM = 361283; OPC$_CLU_LOSTDISK = 361291; OPC$_CLU_GAINDISK = 361299; OPC$_CLU_DISKRDERR = 361307; OPC$_CLU_DISKWRERR = 361315; OPC$_CLU_DISKINVDAT = 361323; OPC$_CLU_DISKTIMEOUT = 361331; OPC$_CLU_LOSTMSG = 361339; OPC$_CLU_NOQUORUM = 361347; OPC$_CLU_FORNDISK = 361355; OPC$_CLU_COMPLETE = 361363; OPC$_CLU_QUORUM = 361371; OPC$_CLU_ECNX = 361379; OPC$_CLU_HAVEDISK = 361387; OPC$_CLU_REMOTE = 361395; OPC$_CLU_LOCAL = 361403; OPC$_CLU_WTCHTIMEOUT = 361411; OPC$_CLU_NOTRUST = 361419; (* *) (* FOLLOWING ARE DEVICE MESSAGE FOR SHADOWING. *) (* *) CONST OPC$_SHACHASTA = 361427; OPC$_SHAMEMFAL = 361435; OPC$_SHARDUCED = 361443; OPC$_SHACOPCOM = 361451; OPC$_SHACOPBEG = 361459; OPC$_SHAALLCOM = 361467; OPC$_SHAWROMEM = 361475; OPC$_SHAREDZER = 361483; OPC$_SHAPOSMEM = 361491; OPC$_SHAORGMEM = 361499; OPC$_NOOPCOM = 361504; (* FOLLOWING ARE MORE DEVICE MESSAGE FOR SHADOWING. *) (* *) CONST OPC$_SHAADPBAD = 361515; OPC$_SHAEMUPTH = 361523; OPC$_SHABENODMP = 361531; OPC$_SHABNODMP = 361539; OPC$_SHALOCDEV = 361547; OPC$_SHANOBPOK = 361555; OPC$_SHABDMPOK = 361563; OPC$_BOOTDMPOK = 361571; OPC$_SHABDBCK = 361579; OPC$_SHANODMP = 361587; OPC$_SHADMPOK = 361595; (* THE FOLLOWING MESSAGES ARE FOR FIBRE CHANNEL - MULTIPATH *) (* *) CONST OPC$_PATHNOTAVL = 361603; OPC$_PATHAVL = 361611; OPC$_PATHUSERD = 361619; OPC$_PATHAUTSW = 361627; OPC$_PATHMANSW = 361635; OPC$_OPA0CLERR = 361640; OPC$_LOGFCLERR = 361648; OPC$_WSINCLUSTER = 361659; OPC$_LOGIN_REJECTED = 361664; OPC$_MVSUPMSG = 361675; OPC$_INSAMCVP = 361683; OPC$_HBMMRESET = 361691; OPC$_SHADISSOLVED = 361699; OPC$_SHAMEMEXPEL = 361707; OPC$_SHAMEMDMT = 361715; (* END. *) (* MODULE OTSMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $OTSDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:36.85 *) (* *) (* FILE: OTSMSG.MSG EDIT: SBL2003 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL *) (* VERSION 1-009. SBL 22-APR-1981 *) (* 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-1981 *) (* 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 *) (*-- *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* OTS$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* 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 *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (*+ *) (* DEFINE OTS$ SEVERE ERROR MESSAGES *) (*- *) (* ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$) *) (* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE *) (* ; SET LH TO 23 (DECIMAL) OTS$ PREFIX *) CONST OTS$_FACILITY = 23; OTS$_INVSTRDES = 1540108; OTS$_FATINTERR = 1540116; OTS$_INTDATCOR = 1540124; OTS$_IO_CONCLO = 1540132; OTS$_INPCONERR = 1540140; OTS$_OUTCONERR = 1540148; OTS$_STRIS_INT = 1540156; OTS$_INSVIRMEM = 1540164; OTS$_WRONUMARG = 1540172; (* ; OTS$SCOPY *) (*+ *) (* DEFINE OTS$ WARNING MESSAGES: *) (*- *) (* ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$) *) (* ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING *) (* ; SET LH TO 23 (DECIMAL) OTS$ PREFIX *) CONST OTS$_USEFLORES = 1541120; (* END. *) (* MODULE PSMMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $PSMMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:25.91 *) (* *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* FACILITY: *) (* PRINT SYMBIONT. *) (* *) (* ABSTRACT: *) (* SYMBIONT MESSAGES. *) (* *) (* ENVIRONMENT: *) (* VAX/VMS USER AND KERNEL MODE. *) (* *) (* AUTHOR: G. ROBERT, CREATION DATE: 31-AUG-1982 *) (* *) (* MODIFIED BY: *) (* *) (* X-4 SG047 SHEELA GAYATRI 27-DEC-1994 *) (* ADDED PSM$_INVPREFIX. *) (* *) (* X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993 *) (* CHANGED COPYRIGHT TO 1993 *) (* *) (* X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993 *) (* ADDED PSM$_LATSYM *) (* *) (* 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 *) (* ADD MISSING .END STATEMENT. *) (* *) (* 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-1984 *) (* SEPARATE THE PSM MESSAGES AND THE SMB MESSAGES. *) (* *) (* 3B-008 GRR3008 GREGORY R. ROBERT 29-APR-1984 *) (* ADDED PSM$_FLUSH *) (* *) (* 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-1983 *) (* BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES, *) (* SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM, *) (* HANGUP CODE, READ AND WRITE ITEM SERVICES *) (* *) (* 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983 *) (* CHANGED FUNNOTSUP TO SUCCESS. *) (* *) (* 3B-005 GRR3005 GREGORY R. ROBERT 29-JUL-1983 *) (* ADDED MESSAGES FOR FT1. *) (* *) (* 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983 *) (* ADDED "module not found" AND "too many levels" MESSAGES. *) (* *) (* 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983 *) (* REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR. *) (* *) (* 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983 *) (* ADDED PSM$_NOMOREITEMS. *) (* *) (*** *) (* *) (* THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FOR *) (* MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY *) (* THE $MSGDEF MACRO. *) (* *) CONST PSM$_FACILITY = 262; PSM$_FUNNOTSUP = 17203201; PSM$_PENDING = 17203209; PSM$_FLUSH = 17203217; PSM$_BUFFEROVF = 17203224; PSM$_NEWPAGE = 17203232; PSM$_SUSPEND = 17203240; PSM$_ESCAPE = 17203248; PSM$_EOF = 17203258; PSM$_INVVMSOSC = 17203266; PSM$_MODNOTFND = 17203274; PSM$_NOFILEID = 17203282; PSM$_OSCTOOLON = 17203290; PSM$_TOOMANYLEV = 17203298; PSM$_INVITMCOD = 17203308; PSM$_LATSYM = 17203314; PSM$_INVPREFIX = 17203324; (* END. *) (* MODULE REGMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $REGMSG ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:46.29 *) (* *) (*! *) (*! FILE: REGMSG.MSG *) (*! *) (*! IDENT: X-17 *) (*! *) (*! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) (*! * *) (*! COPYRIGHT 1996 BY * *) (*! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. * *) (*! ALL RIGHTS RESERVED * *) (*! * *) (*! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (*! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (*! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (*! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (*! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (*! TRANSFERRED. * *) (*! * *) (*! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (*! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (*! CORPORATION. * *) (*! * *) (*! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (*! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (*! * *) (*! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *) (*!++ *) (*! FACILITY: *) (*! *) (*! OPENVMS REGISTRY - SERVER *) (*! *) (*! ABSTRACT: *) (*! *) (*! THIS MODULE CONTAINS THE REGISTRY ERROR MESSAGES *) (*! *) (*! AUTHORS: *) (*! *) (*! ELIE COHEN *) (*! *) (*! CREATION DATE: 25-JAN-1996 *) (*! *) (*! MODIFICATION HISTORY: *) (*! *) (*! *) (*! X-017 PRD PAUL R. DESTEFANO 17-JAN-2001 *) (*! ADDED DTRWLOCKSELF AND DTRWLOCKLOCKED MESSAGES. *) (*! *) (*! X-016 MPD0134 MATTHEW DOREMUS 16-FEB-1999 *) (*! ADDED MESSAGES: CVTDATATYPE, CANTOPENINFILE, & INVVALNAME. *) (*! *) (*! X-015 MPD0123 MATTHEW DOREMUS 14-JAN-1999 *) (*! ADDED MESSAGES: INVTLV, ACTIVE, INACTIVE, & NOTSTARTED. *) (*! *) (*! X-014 PRD PAUL R. DESTEFANO 06-AUG-1998 *) (*! FIX TYPOS, FIX CAPITALIZATION, REPHRASE A FEW MESSAGES. *) (*! *) (*! X-013 PRD PAUL R. DESTEFANO 01-JUL-1998 *) (*! ADD IDNOTADDED AND NORESPONSE MESSAGES. *) (*! *) (*! X-012 PRD PAUL R. DESTEFANO 29-JUN-1998 *) (*! ADD /MACRO=$REGMSG TO THE .FACILITY DIRECTIVE. THIS INSURES THAT *) (*! THE OUTPUT OF A MESSAGE/SDL CONTAINS A "module $REGMSG" STATEMENT *) (*! AND THAT CONVERTING FROM .MSG TO .SDL TO .SDI TO .H (AS DONE BY *) (*! THE BUILD OF THE [STARLET_H] FACILITY RESULTS IN A FILE CALLED *) (*! REGMSG.H. WITHOUT THIS, THE MESSAGE GETS THE MODULE NAME FROM *) (*! THE FACILITY NAME "REG" AND APPENDS "DEF" TO IT. THE RESULT IS *) (*! A MODULE CALLED "REGDEF.H", WHICH CONFLICTS WITH ANOTHER HEADER *) (*! MODULE OF THE SAME NAME. *) (*! *) (*! X-011 ELIE COHEN 14-MAR-1998 *) (*! ADD NOTDELIVER MESSAGE *) (*! X-010 ELIE COHEN 19-FEB-1998 *) (*! ADD INVCREDENTIALS MESSAGE *) (*!! X-009 ELIE COHEN 10-FEB-1998 *) (*! ADD INVSECDESCRIPTOR MESSAGE *) (*! X-008 ELIE COHEN 28-JAN-1998 *) (*! REWORD CONTENT OF REG$_EXQUOTA *) (*! X-007 ELIE COHEN 20-NOV-1997 *) (*! ADD CANTCONVCS MESSAGE *) (*! X-006 ELIE COHEN 13-AUG-1997 *) (*! MODIFY INVDATA MESSAGE TEXT *) (*! X-005 ELIE COHEN 12-AUG-1997 *) (*! CORRECT TYPOS *) (*! X-004 ELIE COHEN 23-MAY-1997 *) (*! ADD STRINGTOOLONG MESSAGE *) (*! X-003 PAT NELSON 03-APR-1997 *) (*! ADD KEYNAMEEXIST. EDITED MESSAGE TEXT *) (*! X-002 KEN MATSUDA 28-MAR-1997 *) (*! ADD INVDATA MESSAGE FOR INVALID VALUE ENTRIES. *) (*! X-001 ELIE COHEN 25-JAN-1995 *) (*! MODULE CREATION *) (*!-- *) CONST REG$_FACILITY = 1862; REG$_KEYCHANGED = 122060803; REG$_NOMOREITEMS = 122060811; REG$_NOMORESUBSTRING = 122060819; REG$_OBJWITHLINK = 122060827; REG$_REQRECEIVED = 122060835; REG$_IDNOTADDED = 122060843; REG$_DTRWLOCKSELF = 122060851; REG$_BADFILEVER = 122061200; REG$_DELROOTKEY = 122061208; REG$_DOUBLEDEALLOC = 122061216; REG$_HASLINK = 122061224; REG$_KEYEXIST = 122061232; REG$_VALUEEXIST = 122061240; REG$_NOKEY = 122061248; REG$_NOSUCHFILE = 122061256; REG$_NOVALUE = 122061264; REG$_NOTDELIVER = 122061272; REG$_CVTDATATYPE = 122061280; REG$_BUFFEROVF = 122061602; REG$_CANTCONVCS = 122061610; REG$_CANTCONVUNI = 122061618; REG$_CANTOPENOUTFILE = 122061626; REG$_DBALREADYLOADED = 122061634; REG$_DBCSMISMATCH = 122061642; REG$_DBNOTYETLOADED = 122061650; REG$_DBVERMISMATCH = 122061658; REG$_DUPLREQUEST = 122061666; REG$_DTMUTEXERROR = 122061674; REG$_DTMUTEXINIT = 122061682; REG$_DTMUTEXLOCK = 122061690; REG$_DTMUTEXLOCKED = 122061698; REG$_DTMUTEXUNLOCK = 122061706; REG$_DTRWLOCKINIT = 122061714; REG$_DTRWLOCKLOCK = 122061722; REG$_DTRWLOCKUNLOCK = 122061730; REG$_EXQUOTA = 122061738; REG$_FILECREATE = 122061746; REG$_FILENAMEINVAL = 122061754; REG$_FILEOPEN = 122061762; REG$_FILEREADEOF = 122061770; REG$_FNAMMISMATCH = 122061778; REG$_FSOCORRUPT = 122061786; REG$_FSOFILEINDEX = 122061794; REG$_FSOOFFSET = 122061802; REG$_FSOSEGNUMBER = 122061810; REG$_FSOSEGREADERR = 122061818; REG$_FTEALLOC = 122061826; REG$_FTEINUSE = 122061834; REG$_FTEDUPNAME = 122061842; REG$_FTEINSUFFINFO = 122061850; REG$_FTEALREADYOPEN = 122061858; REG$_FTENOTOPEN = 122061866; REG$_FTENOTEXIST = 122061874; REG$_FTEALREADYEXIST = 122061882; REG$_HAVESUBKEYS = 122061890; REG$_INVCACHEACTION = 122061898; REG$_INVDATA = 122061906; REG$_INVDATATYPE = 122061914; REG$_INVFUNCCODE = 122061922; REG$_INVKEYID = 122061930; REG$_INVKEYFLAGS = 122061938; REG$_INVKEYNAME = 122061946; REG$_INVLINK = 122061954; REG$_INVLINKPATH = 122061962; REG$_INVLOG = 122061970; REG$_INVPARAM = 122061978; REG$_INVPATH = 122061986; REG$_INVSECPOLICY = 122061994; REG$_INVVOLROOTKEY = 122062002; REG$_IOREADERR = 122062010; REG$_IOWRITERR = 122062018; REG$_IPLTOOHIGH = 122062026; REG$_KEYLOCKED = 122062034; REG$_KEYNAMEEXIST = 122062042; REG$_LOGFILETABFULL = 122062050; REG$_LTENOTEXIST = 122062058; REG$_MOREDATA = 122062066; REG$_NOTROOTKEY = 122062074; REG$_NOTSUPPORTED = 122062082; REG$_NOPATHFOUND = 122062090; REG$_RESERVED = 122062098; REG$_ROOTINSFILE = 122062106; REG$_RUIDMISMATCH = 122062114; REG$_SECVIO = 122062122; REG$_SEGREADERR = 122062130; REG$_STRINGTRUNC = 122062138; REG$_SVRVERMISMATCH = 122062146; REG$_SVRSHUTDOWN = 122062154; REG$_TOOMANYOPENKEY = 122062162; REG$_UNKTHRREQ = 122062170; REG$_VOLMISMATCH = 122062178; REG$_STRINGTOOLONG = 122062186; REG$_INVSECDESCRIPTOR = 122062194; REG$_ACCESSDENIED = 122062202; REG$_INVCREDENTIALS = 122062210; REG$_INVTLV = 122062218; REG$_ACTIVE = 122062226; REG$_INACTIVE = 122062234; REG$_NOTSTARTED = 122062242; REG$_CANTOPENINFILE = 122062250; REG$_INVVALNAME = 122062258; REG$_DTRWLOCKLOCKED = 122062266; REG$_CANTCLEANVOLSEG = 122062404; REG$_DBACCESS = 122062412; REG$_DBCREATE = 122062420; REG$_DBFIND = 122062428; REG$_DBFULL = 122062436; REG$_DBLOAD = 122062444; REG$_FTIMISMATCH = 122062452; REG$_INTERNERR = 122062460; REG$_INVLOGREC = 122062468; REG$_INVSEGNUM = 122062476; REG$_IPCCONACC = 122062484; REG$_IPCCONREJ = 122062492; REG$_IPCDCLAST = 122062500; REG$_IPCOPEASS = 122062508; REG$_NOBLOCKFOUND = 122062516; REG$_NOMEMORY = 122062524; REG$_NOMORESEG = 122062532; REG$_NORESPONSE = 122062540; REG$_NOLOGNAM = 122062548; (* END. *) (* MODULE RMSDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $RMSDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:36.33 *) (* *) (* .TITLE RMSMSG -RMS COMPLETION CODES *) (* ************************************************************************* *) (* * * *) (* * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1976, 1977, 1978, 1979, * *) (* * 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, * *) (* * 1991,1992-1999 * *) (* * COMPAQ COMPUTER CORPORATION, 2000-2002 * *) (* * HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P., 2003-2005 * *) (* * ALL RIGHTS RESERVED. * *) (* * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED * *) (* * STATES. * *) (* * * *) (* * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES * *) (* * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. * *) (* * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND * *) (* * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM * *) (* * DIGITAL EQUIPMENT CORPORATION. * *) (* * * *) (* * RESTRICTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. * *) (* * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH * *) (* * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. * *) (* * * *) (* ************************************************************************* *) (*++ *) (* FACILITY: RMS *) (* *) (* ABSTRACT: *) (* *) (* THIS MODULE DEFINES ALL RMS COMPLETION CODES. *) (* *) (* ENVIRONMENT: *) (* *) (* THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSMSG.MSG INTO *) (* RMSMSG.SDL. THE SDL TRANSLATOR MUST THEN BE USED TO CONVERT *) (* RMSMSG.SDL INTO RMSMSG.MAR (AND RMSMSG.B32). *) (* *) (* AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 *) (* *) (* MODIFIED BY: *) (* *) (* X-18 ACG0724 ANDY GOLDSTEIN, 10-FEB-2009 11:27 *) (* ADD RMS$_IVSF MESSAGE FOR INVALID SYMLINKS *) (* *) (* X-17 EMW0362 ELINOR M. WOODS 02-MAY-2005 *) (* ADD 2 NEW FATAL STATUSES RMS$_FOPEXTMBZ AND *) (* RMS$_INVOP_SSIO (WITHOUT STV) FOR SSIO SUPPORT. *) (* *) (* X-16 SAD STUART A. DAVIDSON 5-OCT-2004 *) (* ADD RMS$_ELOOP FOR SYMBOLIC LINK SUPPORT. ELOOP IS *) (* RETURNED IF MORE THAN A CERTAIN NUMBER OF SYMBOLIC LINKS *) (* ARE TRAVERSED IN A SINGLE FILE LOOKUP. *) (* *) (* X-15 EMW0300 ELINOR M. WOODS 03-JAN-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. *) (* *) (* X-14 EMW0196 ELINOR M. WOODS 08-SEP-1999 *) (* BKT-LOCK ENHANCEMENTS: ADD ONE NEW FATAL ERROR *) (* STATUS (CRBUFOBJ) WITH AN ASSOCIATED STV. *) (* *) (* X-13 EMW0195 ELINOR M. WOODS 25-AUG-1999 *) (* 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-1997 *) (* INTEGRATE THE ONE HFS CHANGE INTO MAINSTREAM, AND ADD NAML *) (* MESSAGE *) (* *) (* TAM0015 TERI A. MANSEAU 18-APR-1997 *) (* ADDED TWO NAML WARNING MESSAGES RMS$_NAMLESS *) (* AND RMS$NAMLRSS. *) (* *) (* X-10 EMW0132 ELINOR M. WOODS 11-APR-1997 *) (* ADD NEW RMS-INTERNAL ERROR STATUS RMS$_EOFASY_SYNCH. *) (* FOR INTERNAL USE ONLY; NEVER RETURNED TO USER. *) (* *) (* X-9 EMW0084 ELINOR M. WOODS 08-FEB-1996 *) (* PW INTEGRATION: REMOVE NEW ALTERNATE SUCCESS STATUS: *) (* RMS$_OK_URECEOF. ENDED UP NOT NEEDED. *) (* *) (* X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-1995 *) (* 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 SUCCESS STATUS AND DOES NOT HAVE *) (* A STV STATUS ASSOCIATED WITH IT. *) (* *) (* *) (* X-7 EMW ELINOR M. WOODS 10-AUG-1994 *) (* MERGE IN OPENVMS VAX DRAGON CHANGE: *) (* *) (* 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 KRF *) (* STATUS MORE GENERIC BY REMOVING "for $GET/$FIND." *) (* *) (* X-6 EMW ELINOR M. WOODS 30-JUN-1994 *) (* MERGE IN OPENVMS VAX DRAGON CHANGE: *) (* *) (* X-12 EMW0026 ELINOR M. WOODS 15-JUN-1994 *) (* ADD ONE NEW USER-REPORTABLE STATUS: NXR *) (* . 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 *) (* STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV. *) (* *) (* 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: *) (* *) (* X-10 EMW0019 ELINOR M. WOODS 21-SEP-1993 *) (* ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN *) (* ASSOCIATED STV): NETBTS. RELOCATE NEW IDXSEARCH STATUS *) (* (SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT *) (* STV" section. Expand "WITH STV' AND "without STV" *) (* COMMENTS TO CLARIFY DIFFERENCE BETWEEN TWO. *) (* *) (* 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 *) (* STV GROUPING TO ERROR WITH STV GROUPING. *) (* *) (* X-3 EMW0010 ELINOR M. WOODS 02-JUL-1993 *) (* TO SUPPORT NEW KEY-LESS-THAN FUNCTIONALITY, ADDITION *) (* OF ONE USER-REPORTABLE ERROR STATUS: IDXSEARCH, AND *) (* 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-1992 *) (* 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: *) (* *) (* 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-1990 *) (* CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE. *) (* *) (* X-31 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989 *) (* MERGE OF RMS/DDTM GENERATION X-30D2. *) (* ADD GENERAL DDTM_ERR ERROR MESSAGE FOR DDTM SERVICE FAILURES; *) (* STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE. *) (* *) (* X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988 *) (* ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY. *) (* THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM. *) (* *) (* X-29 GJA0080 GARY J. ALLISON 06-JUN-1988 *) (* CHANGE TEXT OF SEMANTICS MESSAGE. *) (* *) (* X-28 GJA0072 GARY J. ALLISON 02-MAR-1988 *) (* ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND SEMANTICS MESSAGES. *) (* *) (* X-27 PMV0072 PETER M. VATNE 08-OCT-1987 *) (* CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH. *) (* *) (* X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987 *) (* CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE *) (* IS APPLICABLE TO $GET AS WELL AS $PUT. *) (* *) (* X-25 PMV0068 PETER M. VATNE 11-SEP-1987 *) (* ADD RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF. *) (* *) (* X-24 RNM0026 RUSSELL N. MURRAY 15-AUG-1987 *) (* ADD RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS *) (* COMPLETION. *) (* *) (* X-23 JEJ0479 JAMES E JOHNSON 13-AUG-1987 *) (* ADD RMS$_IVATRACE MESSAGE. *) (* *) (* X-22 PMV0061 PETER M. VATNE 03-AUG-1987 *) (* CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAIL *) (* TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL. *) (* *) (* X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987 *) (* CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL *) (* TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL *) (* *) (* 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. *) (* *) (* X-17J1 PJH PAUL J. HOULIHAN 15-JAN-1987 *) (* FIX SEVERAL SMALL JNL PROBLEMS. *) (* ADD RMS$_BUG_FLUSH_JNL_FAILED CODE. *) (* *) (* X-18 KPS0148 KENNETH P. SIEGEL 04-DEC-1986 *) (* ADDED SNPPF (STATISTICS MONITORING NOT SUPPORTED FOR *) (* PROCESS PERMANENT FILES) ERROR MESSAGE. *) (* *) (* X-17 PMV0025 PETER M. VATNE 24-NOV-1986 *) (* ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS *) (* USED TO RESTRICT AI/BI WITH RU JOURNALING TO A *) (* SINGLE LONG-TERM JOURNAL FILE. *) (* *) (* X-16 DAS DAVID A. SOLOMON 18-NOV-1986 *) (* ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT *) (* WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LONGER *) (* SPECIFIED IN THE $XABJNL. SLIGHT WORDING CHANGE ON DETACHED *) (* RU RECOVERY ERROR MESSAGES. *) (* *) (* X-15 DAS DAVID A. SOLOMON 12-NOV-1986 *) (* FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGED *) (* CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERS *) (* BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THE *) (* JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USE *) (* AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEW *) (* ONES. FINALLY, CHANGE RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE. *) (* *) (* X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986 *) (* SNADTF - FIX TYPO IN DTFACC, DTFCRE *) (* *) (* X-13 SAD0014 STUART A. DAVIDSON 3-NOV-1986 *) (* SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES. *) (* *) (* X-12 JEJ0377 JAMES E JOHNSON 29-OCT-1986 *) (* ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE *) (* EXTENDS DUE TO PREVIOUS FAILURES. *) (* *) (* X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-1986 *) (* ADDED SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON *) (* NON-DISK DEVICES. *) (* *) (* X-10 SAD009 STUART A. DAVIDSON 06-OCT-1986 *) (* ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER) *) (* *) (* X-9 GJA0003 GARY J. ALLISON 29-SEP-1986 *) (* ADD DETACHED RECOVERY ERROR MESSAGES *) (* *) (* X-8 PMV0008 PETER M. VATNE 24-SEP-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-1986 *) (* REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD). *) (* CHANGE RMS$_RUH TEXT TO NOT HAVE FAO PARAMETERS. ADD *) (* RMS$_BUG_RURECERR. *) (* *) (* X-3J5 JEJ0302 JAMES E JOHNSON 4-APR-1986 *) (* ADD RMS$_RRF (ERROR DURING RU RECOVERY) AND *) (* RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS *) (* SENT TO OPCOM). *) (* *) (* X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986 *) (* ADD RMS$_RUF, RMS$_BUG_ABORT CODES. *) (* *) (* X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985 *) (* ADD RMS$_RUNDOWN CODE *) (* *) (* X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985 *) (* ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE *) (* THE GENERIC ERRWRTJNL CODE. *) (* *) (* X-4 JEJ0216 JAMES E JOHNSON 18-NOV-1985 *) (* MERGE X-3J2 INTO MAIN LINE FOR V4.4. *) (* *) (* X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985 *) (* ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE *) (* THE GENERIC ERRWRTJNL CODE. *) (* *) (* X-3 JEJ0161 JAMES E JOHNSON 9-SEP-1985 *) (* UPDATE RMS JOURNALING MESSAGES. *) (* *) (* X-2 JWT0212 JIM TEAGUE 4-SEP-1985 *) (* 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). *) (* *) (* V03-024 RAS0314 RON SCHAEFER 21-JUN-1984 *) (* WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF, *) (* DELETE ACPEOF ERROR, DELETE WSF ERROR. *) (* *) (* V03-023 RAS0282 RON SCHAEFER 28-MAR-1984 *) (* MINOR TEXT CHANGES AND COMMENTS ADDED. *) (* DELETE RMS$_COP ERROR. *) (* *) (* V03-022 DAS0005 DAVID SOLOMON 19-MAR-1984 *) (* REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW *) (* 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. *) (* *) (* 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-1983 *) (* ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES *) (* ON $CREATE: RMS$_XCR. *) (* *) (* V03-018 RAS0171 RON SCHAEFER 28-JUL-1983 *) (* ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS) *) (* REPLACING TEMP3. *) (* *) (* V03-017 DAS0004 DAVID SOLOMON 28-JUN-1983 *) (* ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI. *) (* *) (* V03-016 KPL0007 PETER LIEBERWIRTH 8-JUN-1983 *) (* FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH *) (* WILL SOON SUBSUME COP AND CQE. *) (* *) (* V03-015 DAS0003 DAVID SOLOMON 18-FEB-1983 *) (* ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). *) (* *) (* V03-014 KBT0497 KEITH B. THOMPSON 18-FEB-1983 *) (* ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) *) (* *) (* V03-013 RAS0120 RON SCHAEFER 2-FEB-1983 *) (* ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT *) (* TO SYS$OUTPUT. *) (* *) (* V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983 *) (* ADD CQE AND COP ERRORS. *) (* *) (* V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983 *) (* ADD OK_RULK FOR RECOVERY UNIT SUPPORT. *) (* *) (* ADD REENT ERROR FOR $RENAME. *) (* *) (* V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982 *) (* ADD NRU ERROR. *) (* *) (* V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982 *) (* ADD JNS ERROR. *) (* *) (* V03-007 MCN0002 MARIA DEL C. NASR 15-NOV-1982 *) (* REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE *) (* THE NETWORK CODE REFERENCES IT. *) (* *) (* V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-1982 *) (* PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER *) (* INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING *) (* INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR *) (* CODES TO TEMP. *) (* *) (* V03-005 JWH0102 JEFFREY W. HORN 24-SEP-1982 *) (* ADD RUP ERROR. *) (* *) (* V03-004 RAS0095 RON SCHAEFER 7-SEP-1982 *) (* ADD OVRDSKQUOTA ERROR. *) (* *) (* V03-002 JWH0002 JEFFREY W. HORN 26-JUL-1982 *) (* CONVERT TO .MSG FORMAT. ADD RUM ERROR. *) (* *) (* V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982 *) (* ADD JNF, JOP, AND NOJ ERRORS. *) (* *) (* V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-1982 *) (* ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK *) (* CORRECTLY. *) (* *) (* V02-041 CDS0001 C D SAETHER 24-JAN-1982 *) (* ADD GBC AND CRMP ERRORS. *) (* *) (* V02-040 JAK0069 J A KRYCKA 15-JAN-1982 *) (* ADD SUPPORT AND NETFAIL ERROR CODES. *) (* *) (* V02-039 JAK0068 J A KRYCKA 31-DEC-1981 *) (* MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES. *) (* *) (* 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. *) (* *) (* V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981 *) (* ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE. *) (* ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT. *) (* *) (* V02-035 REFORMAT J A KRYCKA 30-JUL-1980 *) (* *) (*-- *) CONST RMS$_FACILITY = 1; RMS$V_STVSTATUS = 14; (* MOVE TO BIT 14 OF THE *) (* STATUS CODE IT INDICATES *) (* THAT STV CONTAINS A SECONDARY *) (* STATUS CODE. *) CONST RMS$_SUC = 65537; RMS$_NORMAL = 65537; (*+ *) (* *) (* SUCCESS CODES *) (* *) (*- *) (* BIT 16 = BIT 15 = 1 *) CONST RMS$_STALL = 98305; (* (NOTE: USER NEVER RECEIVES THIS CODE) *) CONST RMS$_PENDING = 98313; RMS$_OK_DUP = 98321; RMS$_OK_IDX = 98329; (* (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER *) (* OPTIMAL.) *) CONST RMS$_OK_RLK = 98337; (* (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN RECORD WAS LOCKED.) *) CONST RMS$_OK_RRL = 98345; (* (BECAUSE READER SET RRL IN ROP FIELD WHEN ACCESSING RECORD.) *) (* (THIS CODE USED TO BE OK_RRV) *) (*OK_RRV ;MSG *) (* (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS, *) (* AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED!) *) CONST RMS$_KFF = 98353; RMS$_OK_ALK = 98361; RMS$_OK_DEL = 98369; RMS$_OK_RNF = 98377; RMS$_OK_LIM = 98385; RMS$_OK_NOP = 98393; RMS$_OK_WAT = 98401; (* (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY *) (* LOCKED.) *) CONST RMS$_CRE_STM = 98409; RMS$_OK_RULK = 98417; RMS$_SYNCH = 98425; RMS$_OK_ACT = 98433; RMS$_OK_NOCURTID = 98441; (*+ *) (* *) (* SUCCESS CODES PASSED THRU FROM DRIVERS AND ACP - BIT 15 = 0 *) (* *) (*- *) CONST RMS$_CONTROLC = 67153; (* TERMINAL I/O ABORTED DUE TO CTRL/C *) RMS$_CONTROLO = 67081; (* TERMINAL I/O ABORTED DUE TO CTRL/O *) CONST RMS$_CONTROLY = 67089; (* TERMINAL I/O ABORTED DUE TO CTRL/Y *) CONST RMS$_CREATED = 67097; (* FILE WAS CREATED, NOT OPENED *) CONST RMS$_SUPERSEDE = 67121; (* CREATED FILE SUPERSEDED EXISTING VERSION *) CONST RMS$_OVRDSKQUOTA = 67177; (* DISK USAGE EXCEEDS DISK QUOTA *) CONST RMS$_FILEPURGED = 67193; (* CREATE FILE CAUSED OLDEST FILE *) (* VERSION TO BE PURGED *) (*+ *) (* *) (* WARNING CODES *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_BOF = 98712; RMS$_RNL = 98720; RMS$_RTB = 98728; RMS$_TMO = 98736; RMS$_TNS = 98744; RMS$_BES = 98752; RMS$_PES = 98760; (*+ *) (* *) (* 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 *) CONST RMS$_ACT = 98906; RMS$_DEL = 98914; RMS$_INCOMPSHR = 98922; RMS$_DNR = 98930; RMS$_EOF = 98938; RMS$_FEX = 98946; RMS$_FLK = 98954; RMS$_FNF = 98962; RMS$_PRV = 98970; RMS$_REX = 98978; RMS$_RLK = 98986; RMS$_RNF = 98994; (* (RECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.) *) CONST RMS$_WLK = 99002; RMS$_EXP = 99010; RMS$_NMF = 99018; RMS$_SUP = 99026; (* (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT *) (* 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.) *) CONST RMS$_RSA = 99034; RMS$_CRC = 99042; RMS$_WCC = 99050; RMS$_IDR = 99058; RMS$_LWC = 99066; RMS$_UNUSED1 = 99074; RMS$_NOVALPRS = 99082; RMS$_KEY_MISMATCH = 99090; RMS$_RUH = 99098; RMS$_JND = 99106; RMS$_BADPHASE = 99114; RMS$_TOWDR = 99122; RMS$_NEXDR = 99130; RMS$_INVDRMSG = 99138; RMS$_RU_ACTIVE = 99146; RMS$_UNKRUFAC = 99154; RMS$_LIMBO = 99162; RMS$_IVATRACE = 99170; RMS$_OPNOTSUP = 99178; RMS$_EXTNOTFOU = 99186; RMS$_EXT_ERR = 99194; RMS$_SEMANTICS = 99202; RMS$_LSCAN = 99210; RMS$_ROOTSRCH = 99218; RMS$_IDXSEARCH = 99226; RMS$_NETBTS = 99234; RMS$_NXR = 99242; (* IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY *) (* ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN *) (* DISK FILE. *) CONST RMS$_EOFASY_SYNCH = 99250; RMS$_ELOOP = 99258; (*+ *) (* *) (* ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) *) (* *) (*- *) (* BIT 16 = BIT 15 = BIT 14 = 1 *) CONST RMS$_ACC = 114690; RMS$_CRE = 114698; RMS$_DAC = 114706; RMS$_ENT = 114714; RMS$_EXT = 114722; RMS$_FND = 114730; RMS$_MKD = 114738; RMS$_DPE = 114746; RMS$_SPL = 114754; RMS$_DNF = 114762; RMS$_RUF = 114770; RMS$_WRTJNL_AIJ = 114778; RMS$_WRTJNL_BIJ = 114786; RMS$_WRTJNL_ATJ = 114794; RMS$_WRTJNL_RUJ = 114802; RMS$_RRF = 114810; RMS$_DDTM_ERR = 114818; (*+ *) (* *) (* SEVERE ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED *) (* CONDITION CODE IS IN STV) *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DTFCDDREC = 99308; RMS$_AID = 99316; RMS$_ALN = 99324; RMS$_ALQ = 99332; RMS$_ANI = 99340; RMS$_AOP = 99348; RMS$_BKS = 99356; RMS$_BKZ = 99364; RMS$_BLN = 99372; RMS$_BUG = 99380; RMS$_BUG_DDI = 99388; RMS$_BUG_DAP = 99396; RMS$_BUG_RU_ACTIVE = 99404; RMS$_BUG_RURECERR = 99412; RMS$_BUG_FLUSH_JNL_FAILED = 99420; RMS$_BUG_RU_ABORT_FAIL = 99428; RMS$_BUG_RU_COMMIT_FAIL = 99436; RMS$_BUG_XX6 = 99444; RMS$_BUG_XX7 = 99452; RMS$_BUG_XX8 = 99460; RMS$_BUSY = 99468; RMS$_CCR = 99476; RMS$_CHG = 99484; RMS$_CHK = 99492; RMS$_COD = 99500; RMS$_CUR = 99508; RMS$_DAN = 99516; RMS$_DEV = 99524; RMS$_DIR = 99532; RMS$_DME = 99540; RMS$_DNA = 99548; RMS$_DTP = 99556; RMS$_DUP = 99564; RMS$_DVI = 99572; RMS$_ESA = 99580; RMS$_ESS = 99588; RMS$_FAB = 99596; RMS$_FAC = 99604; RMS$_FLG = 99612; RMS$_FNA = 99620; RMS$_FNM = 99628; RMS$_FSZ = 99636; RMS$_FOP = 99644; RMS$_FUL = 99652; RMS$_IAL = 99660; RMS$_IAN = 99668; RMS$_IDX = 99676; RMS$_IFI = 99684; RMS$_IMX = 99692; RMS$_IOP = 99700; RMS$_IRC = 99708; RMS$_ISI = 99716; RMS$_KBF = 99724; RMS$_KEY = 99732; RMS$_KRF = 99740; RMS$_KSZ = 99748; RMS$_LAN = 99756; RMS$_RUNDOWN = 99764; RMS$_LNE = 99772; RMS$_DTFCVT = 99780; RMS$_MRN = 99788; RMS$_MRS = 99796; RMS$_NAM = 99804; RMS$_NEF = 99812; RMS$_DTFQUASYN = 99820; RMS$_NOD = 99828; RMS$_NPK = 99836; RMS$_ORD = 99844; (*! NOT USED AS OF V4 *) RMS$_ORG = 99852; RMS$_PBF = 99860; RMS$_PLG = 99868; RMS$_POS = 99876; RMS$_DTFQUAVAL = 99884; RMS$_QUO = 99892; RMS$_RAB = 99900; RMS$_RAC = 99908; RMS$_RAT = 99916; RMS$_RBF = 99924; RMS$_RFA = 99932; RMS$_RFM = 99940; RMS$_RHB = 99948; RMS$_RLF = 99956; RMS$_ROP = 99964; RMS$_RRV = 99972; RMS$_RVU = 99980; RMS$_RSS = 99988; RMS$_RST = 99996; RMS$_RSZ = 100004; RMS$_SEQ = 100012; RMS$_SHR = 100020; RMS$_SIZ = 100028; RMS$_SQO = 100036; RMS$_DTFSESEST = 100044; RMS$_SYN = 100052; RMS$_TRE = 100060; RMS$_TYP = 100068; RMS$_UBF = 100076; RMS$_USZ = 100084; RMS$_VER = 100092; RMS$_XNF = 100100; RMS$_XAB = 100108; RMS$_ESL = 100116; RMS$_DTFSESTER = 100124; RMS$_ENV = 100132; RMS$_PLV = 100140; RMS$_MBC = 100148; RMS$_RSL = 100156; RMS$_WLD = 100164; RMS$_NET = 100172; (* (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT *) (* MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.) *) CONST RMS$_IBF = 100180; RMS$_REF = 100188; RMS$_IFL = 100196; RMS$_DFL = 100204; RMS$_KNM = 100212; RMS$_IBK = 100220; RMS$_KSI = 100228; RMS$_LEX = 100236; RMS$_SEG = 100244; RMS$_SNE = 100252; (*! NOT USED AS OF V4 *) RMS$_SPE = 100260; (*! NOT USED AS OF V4 *) RMS$_UPI = 100268; RMS$_ACS = 100276; RMS$_STR = 100284; RMS$_FTM = 100292; RMS$_GBC = 100300; RMS$_DEADLOCK = 100308; RMS$_EXENQLM = 100316; RMS$_JOP = 100324; RMS$_RUM = 100332; RMS$_JNS = 100340; RMS$_NRU = 100348; RMS$_IFF = 100356; RMS$_DTFTRATBL = 100364; RMS$_DTFUNSTYP = 100372; RMS$_DTFVERMIS = 100380; (*+ *) (* *) (* ERROR CODES - WITHOUT STV *) (* *) (* DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY *) (* (NO STV) GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR *) (* (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING *) (* SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN ARE *) (* DONE, WHILE RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH. *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DTFACC = 100386; (*+ *) (* *) (* SEVERE ERROR CODES - WITHOUT STV *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_BOGUSCOL = 100396; RMS$_ERRREADCOL = 100404; RMS$_ERRWRITECOL = 100412; RMS$_SNS = 100420; RMS$_NOEXTEND = 100428; (*+ *) (* *) (* ERROR CODES - WITHOUT STV *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DTFCRE = 100434; (*+ *) (* *) (* SEVERE ERROR CODES - WITHOUT STV *) (* *) (*- *) (* BIT 16 = BIT 15 = 1, BIT 14 = 0 *) CONST RMS$_DELJNS = 100444; RMS$_NOTSAMEJNL = 100452; RMS$_SNPPF = 100460; RMS$_NAML = 100468; RMS$_NAMLESS = 100476; RMS$_NAMLRSS = 100484; RMS$_NAMLFSSIZ = 100492; RMS$_NAMLFSINV = 100500; RMS$_BADGBH = 100508; RMS$_BADGBD = 100516; RMS$_FOPEXTMBZ = 100524; RMS$_INVOP_SSIO = 100532; RMS$_IVSF = 100540; (*+ *) (* *) (* SEVERE ERRORS - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) *) (* *) (*- *) (* BIT 16 = BIT 15 = BIT 14 = 1 *) CONST RMS$_ATR = 114892; RMS$_ATW = 114900; RMS$_CCF = 114908; RMS$_CDA = 114916; RMS$_CHN = 114924; RMS$_RER = 114932; RMS$_RMV = 114940; RMS$_RPL = 114948; RMS$_SYS = 114956; RMS$_WER = 114964; RMS$_WPL = 114972; RMS$_IFA = 114980; RMS$_WBE = 114988; RMS$_ENQ = 114996; RMS$_NETFAIL = 115004; RMS$_SUPPORT = 115012; RMS$_CRMP = 115020; RMS$_DTFCFGFIL = 115028; RMS$_REENT = 115036; RMS$_ACC_RUJ = 115044; RMS$_TMR = 115052; RMS$_ACC_AIJ = 115060; RMS$_ACC_BIJ = 115068; RMS$_ACC_ATJ = 115076; RMS$_DTFDEFFIL = 115084; RMS$_DTFREGFIL = 115092; RMS$_JNLNOTAUTH = 115100; RMS$_CRBUFOBJ = 115108; RMS$_RSESTK_ALLOC = 115116; (* END. *) (* MODULE RMSFALMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FALDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:37.67 *) (* *) (* *) (* VERSION: 'X-1' *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* FACILITY: *) (* *) (* MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT *) (* ARE GENERATED ON BEHALF OF FAL BY RMS. *) (* *) (* ABSTRACT: *) (* *) (* THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGE *) (* TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS FACILITY, *) (* NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUS *) (* INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATION *) (* 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: *) (* *) (* X-3 SAD009 STUART A. DAVIDSON 06-OCT-1986 *) (* ADD STATUS CODES FOR SNADTF. *) (* *) (* X-2 DAS DAVID A. SOLOMON 01-AUG-1986 *) (* REMOVE /MACRO= ON .FACILITY SO THE PROPER MACROS WILL *) (* BE GENERATED IN THE SDL FILE. *) (* *) (* V03-001 JAK0147 J A KRYCKA 09-JUL-1984 *) (* ADD ERROR CODES THAT CORRESPOND TO DAP MICCODES 416 TO 470 *) (* (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 *) (* SPECIFICATION. *) (* *) (*-- *) (*++ *) (* DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY STATUS CODES. *) (* *) (* LAYOUT OF MESSAGE SPACE: *) (* *) (* MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION *) (* (DECIMAL) (HEXADECIMAL) (HEXADECIMAL) *) (* *) (* 0 - 1023 0000 - 03FF 8000 - 9FFF UNUSED *) (* 1024 - 2047 0400 - 07FF A000 - BFFF FOR RMS$_NETFAIL *) (* 2048 - 4095 0800 - 0FFF C000 - FFFF FOR RMS$_SUPPORT *) (*-- *) CONST FAL$_FACILITY = 503; (*+ *) (* DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION *) (* CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. *) (* *) (* USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITH *) (* MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): *) (* *) (* MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL) *) (* *) (* NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEMONIC *) (* FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: *) (* *) (* 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. *) (*- *) CONST FAL$_OFFSET_A = 1024; (* MICCODE = 0000 (OCTAL) *) CONST FAL$_DAPFAIL = 33005572; FAL$_RMSABO = 33005580; (* MICCODE = 0011 (OCTAL) *) CONST FAL$_RMSAST = 33005644; FAL$_RMSBPA = 33005652; FAL$_RMSBPS = 33005660; (* MICCODE = 0026 (OCTAL) *) CONST FAL$_RMSCLS = 33005748; (* MICCODE = 0056 (OCTAL) *) CONST FAL$_RMSFID = 33005940; (* MICCODE = 0071 (OCTAL) *) CONST FAL$_RMSINI = 33006028; (* MICCODE = 0102 (OCTAL) *) CONST FAL$_RMSLBL = 33006100; FAL$_RMSLBY = 33006108; FAL$_RMSLCH = 33006116; (* MICCODE = 0106 (OCTAL) *) CONST FAL$_RMSLOC = 33006132; FAL$_RMSMAP = 33006140; (* MICCODE = 0115 (OCTAL) *) CONST FAL$_RMSNID = 33006188; (* MICCODE = 0117 (OCTAL) *) CONST FAL$_RMSOPN = 33006204; (* MICCIDE = 0124 (OCTAL) *) CONST FAL$_RMSPRM = 33006244; (* MICCODE = 0153 (OCTAL) *) CONST FAL$_RMSSTK = 33006428; (* MICCODE = 0162 (OCTAL) *) CONST FAL$_RMSVOL = 33006484; (* MICCODE = 0170 (OCTAL) *) CONST FAL$_RMSCAA = 33006532; (* MICCODE = 0231 (OCTAL) *) CONST FAL$_RMSBLK = 33006796; FAL$_RMSBSZ = 33006804; FAL$_RMSCDR = 33006812; FAL$_RMSCGJ = 33006820; FAL$_RMSCOF = 33006828; FAL$_RMSJFN = 33006836; FAL$_RMSPEF = 33006844; FAL$_RMSTRU = 33006852; FAL$_RMSUDF = 33006860; FAL$_RMSXCL = 33006868; FAL$_DAPDIRFUL = 33006876; FAL$_FCSHWR = 33006884; FAL$_FCSFHE = 33006892; FAL$_DAPWRTEOF = 33006900; FAL$_FCSONP = 33006908; FAL$_FCSDNA = 33006916; FAL$_FCSDAA = 33006924; FAL$_FCSDUN = 33006932; FAL$_FCSRSU = 33006940; FAL$_FCSOVR = 33006948; FAL$_FCSBCC = 33006956; FAL$_FCSNOD = 33006964; FAL$_FCSIFU = 33006972; FAL$_FCSHFU = 33006980; FAL$_FCSWAC = 33006988; FAL$_FCSCKS = 33006996; FAL$_FCSWAT = 33007004; FAL$_FCSALN = 33007012; FAL$_FCSBTF = 33007020; FAL$_FCSILL = 33007028; FAL$_FCS2DV = 33007036; FAL$_FCSFEX = 33007044; FAL$_FCSRNM = 33007052; FAL$_FCSFOP = 33007060; FAL$_FCSVER = 33007068; FAL$_FCSEOV = 33007076; FAL$_FCSDAO = 33007084; FAL$_FCSBBE = 33007092; FAL$_FCSEOT = 33007100; FAL$_FCSNBF = 33007108; FAL$_FCSNBK = 33007116; FAL$_FCSNST = 33007124; FAL$_FCSULK = 33007132; FAL$_FCSNLN = 33007140; FAL$_FCSSRE = 33007148; (* MICCODE = 0311 (OCTAL) *) CONST FAL$_DAPQUOEXC = 33007180; (* MICCODE = 0346 (OCTAL) *) CONST FAL$_DAPDIRCAF = 33007412; FAL$_DAPDIRCRA = 33007420; FAL$_DAPDIRPRO = 33007428; FAL$_DAPDIRPRA = 33007436; FAL$_DAPDIRNFA = 33007444; FAL$_DAPDIRCON = 33007452; (* MICCODE = 0416 (OCTAL) *) CONST FAL$_TENFILMOD = 33007732; FAL$_TENDEVNA = 33007740; FAL$_TENDEVNF = 33007748; FAL$_TENPARALL = 33007756; FAL$_TENBNFREE = 33007764; FAL$_TENCSDF = 33007772; FAL$_TENCDDF = 33007780; FAL$_TENSFDNF = 33007788; FAL$_TENSLE = 33007796; FAL$_TENSFDCNT = 33007804; FAL$_TENNCESL = 33007812; FAL$_TENCUPFIL = 33007820; FAL$_TENNETCAP = 33007828; FAL$_TENTSKNA = 33007836; FAL$_TENNODNF = 33007844; FAL$_TENSFDREN = 33007852; FAL$_TENCDFNDR = 33007860; FAL$_TENJCREAD = 33007868; FAL$_TENRENSFD = 33007876; FAL$_TENDEVDWN = 33007884; FAL$_TENDEVRES = 33007892; FAL$_TENDEVMDA = 33007900; FAL$_TENDEVALL = 33007908; FAL$_TENILLDM = 33007916; FAL$_TENLPTPAG = 33007924; FAL$_TENLPTVFU = 33007932; FAL$_TENLPTCHR = 33007940; FAL$_TENLPTRAM = 33007948; FAL$_TENFILSPC = 33007956; (* MICCODE = 0453 (OCTAL) *) CONST FAL$_TENNSNOD = 33007964; FAL$_TENANODI = 33007972; FAL$_TENSNODI = 33007980; FAL$_TENNSDEV = 33007988; FAL$_TENADEVI = 33007996; FAL$_TENSDEVI = 33008004; FAL$_TENNSDIR = 33008012; FAL$_TENADIRI = 33008020; FAL$_TENSDIRI = 33008028; FAL$_TENNSFIL = 33008036; FAL$_TENAFILI = 33008044; FAL$_TENSFILI = 33008052; FAL$_TENAFILR = 33008060; FAL$_TENSFILR = 33008068; (* MICCODE = 475 (OCTAL) *) CONST FAL$_DTFFALSHT = 33008108; FAL$_DTFNOFIL = 33008116; FAL$_DTFNOREC = 33008124; FAL$_DTFNOTREG = 33008132; FAL$_DTFOPRABO = 33008140; (* MICCODE = 504 (OCTAL) *) CONST FAL$_DTFRDCKP = 33008164; (*+ *) (* DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_SUPPORT COMPLETION *) (* CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. *) (* *) (* USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITH *) (* MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): *) (* *) (* MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL) *) (* *) (* NOTE: THE INTENT IN THIS SECTION IS TO DEFINE FAL STATUS CODES ONLY FOR DAP *) (* FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FOR *) (* INPUT. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL AS *) (* BEING UNSUPPORTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STS *) (* FIELD OF THE FAB OR RAB WITH AN ASSOCIATED DAP CODE IN THE STV FIELD. *) (*- *) CONST FAL$_OFFSET_B = 2048; (* MICCODE = 0222 (OCTAL) *) CONST FAL$_ORG = 33014932; FAL$_RFM = 33014940; FAL$_RAT = 33014948; FAL$_BLS = 33014956; FAL$_MRS = 33014964; FAL$_ALQ1 = 33014972; FAL$_BKS = 33014980; FAL$_FSZ = 33014988; FAL$_MRN = 33014996; (* MICCODE = 0234 (OCTAL) *) CONST FAL$_DEQ1 = 33015012; FAL$_FOP1 = 33015020; (* MICCODE = 0241 (OCTAL) *) CONST FAL$_LRL = 33015052; (* MICCODE = 0320 (OCTAL) *) CONST FAL$_ACCFUNC = 33015428; (* MICCODE = 0323 (OCTAL) *) CONST FAL$_FAC = 33015452; FAL$_SHR = 33015460; (* MICCODE = 0420 (OCTAL) *) CONST FAL$_CTLFUNC = 33015940; (* MICCODE = 0422 (OCTAL) *) CONST FAL$_RAC = 33015956; FAL$_KEY = 33015964; FAL$_KRF = 33015972; FAL$_ROP = 33015980; (* MICCODE = 0520 (OCTAL) *) CONST FAL$_CONFUNC = 33016452; (* MICCODE = 0720 (OCTAL) *) CONST FAL$_CMPFUNC = 33017476; FAL$_FOP2 = 33017484; (* MICCODE = 1221 (OCTAL) *) CONST FAL$_FLG = 33019020; FAL$_DFL = 33019028; FAL$_IFL = 33019036; (* MICCODE = 1225 (OCTAL) *) CONST FAL$_POS = 33019052; FAL$_SIZ = 33019060; FAL$_REF = 33019068; FAL$_KNM = 33019076; FAL$_NUL = 33019084; FAL$_IAN = 33019092; FAL$_LAN = 33019100; FAL$_DAN = 33019108; FAL$_DTP = 33019116; (* MICCODE = 1321 (OCTAL) *) CONST FAL$_VOL = 33019532; FAL$_ALN = 33019540; FAL$_AOP = 33019548; FAL$_LOC = 33019556; (* MICCODE = 1326 (OCTAL) *) CONST FAL$_ALQ2 = 33019572; FAL$_AID = 33019580; FAL$_BKZ = 33019588; FAL$_DEQ2 = 33019596; (* MICCODE = 1521 (OCTAL) *) CONST FAL$_CDT = 33020556; FAL$_RDT = 33020564; FAL$_EDT = 33020572; FAL$_RVN = 33020580; (* MICCODE = 1621 (OCTAL) *) CONST FAL$_OWNER = 33021068; FAL$_PROTSYS = 33021076; FAL$_PROTOWN = 33021084; FAL$_PROTGRP = 33021092; FAL$_PROTWLD = 33021100; (* END. *) (* MODULE SCRDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SCRDEF ***) (* SCREEN PACKAGE REQUEST TYPES *) CONST SCR$C_PUT_SCREEN = 0; (* SCR$PUT_SCREEN *) SCR$C_GET_SCREEN = 1; (* SCR$GET_SCREEN *) SCR$C_ERASE_PAGE = 2; (* SCR$ERASE_PAGE *) SCR$C_ERASE_LINE = 3; (* SCR$ERASE_LINE *) SCR$C_SET_CURSOR = 4; (* SCR$SET_CURSOR *) SCR$C_DOWN_SCROLL = 5; (* SCR$DOWN_SCROLL *) SCR$C_SCREEN_INFO = 6; (* SCR$SCREEN_INFO *) SCR$C_PUT_LINE = 7; (* SCR$PUT_LINE *) SCR$C_MOVE_CURSOR = 8; (* SCR$MOVE_CURSOR *) SCR$C_SET_SCROLL = 9; (* SCR$SET_SCROLL *) SCR$C_UP_SCROLL = 10; (* SCR$UP_SCROLL *) (* *) (* DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES *) (* *) CONST SCR$M_BOLD = 1; SCR$M_REVERSE = 2; SCR$M_BLINK = 4; SCR$M_UNDERLINE = 8; SCR$M_NORMAL = 0; (*no bits set *) TYPE SCR$TYPE = RECORD CASE INTEGER OF 1: (SCR$R_SCRDEF_BITS : [BYTE(1)] RECORD END; ); 2: (SCR$V_BOLD : [POS(0)] $BOOL; SCR$V_REVERSE : [POS(1)] $BOOL; SCR$V_BLINK : [POS(2)] $BOOL; SCR$V_UNDERLINE : [POS(3)] $BOOL; ) END; (* *) (* DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER *) (* *) CONST SCR$M_SCREEN = 1; SCR$M_ANSICRT = 2; SCR$M_REGIS = 4; SCR$M_BLOCK = 8; SCR$M_AVO = 16; SCR$M_EDIT = 32; SCR$M_DECCRT = 64; SCR$K_LENGTH = 20; (* LENGTH OF INFO RETURN BUFFER *) SCR$C_LENGTH = 20; (* LENGTH OF INFO RETURN BUFFER *) TYPE SCR1$TYPE = RECORD CASE INTEGER OF 1: (SCR$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; SCR$W_WIDTH : $UWORD; (* WIDTH OF EACH LINE *) SCR$W_PAGESIZE : $UWORD; (* LINES IN SCREEN *) SCR$B_DEVTYPE : $UBYTE; (* DEVICE TYPE (SEE $DCDEF) *) SCRDEF$$_FILL_1 : ARRAY [1..11] OF $BYTE; (* (RESERVED) *) ); 2: (SCR$L_FLAGS : [POS(0)] UNSIGNED; (* FLAGS LONGWORD *) ); 3: (SCR$R_FLAGS_BITS : [POS(0), BYTE(1)] RECORD END; ); 4: (SCR$V_SCREEN : [POS(0)] $BOOL; (* 1 = SCREEN ORIENTED, 0 = SCROLLING *) SCR$V_ANSICRT : [POS(1)] $BOOL; (* ANSI TERMINAL *) SCR$V_REGIS : [POS(2)] $BOOL; (* REGIS TERMINAL *) SCR$V_BLOCK : [POS(3)] $BOOL; (* BLOCK MODE TERMINAL *) SCR$V_AVO : [POS(4)] $BOOL; (* ADVANCED VIDEO TERMINAL *) SCR$V_EDIT : [POS(5)] $BOOL; (* TERMINAL HAS EDIT CAPABILITY *) SCR$V_DECCRT : [POS(6)] $BOOL; (* TERMINAL IS A DEC CRT *) ) END; (* END. *) (* MODULE SECSRVMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SECSRVMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:56:51.85 *) (* *) (*+ SECSRVMSG.MSG *) (*+ IDENT X-7 *) (* *) (* MESSAGE FILE FOR SECSRV FACILITY *) (* *) (* VAX AND AXP STREAMS SHOULD BE IDENTICAL. *) (* *) (* REVISION HISTORY: *) (* X-7 JAH0342 JOHN A HARNEY 05-OCT-1999 *) (* ADD CLUSTER-WIDE INTRUSION DETECTION MESSAGES: *) (* CIACRECLUDB CREATED CLUSTER DATABASE *) (* CIACRELOCDB CREATED LOCAL DATABASE *) (* CIAEXISTCLU USING EXISTING CLUSTER DATABASE *) (* CIAEXISTLOC USING EXISTING LOCAL DATABASE *) (* *) (* X-6 JAH0298 JOHN A HARNEY 10-JUN-1998 *) (* REMOVE "try again later" FROM PROXYNOTACTIVE MESSAGE. *) (* *) (* X-5 JAH0166 JOHN A HARNEY 14-NOV-1994 *) (* FIX MORE MESSAGE TEXT. *) (* *) (* X-4 JAH0166 JOHN A HARNEY 09-NOV-1994 *) (* FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW BY THE *) (* DOCUMENTATION GROUP. *) (* *) (* ** NOTE ** MAKE SURE WHEN YOU MODIFY THIS FILE THAT YOU ALSO MODIFY [SECSRV]SECSRVMSG_.ADA *) (* TO MATCH YOUR CHANGES HERE. *) (* *) CONST SECSRV$_FACILITY = 1774; (* *) CONST SECSRV$_SERVERRADIOACTIVE = 116299635; (* *) CONST SECSRV$_SERVERRESTART = 116299643; SECSRV$_SERVERSHUTDOWN = 116299651; SECSRV$_COULDNTSTART = 116299659; SECSRV$_COULDNTRESTART = 116299667; SECSRV$_PROXYSHUTDOWN = 116299675; SECSRV$_CIASHUTDOWN = 116299683; SECSRV$_SERVERSTARTINGUP = 116299691; SECSRV$_PROXYSTARTINGUP = 116299699; SECSRV$_CIASTARTINGUP = 116299707; SECSRV$_INTRUDER = 116299715; SECSRV$_SUSPECT = 116299723; SECSRV$_CREATEPROXYDB = 116299731; SECSRV$_PROXYMODIFIED = 116299739; SECSRV$_NOSCANNEDINTRUDER = 116299747; SECSRV$_INVALIDTERMNAME = 116299755; SECSRV$_CIACRECLUDB = 116299763; SECSRV$_CIACRELOCDB = 116299771; SECSRV$_CIAEXISTCLU = 116299779; SECSRV$_CIAEXISTLOC = 116299787; SECSRV$_NORDPROXYREC = 116305632; SECSRV$_NOSUCHUSER = 116311634; SECSRV$_DUPLICATEUSER = 116311642; SECSRV$_INVALIDDELETE = 116311650; SECSRV$_UPDATEFAILED = 116311658; SECSRV$_NOSUCHPROXY = 116311666; SECSRV$_DBALREADYEXISTS = 116311674; SECSRV$_TOOMANYUSERS = 116311682; SECSRV$_BADNODENAMELEN = 116311690; SECSRV$_BADREMUSERLEN = 116311698; SECSRV$_BADLOCALUSERLEN = 116311706; SECSRV$_PROXYACTIVE = 116311714; SECSRV$_PROXYNOTACTIVE = 116311722; SECSRV$_NOPROXYDB = 116311730; SECSRV$_NOSUCHINTRUDER = 116311738; (* NOMATCH *) SECSRV$_CIADBEMPTY = 116311746; (* DBEMPTY *) SECSRV$_INSUFINFO = 116311754; SECSRV$_AUDITFAILED = 116311762; SECSRV$_ASSIGNFAILED = 116311770; SECSRV$_QIOFAILED = 116311778; SECSRV$_DASSGNFAILED = 116311786; SECSRV$_BADJOBTYPE = 116311794; SECSRV$_SERVERNOTACTIVE = 116311802; SECSRV$_PROXYNOTOPEN = 116311810; SECSRV$_PROXYTERMINATED = 116317636; SECSRV$_CIATERMINATED = 116317644; SECSRV$_SERVERTERMINATED = 116317652; SECSRV$_CREMBXFAILED = 116317660; SECSRV$_RUNNING = 116317668; SECSRV$_CONSTERROR = 116317676; SECSRV$_TASKERROR = 116317684; SECSRV$_OUTCOMTERMINATED = 116317692; SECSRV$_SRVREPLYTIMEOUT = 116317700; (* *) (* ADD TEMPORARY MESSAGES HERE. *) (* *) CONST SECSRV$_CONVERT = 116323635; SECSRV$_VERIFY_CONVERSION = 116323643; SECSRV$_CONVERT_SUCCESS = 116323651; (* END. *) (* MODULE SHRMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SHRDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:54:13.03 *) (* *) (* SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES *) (* *) (* VERSION: 'X-13' *) (* *) (* ************************************************************************* *) (* * * *) (* * © COPYRIGHT 2003 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *) (* * * *) (* * CONFIDENTIAL COMPUTER SOFTWARE. VALID LICENSE FROM HP AND/OR * *) (* * ITS SUBSIDIARIES REQUIRED FOR POSSESSION, USE, OR COPYING. * *) (* * * *) (* * CONSISTENT WITH FAR 12.211 AND 12.212, COMMERCIAL COMPUTER SOFTWARE, * *) (* * COMPUTER SOFTWARE DOCUMENTATION, AND TECHNICAL DATA FOR COMMERCIAL * *) (* * ITEMS ARE LICENSED TO THE U.S. GOVERNMENT UNDER VENDOR'S STANDARD * *) (* * COMMERCIAL LICENSE. * *) (* * * *) (* * NEITHER HP NOR ANY OF ITS SUBSIDIARIES SHALL BE LIABLE FOR TECHNICAL * *) (* * OR EDITORIAL ERRORS OR OMISSIONS CONTAINED HEREIN. THE INFORMATION * *) (* * IN THIS DOCUMENT IS PROVIDED "as is" WITHOUT WARRANTY OF ANY KIND AND * *) (* * IS SUBJECT TO CHANGE WITHOUT NOTICE. THE WARRANTIES FOR HP PRODUCTS * *) (* * ARE SET FORTH IN THE EXPRESS LIMITED WARRANTY STATEMENTS ACCOMPANYING * *) (* * SUCH PRODUCTS. NOTHING HEREIN SHOULD BE CONSTRUED AS CONSTITUTING AN * *) (* * ADDITIONAL WARRANTY. * *) (* * * *) (* ************************************************************************* *) (*++ *) (* *) (* FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES. *) (* *) (* ENVIRONMENT: *) (* *) (* N/A *) (* *) (*-- *) (* *) (* *) (* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *) (* *) (* MODIFIED BY: *) (* *) (* X-13 GP072104 GUY PELEG 21-JUL-2004 *) (* ADD SYMLINKERR. *) (* *) (* X-12 GP011104 GUY PELEG 11-JAN-2004 *) (* CHANGED TEXT OF MBXDEL. *) (* *) (* X-11 GP010604 GUY PELEG 06-JAN-2004 *) (* ADD NEW MESSAGE TO SUPPORT DELETE/MAILBOX. *) (* *) (* X-10 GP022503 GUY PELEG 25-FEB-2003 *) (* ADD NEW MESSAGES TO SUPPORT B2B IN DELETE,COPY AND PURGE *) (* *) (* X-9 TMS0357 TODD SCHOELLER 19-FEB-1998 *) (* ADD NOFIDS -- FIDS NOT PERMITTED. *) (* *) (* X-8 TMS0317 TODD SCHOELLER 9-MAR-1997 *) (* ADD MESSAGES FOR HFS INVOLVING INABILITY FOR PROCESSING *) (* FILES WITH DIDS AND FIDS (FILDID, FILFID, AND FILDIDFID). *) (* *) (* X-7 RG40042 RAY GUZMAN 11-JAN-1991 *) (* ADD A MESSAGE BADFORMAT TO INDICATE A FILE FORMAT IS *) (* INCOMPATIBLE. *) (* *) (* X-6 SEH0021 SUSAN E. HEIMBACH 14-DEC-1989 *) (* ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S *) (* START/QUEUE/MANAGER COMMAND'S OBSOLETE QUALIFIERS. *) (* ADD OPENERR AND CLOSEERR. *) (* *) (* 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. *) (* *) (* V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984 *) (* ADD NOSUCHID. *) (* *) (* V03-010 AEW0001 ANNE E. WARNER 6-MAR-1984 *) (* ADD FILSPCSRCH AND NOSRCHLIST. *) (* FILSPCSRCH - FILE SPECIFICATION CONTAINS A SEARCH LIST. *) (* NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS. *) (* BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32. *) (* *) (* V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984 *) (* ADD QUALMISS. *) (* *) (* V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28-FEB-1983 *) (* CHANGED TEXT OF NOFILPURG. *) (* *) (* V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983 *) (* ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE. *) (* *) (* 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:40 *) (* ADDED TOTAL, PURGED, AND FILDELETED MESSAGES. *) (* *) (* V03-003 BLS0152 BENN SCHREIBER 25-MAY-1982 *) (* ADD PRODNOTINS MESSAGE *) (* *) (* V03-002 GAS0068 GERRY SMITH 31-MAR-1982 *) (* ADD NOTRUNC MESSAGE. *) (* *) (* V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48 *) (* CLEAN UP INITIAL CAPITALIZATION ERRORS. *) (* *) (* THESE MESSAGE CODES SHOULD NOT BE USED DIRECTLY BY A FACILITY SINCE *) (* THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR A *) (* SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FACILITY *) (* MESSAGE CODES. *) (* FACILITY MESSAGE CODE = COMMON MESSAGE CODE + *) (* FACILITY ID * 65536 + *) (* SEVERITY CODE *) CONST SHR$_FACILITY = 0; SHR$_APPENDEDB = 4096; SHR$_APPENDEDR = 4104; SHR$_BADBYTE = 4112; SHR$_BADFIELD = 4120; SHR$_BADLONG = 4128; SHR$_BADWORD = 4136; SHR$_BEGIN = 4144; SHR$_BEGIND = 4152; SHR$_BEGINT = 4160; SHR$_CLICB = 4168; SHR$_CLOSEIN = 4176; SHR$_CLOSEOUT = 4184; SHR$_COPIEDB = 4192; SHR$_COPIEDR = 4200; SHR$_CREATED = 4208; SHR$_ENDED = 4216; SHR$_ENDEDD = 4224; SHR$_ENDEDT = 4232; SHR$_NEWFILES = 4240; SHR$_OPENIN = 4248; SHR$_OPENOUT = 4256; SHR$_OVERLAY = 4264; SHR$_READERR = 4272; SHR$_REPLACED = 4280; SHR$_WILDCONCAT = 4288; SHR$_WILDOUTVER = 4296; SHR$_WRITEERR = 4304; SHR$_ABEND = 4312; SHR$_ABENDD = 4320; SHR$_ABENDT = 4328; SHR$_SYSERRORPC = 4336; SHR$_SYNTAX = 4344; SHR$_NOVALUE = 4352; SHR$_BADKEY = 4360; SHR$_BADVALUE = 4368; SHR$_BADDELIM = 4376; SHR$_BADLOGIC = 4384; SHR$_NOWILD = 4392; SHR$_TEXT = 4400; SHR$_IDXCONCAT = 4408; SHR$_RELCONCAT = 4416; SHR$_HIGHVER = 4424; SHR$_BADLOGICPC = 4432; SHR$_ATPC = 4440; SHR$_BADCOPIES = 4448; SHR$_BADFORM = 4456; SHR$_BADJOBID = 4464; SHR$_BADJOBNAME = 4472; SHR$_BADPRTY = 4480; SHR$_BADQNAME = 4488; SHR$_BADTIME = 4496; SHR$_NOQUEUE = 4504; SHR$_NOJOBID = 4512; SHR$_NOJOBNAME = 4520; SHR$_SYSERROR = 4528; SHR$_NOTCOPIED = 4536; SHR$_NOTCMPLT = 4544; SHR$_RMSERROR = 4552; SHR$_UNXPCTSTS = 4560; SHR$_HASHCONCAT = 4568; SHR$_INCOMPAT = 4576; SHR$_VALERR = 4584; SHR$_FILNOTDEL = 4592; SHR$_CONFDEL = 4600; SHR$_DELETED = 4608; SHR$_DELVER = 4616; SHR$_PURGEVER = 4624; SHR$_CLOSEDEL = 4632; SHR$_DIRTOOBUS = 4640; SHR$_NOFILPURG = 4648; SHR$_FILNOTPUR = 4656; SHR$_SEARCHFAIL = 4664; SHR$_DELINTERR = 4672; SHR$_PARSEFAIL = 4680; SHR$_FILPURGED = 4688; SHR$_ENDABORT = 4696; SHR$_ENDDIAGS = 4704; SHR$_ENDNOOBJ = 4712; SHR$_HALTED = 4720; SHR$_NOCMDMEM = 4728; SHR$_QEMPTY = 4736; SHR$_CBT = 4744; SHR$_EXISTS = 4752; SHR$_UNLOCKED = 4760; SHR$_RENAMED = 4768; SHR$_PROTECTED = 4776; SHR$_NOTLOCKED = 4784; SHR$_ACTIMAGE = 4792; SHR$_DIRNOTCRE = 4800; SHR$_NODESTQUE = 4808; SHR$_ILLDESQUE = 4816; SHR$_NOTTERM = 4824; SHR$_CONFQUAL = 4832; SHR$_ILLDIRCOPY = 4840; SHR$_INSVIRMEM = 4848; SHR$_CREATEDSTM = 4856; SHR$_NOTRUNC = 4864; SHR$_PRODNOTINS = 4872; SHR$_TOTAL = 4880; SHR$_FILPURG = 4888; SHR$_FILDEL = 4896; SHR$_INVQUAVAL = 4904; SHR$_NOFILES = 4912; SHR$_FILNOTACC = 4920; SHR$_QUALMISS = 4928; SHR$_FILSPCSRCH = 4936; SHR$_NOSRCHLST = 4944; SHR$_NOSUCHID = 4952; SHR$_AMBIGANS = 4960; SHR$_INVALANS = 4968; SHR$_PRDCONT = 4976; SHR$_NOTDELETED = 4984; SHR$_NOMEANING = 4992; SHR$_OPENERR = 5000; SHR$_CLOSEERR = 5008; SHR$_BADFORMAT = 5016; SHR$_FILDID = 5024; SHR$_FILFID = 5032; SHR$_FILDIDFID = 5040; SHR$_NOFIDS = 5048; SHR$_FILPURGBYT = 5056; SHR$_FILDELBYT = 5064; SHR$_TOTALBYT = 5072; SHR$_COPIEDBYT = 5080; SHR$_APPENDEDBYT = 5088; SHR$_MBXDEL = 5096; SHR$_SYMLINKERR = 5104; (* END. *) (* MODULE SMBMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMBMSGDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:28.73 *) (* *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (*++ *) (* FACILITY: *) (* SYMBIONT. *) (* *) (* ABSTRACT: *) (* SYMBIONT MESSAGES. *) (* *) (* THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FOR *) (* MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY *) (* THE $MSGDEF MACRO. *) (* *) (* ENVIRONMENT: *) (* VAX/VMS USER AND KERNEL MODE. *) (* *) (* AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984 *) (* *) (* MODIFIED BY: *) (* *) (* X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:08 *) (* CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF. *) (* *) (* 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 *) (* ADD .END. *) (* *) (* 3B-009 RRB0009 ROWLAND R. BRADLEY 20-JUL-1984 *) (* REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATE *) (* FILE SMBMSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES *) (* WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES *) (* SMB$... AND PSM$... DEPENDING ON THE CONTEXT OF THE *) (* ERROR. AUDIT TRAIL BEGINS AT HIGHER NUMBER SINCE THIS IS *) (* A CONTINUATION OF PSMMSG.MSG. *) (* *) (*** *) (* *) CONST SMB$_FACILITY = 272; SMB$_NOMOREITEMS = 17858562; SMB$_INVSTMNBR = 17858572; SMB$_INVSTRLEV = 17858580; (* END. *) (* MODULE SMGDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMGDEF ***) (* Definitions for RTL Screen Management Facility *) (* *) (* Input terminator codes *) (* *) CONST SMG$K_TRM_NULL_CHAR = 0; (* NUL *) SMG$K_TRM_CTRLA = 1; (* SOH *) SMG$K_TRM_CTRLB = 2; (* STX *) SMG$K_TRM_CTRLC = 3; (* ETX *) SMG$K_TRM_CTRLD = 4; (* EOT *) SMG$K_TRM_CTRLE = 5; (* ENQ *) SMG$K_TRM_CTRLF = 6; (* ACK *) SMG$K_TRM_CTRLG = 7; (* BEL *) SMG$K_TRM_CTRLH = 8; (* BS *) SMG$K_TRM_CTRLI = 9; (* HT *) SMG$K_TRM_CTRLJ = 10; (* LF *) SMG$K_TRM_CTRLK = 11; (* VT *) SMG$K_TRM_CTRLL = 12; (* FF *) SMG$K_TRM_CTRLM = 13; (* CR *) SMG$K_TRM_CTRLN = 14; (* SO *) SMG$K_TRM_CTRLO = 15; (* SI *) SMG$K_TRM_CTRLP = 16; (* DLE *) SMG$K_TRM_CTRLQ = 17; (* DC1 *) SMG$K_TRM_CTRLR = 18; (* DC2 *) SMG$K_TRM_CTRLS = 19; (* DC3 *) SMG$K_TRM_CTRLT = 20; (* DC4 *) SMG$K_TRM_CTRLU = 21; (* NAK *) SMG$K_TRM_CTRLV = 22; (* SYN *) SMG$K_TRM_CTRLW = 23; (* ETB *) SMG$K_TRM_CTRLX = 24; (* CAN *) SMG$K_TRM_CTRLY = 25; (* EM *) SMG$K_TRM_CTRLZ = 26; (* SUB *) SMG$K_TRM_ESCAPE = 27; (* ESC *) SMG$K_TRM_FS = 28; (* FS *) SMG$K_TRM_GS = 29; (* GS *) SMG$K_TRM_RS = 30; (* RS *) SMG$K_TRM_US = 31; (* US *) SMG$K_TRM_SPACE = 32; (* SP *) SMG$K_TRM_EXCLAMATION_POINT = 33; (* ! *) SMG$K_TRM_DOUBLE_QUOTE = 34; (* " *) SMG$K_TRM_NUMBER_SIGN = 35; (* # *) SMG$K_TRM_DOLLAR_SIGN = 36; (* $ *) SMG$K_TRM_PERCENT_SIGN = 37; (* % *) SMG$K_TRM_AMPERSAND = 38; (* & *) SMG$K_TRM_QUOTE = 39; (* ' *) SMG$K_TRM_LEFT_PAREN = 40; (* ( *) SMG$K_TRM_RIGHT_PAREN = 41; (* ) *) SMG$K_TRM_ASTERISK = 42; (* * *) SMG$K_TRM_PLUS_SIGN = 43; (* + *) SMG$K_TRM_COMMA_CHAR = 44; (* , *) SMG$K_TRM_DASH = 45; (* - *) SMG$K_TRM_DOT = 46; (* . *) SMG$K_TRM_SLASH = 47; (* / *) SMG$K_TRM_ZERO = 48; (* 0 *) SMG$K_TRM_ONE = 49; (* 1 *) SMG$K_TRM_TWO = 50; (* 2 *) SMG$K_TRM_THREE = 51; (* 3 *) SMG$K_TRM_FOUR = 52; (* 4 *) SMG$K_TRM_FIVE = 53; (* 5 *) SMG$K_TRM_SIX = 54; (* 6 *) SMG$K_TRM_SEVEN = 55; (* 7 *) SMG$K_TRM_EIGHT = 56; (* 8 *) SMG$K_TRM_NINE = 57; (* 9 *) SMG$K_TRM_COLON = 58; (* : *) SMG$K_TRM_SEMICOLON = 59; (* ; *) SMG$K_TRM_LESS_THAN = 60; (* < *) SMG$K_TRM_EQUAL = 61; (* = *) SMG$K_TRM_GREATER_THAN = 62; (* > *) SMG$K_TRM_QUESTION_MARK = 63; (* ? *) SMG$K_TRM_AT_SIGN = 64; (* @ *) SMG$K_TRM_UPPERCASE_A = 65; (* A *) SMG$K_TRM_UPPERCASE_B = 66; (* B *) SMG$K_TRM_UPPERCASE_C = 67; (* C *) SMG$K_TRM_UPPERCASE_D = 68; (* D *) SMG$K_TRM_UPPERCASE_E = 69; (* E *) SMG$K_TRM_UPPERCASE_F = 70; (* F *) SMG$K_TRM_UPPERCASE_G = 71; (* G *) SMG$K_TRM_UPPERCASE_H = 72; (* H *) SMG$K_TRM_UPPERCASE_I = 73; (* I *) SMG$K_TRM_UPPERCASE_J = 74; (* J *) SMG$K_TRM_UPPERCASE_K = 75; (* K *) SMG$K_TRM_UPPERCASE_L = 76; (* L *) SMG$K_TRM_UPPERCASE_M = 77; (* M *) SMG$K_TRM_UPPERCASE_N = 78; (* N *) SMG$K_TRM_UPPERCASE_O = 79; (* O *) SMG$K_TRM_UPPERCASE_P = 80; (* P *) SMG$K_TRM_UPPERCASE_Q = 81; (* Q *) SMG$K_TRM_UPPERCASE_R = 82; (* R *) SMG$K_TRM_UPPERCASE_S = 83; (* S *) SMG$K_TRM_UPPERCASE_T = 84; (* T *) SMG$K_TRM_UPPERCASE_U = 85; (* U *) SMG$K_TRM_UPPERCASE_V = 86; (* V *) SMG$K_TRM_UPPERCASE_W = 87; (* W *) SMG$K_TRM_UPPERCASE_X = 88; (* X *) SMG$K_TRM_UPPERCASE_Y = 89; (* Y *) SMG$K_TRM_UPPERCASE_Z = 90; (* Z *) SMG$K_TRM_LEFT_BRACKET = 91; (* [ *) SMG$K_TRM_BACKSLASH = 92; (* \ *) SMG$K_TRM_RIGHT_BRACKET = 93; (* ] *) SMG$K_TRM_CARET = 94; (* ^ *) SMG$K_TRM_UNDERLINE = 95; (* _ *) SMG$K_TRM_GRAVE_ACCENT = 96; (* ` *) SMG$K_TRM_LOWERCASE_A = 97; (* a *) SMG$K_TRM_LOWERCASE_B = 98; (* b *) SMG$K_TRM_LOWERCASE_C = 99; (* c *) SMG$K_TRM_LOWERCASE_D = 100; (* d *) SMG$K_TRM_LOWERCASE_E = 101; (* e *) SMG$K_TRM_LOWERCASE_F = 102; (* f *) SMG$K_TRM_LOWERCASE_G = 103; (* g *) SMG$K_TRM_LOWERCASE_H = 104; (* h *) SMG$K_TRM_LOWERCASE_I = 105; (* i *) SMG$K_TRM_LOWERCASE_J = 106; (* j *) SMG$K_TRM_LOWERCASE_K = 107; (* k *) SMG$K_TRM_LOWERCASE_L = 108; (* l *) SMG$K_TRM_LOWERCASE_M = 109; (* m *) SMG$K_TRM_LOWERCASE_N = 110; (* n *) SMG$K_TRM_LOWERCASE_O = 111; (* o *) SMG$K_TRM_LOWERCASE_P = 112; (* p *) SMG$K_TRM_LOWERCASE_Q = 113; (* q *) SMG$K_TRM_LOWERCASE_R = 114; (* r *) SMG$K_TRM_LOWERCASE_S = 115; (* s *) SMG$K_TRM_LOWERCASE_T = 116; (* t *) SMG$K_TRM_LOWERCASE_U = 117; (* u *) SMG$K_TRM_LOWERCASE_V = 118; (* v *) SMG$K_TRM_LOWERCASE_W = 119; (* w *) SMG$K_TRM_LOWERCASE_X = 120; (* x *) SMG$K_TRM_LOWERCASE_Y = 121; (* y *) SMG$K_TRM_LOWERCASE_Z = 122; (* z *) SMG$K_TRM_LEFT_BRACE = 123; (* left curly brace *) SMG$K_TRM_VERTICAL_LINE = 124; (* | *) SMG$K_TRM_RIGHT_BRACE = 125; (* right curly brace *) SMG$K_TRM_TILDE = 126; (* ~ *) SMG$K_TRM_DELETE = 127; (* DEL *) (* *) (* Synonyms for control characters *) (* *) CONST SMG$K_TRM_BS = 8; SMG$K_TRM_HT = 9; SMG$K_TRM_LF = 10; SMG$K_TRM_VT = 11; SMG$K_TRM_FF = 12; SMG$K_TRM_CR = 13; (* *) (* Keypad keys *) (* *) CONST SMG$K_TRM_PF1 = 256; SMG$K_TRM_PF2 = 257; SMG$K_TRM_PF3 = 258; SMG$K_TRM_PF4 = 259; SMG$K_TRM_KP0 = 260; SMG$K_TRM_KP1 = 261; SMG$K_TRM_KP2 = 262; SMG$K_TRM_KP3 = 263; SMG$K_TRM_KP4 = 264; SMG$K_TRM_KP5 = 265; SMG$K_TRM_KP6 = 266; SMG$K_TRM_KP7 = 267; SMG$K_TRM_KP8 = 268; SMG$K_TRM_KP9 = 269; SMG$K_TRM_ENTER = 270; SMG$K_TRM_MINUS = 271; SMG$K_TRM_COMMA = 272; SMG$K_TRM_PERIOD = 273; (* *) (* Cursor positioning keys *) (* *) CONST SMG$K_TRM_UP = 274; SMG$K_TRM_DOWN = 275; SMG$K_TRM_LEFT = 276; SMG$K_TRM_RIGHT = 277; (* *) (* Function keys *) (* *) CONST SMG$K_TRM_F1 = 281; SMG$K_TRM_F2 = 282; SMG$K_TRM_F3 = 283; SMG$K_TRM_F4 = 284; SMG$K_TRM_F5 = 285; SMG$K_TRM_F6 = 286; SMG$K_TRM_F7 = 287; SMG$K_TRM_F8 = 288; SMG$K_TRM_F9 = 289; SMG$K_TRM_F10 = 290; SMG$K_TRM_F11 = 291; SMG$K_TRM_F12 = 292; SMG$K_TRM_F13 = 293; SMG$K_TRM_F14 = 294; SMG$K_TRM_F15 = 295; SMG$K_TRM_F16 = 296; SMG$K_TRM_F17 = 297; SMG$K_TRM_F18 = 298; SMG$K_TRM_F19 = 299; SMG$K_TRM_F20 = 300; (* *) (* Synonyms for function keys *) (* *) CONST SMG$K_TRM_HELP = 295; SMG$K_TRM_DO = 296; (* *) (* Editing keys *) (* *) CONST SMG$K_TRM_E1 = 311; (* FIND *) SMG$K_TRM_E2 = 312; (* INSERT_HERE *) SMG$K_TRM_E3 = 313; (* REMOVE *) SMG$K_TRM_E4 = 314; (* SELECT *) SMG$K_TRM_E5 = 315; (* PREV_SCREEN *) SMG$K_TRM_E6 = 316; (* NEXT_SCREEN *) (* *) (* Synonyms for editing keys *) (* *) CONST SMG$K_TRM_FIND = 311; (* E1 *) SMG$K_TRM_INSERT_HERE = 312; (* E2 *) SMG$K_TRM_REMOVE = 313; (* E3 *) SMG$K_TRM_SELECT = 314; (* E4 *) SMG$K_TRM_PREV_SCREEN = 315; (* E5 *) SMG$K_TRM_NEXT_SCREEN = 316; (* E6 *) (* *) (* Locator keys *) (* *) CONST SMG$K_TRM_FIRST_DOWN = 321; (* Left button down *) SMG$K_TRM_SECOND_DOWN = 322; (* Middle button down *) SMG$K_TRM_THIRD_DOWN = 323; (* Right button down *) SMG$K_TRM_FOURTH_DOWN = 324; (* Fourth button down *) SMG$K_TRM_FIRST_UP = 325; (* Left button up *) SMG$K_TRM_SECOND_UP = 326; (* Middle button up *) SMG$K_TRM_THIRD_UP = 327; (* Right button up *) SMG$K_TRM_FOURTH_UP = 328; (* Fourth button up *) (* *) (* Conditions *) (* *) CONST SMG$K_TRM_CANCELLED = 508; (* I/O cancelled by SMG$CANCEL_INPUT *) SMG$K_TRM_TIMEOUT = 509; (* Timeout period expired *) SMG$K_TRM_BUFFER_FULL = 510; (* Buffer is full *) SMG$K_TRM_UNKNOWN = 511; (* Unknown terminator *) (* *) (* Screen Management request types - These constants are used internally *) (* by SMG$ and should not be used by users. *) (* *) CONST SMG$C_CHANGE_RENDITION = 10; SMG$C_DELETE_CHARS = 11; SMG$C_ERASE_DISPLAY = 12; SMG$C_ERASE_LINE = 13; SMG$C_HOME_CURSOR = 14; SMG$C_INSERT_CHARS = 15; SMG$C_INSERT_LINE = 16; SMG$C_PUT_CHARS = 17; SMG$C_PUT_LINE = 18; SMG$C_PUT_DISPLAY_ENCODED = 19; SMG$C_RETURN_CURSOR_POS = 20; SMG$C_PUT_WITH_SCROLL = 21; SMG$C_SET_CURSOR_ABS = 22; SMG$C_SET_CURSOR_REL = 23; SMG$C_DELETE_LINE = 24; SMG$C_ERASE_CHARS = 25; SMG$C_SCROLL_DISPLAY_AREA = 26; SMG$C_CHANGE_VIRTUAL_DISPLAY = 27; SMG$C_LABEL_BORDER = 28; SMG$C_END_DISPLAY_UPDATE = 29; SMG$C_MOVE_TEXT = 30; (* *) (* Character Set Codes *) (* *) CONST SMG$C_UNITED_KINGDOM = 0; (* Unused *) SMG$C_ASCII = 1; (* ASCII char set *) SMG$C_SPEC_GRAPHICS = 2; (* Line drawing set *) SMG$C_ALT_CHAR = 3; (* Unused *) SMG$C_ALT_GRAPHICS = 4; (* Unused *) SMG$C_UNKNOWN = 5; SMG$C_SUPPLEMENTAL = 6; SMG$C_JIS_ROMAN = 7; SMG$C_JIS_KANA = 8; SMG$C_KANJI = 9; SMG$C_HANZI = 10; SMG$C_HANYU = 11; SMG$C_HANGUL = 12; SMG$C_KS_ROMAN = 13; (* *) (* The following constants define corner cursor positions used in *) (* SMG$HOME_CURSOR. *) (* *) CONST SMG$C_UPPER_LEFT = 0; (* Home cursor to upper left corner *) SMG$C_LOWER_LEFT = 1; (* Home cursor to lower left corner *) SMG$C_UPPER_RIGHT = 2; (* Home cursor to upper right corner *) SMG$C_LOWER_RIGHT = 3; (* Home cursor to lower right corner *) (* *) (* The following constants define label positions used in *) (* SMG$LABEL_BORDER. *) (* *) CONST SMG$K_TOP = 0; (* Place label on top border *) SMG$K_BOTTOM = 1; (* Place label on bottom border *) SMG$K_LEFT = 2; (* Place label on left border *) SMG$K_RIGHT = 3; (* Place label on right border *) (* *) (* The following constants define menu types used in *) (* SMG$CREATE_MENU. *) (* *) CONST SMG$K_BLOCK = 0; (* Matrix of menu items *) SMG$K_VERTICAL = 1; (* Vertical vector of menu items *) SMG$K_HORIZONTAL = 2; (* Horizontal vector of menu items *) (* *) (* Master color wheel for screen background colors. *) (* Used with SMG$CHANGE_PBD_CHARACTERISTICS. *) (* *) CONST SMG$C_COLOR_UNKNOWN = 0; (* Unknown background *) SMG$C_COLOR_WHITE = 1; (* White background *) SMG$C_COLOR_BLACK = 2; (* Black background *) SMG$C_COLOR_BLUE = 3; (* Blue background *) SMG$C_COLOR_CYAN = 4; (* Cyan background *) SMG$C_COLOR_GREEN = 5; (* Green background *) SMG$C_COLOR_MAGENTA = 6; (* Magenta background *) SMG$C_COLOR_RED = 7; (* Red background *) SMG$C_COLOR_YELLOW = 8; (* Yellow background *) SMG$C_COLOR_LIGHT = 9; (* Light background *) SMG$C_COLOR_DARK = 10; (* Dark background *) SMG$C_COLOR_USER1 = 11; (* User 1 background *) SMG$C_COLOR_USER2 = 12; (* User 2 background *) SMG$C_COLOR_USER3 = 13; (* User 3 background *) SMG$C_COLOR_USER4 = 14; (* User 4 background *) SMG$C_COLOR_USER5 = 15; (* User 5 background *) SMG$C_COLOR_USER6 = 16; (* User 6 background *) SMG$C_COLOR_USER7 = 17; (* User 7 background *) SMG$C_COLOR_USER8 = 18; (* User 8 background *) (* *) (* The following constants describe the type of terminal *) (* and are used with SMG$GET_PASTEBOARD_ATTRIBUTES. *) (* *) CONST SMG$K_UNKNOWN = 0; (* Unknown type *) SMG$K_VT05 = 1; (* Unused *) SMG$K_VT52 = 2; (* Unused *) SMG$K_VT100 = 3; (* Unused *) SMG$K_VTFOREIGN = 4; (* Foreign terminal (ft1-8) *) SMG$K_HARDCOPY = 5; (* Hardcopy device *) SMG$K_VTTERMTABLE = 6; (* Video terminal *) SMG$K_FIRST_PRIV_TYPE = 191; (* Used internally by SMG$ *) (* *) (* Define bits, masks, and fields for the control modes. *) (* *) CONST SMG$K_BUF_ENABLED = 0; (* Enable Buffering *) SMG$K_MINUPD = 1; (* Enable minimal update *) SMG$K_CLEAR_SCREEN = 2; (* Clear screen on exit *) SMG$K_NOTABS = 3; (* Don't use physical tabs *) SMG$K_PROTECT = 4; (* Protect against ASTs *) SMG$K_IGNORE = 5; (* Don't output PBD if batched *) SMG$K_RELEASE_PBD = 6; (* Don't touch users part of PBD *) SMG$M_BUF_ENABLED = 1; SMG$M_MINUPD = 2; SMG$M_CLEAR_SCREEN = 4; SMG$M_NOTABS = 8; SMG$M_PROTECT = 16; SMG$M_IGNORE = 32; SMG$M_RELEASE_PBD = 64; SMG$m_spare15 = -128; TYPE SMGMODE_BITS$TYPE = RECORD SMG$V_BUF_ENABLED : [POS(0)] $BOOL; (* Enable buffering *) SMG$V_MINUPD : [POS(1)] $BOOL; (* Enable minimal update (default) *) SMG$V_CLEAR_SCREEN : [POS(2)] $BOOL; (* Clear screen on exit *) SMG$V_NOTABS : [POS(3)] $BOOL; (* Don't use physical tabs *) SMG$V_PROTECT : [POS(4)] $BOOL; (* Protect against ASTs *) SMG$V_IGNORE : [POS(5)] $BOOL; (* Don't output PBD if batched *) SMG$V_RELEASE_PBD : [POS(6)] $BOOL; (* Don't touch users part of PBD *) SMG$v_spare15 : [POS(7)] $BIT25; (* extra bits *) END; (* *) (* Key definition attributes *) (* *) CONST SMG$M_KEY_NOECHO = 1; SMG$M_KEY_TERMINATE = 2; SMG$M_KEY_LOCK = 4; SMG$M_KEY_PROTECTED = 8; SMG$M_KEY_SETSTATE = 16; SMG$m_spare18 = -32; TYPE SMG$R_KEY__ATTR$TYPE = RECORD SMG$V_KEY_NOECHO : [POS(0)] $BOOL; (* Don't echo strings *) SMG$V_KEY_TERMINATE : [POS(1)] $BOOL; (* This key terminates read *) SMG$V_KEY_LOCK : [POS(2)] $BOOL; (* Lock new state *) SMG$V_KEY_PROTECTED : [POS(3)] $BOOL; (* Definition is protected *) SMG$V_KEY_SETSTATE : [POS(4)] $BOOL; (* Definition sets a state (output only) *) SMG$v_spare18 : [POS(5)] $BIT27; (* extra bits *) END; (* *) (* Define bit masks and values for display renditions. *) (* *) CONST SMG$M_BOLD = 1; SMG$M_REVERSE = 2; SMG$M_BLINK = 4; SMG$M_UNDERLINE = 8; SMG$M_INVISIBLE = 16; SMG$M_USER1 = 256; SMG$M_USER2 = 512; SMG$M_USER3 = 1024; SMG$M_USER4 = 2048; SMG$M_USER5 = 4096; SMG$M_USER6 = 8192; SMG$M_USER7 = 16384; SMG$M_USER8 = 32768; SMG$m_spare14 = -65536; TYPE SMG_BITS$TYPE = RECORD SMG$V_BOLD : [POS(0)] $BOOL; (* Bold rendition *) SMG$V_REVERSE : [POS(1)] $BOOL; (* Reverse video rendition *) SMG$V_BLINK : [POS(2)] $BOOL; (* Blink rendition *) SMG$V_UNDERLINE : [POS(3)] $BOOL; (* Underline rendition *) SMG$V_INVISIBLE : [POS(4)] $BOOL; (* Invisible rendition *) SMG$v_fill1 : [POS(5)] $BIT3; (* internally used by SMG$ *) SMG$V_USER1 : [POS(8)] $BOOL; (* User rendition 1 *) SMG$V_USER2 : [POS(9)] $BOOL; (* User rendition 2 *) SMG$V_USER3 : [POS(10)] $BOOL; (* User rendition 3 *) SMG$V_USER4 : [POS(11)] $BOOL; (* User rendition 4 *) SMG$V_USER5 : [POS(12)] $BOOL; (* User rendition 5 *) SMG$V_USER6 : [POS(13)] $BOOL; (* User rendition 6 *) SMG$V_USER7 : [POS(14)] $BOOL; (* User rendition 7 *) SMG$V_USER8 : [POS(15)] $BOOL; (* User rendition 8 *) SMG$v_spare14 : [POS(16)] $BIT16; (* extra bits *) END; CONST SMG$M_NORMAL = 0; (* no bits set *) (* *) (* The following masks define values to be used *) (* to specify a display attribute. These may be added *) (* together to specify multiple attributes. *) (* *) CONST SMG$M_BORDER = 1; SMG$M_TRUNC_ICON = 2; SMG$M_DISPLAY_CONTROLS = 4; SMG$M_USER_DISPLAY = 8; SMG$M_BLOCK_BORDER = 16; SMG$M_PROTECT_DISPLAY = 32; SMG$m_spare12 = -64; TYPE DISPLAY_ATTRIBUTES$TYPE = RECORD SMG$V_BORDER : [POS(0)] $BOOL; (* Display is bordered *) SMG$V_TRUNC_ICON : [POS(1)] $BOOL; (* Truncation icon enabled *) SMG$V_DISPLAY_CONTROLS : [POS(2)] $BOOL; (* Display carriage controls *) SMG$V_USER_DISPLAY : [POS(3)] $BOOL; (* User display for DEBUG *) SMG$V_BLOCK_BORDER : [POS(4)] $BOOL; (* Display is block bordered *) SMG$V_PROTECT_DISPLAY : [POS(5)] $BOOL; (* Protect display against ASTs *) SMG$v_spare12 : [POS(6)] $BIT26; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$CREATE_SUBPROCESS. *) (* *) CONST SMG$M_TRUSTED = 1; SMG$M_AUTHPRIV = 2; SMG$M_SUBSYSTEM = 4; SMG$m_spare20 = -8; TYPE SMG$R_CREATE_SUBPROCESS_FLAGS = RECORD SMG$V_TRUSTED : [POS(0)] $BOOL; (* Set TRUSTED flag for LIB$SPAWN *) SMG$V_AUTHPRIV : [POS(1)] $BOOL; (* Set AUTHPRIV flag for LIB$SPAWN *) SMG$V_SUBSYSTEM : [POS(2)] $BOOL; (* Set SUBSYSTEM flag for LIB$SPAWN *) SMG$v_spare20 : [POS(3)] $BIT29; (* extra bits *) END; (* *) (* The following defines bits used with subprocess manipulation. *) (* *) CONST SMG$M_DATA_FOLLOWS = 1; SMG$M_SEND_EOF = 2; SMG$M_NO_PRINT = 4; SMG$m_spare11 = -8; TYPE SMG$R_SUBPROCESS_FLAGS = RECORD SMG$V_DATA_FOLLOWS : [POS(0)] $BOOL; (* The next call specifies data. *) SMG$V_SEND_EOF : [POS(1)] $BOOL; (* Send an end-of-file to the subprocess *) SMG$V_NO_PRINT : [POS(2)] $BOOL; (* Do not output command to the display *) SMG$v_spare11 : [POS(3)] $BIT29; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$DELETE_PASTEBOARD. *) (* *) CONST SMG$M_ERASE_PBD = 1; SMG$M_IGNORE_BATCHED = 2; SMG$m_spare10 = -4; TYPE SMG$R_DELETE_PBD_FLAGS = RECORD SMG$V_ERASE_PBD : [POS(0)] $BOOL; (* Erase the pasteboard *) SMG$V_IGNORE_BATCHED : [POS(1)] $BOOL; (* Delete even if pbd is batched *) SMG$v_spare10 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$CREATE_PASTEBOARD. *) (* *) CONST SMG$M_KEEP_CONTENTS = 1; SMG$M_WORKSTATION = 2; SMG$m_spare9 = -4; TYPE SMG$R_CREATE_PBD_FLAGS = RECORD SMG$V_KEEP_CONTENTS : [POS(0)] $BOOL; (* Don't erase the pasteboard *) SMG$V_WORKSTATION : [POS(1)] $BOOL; (* Pasteboard is DECwindows terminal *) SMG$v_spare9 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$READ_xxxx. *) (* *) CONST SMG$M_FUNC_KEYS = 1; SMG$M_NOKEEP = 2; SMG$M_NORECALL = 4; SMG$m_spare8 = -8; TYPE SMG$R_READ_FLAGS = RECORD SMG$V_FUNC_KEYS : [POS(0)] $BOOL; (* Disable line-editting. *) SMG$V_NOKEEP : [POS(1)] $BOOL; (* Don't save input in recall buffer *) SMG$V_NORECALL : [POS(2)] $BOOL; (* Disable input recall for this call *) SMG$v_spare8 : [POS(3)] $BIT29; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$SET_CURSOR_MODE. *) (* *) CONST SMG$M_CURSOR_OFF = 1; SMG$M_CURSOR_ON = 2; SMG$M_SCROLL_JUMP = 4; SMG$M_SCROLL_SMOOTH = 8; SMG$m_spare16 = -16; TYPE SMG$R_SET_CURSOR_FLAGS = RECORD SMG$V_CURSOR_OFF : [POS(0)] $BOOL; (* Turn the physical cursor off *) SMG$V_CURSOR_ON : [POS(1)] $BOOL; (* Turn the physical cursor on *) SMG$V_SCROLL_JUMP : [POS(2)] $BOOL; (* Set jump scroll *) SMG$V_SCROLL_SMOOTH : [POS(3)] $BOOL; (* Set smooth scroll *) SMG$v_spare16 : [POS(4)] $BIT28; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$GET_DISPLAY_ATTR. *) (* *) CONST SMG$M_VIEWPORT = 1; SMG$M_SUBPROCESS = 2; SMG$M_MENU = 4; SMG$m_spare7 = -8; TYPE SMG$R_GET_DISPLAY_FLAGS = RECORD SMG$V_VIEWPORT : [POS(0)] $BOOL; (* Display contains a viewport *) SMG$V_SUBPROCESS : [POS(1)] $BOOL; (* Display contains a subprocess *) SMG$V_MENU : [POS(2)] $BOOL; (* Display contains a menu *) SMG$v_spare7 : [POS(3)] $BIT29; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$PUT_CHARS. *) (* *) CONST SMG$M_ERASE_LINE = 1; SMG$M_ERASE_TO_EOL = 2; SMG$m_spare6 = -4; TYPE SMG$R_PUT_CHARS_FLAGS = RECORD SMG$V_ERASE_LINE : [POS(0)] $BOOL; (* Erase the entire line *) SMG$V_ERASE_TO_EOL : [POS(1)] $BOOL; (* Erase from cursor to end of line *) SMG$v_spare6 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$MOVE_TEXT. *) (* *) CONST SMG$M_TEXT_SAVE = 1; SMG$M_TEXT_ONLY = 2; SMG$m_spare17 = -4; TYPE SMG$R_MOVE_TEXT_FLAGS = RECORD SMG$V_TEXT_SAVE : [POS(0)] $BOOL; (* Don't erase text after moving it *) SMG$V_TEXT_ONLY : [POS(1)] $BOOL; (* Don't move attributes *) SMG$v_spare17 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$PUT_PASTEBOARD and SMG$SNAPSHOT. *) (* *) CONST SMG$M_FORM_FEED = 1; SMG$m_spare5 = -2; TYPE SMG$R_SNAPSHOT_FLAGS = RECORD SMG$V_FORM_FEED : [POS(0)] $BOOL; (* Output form feed before first row *) SMG$v_spare5 : [POS(1)] $BIT31; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$PUT_xxxx. *) (* *) CONST SMG$M_WRAP_CHAR = 1; SMG$M_WRAP_WORD = 2; SMG$m_spare4 = -4; TYPE SMG$R_PUT_LINE_FLAGS = RECORD SMG$V_WRAP_CHAR : [POS(0)] $BOOL; (* Do character wrapping at end of line *) SMG$V_WRAP_WORD : [POS(1)] $BOOL; (* Do word wrapping at end of line *) SMG$v_spare4 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$SET_KEYPAD_MODE. *) (* *) CONST SMG$M_KEYPAD_APPLICATION = 1; SMG$M_KEYPAD_NUMERIC = 2; SMG$m_spare3 = -4; TYPE SMG$R_KEYPAD_MODES = RECORD SMG$V_KEYPAD_APPLICATION : [POS(0)] $BOOL; (* Application keypad *) SMG$V_KEYPAD_NUMERIC : [POS(1)] $BOOL; (* Numeric keypad *) SMG$v_spare3 : [POS(2)] $BIT30; (* extra bits *) END; (* *) (* The following defines bits used with the FLAGS parameter for *) (* SMG$GET_PASTING_INFO. *) (* *) CONST SMG$M_DISPLAY_PASTED = 1; SMG$m_spare19 = -2; TYPE SMG$R_PASTING_INFO_FLAGS = RECORD SMG$V_DISPLAY_PASTED : [POS(0)] $BOOL; (* Display is pasted *) SMG$v_spare19 : [POS(1)] $BIT31; (* extra bits *) END; (* *) (* The following defines bits used with menu manipulation. *) (* *) CONST SMG$M_REMOVE_ITEM = 1; SMG$M_FIXED_FORMAT = 2; SMG$M_DOUBLE_SPACE = 4; SMG$M_RETURN_IMMED = 8; SMG$M_ERASE_MENU = 16; SMG$M_WIDE_MENU = 32; SMG$M_WRAP_MENU = 64; SMG$M_FULL_FIELD = 128; SMG$m_spare2 = -256; TYPE SMG$R_MENU_FLAGS = RECORD SMG$V_REMOVE_ITEM : [POS(0)] $BOOL; (* Only select item once *) SMG$V_FIXED_FORMAT : [POS(1)] $BOOL; (* Use fixed size cols *) SMG$V_DOUBLE_SPACE : [POS(2)] $BOOL; (* Double space menu rows *) SMG$V_RETURN_IMMED : [POS(3)] $BOOL; (* Ret on non-arrow key *) SMG$V_ERASE_MENU : [POS(4)] $BOOL; (* Erase menu when deleting *) SMG$V_WIDE_MENU : [POS(5)] $BOOL; (* Wide menu items *) SMG$V_WRAP_MENU : [POS(6)] $BOOL; (* Wrap menu items top to bottom *) SMG$V_FULL_FIELD : [POS(7)] $BOOL; (* Highlight entire field *) (* SCROLL_BARS bitfield mask; /* Use scroll bar indicators *) (* MARK_ITEM bitfield mask; /* Use def rend for chosen items *) SMG$v_spare2 : [POS(8)] $BIT24; (* extra bits *) END; (* *) (* The following are used with SMG$PUT_LINE_xxxx, *) (* SMG$SCROLL_DISPLAY_AREA, and SMG$DRAW_CHAR. *) (* *) CONST SMG$M_UP = 1; SMG$M_DOWN = 2; SMG$M_RIGHT = 4; SMG$M_LEFT = 8; SMG$m_spare1 = -16; TYPE SCROLL_DIRS$TYPE = RECORD SMG$V_UP : [POS(0)] $BOOL; (* Up *) SMG$V_DOWN : [POS(1)] $BOOL; (* Down *) SMG$V_RIGHT : [POS(2)] $BOOL; (* Right *) SMG$V_LEFT : [POS(3)] $BOOL; (* Left *) SMG$v_spare1 : [POS(4)] $BIT28; (* extra bits *) END; (* *) (* Define data structures *) (* *) CONST SMG$C_BAND_INFORMATION_TABLE = 12; (* Length of table in bytes *) (* *) CONST SMG$C_PASTEBOARD_INFO_BLOCK = 36; (* Length of table in bytes *) (* *) CONST SMG$C_KEYBOARD_INFO_BLOCK = 36; (* Length of table in bytes *) TYPE SMG$TYPE = RECORD CASE INTEGER OF (* *) (* When an out-of-band AST triggers, the user's AST routine *) (* will get called. The first argument passed to his *) (* routine is the address of a Band Information Table. *) (* The offsets into this table are described below. *) (* To make it easy to access from certain languages, *) (* the table is arranged so that it is convenient to *) (* reference it as a longword vector as well as a byte block. *) (* *) 1: (SMG$R_BAND_INFORMATION_TABLE : [BYTE(12)] RECORD END; ); 2: (SMG$L_PASTEBOARD_ID : [POS(0)] UNSIGNED; (* Pasteboard ID *) SMG$L_ARG : [POS(32)] UNSIGNED; (* User's AST argument *) SMG$R_CHARACTER_OVERLAY : [POS(64), BYTE(4)] RECORD END; ); 3: (SMG$B_CHARACTER : [POS(64)] $UBYTE; (* The character typed *) ); 4: (SMG$L_CHARACTER : [POS(64)] UNSIGNED; (* The character and 3 spaces *) (* When SMG$GET_PASTEBOARD_ATTRIBUTES is called, *) (* it returns data in a pasteboard information block. *) (* The following structure is used to reference fields *) (* in this block. *) (* Items marked with a plus (+) will be 0 unless the *) (* device is a terminal (DEVCLASS=DC$_TERM). *) (* *) ); 5: (SMG$R_PASTEBOARD_INFO_BLOCK : [BYTE(36)] RECORD END; ); 6: (SMG$L_DEVCHAR : [POS(0)] UNSIGNED; (* Device characteristics *) SMG$L_DEVDEPEND : [POS(32)] UNSIGNED; (* Specific characteristics (1) *) SMG$L_DEVDEPEND2 : [POS(64)] UNSIGNED; (* Specific characteristics (2) *) SMG$B_DEVCLASS : [POS(96)] $UBYTE; (* Device class (e.g. DC$_TERM) *) SMG$B_SMG_DEVTYPE : [POS(104)] $UBYTE; (* Internal SMG device type *) SMG$B_PHY_DEVTYPE : [POS(112)] $UBYTE; (* Physical device type (e.g. DT$_VT100) *) SMG$B_ROWS : [POS(120)] $UBYTE; (* Number of rows on device *) SMG$W_WIDTH : [POS(128)] $UWORD; (* Terminal width *) SMG$B_COLOR : [POS(144)] $UBYTE; (* PBD background color *) SMG$B_PARITY : [POS(152)] $UBYTE; (* Parity attributes (+) *) SMG$W_SPEED : [POS(160)] $UWORD; (* Terminal Speed (+) *) SMG$W_FILL : [POS(176)] $UWORD; (* Fill characteristics (+) *) SMG$W_CURSOR_ROW : [POS(192)] $UWORD; (* Row where physical cursor is *) (* (1-origin) *) SMG$W_CURSOR_COL : [POS(208)] $UWORD; (* Col where physical cursor is *) (* (1-origin) *) SMG$L_CURSOR_DID : [POS(224)] UNSIGNED; (* Display id of topmost *) (* display that cursor is in. *) (* 0 if cursor is not in a *) (* virtual display *) SMG$L_DEVDEPEND3 : [POS(256)] UNSIGNED; (* Specific characteristics (3) *) (* When SMG$GET_KEYBOARD_ATTRIBUTES is called, *) (* it returns data in a keyboard information block. *) (* The following structure is used to reference fields *) (* in this block. *) (* Items marked with a plus (+) will be 0 unless the *) (* device is a terminal (DEVCLASS=DC$_TERM). *) (* *) ); 7: (SMG$R_KEYBOARD_INFO_BLOCK : [BYTE(36)] RECORD END; ); 8: (SMG$B_RECALL_SIZE : [POS(104)] $UBYTE; (* Size of recall buffer (+) *) SMG$B_TYPEAHEAD_CHAR : [POS(120)] $UBYTE; (* First char in typeahead buffer (+) *) SMG$W_TYPEAHEAD_COUNT : [POS(144)] $UWORD; (* Number of chars in typeahead buffer (+) *) ) END; (* *) (* Define the out-of-band information table used when an out-of-band *) (* AST routine is called as it's own record. *) (* *) TYPE SMG$R_OUT_OF_BAND_TABLE = RECORD CASE INTEGER OF 1: (SMG$L_PBD_ID : UNSIGNED; (* Pasteboard ID *) SMG$L_USER_ARG : UNSIGNED; (* User's AST argument *) SMG$R_CHAR_OVERLAY : [BYTE(4)] RECORD END; ); 2: (SMG$B_CHAR : [POS(64)] $UBYTE; (* The character typed *) ); 3: (SMG$L_CHAR : [POS(64)] UNSIGNED; (* The character and 3 spaces *) ) END; CONST SMG$C_OUT_OF_BAND_TABLE = 12; (* Length of table in bytes *) (* *) (* Define the subprocess information table used when a subprocess *) (* AST routine is called as it's own record. *) (* *) TYPE SMG$R_SUBPROCESS_INFO_TABLE = RECORD SMG$L_DISP_ID : UNSIGNED; (* Display ID *) SMG$L_USR_ARG : UNSIGNED; (* User's AST argument *) SMG$L_STATUS : UNSIGNED; (* Status of executed command *) END; CONST SMG$C_SUBPROCESS_INFO_TABLE = 12; (* Length of table in bytes *) (* *) (* Define an information table that can be used by both *) (* SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES *) (* as it's own record. *) (* *) TYPE SMG$R_ATTRIBUTE_INFO_BLOCK = RECORD CASE INTEGER OF 1: (SMG$L_DEV_CHAR : UNSIGNED; (* Device characteristics *) SMG$L_DEV_DEPEND : UNSIGNED; (* Specific characteristics (1) *) SMG$L_DEV_DEPEND2 : UNSIGNED; (* Specific characteristics (2) *) SMG$B_DEV_CLASS : $UBYTE; (* Device class (e.g. DC$_TERM) *) SMG$R_DEV_OVERLAY : [BYTE(1)] RECORD END; SMG$B_DEV_TYPE : $UBYTE; (* Physical device type (e.g. DT$_VT100) *) SMG$R_ROW_OVERLAY : [BYTE(1)] RECORD END; SMG$W_NUM_COLUMNS : $UWORD; (* Terminal width *) SMG$R_COUNT_OVERLAY : [BYTE(2)] RECORD END; SMG$W_DEV_SPEED : $UWORD; (* Terminal Speed (+) *) SMG$W_DEV_FILL : $UWORD; (* Fill characteristics (+) *) SMG$W_PHYS_CURSOR_ROW : $UWORD; (* Row where physical cursor is *) SMG$W_PHYS_CURSOR_COL : $UWORD; (* Col where physical cursor is *) SMG$L_DISPLAY_ID : UNSIGNED; (* Display containing phy cursor *) SMG$L_DEV_DEPEND3 : UNSIGNED; (* Specific characteristics (3) *) ); 2: (SMG$B_PBD_TYPE : [POS(104)] $UBYTE; (* Internal SMG device type *) SMG$B_NUM_ROWS : [POS(120)] $UBYTE; (* Number of rows on device *) SMG$W_TYPEAHD_CNT : [POS(144)] $UWORD; (* Number of chars in typeahead buffer (+) *) ); 3: (SMG$B_RECALL_NUM : [POS(104)] $UBYTE; (* Size of recall buffer (+) *) SMG$B_TYPEAHD_CHAR : [POS(120)] $UBYTE; (* First char in typeahead buffer (+) *) SMG$R_COUNT_STRUCT : [POS(144), BYTE(2)] RECORD END; ); 4: (SMG$B_PBD_COLOR : [POS(144)] $UBYTE; (* PBD background color *) SMG$B_DEV_PARITY : [POS(152)] $UBYTE; (* Parity attributes (+) *) ) END; CONST SMG$C_ATTRIBUTE_INFO_BLOCK = 36; (* Length of table in bytes *) (* END. *) (* MODULE SMGTRMPTR ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SMGTRMPTR ***) (* Terminal Capability Pointers for RTL SMG$ facility *) (* *) (* Boolean capabilities here - 1 - 220 *) (* *) CONST SMG$K_ADVANCED_VIDEO = 1; SMG$K_ANSI_CRT = 2; SMG$K_AUTO_MARGIN = 3; SMG$K_BACKSPACE = 4; SMG$K_BLOCK_MODE = 5; SMG$K_DEC_CRT = 6; SMG$K_EDIT = 7; SMG$K_EIGHT_BIT = 8; SMG$K_FULLDUP = 9; SMG$K_IGNORE_NEWLINE = 10; SMG$K_INSERT_MODE_NULLS = 11; SMG$K_LOWERCASE = 12; SMG$K_NO_ERASE = 13; SMG$K_NO_SCROLL = 14; SMG$K_OVERSTRIKE = 15; SMG$K_PRINTER_PORT = 16; SMG$K_REGIS = 17; SMG$K_SCOPE = 18; SMG$K_SIXEL_GRAPHICS = 19; SMG$K_SOFT_CHARACTERS = 20; SMG$K_PHYSICAL_TABS = 21; SMG$K_PHYSICAL_FF = 22; SMG$K_UNDERLINE = 23; SMG$K_CURSOR_REPORT_ANSI = 24; SMG$K_DEC_CRT_2 = 25; SMG$K_DEC_CRT_3 = 26; SMG$K_SET_CURSOR_COL_ROW = 27; SMG$K_TEXT16 = 28; SMG$K_DEC_CRT_4 = 29; SMG$K_DEC_CRT_5 = 30; SMG$K_ANSI_COLOR = 31; (* *) (* Private capabilities reserved for customer use. *) (* Put them at the end of the range. *) (* *) CONST SMG$K_PRIVATE_BOO_1 = 211; SMG$K_PRIVATE_BOO_2 = 212; SMG$K_PRIVATE_BOO_3 = 213; SMG$K_PRIVATE_BOO_4 = 214; SMG$K_PRIVATE_BOO_5 = 215; SMG$K_PRIVATE_BOO_6 = 216; SMG$K_PRIVATE_BOO_7 = 217; SMG$K_PRIVATE_BOO_8 = 218; SMG$K_PRIVATE_BOO_9 = 219; SMG$K_PRIVATE_BOO_10 = 220; SMG$K_MAX_BOOLEAN_CODE = 220; (* *) (* Numeric capabilities here - 221 to 440 *) (* *) CONST SMG$K_COLUMNS = 221; SMG$K_CR_FILL = 222; SMG$K_FRAME = 223; SMG$K_LF_FILL = 224; SMG$K_NUMBER_FN_KEYS = 225; SMG$K_ROWS = 226; SMG$K_VMS_TERMINAL_NUMBER = 227; SMG$K_WIDE_SCREEN_COLUMNS = 228; (* *) (* Private capabilities for customer use. *) (* Put them at the end of the range. *) (* *) CONST SMG$K_PRIVATE_NUM_1 = 431; SMG$K_PRIVATE_NUM_2 = 432; SMG$K_PRIVATE_NUM_3 = 433; SMG$K_PRIVATE_NUM_4 = 434; SMG$K_PRIVATE_NUM_5 = 435; SMG$K_PRIVATE_NUM_6 = 436; SMG$K_PRIVATE_NUM_7 = 437; SMG$K_PRIVATE_NUM_8 = 438; SMG$K_PRIVATE_NUM_9 = 439; SMG$K_PRIVATE_NUM_10 = 440; SMG$K_MAX_NUMERIC_CODE = 440; (* *) (* String capabilities here - 441 - 660 *) (* *) CONST SMG$K_BEGIN_ALTERNATE_CHAR = 441; SMG$K_BEGIN_BLINK = 442; SMG$K_BEGIN_BOLD = 443; SMG$K_BEGIN_DELETE_MODE = 444; SMG$K_BEGIN_INSERT_MODE = 445; SMG$K_BEGIN_LINE_DRAWING_CHAR = 446; SMG$K_BEGIN_REVERSE = 447; SMG$K_BEGIN_UNDERSCORE = 448; SMG$K_BOTTOM_T_CHAR = 449; SMG$K_CLEAR_TAB = 450; SMG$K_CROSS_CHAR = 451; SMG$K_CURSOR_DOWN = 452; SMG$K_CURSOR_LEFT = 453; SMG$K_CURSOR_RIGHT = 454; SMG$K_CURSOR_UP = 455; SMG$K_DARK_SCREEN = 456; SMG$K_DELETE_CHAR = 457; SMG$K_DELETE_LINE = 458; SMG$K_DEVICE_ATTRIBUTES = 459; SMG$K_DOUBLE_HIGH_BOTTOM = 460; SMG$K_DOUBLE_HIGH_TOP = 461; SMG$K_DOUBLE_WIDE = 462; SMG$K_DUPLICATE = 463; SMG$K_END_ALTERNATE_CHAR = 464; SMG$K_END_BLINK = 465; SMG$K_END_BOLD = 466; SMG$K_END_DELETE_MODE = 467; SMG$K_END_INSERT_MODE = 468; SMG$K_END_LINE_DRAWING_CHAR = 469; SMG$K_END_REVERSE = 470; SMG$K_END_UNDERSCORE = 471; SMG$K_ERASE_TO_END_DISPLAY = 472; SMG$K_ERASE_TO_END_LINE = 473; SMG$K_ERASE_WHOLE_DISPLAY = 474; SMG$K_ERASE_WHOLE_LINE = 475; SMG$K_HOME = 476; SMG$K_HORIZONTAL_BAR = 477; SMG$K_INIT_STRING = 478; SMG$K_INSERT_CHAR = 479; SMG$K_INSERT_LINE = 480; SMG$K_INSERT_PAD = 481; SMG$K_KEY_0 = 482; SMG$K_KEY_1 = 483; SMG$K_KEY_2 = 484; SMG$K_KEY_3 = 485; SMG$K_KEY_4 = 486; SMG$K_KEY_5 = 487; SMG$K_KEY_6 = 488; SMG$K_KEY_7 = 489; SMG$K_KEY_8 = 490; SMG$K_KEY_9 = 491; SMG$K_KEY_BACKSPACE = 492; SMG$K_KEY_COMMA = 493; SMG$K_KEY_DOWN_ARROW = 494; SMG$K_KEY_E1 = 495; SMG$K_KEY_E2 = 496; SMG$K_KEY_E3 = 497; SMG$K_KEY_E4 = 498; SMG$K_KEY_E5 = 499; SMG$K_KEY_E6 = 500; SMG$K_KEY_ENTER = 501; SMG$K_KEY_F1 = 502; SMG$K_KEY_F2 = 503; SMG$K_KEY_F3 = 504; SMG$K_KEY_F4 = 505; SMG$K_KEY_F5 = 506; SMG$K_KEY_F6 = 507; SMG$K_KEY_F7 = 508; SMG$K_KEY_F8 = 509; SMG$K_KEY_F9 = 510; SMG$K_KEY_F10 = 511; SMG$K_KEY_F11 = 512; SMG$K_KEY_F12 = 513; SMG$K_KEY_F13 = 514; SMG$K_KEY_F14 = 515; SMG$K_KEY_F15 = 516; SMG$K_KEY_F16 = 517; SMG$K_KEY_F17 = 518; SMG$K_KEY_F18 = 519; SMG$K_KEY_F19 = 520; SMG$K_KEY_F20 = 521; SMG$K_KEY_LEFT_ARROW = 522; SMG$K_KEY_MINUS = 523; SMG$K_KEY_PERIOD = 524; SMG$K_KEY_PF1 = 525; SMG$K_KEY_PF2 = 526; SMG$K_KEY_PF3 = 527; SMG$K_KEY_PF4 = 528; SMG$K_KEY_RIGHT_ARROW = 529; SMG$K_KEY_UP_ARROW = 530; SMG$K_LABEL_F1 = 531; SMG$K_LABEL_F2 = 532; SMG$K_LABEL_F3 = 533; SMG$K_LABEL_F4 = 534; SMG$K_LABEL_F5 = 535; SMG$K_LABEL_F6 = 536; SMG$K_LABEL_F7 = 537; SMG$K_LABEL_F8 = 538; SMG$K_LABEL_F9 = 539; SMG$K_LABEL_F10 = 540; SMG$K_LABEL_F11 = 541; SMG$K_LABEL_F12 = 542; SMG$K_LABEL_F13 = 543; SMG$K_LABEL_F14 = 544; SMG$K_LABEL_F15 = 545; SMG$K_LABEL_F16 = 546; SMG$K_LABEL_F17 = 547; SMG$K_LABEL_F18 = 548; SMG$K_LABEL_F19 = 549; SMG$K_LABEL_F20 = 550; SMG$K_LEFT_T_CHAR = 551; SMG$K_LIGHT_SCREEN = 552; SMG$K_LOWER_LEFT_CORNER = 553; SMG$K_LOWER_RIGHT_CORNER = 554; SMG$K_NAME = 555; SMG$K_NEWLINE_CHAR = 556; SMG$K_PAD_CHAR = 557; SMG$K_RESTORE_CURSOR = 558; SMG$K_RIGHT_T_CHAR = 559; SMG$K_SAVE_CURSOR = 560; SMG$K_SCROLL_FORWARD = 561; SMG$K_SCROLL_REVERSE = 562; SMG$K_SEL_ERASE_TO_END_DISPLAY = 563; SMG$K_SEL_ERASE_TO_END_LINE = 564; SMG$K_SEL_ERASE_WHOLE_DISPLAY = 565; SMG$K_SEL_ERASE_WHOLE_LINE = 566; SMG$K_SET_APPLICATION_KEYPAD = 567; SMG$K_SET_CHAR_NOT_SEL_ERASE = 568; SMG$K_SET_CHAR_SEL_ERASE = 569; SMG$K_SET_CURSOR_ABS = 570; SMG$K_SET_NUMERIC_KEYPAD = 571; SMG$K_SET_SCROLL_REGION = 572; SMG$K_SET_TAB = 573; SMG$K_SINGLE_HIGH = 574; SMG$K_TAB_CHAR = 575; SMG$K_TOP_T_CHAR = 576; SMG$K_UNDERLINE_CHAR = 577; SMG$K_UPPER_LEFT_CORNER = 578; SMG$K_UPPER_RIGHT_CORNER = 579; SMG$K_VERTICAL_BAR = 580; SMG$K_WIDTH_NARROW = 581; SMG$K_WIDTH_WIDE = 582; SMG$K_CURSOR_POSITION_REPORT = 583; SMG$K_REQUEST_CURSOR_POSITION = 584; SMG$K_CR_GRAPHIC = 585; SMG$K_FF_GRAPHIC = 586; SMG$K_LF_GRAPHIC = 587; SMG$K_HT_GRAPHIC = 588; SMG$K_VT_GRAPHIC = 589; SMG$K_TRUNCATION_ICON = 590; SMG$K_CURSOR_NEXT_LINE = 591; SMG$K_CURSOR_PRECEDING_LINE = 592; SMG$K_INDEX = 593; SMG$K_REVERSE_INDEX = 594; SMG$K_BEGIN_NORMAL_RENDITION = 595; SMG$K_BEGIN_AUTOWRAP_MODE = 596; SMG$K_END_AUTOWRAP_MODE = 597; SMG$K_BEGIN_AUTOREPEAT_MODE = 598; SMG$K_END_AUTOREPEAT_MODE = 599; SMG$K_SET_ORIGIN_RELATIVE = 600; SMG$K_SET_ORIGIN_ABSOLUTE = 601; SMG$K_ERASE_LINE_TO_CURSOR = 602; SMG$K_NEXT_LINE = 603; SMG$K_BEGIN_AUTOPRINT_MODE = 604; SMG$K_END_AUTOPRINT_MODE = 605; SMG$K_PRINT_SCREEN = 606; SMG$K_SET_CURSOR_ON = 607; SMG$K_SET_CURSOR_OFF = 608; SMG$K_SET_PRINTER_OUTPUT = 609; SMG$K_SET_SCREEN_OUTPUT = 610; SMG$K_ERASE_DISPLAY_TO_CURSOR = 611; SMG$K_REQUEST_PRINTER_STATUS = 612; SMG$K_PRINTER_READY = 613; SMG$K_PRINTER_NOT_READY = 614; SMG$K_NO_PRINTER = 615; SMG$K_SET_JUMP_SCROLL = 616; SMG$K_SET_SMOOTH_SCROLL = 617; SMG$K_ERROR_ICON = 618; SMG$K_PAGE_LENGTH = 619; (* *) (* Private capabilities reserved for customer use. *) (* Put them at the end of the range. *) (* *) CONST SMG$K_PRIVATE_STR_1 = 651; SMG$K_PRIVATE_STR_2 = 652; SMG$K_PRIVATE_STR_3 = 653; SMG$K_PRIVATE_STR_4 = 654; SMG$K_PRIVATE_STR_5 = 655; SMG$K_PRIVATE_STR_6 = 656; SMG$K_PRIVATE_STR_7 = 657; SMG$K_PRIVATE_STR_8 = 658; SMG$K_PRIVATE_STR_9 = 659; SMG$K_PRIVATE_STR_10 = 660; SMG$K_MAX_STRING_CODE = 660; (* *) (* Second string capabilities here - 661 - 880 *) (* *) CONST SMG$K_BEGIN_USER1 = 661; SMG$K_BEGIN_USER2 = 662; SMG$K_BEGIN_USER3 = 663; SMG$K_BEGIN_USER4 = 664; SMG$K_BEGIN_USER5 = 665; SMG$K_BEGIN_USER6 = 666; SMG$K_BEGIN_USER7 = 667; SMG$K_BEGIN_USER8 = 668; SMG$K_END_USER1 = 669; SMG$K_END_USER2 = 670; SMG$K_END_USER3 = 671; SMG$K_END_USER4 = 672; SMG$K_END_USER5 = 673; SMG$K_END_USER6 = 674; SMG$K_END_USER7 = 675; SMG$K_END_USER8 = 676; SMG$K_BLACK_SCREEN = 677; SMG$K_BLUE_SCREEN = 678; SMG$K_CYAN_SCREEN = 679; SMG$K_MAGENTA_SCREEN = 680; SMG$K_GREEN_SCREEN = 681; SMG$K_RED_SCREEN = 682; SMG$K_WHITE_SCREEN = 683; SMG$K_YELLOW_SCREEN = 684; SMG$K_USER1_SCREEN = 685; SMG$K_USER2_SCREEN = 686; SMG$K_BEGIN_STATUS_LINE = 687; SMG$K_END_STATUS_LINE = 688; SMG$K_BEGIN_LOCATOR = 689; SMG$K_END_LOCATOR = 690; SMG$K_KEY_FIRST_DOWN = 691; SMG$K_KEY_SECOND_DOWN = 692; SMG$K_KEY_THIRD_DOWN = 693; SMG$K_KEY_FOURTH_DOWN = 694; SMG$K_KEY_FIRST_UP = 695; SMG$K_KEY_SECOND_UP = 696; SMG$K_KEY_THIRD_UP = 697; SMG$K_KEY_FOURTH_UP = 698; SMG$K_USER3_SCREEN = 699; SMG$K_USER4_SCREEN = 700; SMG$K_USER5_SCREEN = 701; SMG$K_USER6_SCREEN = 702; SMG$K_USER7_SCREEN = 703; SMG$K_USER8_SCREEN = 704; SMG$K_SET_ASCII = 705; SMG$K_SET_SPEC_GRAPHICS = 706; SMG$K_SET_SUPPLEMENTAL = 707; SMG$K_SET_JIS_KANA = 708; SMG$K_SET_KANJI = 709; SMG$K_SET_JIS_ROMAN = 710; SMG$K_SET_HANZI = 711; SMG$K_SET_HANYU = 712; SMG$K_SET_HANGUL = 713; SMG$K_SET_KS_ROMAN = 714; SMG$K_MAX_STRING2_CODE = 880; (* END. *) (* MODULE SRMDEF ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $DSCDEF ***) (* Define Procedure argument data types *) (* The following encoding is used for atomic data elements: *) (* Mnemonic Code Description *) CONST DSC$K_DTYPE_Z = 0; (* Unspecified. The calling program has *) DSC64$K_DTYPE_Z = 0; (* specified no data type/* the called *) (* procedure should assume the argument is of *) (* the correct type. *) CONST DSC$K_DTYPE_BU = 2; (* Byte Logical. 8-bit unsigned quantity. *) DSC64$K_DTYPE_BU = 2; DSC$K_DTYPE_WU = 3; (* Word Logical. 16-bit unsigned quantity. *) DSC64$K_DTYPE_WU = 3; DSC$K_DTYPE_LU = 4; (* Longword Logical. 32-bit unsigned *) DSC64$K_DTYPE_LU = 4; (* quantity. *) DSC$K_DTYPE_QU = 5; (* Quadword Logical. 64-bit unsigned *) DSC64$K_DTYPE_QU = 5; (* quantity. *) DSC$K_DTYPE_OU = 25; (* Octaword Logical. 128-bit unsigned *) DSC64$K_DTYPE_OU = 25; (* quantity. *) DSC$K_DTYPE_B = 6; (* Byte Integer. 8-bit signed 2's-complement *) DSC64$K_DTYPE_B = 6; (* integer. *) DSC$K_DTYPE_W = 7; (* Word Integer. 16-bit signed 2's-complement *) DSC64$K_DTYPE_W = 7; (* integer. *) DSC$K_DTYPE_L = 8; (* Longword Integer. 32-bit signed *) DSC64$K_DTYPE_L = 8; (* 2's-complement integer. *) DSC$K_DTYPE_Q = 9; (* Quadword Integer. 64-bit signed *) DSC64$K_DTYPE_Q = 9; (* 2's-complement integer. *) DSC$K_DTYPE_O = 26; (* Octaword Integer. 128-bit signed *) DSC64$K_DTYPE_O = 26; (* 2's-complement integer. *) DSC$K_DTYPE_F = 10; (* F_floating. 32-bit F_floating quantity representing *) DSC64$K_DTYPE_F = 10; (* a single-precision number. *) DSC$K_DTYPE_D = 11; (* D_floating. 64-bit D_floating quantity representing *) DSC64$K_DTYPE_D = 11; (* a double-precision number. *) DSC$K_DTYPE_G = 27; (* G_floating. 64-bit G_floating quantity representing *) DSC64$K_DTYPE_G = 27; (* a double-precision number. *) DSC$K_DTYPE_H = 28; (* H_floating. 128-bit H_floating quantity representing *) DSC64$K_DTYPE_H = 28; (* a quadruple-precision number. *) DSC$K_DTYPE_FC = 12; (* F_floating complex. Ordered pair of F_floating *) DSC64$K_DTYPE_FC = 12; (* quantities representing a single-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_DC = 13; (* D_floating complex. Ordered pair of D_floating *) DSC64$K_DTYPE_DC = 13; (* quantities representing a double-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_GC = 29; (* G_floating complex. Ordered pair of G_floating *) DSC64$K_DTYPE_GC = 29; (* quantities representing a double-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_HC = 30; (* H_floating complex. Ordered pair of H_floating *) DSC64$K_DTYPE_HC = 30; (* quantities representing a quadruple-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_FS = 52; (* IEEE floating basic single S. 32-bit quantity representing *) DSC64$K_DTYPE_FS = 52; (* a single-precision number. *) DSC$K_DTYPE_FT = 53; (* IEEE floating basic double T. 64-bit quantity representing *) DSC64$K_DTYPE_FT = 53; (* a double-precision number. *) DSC$K_DTYPE_FSC = 54; (* IEEE floating basic single S complex. Ordered pair of S_floating *) DSC64$K_DTYPE_FSC = 54; (* quantities representing a single-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_FTC = 55; (* IEEE floating basic double T complex. Ordered pair of T_floating *) DSC64$K_DTYPE_FTC = 55; (* quantities representing a double-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_FX = 57; (* IEEE floating basic quadruple X. 128-bit quantity representing *) DSC64$K_DTYPE_FX = 57; (* an extended-precision number. *) DSC$K_DTYPE_FXC = 58; (* IEEE floating basic quadruple X complex. Ordered pair of X_floating *) DSC64$K_DTYPE_FXC = 58; (* quantities representing an extended-precision complex *) (* number. The lower addressed quantity is the *) (* real part, the higher addressed quantity is the *) (* imaginary part. *) CONST DSC$K_DTYPE_CIT = 31; (* COBOL Intermediate Temporary. Floating point *) DSC64$K_DTYPE_CIT = 31; (* datum with an 18 digit normalized decimal *) (* fraction and a 2 digit decimal exponent. The *) (* fraction is represented as a packed decimal *) (* number. The exponent is represented as a *) (* 16-bit 2's complement integer. *) (* The following string types are ordinarily described by a string *) (* descriptor. The data type codes below occur in those descriptors: *) CONST DSC$K_DTYPE_T = 14; (* Character-coded text. A single 8-bit character *) DSC64$K_DTYPE_T = 14; (* (atomic data type) or a sequence of 0 to *) (* 2**16-1 8-bit characters (string data type). *) CONST DSC$K_DTYPE_VT = 37; (* Varying Character-coded Text Data Type. *) DSC64$K_DTYPE_VT = 37; DSC$K_DTYPE_T2 = 38; (* 16-bit Text (Asian workstations) *) DSC64$K_DTYPE_T2 = 38; DSC$K_DTYPE_NU = 15; (* Numeric string, unsigned. *) DSC64$K_DTYPE_NU = 15; DSC$K_DTYPE_NL = 16; (* Numeric string, left separate sign. *) DSC64$K_DTYPE_NL = 16; DSC$K_DTYPE_NLO = 17; (* Numeric string, left overpunched sign. *) DSC64$K_DTYPE_NLO = 17; DSC$K_DTYPE_NR = 18; (* Numeric string, right separate sign. *) DSC64$K_DTYPE_NR = 18; DSC$K_DTYPE_NRO = 19; (* Numeric string, right overpunched sign. *) DSC64$K_DTYPE_NRO = 19; DSC$K_DTYPE_NZ = 20; (* Numeric string, zoned sign. *) DSC64$K_DTYPE_NZ = 20; DSC$K_DTYPE_P = 21; (* Packed decimal string. *) DSC64$K_DTYPE_P = 21; DSC$K_DTYPE_V = 1; (* Bit. An aligned bit string. *) DSC64$K_DTYPE_V = 1; DSC$K_DTYPE_VU = 34; (* Bit Unaligned. *) DSC64$K_DTYPE_VU = 34; (* The following encodings are used for miscellaneous data types: *) CONST DSC$K_DTYPE_ZI = 22; (* Sequence of instructions. *) DSC64$K_DTYPE_ZI = 22; DSC$K_DTYPE_ZEM = 23; (* Procedure entry mask. *) DSC64$K_DTYPE_ZEM = 23; DSC$K_DTYPE_DSC = 24; (* Descriptor. This data type allows a descriptor *) DSC64$K_DTYPE_DSC = 24; (* to be an argument data type, thereby allowing *) (* the use of levels of descriptors. *) CONST DSC$K_DTYPE_BPV = 32; (* Bound Procedure Value. A two longword entity *) DSC64$K_DTYPE_BPV = 32; (* in which the first longword contains the address *) (* of a procedure entry mask and the second longword *) (* contains the environment value. The environmeent *) (* value is determined in a language specific *) (* fashion when the original Bound Procedure Value *) (* is generated. When the bound procedure is *) (* invoked, the calling program loads the second *) (* longword into R1. This data type can be passed *) (* using the immediate value mechanism when the *) (* environment value is not needed. In this case *) (* the argument list entry contains the address of *) (* the procedure entry mask and the second longword *) (* is omitted. *) CONST DSC$K_DTYPE_BLV = 33; (* Bound label value. *) DSC64$K_DTYPE_BLV = 33; DSC$K_DTYPE_ADT = 35; (* Absolute Date and Time *) DSC64$K_DTYPE_ADT = 35; (* K DTYPE_???,36 /* DTYPE code 36 is reserved for future definition *) (* The following types are used by the VAX/VMS Debug Facility: \FOR *) (* INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility *) (* Documentation.\ *) CONST DSC$K_DTYPE_CAD = 178; (* Address calculation command *) DSC64$K_DTYPE_CAD = 178; DSC$K_DTYPE_ENT = 179; (* Entry global definition *) DSC64$K_DTYPE_ENT = 179; DSC$K_DTYPE_GBL = 180; (* Global symbol definition *) DSC64$K_DTYPE_GBL = 180; DSC$K_DTYPE_EPT = 181; (* Entry point to routine. *) DSC64$K_DTYPE_EPT = 181; DSC$K_DTYPE_R11 = 182; (* Line number relative to R11 correlation *) DSC64$K_DTYPE_R11 = 182; (* table. *) DSC$K_DTYPE_FLD = 183; (* BLISS FIELD name. *) DSC64$K_DTYPE_FLD = 183; DSC$K_DTYPE_PCT = 184; (* PSECT information. *) DSC64$K_DTYPE_PCT = 184; DSC$K_DTYPE_DPC = 185; (* PC correlation table for FORTRAN IV+ *) DSC64$K_DTYPE_DPC = 185; DSC$K_DTYPE_LBL = 186; (* LITERAL or LABEL *) DSC64$K_DTYPE_LBL = 186; DSC$K_DTYPE_SLB = 187; (* Label in non-assembly language modules *) DSC64$K_DTYPE_SLB = 187; DSC$K_DTYPE_MOD = 188; (* Beginning of new module *) DSC64$K_DTYPE_MOD = 188; DSC$K_DTYPE_EOM = 189; (* End of module *) DSC64$K_DTYPE_EOM = 189; DSC$K_DTYPE_RTN = 190; (* Beginning of new routine *) DSC64$K_DTYPE_RTN = 190; DSC$K_DTYPE_EOR = 191; (* End of routine *) DSC64$K_DTYPE_EOR = 191; (* The following type codes are RESERVED for future use: *) (* 37-177 RESERVED to DEC *) (* 192-255 RESERVED to CSS and customers *) (* *) (* A uniform descriptor mechanism is defined for use by all procedures *) (* which conform to this standard. Descriptors are uniformly typed and *) (* the mechanism is extensible. As new varieties of descriptor become *) (* necessary, they will be added to this catalogue. *) (* Note: *) (* *) (* All fields represent unsigned quantities unless explicitly stated *) (* otherwise. *) (* *) (* 32-bit Descriptor Prototype *) (* *) (* Each class of 32-bit descriptor consists of at least 2 longwords in *) (* the following format: *) (* *) (* +-------+-------+---------------+ *) (* | CLASS | DTYPE | LENGTH | :Descriptor *) (* +-------+-------+---------------+ *) (* | POINTER | *) (* +-------------------------------+ *) (* *) (* DSC$W_LENGTH A one-word field specific to the descriptor *) (* <0,15:0> class/* typically a 16-bit (unsigned) length. *) (* *) (* DSC$B_DTYPE A one-byte atomic data type code *) (* <0,23:16> *) (* *) (* DSC$B_CLASS A one-byte descriptor class code (see below) *) (* <0,31:24> *) (* *) (* DSC$A_POINTER A longword pointing to the first byte of the *) (* <1,31:0> data element described. *) (* *) (* 64-bit Descriptor Prototype *) (* *) (* Each class of 64-bit descriptor consists of at least 3 aligned *) (* quadwords in the following format: *) (* *) (* +-------+-------+---------------+ *) (* | CLASS | DTYPE | MBO (=1) | :Descriptor *) (* +-------+-------+---------------+ *) (* | MBMO (=-1) | *) (* +-------------------------------+ *) (* | | : 8 *) (* +- LENGTH -+ *) (* | | *) (* +-------------------------------+ *) (* | | : 16 *) (* +- POINTER -+ *) (* | | *) (* +-------------------------------+ *) (* *) (* DSC64$W_MBO A one-word field which must contain the value 1. *) (* <0,15:0> *) (* *) (* DSC64$B_DTYPE A one-byte atomic data type code *) (* <0,23:16> *) (* *) (* DSC64$B_CLASS A one-byte descriptor class code (see below) *) (* <0,31:24> *) (* *) (* DSC$L_MBMO A longword field which must contain the value -1. *) (* <1,31:0> *) (* *) (* DSC64$Q_LENGTH A quadword containing the length of the *) (* <2,63:0> data element described. *) (* *) (* DSC64$PQ_POINTER A quadword pointing to the first byte of the *) (* <4,63:0> data element described. *) (* *) (* Define the descriptor class codes *) (* *) CONST DSC$K_CLASS_Z = 0; (* Unspecified *) DSC64$K_CLASS_Z = 0; (* Unspecified *) DSC$K_CLASS_S = 1; (* Scalar, String Descriptor *) DSC64$K_CLASS_S = 1; (* Scalar, String Descriptor *) DSC$K_CLASS_D = 2; (* Dynamic String Descriptor *) DSC64$K_CLASS_D = 2; (* Dynamic String Descriptor *) DSC$K_CLASS_V = 3; (* Reserved for use by Digital *) DSC64$K_CLASS_V = 3; (* Reserved for use by Digital *) DSC$K_CLASS_A = 4; (* Array Descriptor *) DSC64$K_CLASS_A = 4; (* Array Descriptor *) DSC$K_CLASS_P = 5; (* Procedure Descriptor *) DSC64$K_CLASS_P = 5; (* Procedure Descriptor *) DSC$K_CLASS_PI = 6; (* Procedure Incarnation Descriptor *) DSC64$K_CLASS_PI = 6; (* Procedure Incarnation Descriptor *) DSC$K_CLASS_J = 7; (* Reserved for use by Digital *) DSC64$K_CLASS_J = 7; (* Reserved for use by Digital *) DSC$K_CLASS_JI = 8; (* Obsolete *) DSC$K_CLASS_SD = 9; (* Decimal Scalar String Descriptor *) DSC64$K_CLASS_SD = 9; (* Decimal Scalar String Descriptor *) DSC$K_CLASS_NCA = 10; (* Non-contiguous Array Descriptor *) DSC64$K_CLASS_NCA = 10; (* Non-contiguous Array Descriptor *) DSC$K_CLASS_VS = 11; (* Varying String Descriptor *) DSC64$K_CLASS_VS = 11; (* Varying String Descriptor *) DSC$K_CLASS_VSA = 12; (* Varying String Array Descriptor *) DSC64$K_CLASS_VSA = 12; (* Varying String Array Descriptor *) DSC$K_CLASS_UBS = 13; (* Unaligned Bit String Descriptor *) DSC64$K_CLASS_UBS = 13; (* Unaligned Bit String Descriptor *) DSC$K_CLASS_UBA = 14; (* Unaligned Bit Array Descriptor *) DSC64$K_CLASS_UBA = 14; (* Unaligned Bit Array Descriptor *) DSC$K_CLASS_SB = 15; (* String with Bounds Descriptor *) DSC64$K_CLASS_SB = 15; (* String with Bounds Descriptor *) DSC$K_CLASS_UBSB = 16; (* Unaligned Bit String with Bounds Descriptor *) DSC64$K_CLASS_UBSB = 16; (* Unaligned Bit String with Bounds Descriptor *) (* *) (* The following descriptor class is FOR INTERNAL USE ONLY by the VAX *) (* Common Run-Time Library and Debugger. This descriptor is not passed *) (* between separately compiled modules. For further information, see *) (* VAX-11 BASIC Description of Generated Code, Software Document *) (* Retrieval Number JBS-79-004. *) CONST DSC$K_CLASS_BFA = 191; (* BASIC File Array Descriptor *) (* Descriptor classes 17-190 are RESERVED to DEC. Classes *) (* 192 through 255 are RESERVED to CSS and customers. *) (* *) (* Array Descriptor (DSC$K_CLASS_A) *) (* *) (* An array descriptor consists of 3 contiguous blocks. The first block *) (* contains the descriptor prototype information and is part of every *) (* array descriptor. The second and third blocks are optional. If the *) (* third block is present then so is the second. *) (* *) (* A complete 32-bit array descriptor has the form: *) (* *) (* +-------+-------+---------------+ *) (* | 4 | DTYPE | LENGTH | :Descriptor *) (* +-------+-------+---------------+ *) (* | POINTER | *) (* +-------+-------+---------------+ *) (* | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype *) (* +-------+-------+---------------+ *) (* | ARSIZE | *) (* +-------------------------------+ *) (* *) (* +-------------------------------+ *) (* | A0 | *) (* +-------------------------------+ *) (* | M1 | *) (* +-------------------------------+ *) (* | ... | Block 2 - Multipliers *) (* +-------------------------------+ *) (* | M(n-1) | *) (* +-------------------------------+ *) (* | Mn | *) (* +-------------------------------+ *) (* *) (* +-------------------------------+ *) (* | L1 | *) (* +-------------------------------+ *) (* | U1 | *) (* +-------------------------------+ *) (* | ... | 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 | *) (* +-------+-------+---------------+ *) (* | | : 8 *) (* +- LENGTH -+ *) (* | | *) (* +-------------------------------+ *) (* | | : 16 *) (* +- POINTER -+ *) (* | | *) (* +-------------------------------+ *) (* | DIMCT | AFLAGS|DIGITS | SCALE | : 24 *) (* +-------+-------+---------------+ *) (* | MBZ | *) (* +-------+-------+---------------+ *) (* | | : 32 *) (* +- ARSIZE -+ *) (* | | *) (* +-------------------------------+ *) (* *) (* *) (* 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). \ *) TYPE DSC$TYPE = RECORD (* WARNING: aggregate has origin of -12 *) DSC$A_HANDLE : UNSIGNED; (* The address of a vector of data concerning the *) (* current state of processing of the array. This *) (* is set to zero by the creator of the *) (* descriptor, and maintained thereafter by the *) (* BASIC file array processing functions. *) DSC$L_BYTEOFF : UNSIGNED; (* Byte offset in the file of element 0,0,...,0 *) (* of the array. This need not be within the *) (* array, or even within the file if the array *) (* does not have zero origin. *) DSC$L_LOGUNIT : UNSIGNED; (* The logical unit number (BASIC channel) on *) (* which the file containing the array has *) (* been opened. This is set by the creator of the *) (* descriptor before first referencing the array. *) (* *) (* End of BASIC File Array specific descriptor fields. The remaining *) (* fields are common to all array descriptors. *) (* *) (* *) DSC$W_LENGTH : $UWORD; (* A one-word field specifiec to the descriptor class; *) (* typically a 16-bit (unsigned) length. *) END; DSC1$TYPE = RECORD DSC$W_MAXSTRLEN : $UWORD; (* Max length of the BODY field of the varying string *) (* in bytes in the range 0 to 2**16-1. *) (* (Classes VS, VSA) *) DSC$B_DTYPE : $UBYTE; (* A one-byte atomic data type code *) (* Symbols used in this filed have form: DSC$K_DTYPE_t *) (* where t is the data type mnemonic from above *) (* and agrees with methodology manual. *) DSC$B_CLASS : $UBYTE; (* A one-byte descriptor class code (see above). *) (* Symbols used in this field have form: DSC$K_CLASS_f *) (* where f is the argument form mnemonic from above *) (* and agrees with the methodology manual. *) DSC$A_POINTER : UNSIGNED; (* An address pointing to the first byte of the data *) (* element described. *) END; CONST DSC$K_Z_BLN = 8; (* Block length in bytes for Z class descr. *) DSC$C_Z_BLN = 8; (* Block length in bytes for Z class descr. *) DSC$K_S_BLN = 8; (* Block length in bytes for S class descr. *) DSC$C_S_BLN = 8; (* Block length in bytes for S class descr. *) DSC$K_D_BLN = 8; (* Block length in bytes for D class descr. *) DSC$C_D_BLN = 8; (* Block length in bytes for D class descr. *) DSC$K_P_BLN = 8; (* Block length in bytes for P class descr. *) DSC$C_P_BLN = 8; (* Block length in bytes for P class descr. *) DSC$K_J_BLN = 8; (* Block length in bytes for J class descr. *) DSC$C_J_BLN = 8; (* Block length in bytes for J class descr. *) DSC$K_VS_BLN = 8; (* Block length in bytes for VS class descr. *) DSC$C_VS_BLN = 8; (* Block length in bytes for VS class descr. *) TYPE DSC2$TYPE = RECORD DSCDEF$$_FILL_3 : ARRAY [1..4] OF $BYTE; DSC$A_BASE : UNSIGNED; (* 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; (*+ *) (* End of common definitions for all descriptors. *) (*- *) CONST DSC$K_UBS_BLN = 12; (* Block length in bytes for UBS class descr. *) DSC$C_UBS_BLN = 12; (* Block length in bytes for UBS class descr. *) TYPE DSC3$TYPE = RECORD DSCDEF$$_FILL_4 : ARRAY [1..8] OF $BYTE; DSC$L_POS : INTEGER; (* Signed longword relative bit position *) (* with respect to BASE of the first bit *) (* of unaligned bit string *) (* WARNING!! Do not use this symbol to reference *) (* class UBA descriptors! The DSC$L_POS in that *) (* descriptor is at a variable location after the *) (* bounds and multiplier blocks. *) END; (*+ *) (* *Obsolete* Varying type descriptor definition *) (* This form should not be used. *) (*- *) TYPE DSC4$TYPE = RECORD DSCDEF$$_FILL_5 : ARRAY [1..8] OF $BYTE; DSC$W_MAXLEN : $UWORD; (* An unsigned word specifying the *) (* maximum length of the data item *) (* (i.e., the space allocated) *) DSCDEF$$_FILL_1 : $WORD; (* reserved word *) END; (*+ *) (* Array Descriptor definitions *) (*- *) CONST DSC$K_SD_BLN = 12; (* Block length in bytes for SD class descr. *) DSC$C_SD_BLN = 12; (* Block length in bytes for SD class descr. *) TYPE DSC5$TYPE = RECORD CASE INTEGER OF 1: (DSCDEF_64$$_FILL_6 : ARRAY [1..8] OF $BYTE; DSC$B_SCALE : $BYTE; (* Signed power of ten multiplier to convert the *) (* internal form to external form. For example, *) (* if internal number is 123 and scale is +1, *) (* then the represented external number is 1230. *) DSC$B_DIGITS : $UBYTE; (* If non-zero, unsigned number of decimal *) (* digits in the external representation. If *) (* zero, the number of digits can be computed *) (* based on DSC$W_LENGTH. *) DSC$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END; DSC$B_DIMCT : $UBYTE; (* Number of dimensions *) DSC$L_ARSIZE : UNSIGNED; (* Total size of array (in bytes unless DTYPE is *) (* EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P). *) DSC$A_A0 : UNSIGNED; (* Address of element A(0,0,...,0). This *) (* need not be within the actual array/* it *) (* is the same as DSC$A_POINTER for 0-origin *) (* arrays. *) ); 2: (DSC$B_AFLAGS : [POS(80)] $UBYTE; (* Array flag bits. *) ); 3: (); 4: (DSC$V_FL_REDIM : [POS(84)] $BOOL; (* If set, the array can be redimensioned; *) (* i.e., DSC$A_A0, DSC$L_Mi, DSC$L_Li, and *) (* DSC$L_Ui may be changed. The redimensioned *) (* array cannot exceed the size allocated to *) (* the array (i.e. DSC$L_ARSIZE). *) DSC$V_FL_COLUMN : [POS(85)] $BOOL; (* If set, the elements of the array are *) (* stored by columns (FORTRAN)> Otherwise *) (* the elements are stored by rows. *) DSC$V_FL_COEFF : [POS(86)] $BOOL; (* If set, the multiplicative coefficients in *) (* Block 2 are present. *) DSC$V_FL_BOUNDS : [POS(87)] $BOOL; (* If set, the bounds information in Block 3 *) (* is present. *) ) END; DSC6$TYPE = RECORD DSCDEF$$_FILL_7 : ARRAY [1..16] OF $BYTE; DSC$L_V0 : INTEGER; (* Signed bit offset of element A(0,0,...0) with *) (* respect to BASE. (Class UBA) *) (* The following two fields have meaning only if the array is of *) (* class DSC$K_CLASS_NCA (Non-contiguous array). *) DSC$L_S1 : UNSIGNED; (* Stride of the first dimension, i.e. the *) (* difference between the addresses of *) (* successive elements of the first dimension. *) DSC$L_S2 : UNSIGNED; (* Stride of the second dimension. *) END; DSC7$TYPE = RECORD DSCDEF$$_FILL_8 : ARRAY [1..20] OF $BYTE; DSC$L_M1 : UNSIGNED; (* Addressing coefficient M1 = U1-L1+1 *) DSC$L_M2 : UNSIGNED; (* Addressing coefficient M2 = U2-L2+1 *) END; (*+ *) (* Procedure Incarnation descriptor (DSC$K_CLASS_PI) and *) (* Label Incarnation descriptor (DSC$K_CLASS_JI). *) (*- *) CONST DSC$K_PI_BLN = 12; (* Block length in bytes for PI class descr. *) DSC$C_PI_BLN = 12; (* Block length in bytes for PI class descr. *) DSC$K_JI_BLN = 12; (* block length in bytes for JI class descr. *) DSC$C_JI_BLN = 12; (* block length in bytes for JI class descr. *) TYPE DSC8$TYPE = RECORD DSCDEF$$_FILL_9 : ARRAY [1..8] OF $BYTE; DSC$A_FRAME : UNSIGNED; (* Address of frame *) END; (*+ *) (* String with Bounds descriptor (DSC$K_CLASS_SB). *) (*- *) TYPE DSC9$TYPE = RECORD DSCDEF$$_FILL_10 : ARRAY [1..8] OF $BYTE; DSC$L_SB_L1 : INTEGER; (* Signed lower bound of first dimension *) DSC$L_SB_U1 : INTEGER; (* Signed upper bound of first dimension *) END; (*+ *) (* Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB). *) (*- *) TYPE DSC10$TYPE = RECORD DSCDEF$$_FILL_11 : ARRAY [1..12] OF $BYTE; DSC$L_UBSB_L1 : INTEGER; (* Signed lower bound of first dimension *) DSC$L_UBSB_U1 : INTEGER; (* Signed upper bound of first dimension *) END; (* *) (* 64-bit versions of the descriptors defined above. These are expected *) (* to be quadword aligned. *) (*- *) TYPE DSC64$TYPE = RECORD DSCDEF_64$$_FILL_1 : ARRAY [1..8] OF $BYTE; (* No 64-bit versions of handle/byteoff/logunit *) DSC64$Q_LENGTH : $UQUAD; (* 64-bit LENGTH field *) END; DSC1_64$TYPE = RECORD DSC64$W_MBO : $UWORD; (* 32-bit LENGTH field is MBO in 64-bit descs *) DSC64$B_DTYPE : $UBYTE; (* Identical to 32-bit form *) DSC64$B_CLASS : $UBYTE; (* Identical to 32-bit form *) DSC64$L_MBMO : INTEGER; (* 32-bit POINTER field is MBMO in 64-bit descs *) DSC64$Q_MAXSTRLEN : $UQUAD; (* 64-bit MAXSTRLEN field *) DSC64$PQ_POINTER : $QUAD; (* 64-bit pointer field *) END; CONST DSC64$K_Z_BLN = 24; (* Block length in bytes for 64-bit Z class descr. *) DSC64$C_Z_BLN = 24; (* Block length in bytes for 64-bit Z class descr. *) DSC64$K_S_BLN = 24; (* Block length in bytes for 64-bit S class descr. *) DSC64$C_S_BLN = 24; (* Block length in bytes for 64-bit S class descr. *) DSC64$K_D_BLN = 24; (* Block length in bytes for 64-bit D class descr. *) DSC64$C_D_BLN = 24; (* Block length in bytes for 64-bit D class descr. *) DSC64$K_P_BLN = 24; (* Block length in bytes for 64-bit P class descr. *) DSC64$C_P_BLN = 24; (* Block length in bytes for 64-bit P class descr. *) DSC64$K_J_BLN = 24; (* Block length in bytes for 64-bit J class descr. *) DSC64$C_J_BLN = 24; (* Block length in bytes for 64-bit J class descr. *) DSC64$K_VS_BLN = 24; (* Block length in bytes for 64-bit VS class descr. *) DSC64$C_VS_BLN = 24; (* Block length in bytes for 64-bit VS class descr. *) TYPE DSC2_64$TYPE = RECORD DSCDEF_64$$_FILL_3 : ARRAY [1..16] OF $BYTE; DSC64$PQ_BASE : $QUAD; (* 64-bit BASE field *) END; (*+ *) (* End of common definitions for all descriptors. *) (*- *) CONST DSC64$K_UBS_BLN = 32; (* Block length in bytes for 64-bit UBS class descr. *) DSC64$C_UBS_BLN = 32; (* Block length in bytes for 64-bit UBS class descr. *) TYPE DSC3_64$TYPE = RECORD DSCDEF_64$$_FILL_4 : ARRAY [1..24] OF $BYTE; DSC64$Q_POS : $QUAD; (* 64-bit POS field *) END; (* *) (* 64-bit version of the array descriptor *) (* *) CONST DSC64$K_SD_BLN = 32; (* Block length in bytes for 64-bit SD class descr. *) DSC64$C_SD_BLN = 32; (* Block length in bytes for 64-bit SD class descr. *) TYPE DSC5_64$TYPE = RECORD CASE INTEGER OF 1: (DSCDEF_64$$_FILL_6 : ARRAY [1..24] OF $BYTE; DSC64$B_SCALE : $BYTE; (* 64-bit descriptor SCALE *) DSC64$B_DIGITS : $UBYTE; (* 64-bit descriptor DIGITS *) DSC64$R_AFLAGS_OVERLAY : [BYTE(1)] RECORD END; (* *) DSC64$B_DIMCT : $UBYTE; (* 64-bit descriptor DIMCT *) DSC64$L_MBZ : UNSIGNED; (* MBZ field for quad alignment. *) DSC64$Q_ARSIZE : $UQUAD; (* 64-bit descriptor ARSIZE *) DSC64$PQ_A0 : $QUAD; (* 64-bit descriptor A0 *) ); 2: (DSC64$B_AFLAGS : [POS(208)] $UBYTE; (* 64-bit descriptor AFLAGS *) ); 3: (); 4: (DSC64$V_FL_REDIM : [POS(212)] $BOOL; DSC64$V_FL_COLUMN : [POS(213)] $BOOL; DSC64$V_FL_COEFF : [POS(214)] $BOOL; DSC64$V_FL_BOUNDS : [POS(215)] $BOOL; ) END; DSC6_64$TYPE = RECORD DSCDEF_64$$_FILL_7 : ARRAY [1..40] OF $BYTE; DSC64$Q_V0 : $QUAD; (* 64-bit descriptor V0 *) DSC64$Q_S1 : $UQUAD; (* Stride of the first dimension *) DSC64$Q_S2 : $UQUAD; (* Stride of the second dimension. *) END; DSC7_64$TYPE = RECORD DSCDEF_64$$_FILL_8 : ARRAY [1..48] OF $BYTE; DSC64$Q_M1 : $UQUAD; (* Addressing coefficient M1 = U1-L1+1 *) DSC64$Q_M2 : $UQUAD; (* Addressing coefficient M2 = U2-L2+1 *) END; CONST DSC64$K_PI_BLN = 32; (* Block length in bytes for 64-bit PI class descr. *) DSC64$C_PI_BLN = 32; (* Block length in bytes for 64-bit PI class descr. *) DSC64$K_JI_BLN = 32; (* block length in bytes for 64-bit JI class descr. *) DSC64$C_JI_BLN = 32; (* block length in bytes for 64-bit JI class descr. *) TYPE DSC8_64$TYPE = RECORD DSCDEF_64$$_FILL_9 : ARRAY [1..24] OF $BYTE; DSC64$PQ_FRAME : $QUAD; (* Address of frame *) END; DSC9_64$TYPE = RECORD DSCDEF_64$$_FILL_10 : ARRAY [1..24] OF $BYTE; DSC64$Q_SB_L1 : $QUAD; (* Signed lower bound of first dimension *) DSC64$Q_SB_U1 : $QUAD; (* Signed upper bound of first dimension *) END; DSC10_64$TYPE = RECORD DSCDEF_64$$_FILL_11 : ARRAY [1..32] OF $BYTE; DSC64$Q_UBSB_L1 : $QUAD; (* Signed lower bound of first dimension *) DSC64$Q_UBSB_U1 : $QUAD; (* Signed upper bound of first dimension *) END; (*** MODULE $SRMDEF ***) (*+ *) (* Define SRM Hardware symbols *) (*- *) CONST SRM$K_INT_OVF_T = 1; (* Integer overflow trap code *) SRM$K_INT_DIV_T = 2; (* Integer divide by zero trap code *) SRM$K_FLT_OVF_T = 3; (* Floating overflow trap code *) SRM$K_FLT_DIV_T = 4; (* Floating/decimal Divide by zero trap code *) SRM$K_FLT_UND_T = 5; (* Floating Underflow trap code *) SRM$K_DEC_OVF_T = 6; (* Decimal string overflow trap code *) SRM$K_SUB_RNG_T = 7; (* Subscript range trap *) SRM$K_FLT_OVF_F = 8; (* Floating Overflow fault code *) SRM$K_FLT_DIV_F = 9; (* Floating Divide by zero fault code *) SRM$K_FLT_UND_F = 10; (* Floating Underflow fault code *) SRM$M_EXC_SUM_SWC = 1; SRM$M_EXC_SUM_INV = 2; SRM$M_EXC_SUM_DZE = 4; SRM$M_EXC_SUM_OVF = 8; SRM$M_EXC_SUM_UNF = 16; SRM$M_EXC_SUM_INE = 32; SRM$M_EXC_SUM_IOV = 64; TYPE SRM$TYPE = RECORD CASE INTEGER OF 1: (SRM$R_EXC_SUM_OVERLAY : [BYTE(4)] RECORD END; ); 2: (SRM$L_EXC_SUM : [POS(0)] UNSIGNED; ); 3: (); 4: (SRM$V_EXC_SUM_SWC : [POS(0)] $BOOL; SRM$V_EXC_SUM_INV : [POS(1)] $BOOL; SRM$V_EXC_SUM_DZE : [POS(2)] $BOOL; SRM$V_EXC_SUM_OVF : [POS(3)] $BOOL; SRM$V_EXC_SUM_UNF : [POS(4)] $BOOL; SRM$V_EXC_SUM_INE : [POS(5)] $BOOL; SRM$V_EXC_SUM_IOV : [POS(6)] $BOOL; ) END; (* END. *) (* MODULE SSMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $SSDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 16:55:30.02 *) (* *) (* *) (* SSMSG.MSG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES *) (* *) (* VERSION: 'X-137' *) (* *) (***************************************************************************** *) (** * *) (** © COPYRIGHT 1995-2005 HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P. * *) (** * *) (** RESTRICTED RIGHTS LEGEND * *) (** * *) (** USE, DUPLICATION OR DISCLOSURE BY THE U.S. GOVERNMENT IS SUBJECT TO * *) (** RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH (C)(1)(II) OF THE RIGHTS * *) (** IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE IN DFARS 252.227-7013. * *) (** * *) (** HEWLETT-PACKARD DEVELOPMENT COMPANY, L.P * *) (** 3000 HANOVER STREET * *) (** PALO ALTO, CA 94304 * *) (** U.S.A. * *) (** * *) (** RIGHTS FOR NON-DOD U.S. GOVERNMENT DEPARTMENTS AND AGENCIES ARE AS * *) (** SET FORTH IN FAR 52.227-19(C)(1,2). * *) (** * *) (***************************************************************************** *) (*++ *) (* *) (* FACILITY: VMS SYSTEM MACRO LIBRARIES *) (* *) (* ABSTRACT: *) (* *) (* THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES. *) (* *) (* GUIDELINES: *) (* *) (* WITH THE RELEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY *) (* MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TO *) (* SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TYPOS OR GRAMMATICAL *) (* ERRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGES *) (* WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCING *) (* STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE *) (* FOLLOWING GUIDELINES. *) (* *) (* O SS$ CODE NAMES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION *) (* IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION. *) (* *) (* O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START *) (* WITH CAPS IN RUNNING TEXT. FOR EXAMPLE, *) (* *) (* WRONG: *) (* RIGHT: *) (* *) (* THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLY *) (* CONVERTS TO UPPERCASE THE INITIAL LETTER OF A MESSAGE WHEN RETRIEVING *) (* A MESSAGE IN AN ENVIRONMENT WHERE THE FACILITY, SEVERITY, AND *) (* IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED. *) (* *) (* O ACRONYMS SHOULD BE UPPERCASE ONLY: *) (* *) (* *) (* *) (* O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE. *) (* *) (* O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot" *) (* INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't". *) (* *) (* O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its". *) (* *) (* O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE. *) (* *) (* WRONG: *) (* RIGHT: *) (* *) (* O AVOID USING HYPHENS TO SEPARATE CLAUSES. USE A SEMICOLON INSTEAD. *) (* *) (* WRONG: *) (* RIGHT: *) (* *) (* O SEMICOLONS SHOULD BE USED TO SEPARATE MAIN CLAUSES THAT ARE NOT *) (* JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLY *) (* INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECT *) (* WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA *) (* IS USED TO SEPARATE ITEMS IN A LIST. FOR EXAMPLE, *) (* *) (* *) (* *) (* O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ON *) (* COMMUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU *) (* CAN MAKE IT. *) (* *) (* *) (* NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES: *) (* *) (* O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY *) (* A MESSAGE NAME OF OBSOLETE_. *) (* *) (* O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT. IF MESSAGES *) (* COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_. *) (* LOOK FOR THE OTHER OBSOLETE MESSAGES TO FIND OUT WHAT THE NEXT FREE *) (* NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEY *) (* CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE. *) (* *) (* O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGE *) (* (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGES *) (* THAT DISPLAY ADDRESSES, INCLUDING PCS, MUST DISPLAY THE FULL 64-BITS *) (* OF THOSE ADDRESSES. USE THE !XH FAO DIRECTIVE FOR THIS PURPOSE. FAO *) (* (SYS$FAO & SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTS *) (* BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@). *) (*-- *) (* *) (* AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 *) (* *) (* MODIFIED BY: *) (* *) (* X-137 ACG0722 ANDY GOLDSTEIN, 15-OCT-2008 12:00 *) (* REMOVE UNUSED SS$_SYMLINKENTRY STATUS *) (* ALSO GENERALIZE TEXT OF TOOMANYVER MESSAGE *) (* *) (* X-136 AJ ANDERS JOHANSSON 10-OCT-2008 *) (* ADD INVKTLIM MESSAGE, AND ADJUST THE "room left" ACCORDINGLY *) (* FOR THAT SECTION. I ACTUALLY COUNTED THE MESSAGES, AND APPLIED *) (* A GREATER ADJUSTMENT TO MATCH THE DEFINED NUMBER OF MSGS IN *) (* THE COMMENT. *) (* *) (* X-135 SAN SANDEEP RAMAVANA 12-JUN-2008 *) (* ADD A NEW SUCCESS STATUS RETURN, LOWPREC *) (* *) (* X-134 LSH LON HILDE 31-OCT-2004 *) (* TWEAK ASTFLT MESSAGE CHANGING "target PC" TO "target PC or FV". *) (* *) (* 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 STATUS *) (* FOR FUTURE NOTIFICATION. FIXUP REVISION NUMBERS TO MATCH VDE. *) (* *) (* X-132 DOUGLAS FYFE 29-NOV-2005 *) (* ADD SS$_TOOMANYPERSONA PERSONA ARRAY FULL STATUS. *) (* *) (* X-131 KGB KENNETH G. BLAYLOCK 23-SEP-2005 *) (* ADD IN THE SUCCESS STATUS OF SS$_SYMLINKENTRY TO *) (* INDICATE THAT THE DIRECTORY ENTRY HAS A SYMLINK *) (* HINT VALUE. *) (* *) (* X-129/130 WBF BURNS FISHER 12-MAY-2005 *) (* ADD "reason mask" FIELD TO SS$_DEBUG_FAULT. IT SHOULD BE *) (* JUST LIKE ACCVIO *) (* *) (* X-128 KGB KENNETH G. BLAYLOCK 29-NOV-2004 *) (* ADD IN A NEW FILE WARNING. FILEFULL WHICH INDICATES *) (* THAT THE SUPPORTED ALLOCATION FOR THE FILE IS FULL. *) (* *) (* X-127 RAB0122 ROBERT A. BROOKS -SEP-2004 *) (* CHANGE TEXT FOR NOMODNONEPOL TO CORRELATE WITH *) (* NAME CHANGE OF HBMM NONE POLICY TO NODEFAULT (NO DEFAULT). *) (* ERROR NAME STAYS THE SAME, OF COURSE. *) (* *) (* REMOVE THE WORD QIOSERVER FROM NOMOREPATHS. QIOSERVER IS *) (* DEAD, BUT THE ERROR MESSAGE IS STILL BEING USED BY MULTIPATH *) (* AND MULTIPATH-AWARE COMPONENTS ($GETDVI, FOR EXAMPLE). *) (* *) (* X-126 RUTH GOLDENBERG 10-AUG-2004 *) (* ADD INFORMATIONALS FOR GEM: ARGTYPN, FPMODECTL, FPMODEPC, FPMODERC *) (* *) (* X-125 RUTH GOLDENBERG 4-AUG-2004 *) (* TWEAK TEXT FOR SS$_TOOMANYLNAM. *) (* *) (* X-124 MAS0800 MARK A. STILES 7-JUL-2004 *) (* ADD GAMEOVER MESSAGE FOR INTERSTELLAR CONQUEST. *) (* *) (* X-123 RAB0106 ROBERT A. BROOKS 26-MAY-2004 *) (* MORE SHADOWING MESSAGES. *) (* *) (* X-122 RAB0103 ROBERT A. BROOKS 17-MAY-2004 *) (* MORE SHADOWING MESSAGES FOR HBMM. *) (* *) (* X-121 RAB0102 ROBERT A. BROOKS 11-MAY-2004 *) (* MORE SHADOWING MESSAGES FOR HBMM. *) (* *) (* X-120 SAD STUART A. DAVIDSON 7-MAY-2004 *) (* ADD SS$_QIO_FAULT FOR SPECIAL TREATMENT THAT $QIO *) (* NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. *) (* SS$_QIO_FAULT IS HANDLED BY A CALLER'S MODE JACT, *) (* WHERAS QIO_CROCK IS HANDLED IN THE SYSTEM SERVICE *) (* DISPATCHER (WHICH IS PROBLEMATIC WITH THE IA64 CALLING *) (* STANDARD). *) (* *) (* X-119 RAB098 ROBERT A. BROOKS 05-MAY-2004 *) (* ADD SEVERAL SHADOWING-RELATED MESSAGES TO REPLACE THE *) (* TOO-GENERIC INCSHAMEM. *) (* *) (* X-118 CLAIR GRANT 21-APR-2004 *) (* ELIMINATE "Digital" AND "DEC" FROM ERROR TEXT STRINGS *) (* *) (* X-117 WBF BURNS FISHER 31-MAR-2004 *) (* ADD SS$_CALLUNDEFSYM *) (* *) (* X-116 JRC JOHN R. COVERT 12-MAR-2004 *) (* ADD XVALNOTVALID FOR EXTENDED LOCK VALUE BLOCK *) (* *) (* X-115 RAB086 ROBERT A. BROOKS 03-FEB-2004 *) (* ADD HBMMCREPOSTMRG FOR HBMM. *) (* *) (* X-114 DJM DENNIS MATTOON 27-JAN-2004 *) (* ADD SYMBOLS/MESSAGES FOR TIE *) (* *) (* X-113 RAB085 ROBERT A. BROOKS 16-JAN-2004 *) (* ADD WLGCANTHBMM FOR HBMM, TO INDICATE THAT OLDER *) (* DEVICES CAPABLE OF MSCP-BASED MINIMERGE (HSC/HSD/HSJ) *) (* CANNOT USE HBMM. *) (* *) (* X-112 RAB084 ROBERT A. BROOKS 14-JAN-2004 *) (* ADD SEVERAL MESSAGES FOR HOST-BASED MINIMERGE (HBMM). *) (* *) (* X-111 KLN3346 KAREN L. NOEL 7-SEP-2003 *) (* O CHANGE TAKEN_BRANCH TO USE DISPLAY PC/PS. *) (* O CHANGE NEW REASON MASKS TO BYTES OR WORDS INSTEAD OF QUADS. *) (* *) (* X-110 KLN3340 KAREN L. NOEL 28-AUG-2003 *) (* O ADD SS CODES FOR TAKEN BRANCH FAULT, IA32 TRAP, DEBUG *) (* FAULT AND SYSTEM BREAK. *) (* O FIX SEVERITY OF APPLICATION BREAK. *) (* O FIX NATFAULT TO DISPLAY REASON MASK INSTEAD OF ISR. *) (* *) (* X-109 KLN3299 KAREN L. NOEL 4-JUN-2003 *) (* ADD SS$_INSF_SHM_REG. *) (* *) (* X-108 LC0001 LARRY CAMILLI 12-MAR-2003 *) (* ADD SS$_FILENOTCACHED. *) (* *) (* X-107 PJB0044 PAUL BENOIT 02-DEC-2002 *) (* ADD SS$_BREAK_ARCH. *) (* *) (* X-106 PJB0029 PAUL BENOIT 08-NOV-2002 *) (* ADD SS$_BREAK_APPL. *) (* *) (* X-105 PJB0021 PAUL BENOIT 18-OCT-2002 *) (* ADD SS$_FLTDENORMAL. *) (* *) (* X-104 PJB0013 PAUL BENOIT 12-SEP-2002 *) (* ADD SS$_NATFAULT. *) (* *) (* X-103 SAD STUART A. DAVIDSON 18-JUL-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. *) (* *) (* X-101 DJS011203 DAVE SWEENEY 07-DEC-2001 *) (* ADD SS$_FORCEX FOR USE BY DCL COMMAND STOP/IMAGE. *) (* *) (* X-100 EMW0253 ELINOR M. WOODS 15-OCT-2001 *) (* ADD SS$_EXITFORCED FOR USE BY SYS$DELPRC IN *) (* SUPPORT OF NEW EXIT FUNCTIONALITY. *) (* *) (* 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. *) (* *) (* 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-2000 *) (* ADD SS$_PATHAMBIG, SS$_INVMVIP, SS$_NOPATHAVAIL, *) (* AND SS$_NOENACURINV FOR USE BY MULTIPATH SYSTEM *) (* SERVICE. *) (* *) (* X-96 JMB224 JAMES M. BLUE 7-MAR-2000 *) (* ADD SS$_NOSUCHQPOOLID FOR USE BY QIOSERVER'S HANDLING OF *) (* POOL DEALLOCATION. CORRECT PREVIOUS QIOSERVER MESSAGE *) (* ADDS TO CONFORM WITH GUIDELINES ABOVE. *) (* *) (* X-95 KLN2158 KAREN L. NOEL 03-MAR-2000 *) (* ADD BADRAD. *) (* *) (* X-94 JMB197 JAMES M. BLUE 6-JAN-2000 *) (* 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-1999 *) (* 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 WHEN *) (* IT ALREADY BELONGS TO A SCHEDULING CLASS FROM THE *) (* CLASS SCHEDULER DATABASE FILE. *) (* *) (* X-90 JMB076 JAMES M. BLUE 22-MAR-1999 *) (* ADD SS$_NOQIOSERVER - QIOSERVER'S QIO$CONFIGURE *) (* PROCESS IS NOT AVAILABLE TO HANDLE SYS$QIOSERVER *) (* REQUESTS. ADD SS$_INVQSRFNC - THE FUNCTION CODE *) (* IN THE SYS$QIOSERVER REQUEST IS INVALID. *) (* *) (* X-89 GP GENADY PERCHENKO 18-FEB-1999 *) (* ADD WRONGDRV *) (* *) (* X-88 JAH0323 JOHN A HARNEY 10-DEC-1998 *) (* ADD PERSONARESERVED FOR OPERATIONS ATTEMPTED ON *) (* A RESERVED PERSONA INDEX. *) (* *) (* X-87 JRK390 JIM KAUFFMAN 11-SEP-1998 *) (* ADD NOCPUMATCH AND TRIM CPUSELECTED TO FIT PAGE *) (* *) (* X-86 JRK390 JIM KAUFFMAN 9-JUL-1998 *) (* ADD CPUSELECTED *) (* *) (* X-85 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998 *) (* UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME *) (* CHANGE. *) (* *) (* X-84 EMB ELLEN M. BATBOUTA 04-JUN-1998 *) (* ADD 2 NEW ERROR MESSAGES, NOFASTPATH AND CPUNOTAVAIL. *) (* *) (* X-83 GP GENADY PERCHENKO 26-MAY-1998 *) (* FIX A TYPO IN ERROR SYMBOL. IT SGOULD BE DEVNOTCON *) (* INSTEAD OF MPDEVNOTCON. *) (* *) (* X-82 GP GENADY PERCHENKO 20-MAY-1998 *) (* ADD SOME MORE MULTIPATH STATUS CODES. AND RENAME SOME *) (* EXISTING ONES. *) (* *) (* X-81 GP GENADY PERCHENKO 02-APR-1998 *) (* ADD NEW STATUS CODES FOR MULTIPATH. *) (* *) (* X-80 DAVE BERNARDO 24-FEB-1998 *) (* ADD BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE. *) (* MAKE THE ERROR TEXT MORE MEANINGFUL. *) (* *) (* X-79 AHM039 DREW MASON 17-FEB-1998 *) (* ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. *) (* *) (* 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-1998 *) (* ADD STATUS CODES FOR GALAXY MEMBERSHIP CALLBACKS. *) (* *) (* X-76 NELSON PAT NELSON 14-JAN-1998 *) (* CLEANED UP INSTRUCTIONS AT TOP OF FILE. *) (* *) (* X-75 DMB DAVE BERNARDO 07-JAN-1998 *) (* ADD MORE STATUS CODES FOR GALAXY LOCKING. *) (* *) (* X-74 HAR HAROLD READ 10-DEC-1997 *) (* ADD NEW STATUS CODE FOR MSCP ERRORS. *) (* *) (* X-73 JAH0250 JOHN A HARNEY 11-NOV-1997 *) (* ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL *) (* THE USER THERE'S NO SUCH EXTENSION. *) (* *) (* X-72 DMB DAVE BERNARDO 27-OCT-1997 *) (* ADD STATUS CODES FOR GALAXY LOCKING. *) (* *) (* X-71 KLN2008 KAREN L. NOEL 21-OCT-1997 *) (* 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-1997 *) (* ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCES *) (* TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW. *) (* *) (* X-68 WDB:MTD20 WALTER BLASCHUK 13 AUG 1997 *) (* MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALS *) (* SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX. *) (* *) (* X-67 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997 *) (* UPDATE SNAP CAPABLE DISK ERROR MESSAGES AND RESERVE SOME EXTRA *) (* MESSAGES. *) (* *) (* X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997 *) (* ADD SS$_TOOMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE *) (* DISK. *) (* *) (* X-65 IBB038 IAN BROCKBANK 4-JUN-1997 *) (* F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5, *) (* SS$_NOCONVJNL AND SS$_NORAD50. *) (* *) (* X-64 BMAN BRIAN MAN 21-MAR-1997 *) (* NO CHANGES: CLEAN UP SOME SO DIFFS WORK BETTER BETWEEN *) (* THE VAX VERSION *) (* *) (* X-63 DOUGLAS FYFE 14-FEB-1997 *) (* MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1) *) (* ADD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUEST *) (* TO DELETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING *) (* REFERENCES IN REFCOUNT. *) (* *) (* X-62 JMP-VDC JULIAN PALMER 29-JAN-1997 *) (* ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT. *) (* *) (* CW-SD CHRIS WHITAKER 29-JAN-1997 *) (* ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE *) (* DISK. *) (* *) (* X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-1996 *) (* ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPPORT. *) (* *) (* X-60 KLN1572 KAREN L. NOEL 6-AUG-1996 *) (* O ADDED SS$_RES_MEM_INCON FOR RESERVED MEMORY REGISTRY. *) (* O ADDED SS$_PTE_NOT_EMPTY FOR SYSTEM PTE DEALLOCATION. *) (* *) (* X-59 NYK640 NITIN Y. KARKHANIS 17-JUL-1996 *) (* O ADDED SYSTEM SERVICE MESSAGE FOR SHARED PAGE TABLE SECTION *) (* CREATION, SS$_CREATED_SHPT. *) (* O REMOVED SS$_MRES_NOTREG, SS$_MRES_REGSMALL AND *) (* SS$_MRES_REGBIG FOR KAREN NOEL. *) (* *) (* X-58 KLN1546 KAREN L. NOEL 2-MAY-1996 *) (* ADDED SYSTEM SERVICE MESSAGES FOR MEMORY RESIDENT SECTIONS. *) (* MRES_REGSMALL, MRES_REGBIG, MRES_NOTREG, MRES_PFNSMALL, *) (* MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID *) (* *) (* X-57 JACH0010 JEREMY A. C. HITT 2-MAR-1996 *) (* ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH, *) (* ERRMAPAUTH, AUTHFAIL AND INVUSER. *) (* *) (* X-56 WXD BILL DAVENPORT 13-DEC-1995 *) (* PER-THREAD SECURITY STAGE 1 CHECKIN: *) (* *) (* ADD NODELPERMANENT ERROR CODE TO BE RETURNED WHEN DELETION *) (* OF A PERMANENT PERSONA IS ATTEMPTED. ALSO, RENAME DETACH *) (* PRIVILEGE TO IMPERSONATE. ADD LITERAL SO THAT OLD SYMBOL *) (* STILL GETS CREATED. *) (* *) (* X-55 PKW338 PAUL K. M. WEISS 8-NOV-1995 *) (* ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNEL *) (* INTERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD *) (* MAKE AN UPCALL *) (* *) (* X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995 *) (* 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 LESS *) (* 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 PROTECTION *) (* 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE *) (* *) (* X-51 WBF BURNS FISHER 7-SEP-1995 *) (* ADD SS$_EMULATE INFO MESSAGE *) (* *) (* X-50 JCH703A JOHN C. HALLYBURTON, JR. 8-MAR-1995 *) (* ADD EXBUFOBJLM ERROR CODE. *) (* *) (* X-49 NYK292 NITIN Y. KARKHANIS 28-FEB-1995 *) (* O DISPLAY THE FULL 64-BITS OF PCS WITH !XH. *) (* O REPLACED INSTANCES OF !XQ WITH !XH (!XQ WAS INTRODUCED *) (* IN EDIT X-47). *) (* *) (* X-48 RLP050 RAY PFAU 23-FEB-1995 *) (* ADD SS$_NOMORETHREAD FOR KERNEL THREADS. *) (* *) (* X-47 NYK280 NITIN Y. KARKHANIS 23-FEB-1995 *) (* 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-1995 *) (* 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-1994 *) (* ADDED SS$_RESIGNAL_64 AND SS$_CONTINUE_64. THESE ARE VARIANTS *) (* OF THEIR 32-BIT COUNTERPARTS THAT TELL EXCEPTION THAT THE *) (* 64-BIT SIGNAL ARRAY SHOULD BE USED. *) (* *) (* X-40 LSS0312 LEONARD S. SZUBOWICZ 20-OCT-1994 *) (* ADD SS$_NOT64DEVFUNC. THIS IS RETURNED BY THE $QIO SYSTEM *) (* SERVICE IF THE P1 PARAMETER HAS MORE THAN 32 SIGNIFICANT *) (* BITS AND THE DRIVER DOES NOT SUPPORT 64-BITS. *) (* *) (* X-39 KLN1326 KAREN L. NOEL 18-OCT-1994 *) (* 64-BIT PROJECT: *) (* ADD SS$_ARG_GTR_32_BITS *) (* *) (* X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OCT-1994 *) (* ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET *) (* *) (* X-37 JFD0633 JAMES F. DUNHAM 15-SEP-1994 *) (* FOLD FROM X-33U3 - ADD MESSAGES TO SUPPORT SCSI-2 TCQ *) (* *) (* X-36 NANCY JEAN BURKHOLDER 19 SEP 1994 *) (* ADD SS$_ZEROALLOCLS MESSAGE *) (* *) (* X-35 DBK001 DAN KYLER 7-SEP-1994 *) (* ADD MESSAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION. *) (* FOLDED FROM X-33U1. *) (* *) (* X-34 DMB002 DAVID M. BERNARDO 28-AUG-1994 *) (* ADD SS$_NOMULTITHREAD, SS$_MTHREADACTIVE, SS$_MAXKTHREADS, *) (* SS$_NOSUCHTHREAD, SS$_NOTHREADMAN, SS$_NOSUCHUPCALL, *) (* SS$_TMACTIVE. *) (* *) (* X-33 JHH-BL5 JIM HOGG 6-JUL-1994 *) (* ADD SS$_INSFTHREADS & SS$_NOTSUPFS FOR F64 FILE SYSTEM. *) (* *) (* X-32 RAB0191 RICHARD A. BISHOP 3-JUN-1994 *) (* ADD SS$_SIGNAL64 FOR MIKE HARVEY *) (* *) (* X-31 SAD0308 STUART A. DAVIDSON 22-MAR-1994 *) (* ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES. *) (* *) (* X-30 RAB RICHARD A. BISHOP 15-MAR-1994 *) (* PICK UP THE FOLLOWING CORAL CHANGE: *) (* *) (* X-35 FAK004 FORREST A. KENNEY 11-JAN-1994 *) (* ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THIS *) (* WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE. *) (* *) (* 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-1993 *) (* ADD IMPERSONATION MESSAGE CODES FOR STU DAVIDSON *) (* *) (* X-27 HH1241 HAI HUANG 06-OCT-1993 *) (* CORRECT PARAMETERS FOR SS$_ILLEGAL_SHADOW. *) (* *) (* X-26 DEE RYAN 30-SEP-1993 *) (* CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN *) (* MESSAGE TEXT. *) (* *) (* X-25 RAB RICHARD A. BISHOP 17-AUG-1993 *) (* PICK UP NEW VAX SYMBOL: *) (* *) (* X-32 WXD BILL DAVENPORT 11-AUG-1993 *) (* 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-1993 *) (* 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. *) (* *) (* X-20 MW MARK WATTS 25-MAY-1993 *) (* ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THIS *) (* WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. *) (* *) (* X-19 RAB RICHARD A. BISHOP 14-MAY-1993 *) (* FOLD INITIAL CORAL CHANGES: *) (* *) (* X-21A1A1 MME001 MICHAEL BEELER 12-OCT-1992 *) (* ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES *) (* *) (* X-18 RAB RICHARD A. BISHOP 14-APR-1993 *) (* FOLD OF BLADE/DELTA CLEANUP (REQUIRED SS$_FDT_COMPL TO *) (* CHANGE VALUE): *) (* *) (* X-14U3 RAB RICHARD A. BISHOP 14-APR-1993 *) (* MERGE BLADE CHANGES AND RESOLVE CONTENTION: *) (* *) (* 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-1993 *) (* ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLIST *) (* *) (* 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-1992 *) (* NEW SYMBOLS FOR PAUL HOULIHAN (SCS), PLUS MORE BLADE CHANGES: *) (* *) (* PJH PAUL J. HOULIHAN 20-NOV-1992 *) (* ADD SCS INTERNAL STATUS. THESE ARE NEVER SEEN BY USERS. *) (* *) (* X-24 MWD0038 MICHAEL DANIELE 20-OCT-1992 14:13 *) (* ADD NAMESERVCOMMERR - "Name service communications error" *) (* ON BEHALF OF DECNET/OSI. *) (* *) (* X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36 *) (* ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITH *) (* ATTRIBUTES THAT EXCEED THOSE OF ITS HOLDER (SS$_SSANOTAUTH). *) (* ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER). *) (* *) (* X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55 *) (* UPDATE NOPRIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS. *) (* *) (* X-12 RS00375 RICHARD SAYDE 1-SEP-1992 *) (* CORRECT MESSAGE TEXT FOR ALIGNMENT FAULT TRAP. REGISTER *) (* INFORMATION IS NO LONGER PROVIDED, IT IS NOW A FUNCTION *) (* CODE - 0 MEANS LOAD, 1 MEANS STORE. *) (* *) (* X-11 HH0974 HAI HUANG 16-AUG-1992 *) (* CORRECT MESSAGE TEXT FOR SS$_FLTINV. *) (* *) (* X-10 RAB RICHARD A. BISHOP 14-AUG-1992 *) (* PICK UP ANOTHER BLADE CHANGE: *) (* *) (* X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-1992 *) (* 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 *) (* *) (* X-19 RLA095B ROBERT L. ADAMS 12-JUN-1992 *) (* OBSOLETE CHARGE CODE ACCOUNTING AND REPLACE WITH *) (* 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 *) (* *) (* X-20 EMB0170 ELLEN M. BATBOUTA 12-JUN-1992 *) (* ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND *) (* NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE *) (* IMAGE WAS NOT BUILT CORRECTLY TO INTEROPERATE WITH *) (* TRANSLATED CODE. *) (* *) (* X-19 HH0931 HAI HUANG 27-MAY-1992 *) (* CHANGE PSL IN ERROR MESSAGES TO PS. *) (* *) (* X-18 RAB RICHARD A. BISHOP 19-MAY-1992 *) (* PICK UP RECENT BLADE CHANGES: *) (* *) (* X-17 ATP014.17 ALAN POTTER 2-APR-1992 *) (* CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND *) (* SS$_NOLOG. *) (* *) (* X-15/16 DDP1198 DERRELL D. PIPER 24-MAR-1992 18:15 *) (* FIX PUNCTUATION OF MESSAGES FOR HELP/MESSAGE AND ADD SOME *) (* POMPOUS GUIDELINES FOR FUTURE GENERATIONS. *) (* *) (* X-17 HH0855 HAI HUANG 10-MAR-1992 *) (* -16 ADD STATUS FOR GENTRAP CODES. *) (* *) (* X-15 HH0853 HAI HUANG 26-FEB-1992 *) (* ADD SS$_GENTRAP, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND. *) (* *) (* X-14 RAB0100 RICHARD A. BISHOP 30-JAN-1992 *) (* MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS *) (* IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT. *) (* 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. *) (* THEY NOW GO BACK TO THEIR ORIGINAL VALUES. *) (* *) (* AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION *) (* 14 ON BOTH MASTERPACKS..... *) (* *) (* ======================================== *) (* *) (* 30-JAN-1992: WHAT FOLLOWS IS THE BLADE AUDIT TRAIL *) (* FROM 30-NOV-1990 TO 20-DEC-1991 *) (* *) (* ======================================== *) (* *) (* X-13 SJVMAJ STEPHEN J. VIVIAN 20-DEC-1991 *) (* ADD SS$_IMGDMP SIGNAL FOR MAJIQ SUPPORT. *) (* *) (* X-12 CRB0711 COLIN R. BLAKE 18-DEC-1991 13:18:23.93 *) (* THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. *) (* *) (* X-8A3A1A2 THE GREAT MERGER NASSER ABBASI 11-DEC-1991 *) (* MERGE T4 WITH BLADE_BLD6 *) (* COPY OF HISTORY FROM BLD6 MODULE *) (* -------------------------------- *) (* X-11 JFD0031 JAMES F. DUNHAM 8-JAN-1991 *) (* ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS *) (* *) (* X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-1991 12:19 *) (* C2 BLADE MERGE (T4): *) (* *) (* X-10 CBD0238 CHARLES B. DUNN 14-OCT-1991 *) (* ADD SS$_TIMENOTSET FOR DTSS SUPPORT *) (* *) (* X-8A3A1 CRB0044 COLIN R. BLAKE 6-NOV-1991 08:58 *) (* T3 MERGE: *) (* *) (* X-9 EJL0610 EDWARD J. LOS 02-OCT-1991 *) (* RESET VERSION TO MATCH GENERATION. ADD SYSTEM SNAPSHOT *) (* VALIDATION ERRORS *) (* *) (* X-8A3 CRB0030 COLIN R. BLAKE 23-OCT-1991 *) (* MORE C2 MERGING: *) (* *) (* T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-1991 *) (* ADD NOOJBSRV ERROR -- OBJECT SERVER NOT RUNNING. *) (* *) (* 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. *) (* *) (* X-8A1 FAK0002 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. *) (* *) (* LMP0544 L. MARK PILANT, 30-JUL-1991 14:45 *) (* 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. *) (* *) (* T-6 DDP0977 DERRELL D. PIPER 7-JUN-1991 10:01 *) (* ADD OVRMAXAUD. *) (* *) (* T-5 AJM ANDREW J. MOSKAL 13-MAY-1991 *) (* ADD INVSECOPER, NOCLASSSUPPORT - MAC PROTECTION RELATED *) (* MESSAGES. *) (* *) (* T-4 SAD0116 STUART A. DAVIDSON 3-MAY-1991 *) (* ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION) *) (* *) (* X-80T3 SAD0109 STUART A. DAVIDSON 19-APR-1991 *) (* ADD OBJECT CONTEXT NOT LOCKED MESSAGE. *) (* *) (* X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-1991 *) (* ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT *) (* *) (* X-81 RLA0147 ROBERT L. ADAMS 15-FEB-1991 *) (* ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK. *) (* *) (* X-87 PMV0169 PETER M. VATNE 20-JUN-1991 *) (* ADD SS$_DEVNOTWS. *) (* *) (* X-86 CW CHRIS WHITAKER 10-MAR-1991 *) (* ADD SS$_REMEMBER ALIAS. *) (* *) (* X-85 FAK001 FORREST A. KENNEY 08-MAR-1991 *) (* ADD SS$_QUEUED. *) (* *) (* X-84 JLBBP01 J.L. BERG 28-FEB-1991 *) (* ADD SS$_NOREADER AND SS$_NOWRITER. *) (* *) (* X-83 CW CHRIS WHITAKER 26-FEB-1991 *) (* ADD ERROR CODES FOR DECDTM V1.2 SUPPORT. *) (* *) (* X-82 RG40077 RAY GUZMAN 21-FEB-1991 *) (* ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN, *) (* SS$_ARBTOOBIG, AND SS$_ORBTOOBIG. *) (* *) (* X-81 RKK0058 ROBERT K. KOSAKOWSKI 19-FEB-1991 *) (* RESERVE 20 MESSAGE CODES FOR MEDIA MANAGEMENT EXTENSIONS. *) (* (FOR DAN KYLER) *) (* *) (* X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 *) (* MERGED EDIT X-74 *) (* *) (* X-74 LPL0001 LEE LEAHY 12 OCT 1990 *) (* ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID, *) (* SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. *) (* *) (* ======================================== *) (* *) (* 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL *) (* FROM 16-JUL-1990 TO 18-DEC-1991 *) (* *) (* ======================================== *) (* *) (* X-13 RS00233 RICHARD SAYDE 18-DEC-1991 *) (* ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING. *) (* *) (* X-12 TNS001 TOM SCARPELLI 24-OCT-1991 *) (* ADD MESSAGES FROM VAX SIDE FOR NEW QUEUE MANAGER. *) (* *) (* X-11 DMB001 DAVID M. BERNARDO 23-OCT-1991 *) (* ADD SLICING_DISABLED. *) (* *) (* X-10 WMC010 WAYNE CARDOZA 24-SEP-1991 *) (* ADD UNALIGNED SP LOAD. *) (* *) (* X-9 TNS001 TOM SCARPELLI 17-JUN-1991 *) (* ADD MESSAGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE. *) (* *) (* X-8 RWC038 RICHARD W. CRITZ, JR. 12-JUN-1991 *) (* CHANGE SS$_DRVEXISTS AND SS$_DEVEXISTS FROM INFORMATIONALS *) (* TO WARNINGS. *) (* *) (* X-7 HH0624 HAI HUANG 09-APR-1991 *) (* ADD SS$_ALTER, ALTER STACK FRAMES, FOR TIE SUPPORT. *) (* *) (* X-K10 LPL001 LEE LEAHY 4 APR 1991 *) (* INCLUDED THE DEFINITIONS FROM IOWA/SIGMA. *) (* *) (* X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 *) (* MERGED EDIT X-74 *) (* *) (* X-74 LPL0001 LEE LEAHY 12 OCT 1990 *) (* ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID, *) (* SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. *) (* *) (* X-K9 HH0610 HAI HUANG 25-FEB-1991 *) (* ADD ALPHA HARDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN. *) (* *) (* X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-1991 *) (* ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO *) (* NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. *) (* *) (* X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-1990 *) (* ADD SS$_INVARG FOR $CRMPSC AND $MPGBLSC SERVICES. *) (* *) (* X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-1990 *) (* ADD SS$_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED *) (* MESSAGE) *) (* *) (* X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990 *) (* ADD SS$_DRVNOTVALID. *) (* *) (* X-K4 RWC003 RICHARD W. CRITZ, JR. 11-OCT-1990 *) (* ADD $LOAD_DRIVER STATUSES. *) (* *) (* X-K3 KLN1027 KAREN L. NOEL 25-JUL-1990 *) (* ADD SS$_NOT_LOADED *) (* *) (* X-K2 WMC0K2 WAYNE CARDOZA 16-JUL-1990 *) (* ADD WAIT IN CALLERS MODE. *) (* *) (* ======================================== *) (* *) (* 30-JAN-1992: WHAT FOLLOWS IS THE COMMON AUDIT TRAIL *) (* UP TO 21-MAY-1990 *) (* *) (* ======================================== *) (* *) (* X-46U11 CW1024 CHRIS WHITAKER 21-MAY-1990 *) (* ADD SS$_VOLATILE. *) (* *) (* X-46U10 DDP0643 DERRELL D. PIPER 28-MAR-1990 15:55 *) (* ADD SS$_USEGENPWD. *) (* *) (* X-46U9 MAS0254 MARK A. STILES 20-FEB-1990 *) (* FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO *) (* UNUSED SLOTS. FIX TEXT OF INSFSPT TO BE MORE GENERIC. *) (* *) (* X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990 *) (* 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. *) (* *) (* X-46U4 CAM0072 CHRISTOPHER A. MEGA 06-OCT-1989 *) (* CHANGED CPUSTOPPD TO CPUSTOPPING *) (* *) (* X-46U3 DDP0546 DERRELL D. PIPER 4-OCT-1989 14:24 *) (* ADD SS$_NOCALLPRIV FOR $CHECK_ACCESS. *) (* *) (* X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-1989 *) (* ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY. *) (* *) (* X-46U1 PRD0495 PAUL R. DESTEFANO 18-SEP-1989 *) (* ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND *) (* $CANEVTAST. *) (* *) (* X-46 SAS0203 SCOTT A. SHURTS 15-SEP-1989 *) (* ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL. *) (* *) (* X-45 CAM0063 CHRISTOPHER A. MEGA 13-SEP-1989 *) (* ADD WARNING AND INFORMATIONAL STATUS FOR ENHANCED PRIMARY *) (* CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP. *) (* ALSO ADDED /FAO=1 TO NSTPPD. *) (* *) (* X-44 DDP0429 DERRELL D. PIPER 11-SEP-1989 16:57 *) (* CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES *) (* FROM FATAL TO ERROR. *) (* *) (* X-43 CBD0198 CHARLES B. DUNN 14-AUG-1989 *) (* ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT *) (* *) (* X-42 RAP0491 ROD A. PAYNE 15-AUG-89 *) (* ADD SS$_HSTBUFACC, TO REPORT HOST BUFFER ACCESS ERRORS. *) (* *) (* X-41 CJB0041 CHERYL J. BULMER 9-AUG-1989 *) (* ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS. *) (* *) (* 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 *) (* *) (* X-38 DDP0387 DERRELL D. PIPER 25-JUL-1989 12:47 *) (* ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES. *) (* *) (* X-37 DDP0375 DERRELL D. PIPER 31-MAY-1989 15:12 *) (* REPLACE SOME OBSOLETE MESSAGE CODES. *) (* *) (* X-36 HH0340 HAI HUANG 03-OCT-1988 *) (* ADD VECALIGN ERROR. *) (* *) (* X-35 SSA0002 STAN AMWAY 30-SEP-1988 *) (* CORRECT TEXT FOR SS$_VECFULL. *) (* *) (* X-34 JEJ0550 JAMES E JOHNSON 19-SEP-1988 *) (* ADD ALRCURTID, RMALRDCL, NOSUCHPART, INVLOG, BADLOGVER, *) (* LOGSTALL, LOGFULL, LOGNAME. *) (* *) (* X-33 SSA0001 STAN AMWAY 14-SEP-1988 *) (* ADD NOSUSPEND ("process cannot be suspended"). *) (* *) (* X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-1988 *) (* ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE. *) (* *) (* X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:28 *) (* ADD HWM_STALL FOR ABORT OF STALLED INTERNAL IRP'S *) (* *) (* X-30 HH0334 HAI HUANG 31-AUG-1988 *) (* REPLACE SYSVERDIF WITH A NEW VALUE (I.E. SEVERITY) AND *) (* A NEW MESSAGE. *) (* *) (* X-29 DDP0308 DERRELL D. PIPER 21-JUL-1988 14:02 *) (* ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF. *) (* *) (* X-28 JEJ0527 JAMES E JOHNSON 27-JUN-1988 *) (* ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT, *) (* FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS *) (* *) (* X-26 HH0315 HAI HUANG 18-APR-1988 *) (* -27 ADD NEW STATUS CODES FOR VECTOR SUPPORT. *) (* *) (* X-25 PT00010 PANKAJ TANDON 30-DEC-1987 *) (* ADD ALLSTARTED,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR *) (* $START/STOP CPU ERRONEOUS CASES. *) (* *) (* X-24 LMP0465 L. MARK PILANT, 28-OCT-1987 15:58 *) (* ADD A NEW MESSAGE, SS$_NORIGHTSDB, TO INDICATE THAT THERE *) (* IS NOT A RIGHTS DATABASE IS NOT PRESENT ON THE SYSTEM. *) (* *) (* X-23 SJF STU FARNHAM 5-OCT-1987 *) (* ADD NOSUCHCPU *) (* *) (* X-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-1987 *) (* EXPRCLM SHOULD NOT MENTION SUBPROCESSES. *) (* *) (* X-18 WMC0018 WAYNE CARDOZA 19-FEB-1987 *) (* ADD VA_IN_USE. *) (* *) (* X-17 DDP0029 DERRELL D. PIPER 21-JAN-1987 *) (* CONVERT SS$_BADXXXCTX TO SINGLE BADCONTEXT MSG. *) (* *) (* X-16 DDP0027 DERRELL D. PIPER 12-JAN-1987 *) (* ADD SS$_TOOMUCHCTX AND SS$_BADUAICTX. *) (* *) (* X-15 HH0237 HAI HUANG 06-JAN-1987 *) (* ADD SS$_UNSUPPORTED. *) (* *) (* X-14 DDP0008 DERRELL D. PIPER 08-DEC-1986 *) (* ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND *) (* SS$_BADJPICTX FOR JPI$_RIGHTSLIST ITEM CODE. *) (* (NB: S VARIANT IS NOW OBSOLETE.) *) (* *) (* X-9 NCD0001 NANCY C. DENARDO 21-OCT-1986 *) (* ADDED SS$_EXLICENSE, SS$_INVLICENSE, SS$_LICENSE_LEVEL, *) (* AND SS$_INV_HW_ID FOR LMF SERVICE. *) (* *) (* 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-1986 *) (* ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS. *) (* *) (* X-5H2 SJF STU FARNHAM 29-MAY-1986 *) (* ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED *) (* CPU IN AN SMP SYSTEM IS NOT ACTIVE. *) (* *) (* X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-1985 *) (* 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. *) (* *) (* X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10 *) (* ADD SS$_OBJLOCKHELD TO INDICATE THAT A PROCESS ALREADY HOLDS *) (* THE OBJECT'S ACL LOCK. *) (* *) (* X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985 *) (* ADD SS$_RUCONFLICT "file has active RUs by another facility". *) (* REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE). *) (* *) (* V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985 *) (* REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERROR *) (* STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable". *) (* SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKED *) (* FOR EXCLUSIVE ACCESS BY SOMEONE ELSE BY AN MSCP CONTROLLER. *) (* *) (*--- *) (*+ *) (* SYSTEM STATUS CODES *) (* *) (* LAYOUT OF MESSAGE SPACE: *) (* *) (* MSG #S RANGE # MSGS 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 CODES *) (* 384-447 C00-DFF 64 INFORMATIONAL CODES *) (* 448-511 E00-FFF 64 NONFATAL ERROR CODES *) (* 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HERE, SEE SHRMSG) *) (* 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) *) (* 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS *) (* 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS *) (* 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS *) (* 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) *) (* 1664-1695 3400-341F 32 FATAL ERRORS (CONTINUED FROM 27FF) *) (* 1696-4031 3420-7DFF 2334 (UNUSED) *) (* 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS *) (* *) (*- *) (* *) (* EXPLICITLY DEFINED SUCESS CODES *) (* *) (* DO NOT MIX THESE CODES WITH INCREMENTAL ASSIGNMENTS BELOW *) (* *) CONST SYSTEM$_FACILITY = 0; SS$_NORMAL = 1; (* *) (* NOTE THAT CONTINUE,WASCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXT *) (* SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO, *) (* THEY CAN NEVER BE MADE TO HAVE MESSAGES ASSOCIATED WITH THEM. *) (* *) CONST SS$_CONTINUE = 1; SS$_WASCLR = 1; SS$_WASSET = 9; SS$_REMEMBER = 1; (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 0-127 0-3FF 128 FATAL ERRORS *) (* 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) *) (* *) CONST SS$_ACCVIO = 12; SS$_BADPARAM = 20; SS$_EXQUOTA = 28; SS$_NOPRIV = 36; (* MAKE THE ABOVE ERRORS FALL INTO SHORT LITERALS *) CONST SS$_ABORT = 44; SS$_BADATTRIB = 52; SS$_BADESCAPE = 60; SS$_BADIMGHDR = 68; SS$_CHANINTLK = 76; SS$_CTRLERR = 84; SS$_DATACHECK = 92; SS$_DEVFOREIGN = 100; SS$_DEVMOUNT = 108; SS$_DEVNOTMBX = 116; SS$_DEVNOTMOUNT = 124; SS$_DEVOFFLINE = 132; SS$_DRVERR = 140; SS$_DUPLNAM = 148; SS$_FILACCERR = 156; SS$_FILALRACC = 164; SS$_FILNOTACC = 172; SS$_FILNOTEXP = 180; SS$_FORMAT = 188; SS$_GPTFULL = 196; SS$_GSDFULL = 204; SS$_LCKPAGFUL = 212; SS$_ILLBLKNUM = 220; SS$_ILLCNTRFUNC = 228; SS$_ILLEFC = 236; SS$_ILLIOFUNC = 244; SS$_ILLPAGCNT = 252; SS$_ILLSER = 260; SS$_INCVOLLABEL = 268; SS$_INSFARG = 276; SS$_INSFWSL = 284; SS$_INSFMEM = 292; SS$_INSFRAME = 300; SS$_IVADDR = 308; SS$_IVCHAN = 316; SS$_IVDEVNAM = 324; SS$_IVGSDNAM = 332; SS$_IVLOGNAM = 340; SS$_IVLOGTAB = 348; SS$_IVQUOTAL = 356; SS$_IVSECFLG = 364; SS$_IVSSRQ = 372; SS$_IVSTSFLG = 380; SS$_IVTIME = 388; SS$_LENVIO = 396; SS$_LKWSETFUL = 404; SS$_MBTOOSML = 412; SS$_MEDOFL = 420; SS$_NODATA = 428; SS$_NOIOCHAN = 436; SS$_NOLOGNAM = 444; SS$_NONEXDRV = 452; SS$_NOTFILEDEV = 460; SS$_NOTINTBLSZ = 468; SS$_NOTLABELMT = 476; SS$_NOTSQDEV = 484; SS$_PAGOWNVIO = 492; SS$_PARITY = 500; SS$_PARTESCAPE = 508; SS$_PFMBSY = 516; SS$_PSTFULL = 524; SS$_RESULTOVF = 532; SS$_SECTBLFUL = 540; SS$_TAPEPOSLOST = 548; SS$_TIMEOUT = 556; SS$_UNASEFC = 564; SS$_UNSAFE = 572; SS$_VASFULL = 580; SS$_VECINUSE = 588; SS$_VOLINV = 596; SS$_WRITLCK = 604; SS$_NOTAPEOP = 612; SS$_IVCHNLSEC = 620; SS$_NOMBX = 628; SS$_NOLINKS = 636; SS$_NOSOLICIT = 644; SS$_NOSUCHNODE = 652; SS$_REJECT = 660; SS$_TOOMUCHDATA = 668; SS$_BUGCHECK = 676; SS$_FILNOTCNTG = 684; SS$_BADSTACK = 692; SS$_MCHECK = 700; SS$_DEVACTIVE = 708; SS$_HANGUP = 716; SS$_OPINCOMPL = 724; SS$_ILLSEQOP = 732; SS$_IVSECIDCTL = 740; SS$_NOTNETDEV = 748; SS$_IVPROTECT = 756; SS$_ACPVAFUL = 764; SS$_MTLBLLONG = 772; SS$_BUFBYTALI = 780; SS$_NOAQB = 788; SS$_WRONGACP = 796; SS$_BUFNOTALIGN = 804; SS$_DEVCMDERR = 812; SS$_DEVREQERR = 820; SS$_INSFBUFDP = 828; SS$_INSFMAPREG = 836; SS$_IVBUFLEN = 844; SS$_IVMODE = 852; SS$_MCNOTVALID = 860; SS$_POWERFAIL = 868; SS$_SHMGSNOTMAP = 876; SS$_TOOMANYLNAM = 884; SS$_SHMNOTCNCT = 892; SS$_NOTCREATOR = 900; SS$_INTERLOCK = 908; SS$_BADQUEUEHDR = 916; SS$_NOSLOT = 924; SS$_SUSPENDED = 932; SS$_EXPORTQUOTA = 940; SS$_NOSHMBLOCK = 948; SS$_BADQFILE = 956; SS$_NOQFILE = 964; SS$_QFACTIVE = 972; SS$_QFNOTACT = 980; SS$_DUPDSKQUOTA = 988; SS$_NODISKQUOTA = 996; SS$_EXDISKQUOTA = 1004; SS$_IDMISMATCH = 1012; 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. *) (* ************** *) CONST SS$_BADISD = 8196; SS$_RELINK = 8204; SS$_NOTINSTALL = 8212; SS$_SHARTOOBIG = 8220; SS$_NOP1VA = 8228; SS$_MULTRMS = 8236; SS$_VECFULL = 8244; SS$_IVLVEC = 8252; SS$_INSFSPTS = 8260; SS$_DISCONNECT = 8268; SS$_PRIVINSTALL = 8276; SS$_PROTINSTALL = 8284; SS$_BADVEC = 8292; SS$_REMRSRC = 8300; SS$_PROTOCOL = 8308; SS$_THIRDPARTY = 8316; SS$_NOSUCHUSER = 8324; SS$_SHUT = 8332; SS$_UNREACHABLE = 8340; SS$_INVLOGIN = 8348; SS$_NOSUCHOBJ = 8356; SS$_EXCPUTIM = 8364; SS$_OPRABORT = 8372; SS$_SHRIDMISMAT = 8380; SS$_COMMHARD = 8388; SS$_IVCHAR = 8396; SS$_DEVINACT = 8404; SS$_CONNECFAIL = 8412; SS$_LINKABORT = 8420; SS$_LINKDISCON = 8428; SS$_LINKEXIT = 8436; SS$_PATHLOST = 8444; SS$_CLEARED = 8452; SS$_RESET = 8460; SS$_UNSOLICIT = 8468; SS$_TOOMANYREDS = 8476; SS$_IVLOCKID = 8484; SS$_SUBLOCKS = 8492; SS$_PARNOTGRANT = 8500; SS$_CVTUNGRANT = 8508; SS$_FORCEDERROR = 8516; SS$_ILLSELF = 8524; SS$_ILLCDTST = 8532; SS$_NOLISTENER = 8540; SS$_EXGBLPAGFIL = 8548; SS$_BADRCT = 8556; SS$_DIRNOTEMPTY = 8564; SS$_FORCEDEXIT = 8572; SS$_NOTPRINTED = 8580; SS$_JBCERROR = 8588; SS$_NOLICENSE = 8596; SS$_VCBROKEN = 8604; SS$_VCCLOSED = 8612; SS$_INSFCDT = 8620; SS$_DEVNOTDISM = 8628; SS$_NOSHRIMG = 8636; SS$_DUPUNIT = 8644; SS$_BADACLCTX = 8652; SS$_SERIOUSEXCP = 8660; SS$_TEMPLATEDEV = 8668; SS$_IVACL = 8676; SS$_NOSUCHID = 8684; SS$_NOLCLMEDA = 8692; SS$_NOREGAVIL = 8700; SS$_NOREGSUIT = 8708; SS$_NOSUCHPGM = 8716; SS$_PGMLDFAIL = 8724; SS$_PGMSTDALN = 8732; SS$_IVIDENT = 8740; SS$_DUPIDENT = 8748; SS$_INCSEGTRA = 8756; SS$_NODELEAVE = 8764; SS$_KERNELINV = 8772; SS$_EXLNMQUOTA = 8780; SS$_PARENT_DEL = 8788; SS$_PARNOTSYS = 8796; SS$_INSSWAPSPACE = 8804; SS$_VOLOERR = 8812; SS$_DATALATE = 8820; SS$_OVRMAXARG = 8828; SS$_SHACHASTA = 8836; SS$_TERMNETDEV = 8844; SS$_NOLOGTAB = 8852; SS$_WRONGNAME = 8860; SS$_NOVOLACC = 8868; SS$_NOFILACC = 8876; SS$_INVEXHLIST = 8884; SS$_NOACLSUPPORT = 8892; SS$_INVSECLASS = 8900; SS$_INCSHAMEM = 8908; SS$_DEVNOTSHR = 8916; SS$_RUCONFLICT = 8924; SS$_DATALOST = 8932; SS$_REMOTE_PROC = 8940; SS$_CPUNOTACT = 8948; SS$_SRVMMAT = 8956; SS$_EXLICENSE = 8964; SS$_INVLICENSE = 8972; SS$_LICENSE_LEVEL = 8980; SS$_INV_HW_ID = 8988; SS$_BADCONTEXT = 8996; SS$_TOOMUCHCTX = 9004; SS$_VA_IN_USE = 9012; SS$_NODELETE = 9020; SS$_NOSUCHCPU = 9028; SS$_IMGVEXC = 9036; SS$_NOSAVPEXC = 9044; SS$_NOSUCHTID = 9052; SS$_NOSUCHRM = 9060; SS$_NOCURTID = 9068; SS$_WRONGSTATE = 9076; SS$_VETO = 9084; SS$_PWDSYNTAX = 9092; SS$_PWDNOTDIF = 9100; SS$_INVPWDLEN = 9108; SS$_SYSVERDIF = 9116; SS$_HWM_STALL = 9124; SS$_NOSUSPEND = 9132; SS$_NOSUCHPART = 9140; SS$_RMALRDCL = 9148; SS$_ALRCURTID = 9156; SS$_INVLOG = 9164; SS$_BADLOGVER = 9172; SS$_OPINPROG = 9180; SS$_WRONGACMODE = 9188; SS$_SUBTRACED = 9196; SS$_ARCHIVING = 9204; SS$_ARCHIVED = 9212; SS$_SITEPWDFAIL = 9220; SS$_NOSUCHCPB = 9228; SS$_CPUCAP = 9236; SS$_LOADER = 9244; SS$_HSTBUFACC = 9252; SS$_INCONOLCK = 9260; SS$_INVEVENT = 9268; SS$_NOSUCHFAC = 9276; SS$_NOCALLPRIV = 9284; SS$_INSFLPGS = 9292; SS$_INSFRPGS = 9300; SS$_BADREASON = 9308; SS$_NOSUCHBID = 9316; SS$_NOTORIGIN = 9324; SS$_NOLOG = 9332; SS$_TPDISABLED = 9340; SS$_BRANCHENDED = 9348; SS$_BRANCHSTARTED = 9356; SS$_NOSUCHREPORT = 9364; SS$_BADTIME = 9372; SS$_PARTJOINED = 9380; SS$_NOPRESUME = 9388; SS$_RECOVERCANCEL = 9396; SS$_CURTIDCHANGE = 9404; SS$_NOREADER = 9412; SS$_NOWRITER = 9420; SS$_DEVNOTWS = 9428; SS$_NOCLASS = 9436; SS$_CONTEXTSKEW = 9444; SS$_BADFORGEDB = 9452; SS$_NODOMAIN = 9460; SS$_OVRMAXAUD = 9468; SS$_BADCHAIN = 9476; SS$_BADBUFLEN = 9484; SS$_BADITMCOD = 9492; SS$_BADBUFADR = 9500; SS$_BADRETLEN = 9508; SS$_SSINOTHELD = 9516; SS$_SSAMISSING = 9524; SS$_SSANOTAUTH = 9532; SS$_BADOWNER = 9540; SS$_NAMESERVCOMMERR = 9548; SS$_IVNODNAM = 9556; SS$_CONFIG_SYNTAX = 9564; SS$_SHELVED = 9572; SS$_DRVNOTVALID = 9580; SS$_SLICING_DISABLED = 9588; SS$_NOCALLTRANS = 9596; SS$_TRANSCALLER = 9604; SS$_ILLPRIPOL = 9612; SS$_ILLPOLICY = 9620; SS$_INSFRSPID = 9628; SS$_INSFCREDITL = 9636; SS$_INSFCREDITH = 9644; SS$_INSFMAP = 9652; SS$_SIG_INVARGTYPE = 9660; SS$_SIG_INVFLTARG = 9668; SS$_SIG_INVARGLIST = 9676; SS$_SIG_INVFUNCTYPE = 9684; SS$_SIG_ARGMISMATCH = 9692; SS$_NOTRANQUIL = 9700; SS$_NOCALLTRANS_SUP = 9708; SS$_DEVLISTFULL = 9716; SS$_INSFP1POOL = 9724; SS$_SIGNAL64 = 9732; SS$_ZEROALLOCLS = 9740; SS$_QUEUE_FULL = 9748; SS$_DEVICE_RESET = 9756; SS$_ACA_ACTIVE = 9764; SS$_BUS_PHASE_ERROR = 9772; SS$_NOMULTITHREAD = 9780; SS$_MTHREADACTIVE = 9788; SS$_MAXKTHREADS = 9796; SS$_NOSUCHTHREAD = 9804; SS$_NOTHREADMAN = 9812; SS$_NOSUCHUPCALL = 9820; SS$_BADFANDLE = 9828; SS$_FANDLEBUSY = 9836; SS$_UNALIGNED = 9844; SS$_BADIOSADR = 9852; SS$_ILLBUFOBJ = 9860; SS$_ILLMODIFIER = 9868; SS$_NOCCBBUFFOBJ = 9876; SS$_NORDACC = 9884; SS$_NOWRTACC = 9892; SS$_NOTNOCNVRT = 9900; SS$_UNSUPVOLSET = 9908; SS$_ARG_GTR_32_BITS = 9916; SS$_NOT64DEVFUNC = 9924; SS$_CHANVIO = 9932; SS$_GBLSEC_MISMATCH = 9940; SS$_ILLRELPAG = 9948; SS$_IVACMODE = 9956; SS$_IVREGFLG = 9964; SS$_IVREGID = 9972; SS$_IVREGPROT = 9980; SS$_IVVAFLG = 9988; SS$_LEN_NOTBLKMULT = 9996; SS$_LEN_NOTPAGMULT = 10004; SS$_NOT_PROCESS_VA = 10012; SS$_OFF_NOTBLKALGN = 10020; SS$_OFF_NOTPAGALGN = 10028; SS$_OFFSET_TOO_BIG = 10036; SS$_REGOWNVIO = 10044; SS$_PROTVIO = 10052; SS$_TOO_MANY_ARGS = 10060; SS$_VA_NOTPAGALGN = 10068; SS$_NOEXTAUTH = 10076; SS$_AUTHFAIL = 10084; SS$_INVUSER = 10092; SS$_ERRMAPAUTH = 10100; SS$_NORAD50 = 10108; SS$_BADMEDIA = 10116; SS$_UNRECOVRDER = 10124; SS$_IVFORMAT = 10132; SS$_IVUNITFLAG = 10140; SS$_IVPARAM = 10148; SS$_NOSUCHENTRY = 10156; SS$_ALLOCFAILED = 10164; SS$_SHMEM_INCON = 10172; SS$_IVLOCKOP = 10180; SS$_IVLOCKTBL = 10188; SS$_LOCKINUSE = 10196; SS$_LOCK_TIMEOUT = 10204; SS$_BADLCKTBL = 10212; SS$_NOBREAK = 10220; SS$_IVPROTOCOL = 10228; SS$_NOWAIT = 10236; (* *) (* ***** NOTE: NO ROOM FOR MORE MESSAGES IN THIS SECTION ***** *) (* *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS *) (* *) CONST SS$_PLHLDR = 1028; SS$_ASTFLT = 1036; SS$_BREAK = 1044; SS$_CMODSUPR = 1052; SS$_CMODUSER = 1060; SS$_COMPAT = 1068; SS$_OPCCUS = 1076; SS$_OPCDEC = 1084; SS$_PAGRDERR = 1092; SS$_RADRMOD = 1100; SS$_ROPRAND = 1108; SS$_SSFAIL = 1116; SS$_TBIT = 1124; SS$_DEBUG = 1132; (* THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED *) CONST SS$_ARTRES = 1140; SS$_INTOVF = 1148; SS$_INTDIV = 1156; SS$_FLTOVF = 1164; SS$_FLTDIV = 1172; SS$_FLTUND = 1180; SS$_DECOVF = 1188; SS$_SUBRNG = 1196; SS$_FLTOVF_F = 1204; SS$_FLTDIV_F = 1212; SS$_FLTUND_F = 1220; (* THE ABOVE CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED *) CONST SS$_INHCHMK = 1228; SS$_INHCHME = 1236; SS$_VECDIS = 1244; SS$_VARITH = 1252; SS$_ILLVECOP = 1260; SS$_VECALIGN = 1268; SS$_IMGDMP = 1276; SS$_HPARITH = 1284; SS$_ALIGN = 1292; SS$_UNALIGN_SP_LOAD = 1300; SS$_GENTRAP = 1308; SS$_FLTINV = 1316; SS$_FLTINE = 1324; SS$_DECDIV = 1332; SS$_DECINV = 1340; SS$_ASSERTERR = 1348; SS$_NULPTRERR = 1356; SS$_STKOVF = 1364; SS$_STRLENERR = 1372; SS$_SUBSTRERR = 1380; SS$_RANGEERR = 1388; SS$_SUBRNG1 = 1396; SS$_SUBRNG2 = 1404; SS$_SUBRNG3 = 1412; SS$_SUBRNG4 = 1420; SS$_SUBRNG5 = 1428; SS$_SUBRNG6 = 1436; SS$_SUBRNG7 = 1444; SS$_PAGRDERRXM = 1452; SS$_ILLEGAL_SHADOW = 1460; SS$_FLTINV_F = 1468; SS$_FLTINE_F = 1476; SS$_INTOVF_F = 1484; SS$_NATFAULT = 1492; SS$_FLTDENORMAL = 1500; SS$_BREAK_SYS = 1508; SS$_BREAK_ARCH = 1516; (* *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION ***** *) (* *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 192-255 600-7FF 64 SUCCESS CODES *) (* *) CONST SS$_BUFFEROVF = 1537; SS$_CONTROLO = 1545; SS$_CONTROLY = 1553; SS$_CREATED = 1561; SS$_MSGNOTFND = 1569; SS$_NOTRAN = 1577; SS$_SUPERSEDE = 1585; SS$_WASECC = 1593; SS$_DEVALRALLOC = 1601; SS$_REMOTE = 1609; SS$_CONTROLC = 1617; SS$_NOTMODIFIED = 1625; SS$_RDDELDATA = 1633; SS$_OVRDSKQUOTA = 1641; SS$_OBSOLETE_1 = 1649; SS$_FILEPURGED = 1657; SS$_NOTALLPRIV = 1665; SS$_SYNCH = 1673; SS$_CONCEALED = 1681; SS$_INCOMPAT = 1689; SS$_DBGOPCREQ = 1697; SS$_ALRDYCLOSED = 1705; SS$_LNMCREATED = 1713; SS$_ACEIDMATCH = 1721; SS$_DBGEVENT = 1729; SS$_REMOVED = 1737; SS$_QUEUED = 1745; SS$_SUBDISABLED = 1753; SS$_FORGET = 1761; SS$_PREPARED = 1769; SS$_NOMOREITEMS = 1777; SS$_VOLATILE = 1785; SS$_CLASSUPER = 1793; SS$_CONTINUE_64 = 1801; SS$_THREAD_UPCALL = 1809; SS$_CREATED_SHPT = 1817; SS$_PERSONADELPEND = 1825; SS$_DEVAVAIL = 1833; SS$_LONGGAP = 1841; SS$_BROKEN = 1849; SS$_QPOOL_DEL_INIT = 1857; SS$_UNUSED_1 = 1865; SS$_LOWPREC = 1873; (* *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 18 MORE MESSAGES IN THIS SECTION ***** *) (* *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 256-383 800-BFF 128 WARNING CODES *) (* *) CONST SS$_ACCONFLICT = 2048; SS$_BADCHKSUM = 2056; SS$_BADFILEHDR = 2064; SS$_BADFILENAME = 2072; SS$_BADFILEVER = 2080; SS$_BADIRECTORY = 2088; SS$_CANCEL = 2096; SS$_DATAOVERUN = 2104; SS$_DEVALLOC = 2112; SS$_DEVASSIGN = 2120; SS$_DEVICEFULL = 2128; SS$_DEVNOTALLOC = 2136; SS$_DIRFULL = 2144; SS$_DUPFILENAME = 2152; SS$_ENDOFFILE = 2160; SS$_ENDOFTAPE = 2168; SS$_TMACTIVE = 2176; SS$_FCPREADERR = 2184; SS$_FCPREWNDERR = 2192; SS$_FCPSPACERR = 2200; SS$_FCPWRITERR = 2208; SS$_FILELOCKED = 2216; SS$_FILENUMCHK = 2224; SS$_FILESEQCHK = 2232; SS$_FILESTRUCT = 2240; SS$_HEADERFULL = 2248; SS$_IDXFILEFULL = 2256; SS$_MBFULL = 2264; SS$_NOHOMEBLK = 2272; SS$_NONEXPR = 2280; SS$_NONLOCAL = 2288; SS$_NOHANDLER = 2296; SS$_NOSIGNAL = 2304; SS$_NOSUCHDEV = 2312; SS$_NOSUCHFILE = 2320; SS$_RESIGNAL = 2328; SS$_UNWIND = 2336; SS$_UNWINDING = 2344; SS$_NOMOREFILES = 2352; SS$_BEGOFFILE = 2360; SS$_BLOCKCNTERR = 2368; SS$_MUSTCLOSEFL = 2376; SS$_WAITUSRLBL = 2384; SS$_ILLUSRLBLRD = 2392; SS$_ILLUSRLBLWT = 2400; SS$_ILLLBLAST = 2408; SS$_ENDOFUSRLBL = 2416; SS$_NOSUCHSEC = 2424; SS$_CLIFRCEXT = 2432; SS$_FCPREPSTN = 2440; SS$_TOOMANYVER = 2448; SS$_NOTVOLSET = 2456; SS$_ENDOFVOLUME = 2464; SS$_NOMOREPROC = 2472; SS$_NODEVAVL = 2480; SS$_NOTQUEUED = 2488; SS$_DGQINCOMP = 2496; SS$_DIRALLOC = 2504; SS$_ACLEMPTY = 2512; SS$_NOENTRY = 2520; SS$_NOMOREACE = 2528; SS$_RIGHTSFULL = 2536; SS$_VALNOTVALID = 2544; SS$_ACLFULL = 2552; SS$_NOMORENODE = 2560; SS$_NOMORELOCK = 2568; SS$_BEGOFTAPE = 2576; SS$_OBJLOCKHELD = 2584; SS$_CPUSTARTIP = 2592; SS$_ALLSTARTED = 2600; SS$_ALRDYSTRT = 2608; SS$_ALRDYSTPPD = 2616; SS$_NSTPPD = 2624; SS$_UNKRESULT = 2632; SS$_ITEMNOTFOUND = 2640; SS$_NOMOREDEV = 2648; SS$_EFNOTSET = 2656; SS$_PRIMNOSTP = 2664; SS$_BOOTREJECT = 2672; SS$_RMTPATH = 2680; SS$_OBJECT_EXISTS = 2688; SS$_NOSUCHOBJECT = 2696; SS$_NOVOLDESC = 2704; SS$_NOPTBLDIR = 2712; SS$_DRVEXISTS = 2720; SS$_DEVEXISTS = 2728; SS$_GOTO_UNWIND = 2736; SS$_EXIT_UNWIND = 2744; SS$_SMALLHEADER = 2752; SS$_FDT_COMPL = 2760; SS$_TARGET_UNWIND = 2768; SS$_TARGET_GOTO_UNWIND = 2776; SS$_RESIGNAL_64 = 2784; SS$_NOMOREREG = 2792; SS$_PAGNOTINREG = 2800; SS$_REGISFULL = 2808; SS$_PAGTYPVIO = 2816; SS$_NOSUCHPAG = 2824; SS$_PAGNOTWRITE = 2832; SS$_NOMORETHREAD = 2840; SS$_NOTF11ODS5 = 2848; SS$_NOCONVJNL = 2856; SS$_MPDEVBUSY = 2864; SS$_MPDEVUSERDISABLE = 2872; SS$_NOCPUMATCH = 2880; SS$_NOMORECLIENTS = 2888; SS$_NOMOREDEVICES = 2896; SS$_NOMOREFILTERS = 2904; SS$_NOMOREPATHS = 2912; SS$_NOMORESERVERS = 2920; SS$_FISH = 2928; SS$_FILENOTCACHED = 2936; SS$_INSF_SHM_REG = 2944; SS$_HBMMNOTENABLED = 2952; SS$_HBMMALREADYON = 2960; SS$_NODEVPOL = 2968; SS$_NONAMPOL = 2976; SS$_XVALNOTVALID = 2984; SS$_FILEFULL = 2992; SS$_REMINDER = 3000; (* *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 8 MORE WARNING MESSAGES IN ABOVE SECTION ***** *) (* *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 384-447 C00-DFF 64 INFORMATIONAL CODES *) (* *) CONST SS$_EOTIN = 3075; SS$_CHAINW = 3083; SS$_NOTINSEC = 3091; SS$_NONXPAG = 3099; SS$_LOGNAME = 3107; SS$_CPUSTARTD = 3115; SS$_CPUSTOPPING = 3123; SS$_NOTALLCANCELED = 3131; SS$_NOTHINGDONE = 3139; SS$_EVTNOTENAB = 3147; SS$_NOPATHTBL = 3155; SS$_RESELECTION = 3163; SS$_EMULATED = 3171; SS$_REMDONE = 3179; SS$_REMINPROG = 3187; SS$_DEVCON = 3195; SS$_DEVNOTCON = 3203; SS$_CPUSELECTED = 3211; SS$_QPOOL_DEL_INPRG = 3219; SS$_PRESTO = 3227; SS$_TAKEN_BRANCH = 3235; SS$_IA32_TRAP = 3243; SS$_DEBUG_FAULT = 3251; SS$_BREAK_APPL = 3259; SS$_TIE_GET_FRAMES = 3267; SS$_TIE_PRE_UNWIND = 3275; SS$_TIE_UNWIND = 3283; SS$_TIE_GOTO_UNWIND = 3291; SS$_HBMMCREPOSTMRG = 3299; SS$_FPMODECTL = 3307; SS$_FPMODEPC = 3315; SS$_FPMODERC = 3323; SS$_ARGTYP1 = 3331; SS$_ARGTYP2 = 3339; SS$_ARGTYP3 = 3347; SS$_ARGTYP4 = 3355; SS$_ARGTYP5 = 3363; SS$_ARGTYP6 = 3371; SS$_ARGTYP7 = 3379; SS$_ARGTYP8 = 3387; SS$_DEFER_ASTS = 3395; (* *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 23 MORE MESSAGES IN THIS SECTION ***** *) (* *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 448-511 E00-FFF 64 NONFATAL ERROR CODES *) (* *) CONST SS$_LINEABRT = 3586; SS$_DEADLOCK = 3594; SS$_NOLOCKID = 3602; SS$_EXDEPTH = 3610; SS$_PARTMAPPED = 3618; SS$_CANCELGRANT = 3626; SS$_RETRY = 3634; SS$_BADACL = 3642; SS$_ACEEXISTS = 3650; SS$_UNSUPPORTED = 3658; SS$_NORIGHTSDB = 3666; SS$_LOGSTALL = 3674; SS$_LOGFULL = 3682; SS$_PWDINDIC = 3690; SS$_PWDINHIS = 3698; SS$_PWDWEAK = 3706; SS$_USEGENPWD = 3714; SS$_INVBUSNAM = 3722; SS$_INVCOMPTYPE = 3730; SS$_INVCOMPID = 3738; SS$_INVCOMPLIST = 3746; SS$_NOCOMPLSTS = 3754; SS$_INVSECDOMAIN = 3762; SS$_BADCHECKSUM = 3770; SS$_ARBTOOBIG = 3778; SS$_ORBTOOBIG = 3786; SS$_INVAJLNAM = 3794; SS$_TOOMANYAJL = 3802; SS$_RSDMINUSE = 3810; SS$_RSDMNOTFOU = 3818; SS$_INVUICGRP = 3826; SS$_RSDM_ACTIVE = 3834; SS$_OBJLOCKED = 3842; SS$_NOTMPNAM = 3850; SS$_INVCLSITM = 3858; SS$_NOTSHRTBL = 3866; SS$_MMATORB = 3874; SS$_NOSUCHVOL = 3882; SS$_OBJNOTLOCKED = 3890; SS$_ILLRSDM = 3898; SS$_NOCLASSSUPPORT = 3906; SS$_INVSECOPER = 3914; SS$_NODELJNLACT = 3922; SS$_INVFILFOROP = 3930; SS$_NOOBJSRV = 3938; SS$_NOFILEACCESS = 3946; SS$_BADFILESIZE = 3954; SS$_NOTFULLYMAPPED = 3962; SS$_BADWINCNT = 3970; SS$_BADWINLBN = 3978; SS$_BADWINRVN = 3986; SS$_EXTRAWINDOW = 3994; SS$_REVISED = 4002; SS$_TIMENOTSET = 4010; SS$_WAIT_CALLERS_MODE = 4018; SS$_NOT_LOADED = 4026; SS$_DRV_NOUNLOAD = 4034; SS$_INVARG = 4042; SS$_QIO_CROCK = 4050; SS$_ALTER = 4058; SS$_AFR_ENABLED = 4066; SS$_AFR_NOT_ENABLED = 4074; SS$_SHELFERROR = 4082; SS$_PERSONANONGRATA = 4090; (* ************** *) (* 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. *) (* ************** *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS *) (* *) (* *) (* NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BIT *) (* DEFINITIONS ($PRVDEF) AS THE PRIVILEGE BIT POSITION IS USED AS AN INDEX INTO *) (* THESE MESSAGE CODES BY THE $CHECK_PRIVILEGE SYSTEM SERVICE. *) (* *) CONST SS$_NOPRIVSTRT = 10240; SS$_NODETACH = 10284; SS$_NOCMKRNL = 10244; SS$_NOCMEXEC = 10252; SS$_NOSYSNAM = 10260; SS$_NOGRPNAM = 10268; SS$_NOALLSPOOL = 10276; SS$_NOIMPERSONATE = 10284; SS$_NODIAGNOSE = 10292; SS$_NOLOG_IO = 10300; SS$_NOGROUP = 10308; SS$_NOACNT = 10316; SS$_NOPRMCEB = 10324; SS$_NOPRMMBX = 10332; SS$_NOPSWAPM = 10340; SS$_NOALTPRI = 10348; SS$_NOSETPRV = 10356; SS$_NOTMPMBX = 10364; SS$_NOWORLD = 10372; SS$_NOMOUNT = 10380; SS$_NOOPER = 10388; SS$_NOEXQUOTA = 10396; SS$_NONETMBX = 10404; SS$_NOVOLPRO = 10412; SS$_NOPHY_IO = 10420; SS$_NOBUGCHK = 10428; SS$_NOPRMGBL = 10436; SS$_NOSYSGBL = 10444; SS$_NOPFNMAP = 10452; SS$_NOSHMEM = 10460; SS$_NOSYSPRV = 10468; SS$_NOBYPASS = 10476; SS$_NOSYSLCK = 10484; SS$_NOSHARE = 10492; SS$_NOUPGRADE = 10500; SS$_NODOWNGRADE = 10508; SS$_NOGRPPRV = 10516; SS$_NOREADALL = 10524; SS$_NOIMPORT = 10532; SS$_NOAUDIT = 10540; SS$_NOSECURITY = 10548; SS$_NOPRIVEND = 10751; (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS *) (* *) CONST SS$_EXQUOTASTRT = 10752; SS$_EXASTLM = 10756; SS$_EXBIOLM = 10764; SS$_EXBYTLM = 10772; SS$_EXDIOLM = 10780; SS$_EXFILLM = 10788; SS$_EXPGFLQUOTA = 10796; SS$_EXPRCLM = 10804; SS$_EXTQELM = 10812; SS$_EXENQLM = 10820; (* SYSTEMWIDE QUOTA -- WORK FROM END OF REGION *) CONST SS$_EXBUFOBJLM = 11004; SS$_EXQUOTAEND = 11007; (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS *) (* *) CONST SS$_MMSFAILED = 11012; SS$_QPOOL_DEL_BUSY = 11020; (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 1 MORE MESSAGE IN THIS SECTION ***** *) CONST SS$_TOOFEWDEV = 11032; SS$_AVRWAIT = 11040; (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 3 MORE MESSAGES IN THIS SECTION ***** *) CONST SS$_NO_MMS = 11075; SS$_MMSREADY = 11083; SS$_MMSNOTREADY = 11091; SS$_SKIP_CHECKS = 11099; SS$_NO_NOTIFY = 11107; SS$_SKIP_EXPIRATION = 11115; SS$_NOTATBOT = 11123; SS$_PREVDENS = 11131; (* A NEW BASE SHOULD BE CREATED FOR INFORMATIONALS *) (* ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION ***** *) CONST SS$_RDBERR = 11140; SS$_MDMSERR = 11148; SS$_IVMEDTYP = 11156; SS$_IVDENS = 11164; SS$_IVPOOL = 11172; SS$_IVEXPDAT = 11180; SS$_NOCONFMEDIA = 11188; SS$_PTE_NOT_EMPTY = 11196; SS$_CPUNOTAVAIL = 11204; SS$_NOFASTPATH = 11212; SS$_EXITFORCED = 11220; SS$_FORCEX = 11228; (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) *) (* *) CONST SS$_NOTASSUMING = 11266; SS$_ALREADYASSUMING = 11274; SS$_INUSE = 11282; SS$_USERDISABLED = 11290; SS$_NOCHJIB = 11298; SS$_NOTSUPFS = 11306; SS$_INSFTHREADS = 11314; SS$_NOBUFOBJID = 11322; SS$_NODELPERMANENT = 11330; SS$_NOMEMRESID = 11338; SS$_MRES_PFNSMALL = 11346; SS$_MRES_INCON = 11354; SS$_NORESERVEDMEM = 11362; SS$_RESERVEDMEMUSED = 11370; SS$_RES_MEM_INCON = 11378; SS$_NOSHPTS = 11386; SS$_FLUSHFAIL = 11394; SS$_NOTINSTALLED = 11402; SS$_POOLDEVEXISTS = 11410; SS$_NOUNITS = 11418; SS$_NOTAPOOL = 11426; SS$_MISSINGUNITS = 11434; SS$_DISKDEVEXISTS = 11442; SS$_TOOMANYUNITS = 11450; SS$_NOTINPOOL = 11458; SS$_WRONGPOOL = 11466; SS$_ALRBOUND = 11474; SS$_NOTPOOLMOUNTED = 11482; SS$_POOLINUSE = 11490; SS$_DISKINUSE = 11498; SS$_SDDISABLED = 11506; SS$_UNITINPOOL = 11514; SS$_FAMILYTOOBIG = 11522; SS$_NODISKNAME = 11530; SS$_DISKNAMEEXISTS = 11538; SS$_INSUFFREESEGS = 11546; SS$_NOTBOUND = 11554; SS$_TOOMANYFRAGS = 11562; SS$_TOOMANYFAMILIES = 11570; SS$_DISKISBOUND = 11578; SS$_SNAPINFAM = 11586; SS$_CHKSNAPVER = 11594; SS$_BADSNAPVER = 11602; SS$_SD_RESERVED4 = 11610; SS$_SD_RESERVED5 = 11618; SS$_SECREFOVF = 11626; SS$_DATAERR = 11634; SS$_INVPFN = 11642; SS$_INV_SHMEM = 11650; SS$_INV_SHM_CPP = 11658; SS$_INV_SHM_REG = 11666; SS$_ONEMAPPER = 11674; SS$_NOSUCHEXT = 11682; SS$_CBKEXISTS = 11690; SS$_NOSUCHCBK = 11698; SS$_NOTAMEMBER = 11706; SS$_GLXSPIUNAVAIL = 11714; SS$_MPDEVILLCURPATH = 11722; SS$_MPDEVINCOMPAT = 11730; SS$_MPDEVNOT = 11738; SS$_MPDEVNOTCONF = 11746; SS$_PERSONARESERVED = 11754; SS$_WRONGDRV = 11762; SS$_BADRAD = 11770; SS$_INVQSRFNC = 11778; SS$_NOQIOSERVER = 11786; SS$_INCLASS = 11794; SS$_INVBOOTDEV = 11802; SS$_CLIENT_UNAVAILABLE = 11810; SS$_CONFIGFILE_ERROR = 11818; SS$_INVDEVALLOC = 11826; SS$_DEVICE_UNAVAILABLE = 11834; SS$_INVDEVMOUNT = 11842; SS$_LOGGING_DISABLED = 11850; SS$_NOSUCHCLIENT = 11858; SS$_NOSUCHDEVICE = 11866; SS$_NOSUCHFILTER = 11874; SS$_NOSUCHPATH = 11882; SS$_NOSUCHSERVER = 11890; SS$_RQSTIMOUT = 11898; SS$_SERVER_UNAVAILABLE = 11906; SS$_QSRVINTERR = 11914; SS$_NOADD = 11922; SS$_SYSTEMUIC = 11930; SS$_NOSUCHQPOOLID = 11938; SS$_PATHAMBIG = 11946; SS$_INVMVIP = 11954; SS$_NOPATHAVAIL = 11962; SS$_NOENACURINV = 11970; SS$_TRUSTCONF = 11978; SS$_QIO_FAULT = 11986; SS$_HBVS_REDO_IO = 11994; SS$_TOOMANYPERSONA = 12002; SS$_INVKTLIM = 12010; (* *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 162 MORE NONFATAL MESSAGES IN ABOVE SECTION ***** *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 1664-1695 3400-341F 32 FATAL ERROR CODES (CONTINUED FROM 27FF) *) CONST SS$_MAXNAMPOL = 13316; SS$_HBMMENABLED = 13324; SS$_NOMODNONEPOL = 13332; SS$_SHADFEATNOMNT = 13340; SS$_NOTSUPALLNODES = 13348; SS$_WLGCANTHBMM = 13356; SS$_CALLUNDEFSYM = 13364; SS$_NOADDMCPYMBR = 13372; SS$_CANTDODDS = 13380; SS$_TOOMANYMBRS = 13388; SS$_SCBREADFAIL = 13396; SS$_SCBWRITEFAIL = 13404; SS$_NOMEMFORWBM = 13412; SS$_MUSTDMTVU = 13420; SS$_ONLYSRCMUSTSTAY = 13428; SS$_NOWBMDURINGCOPY = 13436; SS$_WBMERR = 13444; SS$_BADPOLCHAR = 13452; SS$_HBMMVERSIONBAD = 13460; SS$_ANADSKSHDBBLK = 13468; SS$_HBMMBADPOLSPEC = 13476; SS$_NOSHADOWSERVER = 13484; SS$_GAMEOVER = 13492; (* N.B. DO NOT CORRECT THE GRAMMAR IN GAMEOVER, THE MESSAGE IS AS INTENDED *) (* NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENT *) (* ***** NOTE: ROOM FOR 9 MORE FATAL MESSAGES IN ABOVE SECTION ***** *) (* *) (* MSG #S RANGE # MSGS DESCRIPTION *) (* *) (* 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS *) (* *) (* 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. *) (* *) (* THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE *) (* WITH THE SCA ARCHITECTURE, I.E., MUST NOT BE MOVED. *) (* *) CONST SS$_SYSAPMIN = 32256; SS$_SYSAPMAX = 32767; (* END. *) (* [INHERIT('PASCAL$UTCBLKDEF', *) (* 'PASCAL$ACMEDEF', *) (* 'PASCAL$UTCBLKDEF', *) (* 'PASCAL$ELFDATYP')] *) (* (* The order in which the Inherited modules above ?? *) (* (* are listed is not necessarily the canonical ?? *) (* (* order in which they should be compiled. ?? *) (* (* Examine Inherit requirements within each module ?? *) (* (* to determine the proper compilation order. ?? *) (* MODULE STARDEFAE ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $ACCDEF ***) CONST ACC$K_TERMLEN = 84; (* TERMINATION MESSAGE LENGTH *) ACC$C_TERMLEN = 84; (* TERMINATION MESSAGE LENGTH *) (* AND ACCOUNTING RECORD FOR NON BATCH JOBS *) CONST ACC$K_JOB_LEN = 108; (* LENGTH OF BATCH JOB ACCOUNTING RECORD *) ACC$C_JOB_LEN = 108; (* LENGTH OF BATCH JOB ACCOUNTING RECORD *) TYPE ACC$TYPE = RECORD ACC$W_MSGTYP : $UWORD; (* MESSAGE TYPE CODE *) ACC$W_MSGSIZ : $UWORD; (* LENGTH OF DATA MESSAGE (VALID ONLY IN ACCLOG) *) ACC$L_FINALSTS : UNSIGNED; (* FINAL EXIT STATUS *) ACC$L_PID : UNSIGNED; (* PROCESS ID *) ACC$L_JOBID : UNSIGNED; (* JOB IDENTIFICATION (VALID ONLY IN ACCLOG) *) ACC$Q_TERMTIME : $UQUAD; (* TERMINATION TIME (100NS UNITS) *) ACC$T_ACCOUNT : PACKED ARRAY [1..8] OF CHAR; (* ACCOUNT NAME STRING (BLANK FILLED) *) ACC$T_USERNAME : PACKED ARRAY [1..12] OF CHAR; (* USER NAME STRING (BLANK FILLED) *) ACC$L_CPUTIM : UNSIGNED; (* CPUTIM IN 10MS UNITS *) ACC$L_PAGEFLTS : UNSIGNED; (* TOTAL PAGE FAULTS *) ACC$L_PGFLPEAK : UNSIGNED; (* PEAK PAGING FILE USAGE *) ACC$L_WSPEAK : UNSIGNED; (* PEAK WORKING SET SIZE *) ACC$L_BIOCNT : UNSIGNED; (* COUNT OF BUFFERED I/O OPERATIONS *) ACC$L_DIOCNT : UNSIGNED; (* COUNT OF DIRECT I/O OPERATIONS *) ACC$L_VOLUMES : UNSIGNED; (* COUNT OF VOLUMES MOUNTED *) ACC$Q_LOGIN : $UQUAD; (* LOGIN TIME (100NS UNITS) *) ACC$L_OWNER : UNSIGNED; (* PID OF SUBPROCESS OWNER *) (* END OF TERMINATION MESSAGE *) ACC$T_JOB_NAME : PACKED ARRAY [1..8] OF CHAR; (* JOB NAME (BLANK FILLED) *) ACC$T_JOB_QUE : PACKED ARRAY [1..16] OF CHAR; (* QUEUE NAME (.ASCIC) *) END; CONST ACC$K_PRT_LEN = 88; (* LENGTH OF PRINT ACCOUNTING RECORD *) ACC$C_PRT_LEN = 88; (* LENGTH OF PRINT ACCOUNTING RECORD *) (* *) TYPE ACC1$TYPE = RECORD ACCDEF$$_FILL_1 : ARRAY [1..48] OF $BYTE; ACC$L_PAGCNT : UNSIGNED; (* SYMBIONT PAGE COUNT *) ACC$L_QIOCNT : UNSIGNED; (* SYMBIONT QIO COUNT *) ACC$L_GETCNT : UNSIGNED; (* SYMBIONT GET COUNT *) ACC$Q_QUETIME : $UQUAD; (* TIME JOB WAS QUEUED *) ACC$T_PRT_NAME : PACKED ARRAY [1..8] OF CHAR; (* NAME OF PRINT JOB *) ACC$T_PRT_QUE : PACKED ARRAY [1..12] OF CHAR; (* NAME OF PRINT QUEUE *) (* DEFINE USER ACCOUNTING MESSAGE DATA AREA *) (* *) END; CONST ACC$K_INS_LEN = 176; (* LENGTH OF INSERT MESSAGE *) ACC$C_INS_LEN = 176; (* LENGTH OF INSERT MESSAGE *) (* *) CONST ACC$K_PRCTRM = 1; (* JOB TERMINATION *) ACC$K_BATTRM = 2; (* BATCH JOB TERMINATION *) ACC$K_INTTRM = 3; (* INTERACTIVE JOB TERMINATION *) ACC$K_LOGTRM = 4; (* LOGIN FAILURE PROCESS TERMINATION *) ACC$K_IMGTRM = 5; (* IMAGE TERMINATION *) ACC$K_SUBTRM = 6; (* SUBPROCESS TERMINATION *) ACC$K_DETTRM = 7; (* DETACHED PROCESS TERMINATION *) ACC$K_NETTRM = 8; (* NETWORK PROCESS TERMINATION *) (* MISC ACCOUNTING RECORDS *) CONST ACC$K_PRTJOB = 16; (* PRINT JOB ACCOUNTING *) ACC$K_INSMSG = 17; (* INSERTED MESSAGE *) (* *) CONST ACC$K_INSMESG = 1; (* INSERT MESSAGE INTO ACCOUNTING FILE *) ACC$K_NEWFILE = 2; (* CREATE A NEW ACCOUNT FILE *) ACC$K_ENABACC = 3; (* ENABLE ACCOUNTING *) ACC$K_DISAACC = 4; (* DISABLE ACCOUNTING *) ACC$K_ENABSEL = 5; (* ENABLE SELECTIVE ACCOUNTING *) ACC$K_DISASEL = 6; (* DISABLE SELECTIVE ACCOUNTING *) TYPE ACC2$TYPE = RECORD ACCDEF$$_FILL_2 : ARRAY [1..44] OF $BYTE; ACC$T_USER_DATA : PACKED ARRAY [1..132] OF CHAR; (* ALLOW UP TO 132 BYTES OF USER DATA *) (* ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE *) (* *) (* PROCESS ACCOUNTING RECORDS *) (* DEFINE ACCOUNTING MANAGER MESSAGE CODES *) (* *) (* *) END; (*** MODULE $ACCESSDEF ***) (* *) (* Definitions for Acmode arugment to several MMG system services *) (* *) CONST ACCESS$M_LOCK_IMAGE = 64; ACCESS$M_LKWSET_EXACT = 128; TYPE ACCESS$TYPE = RECORD CASE INTEGER OF 1: (ACCESS$R_ACCESS_UNION : [BYTE(8)] RECORD END; ); 2: (ACCESS$Q_QUAD : [POS(0)] $UQUAD; (* Combined acmode/arch/prot argument - full 64-bits *) ); 3: (); 4: (ACCESS$B_MODE : [POS(0)] $UBYTE; (* Access mode *) ACCESS$B_ARCH : [POS(8)] $UBYTE; (* Architecture 3=IA64 *) ACCESS$W_PROT : [POS(16)] $UWORD; (* Page protection in architecture format *) ACCESS$L_RESERVED1 : [POS(32)] INTEGER; (* Reserved *) ); 5: (); 6: (ACCESS$V_LOCK_IMAGE : [POS(6)] $BOOL; (* For $LKWSET_64 and $ULWSET_64 only *) ACCESS$V_LKWSET_EXACT : [POS(7)] $BOOL; (* For $LKWSET[_64] and $ULWSET[_64] IA64 only *) (* Alpha always performs exact *) ) END; CONST ACCESS$C_IA64 = 3; (* IA64 *) (*** MODULE $ACEDEF ***) (*+ *) (* *) (* Access Control list Entry structure definitions *) (* *) (*- *) CONST ACE$C_KEYID = 1; (* Key identifier entry *) ACE$C_RMSJNL_BI = 2; (* RMS BI journal *) ACE$C_RMSJNL_AI = 3; (* RMS AI journal *) ACE$C_RMSJNL_AT = 4; (* RMS AT journal *) ACE$C_AUDIT = 5; (* Security audit journal entry *) ACE$C_ALARM = 6; (* Security alarm entry *) ACE$C_INFO = 7; (* General purpose information *) ACE$C_RMSJNL_RU_DEFAULT = 8; (* RU journal default volume *) ACE$C_DIRDEF = 9; (* Directory default protection *) ACE$C_RMSJNL_RU = 10; (* RU journal (many per file) *) ACE$C_SUBSYSTEM_IDS = 11; (* Protected subsystem ids *) ACE$C_OIL = 12; (* Object Information Label *) ACE$C_NEW_OWNER = 13; (* Protection for owner ACE *) ACE$C_POSIX_OWNER = 14; (* Posix UID/GID (persona) from image *) ACE$C_MAX_CODE = 15; (* Maximum ACE type code plus 1 *) ACE$C_RESERVED = 255; (* Reserved ACE type *) ACE$C_APPLICATION = 7; (* Alternate application ACE code *) ACE$C_CUST = 1; (* Customer defined *) ACE$C_CSS = 2; (* CSS defined *) ACE$C_VMS = 3; (* VMS defined *) ACE$M_SUCCESS = 1; ACE$M_FAILURE = 2; ACE$M_DEFAULT = 256; ACE$M_PROTECTED = 512; ACE$M_HIDDEN = 1024; ACE$M_NOPROPAGATE = 2048; ACE$M_READ = 1; ACE$M_WRITE = 2; ACE$M_EXECUTE = 4; ACE$M_DELETE = 8; ACE$M_CONTROL = 16; ACE$K_LENGTH = 8; (* Length of the overhead area *) ACE$C_LENGTH = 8; (* Length of the overhead area *) ACE$C_RMS_ATTRIBUTES = 0; (* variant of ACE for file attributes *) ACE$K_RMS_ATTRIBUTES = 0; (* variant of ACE for file attributes *) ACE$K_RMSATR_MINOR_V50 = 2; (* minor ID for VMS 5.0 *) ACE$K_RMSATR_MINOR_VDW = 2; (* minor ID for DECwindows V1.0 *) ACE$C_RMSATR_MINOR_ID = 2; (* current minor ID (obsolete symbol) *) ACE$K_RMSATR_MINOR_ID = 2; ACE$C_RMSATR_MAJOR_ID = 1; (* current major ID *) ACE$K_RMSATR_MAJOR_ID = 1; ACE$M_STATISTICS = 1; ACE$M_XLATE_DEC = 2; ACE$S_RMSATR = 20; (* size of RMS file attributes ACE (fixed fields) *) ACE$S_RMSATR_V50 = 20; (* size of RMS file attributes ACE (fixed fields) *) ACE$S_RMSATR_VDW = 20; (* size of RMS file attributes ACE (fixed fields) *) (* Beyond the fixed fields, variable length information will by stored *) CONST ACE$_RMSATR_ORGANIZATION = 1; (* organizational extension object ID *) ACE$_RMSATR_SEMANTICS = 2; (* file semantics object ID *) ACE$K_RMSATR_ORG_MAX_LEN = 64; ACE$K_RMSATR_SEM_MAX_LEN = 64; ACE$S_RMSJNL_RU_DEFAULT = 17; (* length of RMSJNL RU default ACE *) ACE$M_JOURNAL_DISABLED = 1; ACE$M_BACKUP_DONE = 2; ACE$S_RMSJNL_RU = 38; (* length of RMSJNL RU ACE *) ACE$S_RMSJNL = 50; (* length of RMSJNL AI/BI/AT ACE *) ACE$S_OIL_S64I64 = 32; (* Length of Type 0 OIL ACE *) ACE$S_OIL_S128 = 32; (* Length of Type 1 OIL ACE *) ACE$S_OIL = 32; (* Maximum OIL ACE Size *) ACE$M_USERNAME_VALID = 1; ACE$M_UIC_VALID = 2; ACE$M_UID_VALID = 4; ACE$M_GID_VALID = 8; ACE$M_GROUP_MODE_VALID = 16; ACE$M_OTHER = 7; ACE$M_GROUP = 56; ACE$M_USER = 448; ACE$M_S_IXOTH = 1; ACE$M_S_IWOTH = 2; ACE$M_S_IROTH = 4; ACE$M_S_IXGRP = 8; ACE$M_S_IWGRP = 16; ACE$M_S_IRGRP = 32; ACE$M_S_IXUSR = 64; ACE$M_S_IWUSR = 128; ACE$M_S_IRUSR = 256; ACE$M_S_ISGID = 1024; ACE$M_S_ISUID = 2048; ACE$S_POSIX_OWNER_LENGTH = 60; (* Length of POSIX_OWNER ACE *) TYPE ACE$TYPE = RECORD CASE INTEGER OF 1: (ACE$B_SIZE : $UBYTE; (* Size of the entry *) ACE$B_TYPE : $UBYTE; (* Type of entry *) ACE$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; ACE$R_ACE_FIELDS : [BYTE(56)] RECORD END; (* Start of ACE overlayed area *) ); 2: (ACE$W_FLAGS : [POS(16)] $UWORD; (* Type dependent & independent flags *) ); 3: (); 4: (ACE$V_INFO_TYPE : [POS(16)] $BIT4; (* INFO ACE subtype *) ACE$L_ACCESS : [POS(32)] UNSIGNED; (* Access rights bitmask *) ACE$L_KEY : [POS(64)] UNSIGNED; (* Start of the key fields *) ); 5: (ACE$T_AUDITNAME : [POS(64)] PACKED ARRAY [1..16] OF CHAR; (* Start of the security journal name *) ); 6: (ACE$V_RESERVED : [POS(16)] $BIT4; (* Count of reserved longwords *) ACE$V_READ : [POS(32)] $BOOL; (* Allowed to read *) ACE$V_WRITE : [POS(33)] $BOOL; (* Allowed to write *) ACE$V_EXECUTE : [POS(34)] $BOOL; (* Allowed to execute *) ACE$V_DELETE : [POS(35)] $BOOL; (* Allowed to delete *) ACE$V_CONTROL : [POS(36)] $BOOL; (* All privileges of the owner *) ); 7: (); 8: (ACE$V_SUCCESS : [POS(16)] $BOOL; (* Audit or alarm upon success *) ACE$V_FAILURE : [POS(17)] $BOOL; (* Audit ot alarm upon failure *) ); 9: (ACE$L_INFO_FLAGS : [POS(32)] UNSIGNED; (* INFO type application flags *) ACE$T_INFO_START : [POS(64)] CHAR; (* Start of the information *) ); 10: (ACE$V_DEFAULT : [POS(24)] $BOOL; (* Directory default entry *) ACE$V_PROTECTED : [POS(25)] $BOOL; (* Protected ACE *) ACE$V_HIDDEN : [POS(26)] $BOOL; (* Hidden ACE *) ACE$V_NOPROPAGATE : [POS(27)] $BOOL; (* No propagation between versions *) ); 11: (ACE$W_APPLICATION_FLAGS : [POS(32)] $UWORD; (* VMS application flags word *) ACE$W_APPLICATION_FACILITY : [POS(48)] $UWORD; (* VMS application facility code *) ACE$W_RMSATR_VARIANT : [POS(64)] $UWORD; (* Which variant of the RMS attributes ACE *) ACE$B_RMSATR_FIXLEN : [POS(80)] $UBYTE; (* length of fixed format fields *) (* (introduced at minor ID 3. Older *) (* ACE's are assumed to be all fixed form) *) ACE$W_RMSATR_MINOR_ID : [POS(96)] $UWORD; (* RMS file attributes ACE minor ID *) ACE$W_RMSATR_MAJOR_ID : [POS(112)] $UWORD; (* RMS file attributes ACE major ID *) (* using a {field-type, length, value? scheme. This allows extensibility *) (* and compact representation. *) (* *) (* field types are: *) ); 12: (ACE$L_RMS_ATTRIBUTE_FLAGS : [POS(128)] UNSIGNED; (* RMS file attributes flags definitions *) ); 13: (); 14: (ACE$V_STATISTICS : [POS(128)] $BOOL; (* Statistics monitoring enabled on this file *) ACE$V_XLATE_DEC : [POS(129)] $BOOL; (* File semantics are DEC-local *) ); 15: (); 16: (ACE$T_VOLNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume name of journal file *) ACE$B_VOLNAM_LEN : [POS(128)] $UBYTE; (* Length of volume name of journal file *) ACE$B_RJRVER : [POS(136)] $UBYTE; (* RMS journal file structure level *) ACE$R_FID_OVERLAY : [POS(144), BYTE(6)] RECORD END; (* File-id of journal file *) ACE$L_JNLIDX : [POS(208)] UNSIGNED; (* journal stream index number *) ACE$Q_CDATE : [POS(240)] $UQUAD; (* creation date/time of journal *) ACE$L_BACKUP_SEQNO : [POS(304)] UNSIGNED; (* BACKUP sequence number (to *) (* find where to start in journal). *) ACE$Q_MODIFICATION_TIME : [POS(336)] $UQUAD; (* timestamp of last backup or last *) (* journal entry recovered. *) ); 17: (ACE$W_FID : [POS(144)] ARRAY [1..3] OF $UWORD; (* file id *) ACE$W_RMSJNL_FLAGS : [POS(192)] $UWORD; ); 18: (ACE$R_FID_FIELDS : [POS(144), BYTE(6)] RECORD END; ); 19: (ACE$W_FID_NUM : [POS(144)] $UWORD; (* file number *) ACE$W_FID_SEQ : [POS(160)] $UWORD; (* sequence number *) ACE$R_FID_RVN_OVERLAY : [POS(176), BYTE(2)] RECORD END; ACE$V_JOURNAL_DISABLED : [POS(192)] $BOOL; (* journaling disabled *) (* (AI, BI, AT only; set by BACKUP) *) ACE$V_BACKUP_DONE : [POS(193)] $BOOL; (* BACKUP done on this file; *) (* RMS needs to write a backup marker *) (* (AI, BI, AT only; set by BACKUP) *) ); 20: (ACE$W_FID_RVN : [POS(176)] $UWORD; (* relative volume number *) ); 21: (ACE$R_FID_RVN_FIELDS : [POS(176), BYTE(2)] RECORD END; ); 22: (ACE$B_FID_RVN : [POS(176)] $UBYTE; (* alternate format RVN *) ACE$B_FID_NMX : [POS(184)] $UBYTE; (* alternate format file number extension *) ); 23: (); 24: (ACE$L_SPARE1 : [POS(32)] UNSIGNED; (* For alignment *) ACE$L_SYS_PROT : [POS(64)] UNSIGNED; (* Default system protection *) ACE$L_OWN_PROT : [POS(96)] UNSIGNED; (* Default owner protection *) ACE$L_GRP_PROT : [POS(128)] UNSIGNED; (* Default group protection *) ACE$L_WOR_PROT : [POS(160)] UNSIGNED; (* Default world protection *) ); 25: (); 26: (ACE$L_SPARE2 : [POS(32)] UNSIGNED; (* For alignment *) ACE$Q_IMAGE_IDS : [POS(64)] $UQUAD; (* Start of the image ids (a *) (* quadword for each identifier) *) ); 27: (); 28: (ACE$L_OIL_FLAGS : [POS(32)] UNSIGNED; (* For Alignment *) ACE$L_BRAND_NAME : [POS(64)] UNSIGNED; (* OIL Type-Specific Info *) ACE$R_CLASS_PROT : [POS(96)] CHAR; (* OIL Class Block *) (* - POSIX_OWNER ACE, Persona from Image - *) (* Process effective persona derived from image activation. *) (* Support for POSIX/COE effective UID/GID identities granted *) (* to a process if the image has this ACE and it is valid. *) (* The UID and GID are extensions to the Persona Security Block *) (* (PSBDEF). *) (* *) (* Currently, only the SUID, SGID, GID and POSIX_MODE (GROUP) *) (* fields are supported. VMS_GRP_PROT is also used internally. *) (* *) ); 29: (); 30: (ACE$T_POSIX_USERNAME : [POS(64)] PACKED ARRAY [1..32] OF CHAR; (* Posix Username *) ACE$L_POSIX_UID : [POS(352)] UNSIGNED; (* Posix User ID *) ACE$L_POSIX_GID : [POS(384)] UNSIGNED; (* Posix Group ID *) ACE$L_VMS_GRP_PROT : [POS(448)] UNSIGNED; (* Posix to VMS Group Prot. *) ); 31: (ACE$L_POSIX_FLAGS : [POS(32)] UNSIGNED; (* POSIX_OWNER Flags *) ACE$L_POSIX_UIC : [POS(320)] UNSIGNED; (* Posix UIC *) ACE$L_POSIX_MODE : [POS(416)] UNSIGNED; (* Posix file protection (mode) *) ); 32: (); 33: (ACE$V_USERNAME_VALID : [POS(32)] $BOOL; (* Validates Posix username *) ACE$V_UIC_VALID : [POS(33)] $BOOL; (* Validates Posix UIC *) ACE$V_UID_VALID : [POS(34)] $BOOL; (* Validates Posix User ID *) ACE$V_GID_VALID : [POS(35)] $BOOL; (* Validates Posix Group ID *) ACE$V_GROUP_MODE_VALID : [POS(36)] $BOOL; (* Validates Posix mode for Group file protection *) ACE$W_POSIX_MEM : [POS(320)] $UWORD; (* Member number in UIC *) ACE$W_POSIX_GRP : [POS(336)] $UWORD; (* Group number in UIC *) ACE$V_OTHER : [POS(416)] $BIT3; (* Other Permissions *) ACE$V_GROUP : [POS(419)] $BIT3; (* Group Permissions *) ACE$V_USER : [POS(422)] $BIT3; (* User Permissions *) ); 34: (); 35: ( (* - Other Permissions - *) ACE$V_S_IXOTH : [POS(416)] $BOOL; (* Posix mode - other execute *) ACE$V_S_IWOTH : [POS(417)] $BOOL; (* Posix mode - other write *) ACE$V_S_IROTH : [POS(418)] $BOOL; (* Posix mode - other read *) (* - Group Permissions - *) ACE$V_S_IXGRP : [POS(419)] $BOOL; (* Posix mode - group execute *) ACE$V_S_IWGRP : [POS(420)] $BOOL; (* Posix mode - group write *) ACE$V_S_IRGRP : [POS(421)] $BOOL; (* Posix mode - group read *) (* - User Permissions - *) ACE$V_S_IXUSR : [POS(422)] $BOOL; (* Posix mode - user execute *) ACE$V_S_IWUSR : [POS(423)] $BOOL; (* Posix mode - user write *) ACE$V_S_IRUSR : [POS(424)] $BOOL; (* Posix mode - user read *) ACE$V_S_SPARE : [POS(425)] $BOOL; (* Blank bit field *) (* - SxID Bits - *) ACE$V_S_ISGID : [POS(426)] $BOOL; (* Posix set group ID on execution *) ACE$V_S_ISUID : [POS(427)] $BOOL; (* Posix set user ID on execution *) (* End - POSIX_OWNER ACE *) ) END; (*** MODULE $ACLDEF ***) CONST ACL$K_LENGTH = 12; (* Length of the overhead area *) ACL$C_LENGTH = 12; (* Length of the overhead area *) ACL$C_FILE = 1; (* Files *) ACL$C_DEVICE = 2; (* MBX, MT, TT, etc. *) ACL$C_JOBCTL_QUEUE = 3; (* Job controller queue *) ACL$C_COMMON_EF_CLUSTER = 4; (* Common event flag clusters *) ACL$C_LOGICAL_NAME_TABLE = 5; (* Logical name tables *) ACL$C_PROCESS = 6; (* Process *) ACL$C_GROUP_GLOBAL_SECTION = 7; (* Group global sections *) ACL$C_SYSTEM_GLOBAL_SECTION = 8; (* System global sections *) ACL$C_CAPABILITY = 9; (* Capability *) ACL$C_EVENT_FACILITY = 10; (* Event facility *) ACL$C_LOCK = 11; (* Lock block/resource *) ACL$C_VOLUME = 12; (* Disk volume (set) *) ACL$C_MAX_OBJECT = 13; (* max object code *) ACL$C_NUM_OBJECTS = 12; (* number of objects *) ACL$K_NUM_OBJECTS = 12; (* number of objects *) (* Action codes *) CONST ACL$C_ADDACLENT = 1; (* Add an ACL entry *) ACL$C_DELACLENT = 2; (* Delete an ACL entry *) ACL$C_MODACLENT = 3; (* Modify an ACL entry *) ACL$C_FNDACLENT = 4; (* Locate an ACL entry *) ACL$C_FNDACETYP = 5; (* Locate specific ACE type *) ACL$C_DELETEACL = 6; (* Delete ACL, leaving protected *) ACL$C_READACL = 7; (* Read the ACL *) ACL$C_ACLLENGTH = 8; (* Get the ACL's length *) ACL$C_READACE = 9; (* Read a single ACE *) ACL$C_RLOCK_ACL = 10; (* Read lock on ACL *) ACL$C_WLOCK_ACL = 11; (* Write lock on ACL *) ACL$C_UNLOCK_ACL = 12; (* Release exclusive lock *) ACL$C_GRANT_ACE = 13; (* ACE granting access *) ACL$C_NEXT_ACE = 14; (* Increment ACE number *) ACL$C_DELETE_ALL = 15; (* Delete entire ACL *) ACL$C_RESERVED_ITEM_2 = 16; (* Reserved item code *) ACL$C_RESERVED_ITEM_3 = 17; (* Reserved item code *) ACL$S_ADDACLENT = 255; (* Add an ACL entry *) ACL$S_DELACLENT = 255; (* Delete an ACL entry *) ACL$S_MODACLENT = 255; (* Modify an ACL entry *) ACL$S_FNDACLENT = 255; (* Locate an ACL entry *) ACL$S_FNDACETYP = 255; (* Locate specific ACE type *) ACL$S_DELETEACL = 255; (* Delete ACL, leaving protected *) ACL$S_READACL = 512; (* Read the ACL *) ACL$S_ACLLENGTH = 4; (* Get the ACL's length *) ACL$S_READACE = 255; (* Read a single ACE *) ACL$S_RLOCK_ACL = 4; (* Read lock on ACL *) ACL$S_WLOCK_ACL = 4; (* Write lock on ACL *) ACL$S_UNLOCK_ACL = 4; (* Remove lock on ACL *) ACL$S_GRANT_ACE = 255; (* ACE granting access *) ACL$S_NEXT_ACE = 4; (* Increment ACE number *) ACL$S_DELETE_ALL = 255; (* Delete entire ACL *) ACL$S_RESERVED_ITEM_2 = 255; (* Reserved item code *) ACL$S_RESERVED_ITEM_3 = 255; (* Reserved item code *) ACL$C_MAX_SEGMENT_SIZE = 512; (* Maximum ACL segemnt size *) ACL$K_MAX_SEGMENT_SIZE = 512; (* Maximum ACL segemnt size *) TYPE ACL$TYPE = RECORD ACL$L_FLINK : UNSIGNED; (* Forward link to next list in the queue *) ACL$L_BLINK : UNSIGNED; (* Back link to previous list in queue *) ACL$W_SIZE : $UWORD; (* Total size of the list *) ACL$B_TYPE : $UBYTE; (* Structure type code *) ACLDEF$$_FILL_1 : $BYTE; (* Spare unused byte *) ACL$L_LIST : UNSIGNED; (* Start of the Access Control Entries *) (* Object types *) END; (*** MODULE $UTCBLKDEF ***) (*+ *) (* *) (* $UTCBLKDEF defines the STARLET structure for UTC based times. *) (* *) (*- *) TYPE UTCBLK$TYPE = RECORD UTCBLK$O_TIME_BLOCK : ARRAY [1..2] OF $QUAD; (* Double quad for entire time *) END; (*** MODULE $acmedef IDENT X-8 ***) (*+ *) (* *) (* Miscellaneous constants *) (* *) (*- *) CONST acme$k_maxchar_ITEM = 16383; (* Maximum length (in characters) *) (* of an item *) CONST acme$k_maxchar_doi_name = 32; (* Maximum length (in characters) *) (* of a DOI name string *) CONST acme$k_maxchar_principal_name = 512; (* Maximum length (in characters) *) (* of a principal name string *) CONST acme$k_max_num_agents = 32; (* Maximum number of ACME agents *) (* that can be loaded *) CONST acme$k_max_cred_type = 32; (* Maximum number of credential *) (* types supported *) (*+ *) (* *) (* ACME agent id *) (* *) (* An ACME agent id is a 32-bit unsigned value, encoded as follows: *) (* *) (* Remote host address type is a 16-bit unsigned value, encoded as follows: *) (* *) (* 3 2 2 1 1 *) (* 1 4 3 6 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^.............................^ ^ ^...........................^ *) (* | | | | | *) (* | | | +---------------------------+-- Bit [14:0] = ACME number *) (* | | | *) (* | | +-------------------------------- Bit [15] = 0 ==> Ancillary agent *) (* | | 1 ==> Registered DOI *) (* | | *) (* +-----------------------------+---------------------------------- Bit [31:16] = Server number *) (* *) (*- *) CONST acmeid$m_acme_num = 32767; acmeid$m_doi_designator = 32768; acmeid$m_server_num = -65536; TYPE acmeid$TYPE = RECORD CASE INTEGER OF 1: (acmeid$r_fill_20_ : [BYTE(4)] RECORD END; ); 2: (acmeid$l_agent_id : [POS(0)] UNSIGNED; (* Composite id *) ); 3: (); 4: (acmeid$v_acme_num : [POS(0)] $BIT15; (* ACME agent number *) acmeid$v_doi_designator : [POS(15)] $BOOL; (* Registered DOI *) acmeid$v_server_num : [POS(16)] $BIT16; (* Server number *) ) END; CONST acmeid$k_length = 4; (*+ *) (* *) (* $ACM Function Codes and Modifiers *) (* *) (* Function code plus modifiers form a 32-bit unsigned value, encoded *) (* as follows: *) (* *) (* 3 2 2 1 1 *) (* 1 4 3 6 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^.............................^ ^.................^ ^.........^ *) (* | | | | | | *) (* | | | | +---------+-- Bit [5:0] = function code *) (* | | | | *) (* | | +-----------------+-------------- Bit [15:06] = cross function modifiers *) (* | | *) (* +-----------------------------+---------------------------------- Bit [31:16] = function specific modifiers *) (*- *) (* *) (* Function codes *) (* *) (* Function code values *) CONST acme$_authenticate_principal = 1; (* AUTHENTICATE_PRINCIPAL *) acme$_change_password = 2; (* CHANGE_PASSWORD *) acme$_release_credentials = 3; (* RELEASE_CREDENTIALS *) acme$_query = 4; (* QUERY *) acme$_event = 5; (* EVENT *) (* Function code value *) CONST acme$_free_context = 63; (* FREE_CONTEXT *) (* Function code values *) CONST acme$_fc_authenticate_principal = 1; (* AUTHENTICATE_PRINCIPAL *) acme$_fc_change_password = 2; (* CHANGE_PASSWORD *) acme$_fc_release_credentials = 3; (* RELEASE_CREDENTIALS *) acme$_fc_query = 4; (* QUERY *) acme$_fc_event = 5; (* EVENT *) (* Function code value *) CONST acme$_fc_free_context = 63; (* FREE_CONTEXT *) acmefc$m_function = 63; acmefc$m_modifiers = -64; acme$m_noaudit = 64; acme$m_timeout = 128; acme$m_ucs2_4 = 32768; acme$m_acquire_credentials = 65536; acme$m_merge_persona = 131072; acme$m_copy_persona = 262144; acme$m_override_mapping = 524288; acme$m_native_authentication = 1048576; acme$m_noauthorization = 2097152; acme$m_foreign_policy_hints = 4194304; acme$m_default_principal = 8388608; TYPE acmefc$TYPE = RECORD CASE INTEGER OF 1: (acmefc$r_overlay : [BYTE(4)] RECORD END; ); (* *) (* Overall function code/modifiers structure *) (* *) 2: (); 3: (acmefc$l_fcode_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: (); 5: (acmefc$v_function : [POS(0)] $BIT6; (* Function code *) acmefc$v_modifiers : [POS(6)] $BIT26; (* Function modifiers *) (* *) (* Modifiers applicable to all function codes *) (* *) ); 6: (); 7: (); 8: (); 9: (acme$v_noaudit : [POS(6)] $BOOL; (* Suppress auditing *) acme$v_timeout : [POS(7)] $BOOL; (* Timed operation *) acme$v_ucs2_4 : [POS(15)] $BOOL; (* Strings are in 4-byte UCS-2 format *) (* *) (* Modifiers applicable to AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD *) (* *) ); 10: (); 11: (); 12: (); 13: (acme$v_acquire_credentials : [POS(16)] $BOOL; (* Acquire credentials *) acme$v_merge_persona : [POS(17)] $BOOL; (* Merge with base credentials *) acme$v_copy_persona : [POS(18)] $BOOL; (* Copy base credentials *) acme$v_override_mapping : [POS(19)] $BOOL; (* Override VMS username mapping checks *) acme$v_native_authentication : [POS(20)] $BOOL; (* Allow native DOI authentication *) acme$v_noauthorization : [POS(21)] $BOOL; (* Skip authorization checks *) acme$v_foreign_policy_hints : [POS(22)] $BOOL; (* Honor NOAUDIT and NOAUTHORIZATION *) (* for non-native authentications *) acme$v_default_principal : [POS(23)] $BOOL; (* Use principal name and DOI *) (* designator defined by the *) (* primary persona extension *) ) END; CONST acmefc$k_length = 4; (*+ *) (* *) (* $ACM Item Codes *) (* *) (* Item codes are 16-bit unsigned values, encoded as follows: *) (* *) (* 1 *) (* 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^ ^ ^ ^ ^ *) (* | | | | | *) (* | | | +-----------------------+-- Bit [12:0] = item *) (* | | | *) (* | | +---------------------------- Bit [13] = 0 ==> not subject to VTF-7 <-> UCS conversion *) (* | | 1 ==> subject to VTF-7 <-> UCS conversion *) (* | | *) (* | +------------------------------ Bit [14] = 0 ==> input item *) (* | 1 ==> output item *) (* | *) (* +-------------------------------- Bit [15] = 0 ==> common item *) (* 1 ==> ACME specific item *) (* *) (*- *) (* Specialty *) (* Cross function *) (* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD *) (* RELEASE_CREDENTIALS *) (* QUERY *) (* EVENT *) CONST acmeic$M_ITEM = 8191; acmeic$m_ucs = 8192; acmeic$m_output = 16384; acmeic$m_acme_specific = 32768; TYPE acmeic$TYPE = RECORD CASE INTEGER OF 1: (acmeic$r_fill_28_ : [BYTE(2)] RECORD END; ); 2: (acmeic$w_item_code : [POS(0)] $UWORD; (* Composite field *) ); 3: (); 4: (acmeic$V_ITEM : [POS(0)] $BIT13; (* Ranged value *) acmeic$v_ucs : [POS(13)] $BOOL; (* 0 ==> not subject to VTF-7 <-> UCS conversion *) (* 1 ==> subject to VTF-7 <-> UCS conversion *) acmeic$v_output : [POS(14)] $BOOL; (* 0 ==> input item *) (* 1 ==> output item *) acmeic$v_acme_specific : [POS(15)] $BOOL; (* 0 ==> common item *) (* 1 ==> ACME specific item *) ) END; CONST acmeic$k_length = 2; (* *) (* Input item codes not subject to VTF-7 <-> UCS conversion *) (* *) CONST acme$_min_spec_in = 1; (* Specialty items *) CONST acme$_null = 1; (* Place holder item (skip entry in item list) *) acme$_chain = 2; (* Chain to another item list segment *) acme$_max_spec_in = 2; acme$_min_gen_in = 256; (* Generic items *) CONST acme$_access_mode = 256; (* Access mode for persona operations *) acme$_dialogue_support = 257; (* Dialogue capabilities *) acme$_context_acme_id = 258; (* ID of ACME for specific context *) acme$_persona_handle_in = 259; (* Target persona *) acme$_target_doi_id = 260; (* ID of DOI for a directed call *) acme$_timeout_interval = 261; (* Timeout interval in seconds *) acme$_max_gen_in = 261; acme$_min_auth_pwd_in = 512; (* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) CONST acme$_auth_mechanism = 512; (* Authentication mechanism *) acme$_challenge_data = 513; (* Challenge data *) acme$_logon_type = 514; (* Logon type *) acme$_new_password_flags = 515; (* New password request/control flags *) acme$_remote_host_address = 516; (* Remote host address *) acme$_remote_host_address_type = 517; (* Remote host address type/format *) acme$_response_data = 518; (* Response data *) acme$_max_auth_pwd_in = 518; acme$_min_rel_cred_in = 768; (* RELEASE_CREDENTIALS items *) CONST acme$_credentials_type = 768; (* Index associated with persona extension *) acme$_max_rel_cred_in = 768; acme$_min_query_in = 1024; (* QUERY items *) CONST acme$_query_key_type = 1024; (* Key type *) acme$_query_key_value = 1025; (* Key value *) acme$_query_type = 1026; (* Type of data to be returned via QUERY_DATA *) acme$_max_query_in = 1026; acme$_min_event_in = 1280; (* EVENT items *) CONST acme$_event_data_in = 1280; (* Event function input data *) acme$_event_type = 1281; (* Event type *) acme$_max_event_in = 1281; (* *) (* Input item codes subject to VTF-7 <-> UCS conversion *) (* *) CONST acme$_min_gen_in_ucs = 8448; (* Generic items *) CONST acme$_context_acme_name = 8448; (* Name of ACME for specific context *) acme$_locale = 8449; (* Language specifier (location) *) acme$_target_doi_name = 8450; (* Name of DOI for a directed call *) acme$_server_name_in = 8451; (* ACME relative server name *) acme$_service_name = 8452; (* Caller's service name *) acme$_max_gen_in_ucs = 8452; acme$_min_auth_pwd_in_ucs = 8704; (* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) CONST acme$_access_port = 8704; (* Access port name *) acme$_new_password_1 = 8705; (* New primary password *) acme$_new_password_2 = 8706; (* New secondary password *) acme$_new_password_system = 8707; (* New system password *) acme$_password_1 = 8708; (* Primary password *) acme$_password_2 = 8709; (* Secondary password *) acme$_password_system = 8710; (* System password *) acme$_principal_name_in = 8711; (* Principal name *) acme$_remote_host_fullname = 8712; (* Remote host expanded name *) acme$_remote_host_name = 8713; (* Remote host name *) acme$_remote_username = 8714; (* Remote username *) acme$_max_auth_pwd_in_ucs = 8714; acme$_min_rel_cred_in_ucs = 8960; (* RELEASE_CREDENTIALS items *) CONST acme$_credentials_name = 8960; (* Name associated with persona extension *) acme$_max_rel_cred_in_ucs = 8960; (* *) (* Output item codes not subject to VTF-7 <-> UCS conversion *) (* *) CONST acme$_min_spec_out = 16385; (* Specialty items *) CONST acme$_phase_transition = 16385; acme$_max_spec_out = 16385; acme$_min_gen_out = 16640; (* Generic items *) CONST acme$_persona_handle_out = 16640; (* Persona acted upon *) acme$_max_gen_out = 16640; acme$_min_auth_pwd_out = 16896; (* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) CONST acme$_authenticating_doi_id = 16896; (* ID of DOI accepting principal *) acme$_logon_information = 16897; (* Logon information *) acme$_mapping_acme_id = 16898; (* ID of ACME mapping principal *) acme$_max_auth_pwd_out = 16898; acme$_min_query_out = 17408; (* QUERY items *) CONST acme$_query_data = 17408; (* Query function output data *) acme$_max_query_out = 17408; acme$_min_event_out = 17664; (* EVENT items *) CONST acme$_event_data_out = 17664; (* Event function output data *) acme$_max_event_out = 17664; (* *) (* Output item codes subject to VTF-7 <-> UCS conversion *) (* *) CONST acme$_min_gen_out_ucs = 24832; (* Generic items *) CONST acme$_server_name_out = 24832; (* ACME relative server name *) acme$_max_gen_out_ucs = 24832; acme$_min_auth_pwd_out_ucs = 25088; (* AUTHENTICATE_PRINCIPAL/CHANGE_PASSWORD items *) CONST acme$_authenticating_doi_name = 25088; (* Name of DOI accepting principal *) acme$_mapped_vms_username = 25089; (* Resultant VMS Username *) acme$_mapping_acme_name = 25090; (* Name of ACME mapping principal *) acme$_principal_name_out = 25091; (* Processed principal name *) acme$_max_auth_pwd_out_ucs = 25091; (* *) (* Logon (Job) Type Values *) (* *) CONST acme$k_network = 1; acme$k_batch = 2; acme$k_local = 3; acme$k_dialup = 4; acme$k_remote = 5; (*+ *) (* *) (* Revision Level *) (* *) (* Revision level is a 16-bit unsigned value, encoded as follows: *) (* *) (* 1 *) (* 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^.............^ ^.............^ *) (* | | | | *) (* | | +-------------+-- Bit [7:0] = revision minor id *) (* | | *) (* +-------------+------------------ Bit [15:8] = revision major id *) (* *) (*- *) CONST acmerevlvl$k_minor_id_bitpos = 0; acmerevlvl$k_major_id_bitpos = 8; TYPE acmerevlvl$TYPE = RECORD CASE INTEGER OF 1: (acmerevlvl$r_fill_30_ : [BYTE(2)] RECORD END; ); 2: (acmerevlvl$w_revision_level : [POS(0)] $UWORD; (* Composite field *) ); 3: (); 4: (acmerevlvl$b_minor_id : [POS(0)] $UBYTE; (* Revision level minor id *) acmerevlvl$b_major_id : [POS(8)] $UBYTE; (* Revision level major id *) ) END; CONST acmerevlvl$k_length = 2; (*+ *) (* *) (* Authentication Mechanism *) (* *) (* Authentication mechanism is a 16-bit unsigned value, encoded as follows: *) (* *) (* 3 2 2 1 1 *) (* 1 4 3 6 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^.............................^ ^ ^...........................^ *) (* | | | | | *) (* | | | +---------------------------+-- Bit [14:0] = authentication mechanism *) (* | | | *) (* | | +-------------------------------- Bit [15] = 0 ==> standard mechanism *) (* | | 1 ==> vendor specific mechanism *) (* | | *) (* +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code *) (* *) (*- *) (* *) (* Standard mechanism types *) (* *) CONST acmemech$k_password = 1; (* Username-Password *) acmemech$k_challenge_response = 2; (* Challenge-Response *) acmemech$m_mechanism_type = 32767; acmemech$m_facility_specific = 32768; TYPE acmemech$TYPE = RECORD CASE INTEGER OF 1: (acmemech$r_fill_32_ : [BYTE(2)] RECORD END; acmemech$w_facility : $UWORD; (* Vendor's assigned facility code *) ); 2: (acmemech$w_mechanism : [POS(0)] $UWORD; (* Composite field *) ); 3: (); 4: (acmemech$v_mechanism_type : [POS(0)] $BIT15; (* Authentication mechanism *) acmemech$v_facility_specific : [POS(15)] $BOOL; (* 0 ==> standard mechanism *) (* 1 ==> facility specific mechanism *) ) END; CONST acmemech$k_length = 4; (*+ *) (* *) (* Remote Host Address Type *) (* *) (* Remote host address type is a 16-bit unsigned value, encoded as follows: *) (* *) (* 3 2 2 1 1 *) (* 1 4 3 6 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^.............................^ ^ ^...........................^ *) (* | | | | | *) (* | | | +---------------------------+-- Bit [14:0] = network protocol (address format) *) (* | | | *) (* | | +-------------------------------- Bit [15] = 0 ==> standard protocol *) (* | | 1 ==> vendor specific protocol *) (* | | *) (* +-----------------------------+---------------------------------- Bit [31:16] = vendor's facility code *) (* *) (*- *) (* *) (* Standard protocol types *) (* *) CONST acmehat$k_decnet_iv = 1; (* DECnet Phase IV *) acmehat$k_decnet_osi = 2; (* DECnet OSI *) acmehat$k_ip_v4 = 3; (* Internet Protocol V4 *) acmehat$k_ip_v6 = 4; (* Internet Protocol V6 *) acmehat$m_protocol_type = 32767; acmehat$m_facility_specific = 32768; TYPE acmehat$TYPE = RECORD CASE INTEGER OF 1: (acmehat$r_fill_34_ : [BYTE(2)] RECORD END; acmehat$w_facility : $UWORD; (* Vendor's assigned facility code *) ); 2: (acmehat$w_protocol : [POS(0)] $UWORD; (* Composite field *) ); 3: (); 4: (acmehat$v_protocol_type : [POS(0)] $BIT15; (* Network protocol/address format *) acmehat$v_facility_specific : [POS(15)] $BOOL; (* 0 ==> standard protocol *) (* 1 ==> facility specific protocol *) ) END; CONST acmehat$k_length = 4; (*+ *) (* *) (* Password change request control flags *) (* *) (*- *) CONST acmepwdflg$k_system = 0; acmepwdflg$m_system = 1; acmepwdflg$k_password_1 = 1; acmepwdflg$m_password_1 = 2; acmepwdflg$k_password_2 = 2; acmepwdflg$m_password_2 = 4; acmepwdflg$k_max_flags = 3; acmepwdflg$k_specified = 31; acmepwdflg$m_specified = -2147483648; acmepwdflg$m_valid_flags = 7; acmepwdflg$m_password_flags = 2147483647; TYPE acmepwdflg$TYPE = RECORD CASE INTEGER OF 1: (acmepwdflg$r_overlay : [BYTE(4)] RECORD END; ); 2: (); 3: (acmepwdflg$l_flags_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: (); 5: (acmepwdflg$v_system : [POS(0)] $BOOL; (* Request system password change *) acmepwdflg$v_password_1 : [POS(1)] $BOOL; (* Request password 1 change *) acmepwdflg$v_password_2 : [POS(2)] $BOOL; (* Request password 2 change *) acmepwdflg$v_specified : [POS(31)] $BOOL; (* Used internally by the service *) (* to indicate flags reflect caller *) (* specified NEW_PASSWORD_FLAGS item *) (* Caller's setting is ignored *) ); 6: (acmepwdflg$v_valid_flags : [POS(0)] $BIT3; (* Currently defined flags *) ); 7: (acmepwdflg$v_password_flags : [POS(0)] $BIT31; (* Non-reserved flags *) ) END; CONST acmepwdflg$k_length = 4; (*+ *) (* *) (* $ACM Item Set Message Category *) (* *) (* Message Categories are 16-bit unsigned values, encoded as follows: *) (* *) (* 1 *) (* 5 8 7 0 *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* | | | | | | | | | | | | | | | | | *) (* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ *) (* ^ ^ ^ ^ *) (* | | | | *) (* | | +-------------------------+-- Bit [13:0] = message type *) (* | | *) (* | +------------------------------ Bit [14] = 0 ==> not subject to VTF-7 <-> UCS conversion *) (* | = 1 ==> subject to VTF-7 <-> UCS conversion *) (* | *) (* +-------------------------------- Bit [15] = 0 ==> common item *) (* 1 ==> ACME specific item *) (* *) (*- *) CONST acmemc$m_type = 16383; acmemc$m_ucs = 16384; acmemc$m_acme_specific = 32768; TYPE acmemc$TYPE = RECORD CASE INTEGER OF 1: (acmemc$r_fill_38_ : [BYTE(2)] RECORD END; ); 2: (acmemc$w_msg_code : [POS(0)] $UWORD; (* Composite field *) ); 3: (); 4: (acmemc$v_type : [POS(0)] $BIT14; (* Ranged value *) acmemc$v_ucs : [POS(14)] $BOOL; (* 0 ==> not subject to VTF-7 <-> UCS conversion *) (* 1 ==> subject to VTF-7 <-> UCS conversion *) acmemc$v_acme_specific : [POS(15)] $BOOL; (* 0 ==> common category *) (* 1 ==> ACME specific category *) ) END; CONST acmemc$k_length = 2; (* *) (* Generic output message categories *) (* *) (* These are all subject to UCS conversion *) (* *) CONST acmemc$k_min_gen_msg = 16384; acmemc$k_general = 16384; (* General text *) acmemc$k_header = 16385; (* Header text *) acmemc$k_trailer = 16386; (* Trailer text *) acmemc$k_selection = 16387; (* Acceptable choices *) acmemc$k_dialogue_alert = 16388; (* Alert (advisory) *) acmemc$k_max_gen_msg = 16388; (* *) (* LOGINOUT related output message categories *) (* *) (* These are all subject to UCS conversion *) (* *) CONST acmemc$k_min_logon_msg = 16640; acmemc$k_system_identification = 16640; (* System identification text *) acmemc$k_system_notices = 16641; (* System notices *) acmemc$k_welcome_notices = 16642; (* Welcome notices, *) acmemc$k_logon_notices = 16643; (* Logon notices *) acmemc$k_password_notices = 16644; (* Password notices *) acmemc$k_mail_notices = 16645; (* MAIL notices *) acmemc$k_max_logon_msg = 16645; (*+ *) (* *) (* ACMESB - ACM Status Block *) (* *) (*- *) TYPE acmesb$TYPE = RECORD acmesb$l_status : INTEGER; (* Primary status *) acmesb$l_secondary_status : INTEGER; (* Auxillary (privileged) status *) acmesb$l_acme_id : acmeid$TYPE; (* ID of ACME/DOI reporting specific status *) acmesb$l_acme_status : INTEGER; (* ACME/DOI specific status *) END; CONST acmesb$k_length = 16; (*+ *) (* *) (* ACMECB - ACM Communications Buffer *) (* *) (*- *) CONST acmedlogflg$m_input = 1; acmedlogflg$m_noecho = 2; acmedlogflg$m_specified = -2147483648; acmedlogflg$m_valid_flags = 3; acmedlogflg$m_dialogue_flags = 2147483647; TYPE acmedlogflg$TYPE = RECORD CASE INTEGER OF 1: (acmedlogflg$r_overlay : [BYTE(4)] RECORD END; ); 2: (); 3: (acmedlogflg$l_flags_struct : [POS(0)] UNSIGNED; (* Composite field *) ); 4: (); 5: (acmedlogflg$v_input : [POS(0)] $BOOL; (* Response required *) acmedlogflg$v_noecho : [POS(1)] $BOOL; (* When prompting, do not echo response *) acmedlogflg$v_specified : [POS(31)] $BOOL; (* Used internally by the service *) (* to indicate flags reflect caller *) (* specified DIALOGUE_SUPPORT item *) (* Caller's setting is ignored *) ); 6: (acmedlogflg$v_valid_flags : [POS(0)] $BIT2; (* Currently defined flags *) ); 7: (acmedlogflg$v_dialogue_flags : [POS(0)] $BIT31; (* Non-reserved flags *) ) END; CONST acmedlogflg$k_length = 4; TYPE acmeitmset$TYPE = RECORD CASE INTEGER OF 1: (acmeis$l_flags : acmedlogflg$TYPE; (* Item set processing flags *) acmeis$w_item_code : acmeic$TYPE; (* Item code reflecting the nature of *) (* information provided/requested *) acmeis$r_itm_msg_ctl : [BYTE(2)] RECORD END; acmeis$q_data_1 : $UQUAD; (* Data 1 (prompt text) *) acmeis$q_data_2 : $UQUAD; (* Data 2 (default response) *) ); 2: (acmeis$w_max_length : [POS(48)] $UWORD; (* Maximum length of an input data *) ); 3: (acmeis$w_msg_type : [POS(48)] acmemc$TYPE; (* Message category for output data *) ) END; CONST acmeis$k_length = 24; acmecb$k_minor_id_000 = 0; acmecb$k_minor_id = 0; acmecb$k_major_id_001 = 1; acmecb$k_major_id = 1; acmecb$k_revision = 256; TYPE acmecb$TYPE = RECORD acmecb$q_context_id : $UQUAD; (* ID of associated ACM Request Block *) acmecb$w_size : $UWORD; (* Structure size, in bytes *) acmecb$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *) acmecb$l_acme_id : acmeid$TYPE; (* ID of ACME/DOI requesting dialogue *) acmecb$l_item_set_count : UNSIGNED; (* Number of item set entries *) acmecb$ps_item_set : ^acmeitmset$TYPE ; (* Pointer to item set array *) END; CONST acmecb$k_length = 24; (*+ *) (* *) (* ACMELI - ACM Logon Information Block *) (* *) (*- *) CONST acmelgiflg$k_min_logon_flag = -1; acmelgiflg$k_new_mail_at_login = 0; acmelgiflg$m_new_mail_at_login = 1; acmelgiflg$k_password_changed = 1; acmelgiflg$m_password_changed = 2; acmelgiflg$k_password_expired = 2; acmelgiflg$m_password_expired = 4; acmelgiflg$k_password_warning = 3; acmelgiflg$m_password_warning = 8; acmelgiflg$k_password2_changed = 4; acmelgiflg$m_password2_changed = 16; acmelgiflg$k_password2_expired = 5; acmelgiflg$m_password2_expired = 32; acmelgiflg$k_password2_warning = 6; acmelgiflg$m_password2_warning = 64; acmelgiflg$k_max_logon_flag = 6; TYPE acmelgiflg$TYPE = RECORD CASE INTEGER OF 1: (acmelgiflg$r_fill_42_ : [BYTE(4)] RECORD END; ); 2: (acmelgiflg$l_logon_flags : [POS(0)] UNSIGNED; (* Composite field *) ); 3: (); 4: (acmelgiflg$v_new_mail_at_login : [POS(0)] $BOOL; (* User had new MAIL message(s) *) acmelgiflg$v_password_changed : [POS(1)] $BOOL; (* Primary password changed *) acmelgiflg$v_password_expired : [POS(2)] $BOOL; (* Primary password expired on login *) acmelgiflg$v_password_warning : [POS(3)] $BOOL; (* Primary password expiration imminent *) acmelgiflg$v_password2_changed : [POS(4)] $BOOL; (* Secondary password changed *) acmelgiflg$v_password2_expired : [POS(5)] $BOOL; (* Secondary password expired on login *) acmelgiflg$v_password2_warning : [POS(6)] $BOOL; (* Secondary password expiration imminent *) ) END; CONST acmelgiflg$k_length = 4; acmelivms$k_minor_id_000 = 0; acmelivms$k_minor_id = 0; acmelivms$k_major_id_001 = 1; acmelivms$k_major_id = 1; acmelivms$k_revision = 256; TYPE acmelivms$TYPE = RECORD acmelivms$l_acme_id : acmeid$TYPE; (* ID of ACME which reported logon information *) acmelivms$l_phase : UNSIGNED; (* Phase during which information was reported *) acmelivms$w_size : $UWORD; (* Structure size, in bytes *) acmelivms$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *) acmelivms$l_logfail_count : UNSIGNED; (* Number of failed logon attempts *) acmelivms$o_logon_int : UTCBLK$TYPE; (* Time of last interactive logon *) acmelivms$o_logon_nonint : UTCBLK$TYPE; (* Time of last non-interactive logon *) END; CONST acmelivms$k_length = 48; acmelidoi$k_minor_id_000 = 0; acmelidoi$k_minor_id = 0; acmelidoi$k_major_id_001 = 1; acmelidoi$k_major_id = 1; acmelidoi$k_revision = 256; TYPE acmelidoi$TYPE = RECORD acmelidoi$l_acme_id : acmeid$TYPE; (* ID of ACME which reported logon information *) acmelidoi$l_phase : UNSIGNED; (* Phase during which information was reported *) acmelidoi$w_size : $UWORD; (* Structure size, in bytes *) acmelidoi$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *) acmelidoi$l_logfail_count : UNSIGNED; (* Number of failed logon attempts *) acmelidoi$o_logon : UTCBLK$TYPE; (* Time of last logon *) acmelidoi$o_logon_int : UTCBLK$TYPE; (* Time of last interactive logon *) acmelidoi$o_logon_nonint : UTCBLK$TYPE; (* Time of last non-interactive logon *) acmelidoi$o_logfail : UTCBLK$TYPE; (* Time of last logon failure *) acmelidoi$o_logfail_int : UTCBLK$TYPE; (* Time of last interactive logon failure *) acmelidoi$o_logfail_nonint : UTCBLK$TYPE; (* Time of last non-interactive logon failure *) END; CONST acmelidoi$k_length = 112; acmeli$k_minor_id_000 = 0; acmeli$k_minor_id = 0; acmeli$k_major_id_001 = 1; acmeli$k_major_id = 1; acmeli$k_revision = 256; TYPE acmeli$TYPE = RECORD CASE INTEGER OF 1: (acmeli$r_li_doi : [BYTE(8)] RECORD END; acmeli$w_size : $UWORD; (* Structure size, in bytes *) acmeli$w_revision_level : acmerevlvl$TYPE; (* Structure revision level *) acmeli$l_logon_flags : acmelgiflg$TYPE; (* Logon flags *) acmeli$r_li_vms : [BYTE(8)] RECORD END; acmeli$r_logon_info_vms : acmelivms$TYPE; (* Native (OpenVMS) logon information *) acmeli$r_logon_info_doi : acmelidoi$TYPE; (* Non-native (non-OpenVMS) logon information *) ); 2: (acmeli$pq_logon_info_doi64 : [POS(0)] $QUAD; (* Non-native (non-OpenVMS) logon information *) acmeli$pq_logon_info_vms64 : [POS(128)] $QUAD; (* Native (OpenVMS) logon information *) ); 3: (); 4: (acmeli$ps_logon_info_doi32 : [POS(0)] ^acmelidoi$TYPE ; (* Non-native (non-OpenVMS) logon information *) acmeli$l_logon_info_doi32se : [POS(32)] UNSIGNED; (* Sign extension field *) acmeli$ps_logon_info_vms32 : [POS(128)] ^acmelivms$TYPE ; (* Native (OpenVMS) logon information *) acmeli$l_logon_info_vms32se : [POS(160)] UNSIGNED; (* Sign extension field *) ) END; CONST acmeli$k_length = 184; acme$k_query_revision_level = 1; (* Service revision level *) acme$k_query_acme_count = 2; (* Number of registered agents *) acme$k_query_acme_id = 3; (* Specify/report agent id *) acme$k_query_acme_name = 4; (* Specify/reprot agent name *) acme$k_service_revision_001_000 = 256; (* *) (* Pre-$ACM definitions... *) (* *) (* Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W] *) (* system services. *) (* *) (* *) (* $LOGON[W] function codes. *) (* *) CONST ACME$_MAP_TO_USERNAME = 1; (* Map userid to username *) ACME$_VERIFY_PASSWORD_ONLY = 2; (* Authenticate password *) ACME$_MAX_FUNCTION_CODE = 3; (* maximum legal function code + 1 *) (* *) (* Item codes. Codes specific to a particular service are noted: *) (* *) (* $AU = $AUTHENTICATE[W] *) (* $LO = $LOGON[W] *) (* $SP = $SET_PASSWORD[W] *) (* *) CONST ACME$_DOMAIN = 2; (* Authentication domain *) ACME$_USERID = 3; (* User ID *) ACME$_PASSWORD = 4; (* Single password *) ACME$_PASSWORD_LIST = 5; (* Password list *) ACME$_NEW_PASSWORD = 6; (* New password ($SP) *) ACME$_OUTPUT_VMS_USERNAME = 7; (* Mapped OpenVMS username ($LO) *) ACME$_NOAUTHENTICATION = 8; (* No password authentication ($SP) *) ACME$_OVERRIDE_POLICY = 9; (* Override password policy ($SP) *) ACME$_SYNCHRONIZE = 10; (* Set password in all domains ($SP) *) ACME$_REASON_CODE = 11; (* ACME-specific reason code *) ACME$_VALIDATE_ONLY = 12; (* Validate user can login ($LO) *) ACME$_UAF_RECORD_LOCKED = 13; (* Advisory that UAF record is locked ($LO) *) ACME$_RESERVED_ITEM_1 = 14; (* Reserved 1 *) ACME$_RESERVED_ITEM_2 = 15; (* Reserved 2 *) ACME$_MAX_ITEM_CODE = 16; (* maximum legal item code + 1 *) (* *) (* Structures and constants. *) (* *) CONST ACME$C_MAJOR_VERSION = 1; (* Major ACME version *) ACME$C_MINOR_VERSION = 0; (* Minor ACME version *) ACME$S_MAX_DOMAIN = 256; (* Maximum domain length *) ACME$S_MAX_USERID = 256; (* Maximum userid length *) ACME$S_MAX_PASSWORD = 256; (* Maximum password length *) (* *) (* The PASSWORD_LIST item code requires a list of password items with each *) (* item specified by a PWDITM structure definition. The list is terminated *) (* by a longword zero. *) (* *) TYPE ACME$R_PWDITM = RECORD CASE INTEGER OF 1: (ACME$R_PWDTRM : [BYTE(4)] RECORD END; ACME$A_OLDPWD : $DEFPTR; (* Descriptor address for old password *) ACME$A_NEWPWD : $DEFPTR; (* Descriptor address for new password *) ); 2: (ACME$L_TERMINATOR : [POS(0)] UNSIGNED; (* Termination longword *) ); 3: (); 4: (ACME$W_PWDNUM : [POS(0)] $UWORD; (* Password number (1=primary, etc.) *) ACME$W_RSRVD1 : [POS(16)] $UWORD; (* reserved for future use, MBZ *) ) END; (* *) (* Maximum password number to be used in password list *) (* *) CONST ACME$C_MAX_PASSWORD_NUM = 8; (*** MODULE $acmevmsdef IDENT X-11 ***) (* *) (* Item code biasing factors *) (* *) (* Backward-compatibility *) (* Not for initial call *) (* Contemporary supported *) (* $CREPRC argument items *) (* UAI data *) (* *) (* ACME-specific output data types *) (* *) (* These codes are provided by the VMS ACME for return *) (* 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. *) (* *) (* These ACME-specific values are provided only where the caller *) (* is one the VMS ACME knows can handle these particular binary *) (* codes, i.e. LOGINOUT. *) (* *) (* These data types are defined exclusively to provide backward compatibility *) (* with interface methods used prior to the introduction of SYS$ACM[W] by *) (* TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces. *) (* They will not be provided to other clients which call SYS$ACM[W]. *) (* *) CONST acmevms$k_min_msg_type = 32768; acmevms$k_old_decw_pwd_exp_1 = 32768; (* Binary expiration warning *) acmevms$k_old_decw_pwd_exp_2 = 32769; (* Binary expiration warning *) acmevms$k_old_decw_pwd_quality = 32770; (* Binary password quality status *) acmevms$k_old_sysuaf_070 = 32771; (* Authorization Record *) acmevms$k_old_auth_flags = 32772; (* Password requirement flags *) acmevms$k_old_terminal_connect = 32773; (* UIC, Username and Account *) acmevms$k_max_msg_type = 32773; (* *) (* ACME-specific Item Codes for the VMS ACME *) (* *) (* Items with these codes from the callr of SYS$ACM[W] will *) (* be provided to the VMS ACME (exclusively) if they follow *) (* an instance of General Item Code ACME_TARGET_ACME_ID which *) (* specifies the VMS ACME. *) (* *) (* ACME-specific Item Codes have the high bit (15) set, whereas *) (* General Item Codes have it clear. *) (* *) (* *) (* Input Item Codes *) (* *) (* While SYS$ACM does not specify semantics for the handling *) (* 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 *) (* *) (* These codes are defined exclusively to provide backward compatibility *) (* with interface methods used prior to the introduction of SYS$ACM[W] by *) (* TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces. *) (* They will not be honored from other clients which call SYS$ACM[W]. *) (* *) CONST acmevms$_min_old_in = 32768; acmevms$_old_decwindows_flag = 32768; (* old DECwindows authentication mechanism *) acmevms$_old_hashed_password_1 = 32769; (* old ARGUS authentication mechanism *) acmevms$_old_hashed_password_2 = 32770; (* old ARGUS authentication mechanism *) acmevms$_old_lgi_phase = 32771; (* old LGI-callout authentication mechanism *) acmevms$_old_lgi_status = 32772; (* old LGI-callout authentication mechanism *) acmevms$_max_old_in = 32772; (* *) (* Solicited Input Item Codes *) (* *) (* These codes support historic LOGINOUT behavour and in addition to *) (* being retricted to LOGINOUT are not honored on initial calls from *) (* LOGINOUT. They can only be provided in response to an Input Item Set. *) (* *) CONST acmevms$_min_solicited_in = 33024; acmevms$_loginout_cli_flags = 33024; (* LOGINOUT received these qualifiers *) acmevms$_old_connection_flag = 33025; (* LOGINOUT did a reconnection *) acmevms$_old_process_name = 33026; (* the process name after LOGINOUT $SETPRN *) acmevms$_max_solicited_in = 33026; (* *) (* General Input Items *) (* *) (* These non-converting input item codes are permanent features *) (* of the VMS ACME, although some require particular privileges. *) (* *) (* LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, although *) (* other clients can achieve the same results using other Item Codes. *) (* The reason LOGINOUT_CREPRC_FLAGS exists is to minimize coding *) (* changes for the transition of LOGINOUT to using SYS$ACM[W]. *) (* *) CONST acmevms$_min_general_in = 33280; acmevms$_autologin_allowed_flag = 33280; (* autologin is allowed for this request *) acmevms$_spare_1 = 33281; (* originally default_principal_flag *) acmevms$_genpwd_count = 33282; (* desired number of generated passwords *) acmevms$_genpwd_mandatory_flag = 33283; (* generated password must be chosen *) acmevms$_genpwd_maxlength = 33284; (* maximum length of generated password *) acmevms$_genpwd_minlength = 33285; (* minimum length of generated password *) acmevms$_loginout_creprc_flags = 33286; (* CTL$GL_CREPRC_FLAGS from LOGINOUT *) acmevms$_requestor_pid = 33287; (* PID of client process (make spare after Kestrel) *) acmevms$_preauthentication_flag = 33288; (* preauthenticated request *) acmevms$_uses_system_password = 33289; (* this connection uses system passwords *) acmevms$_requestor_uic = 33290; (* UIC of client process (make spare after Kestrel) *) acmevms$_max_general_in = 33290; (* *) (* Input item codes subject to VTF-7 <-> UCS conversion *) (* *) CONST acmevms$_min_general_in_ucs = 41472; acmevms$_net_proxy = 41472; (* network proxy username string from LOGINOUT *) acmevms$_requestor_username = 41473; (* Username of client process (make spare after Kestrel) *) acmevms$_confirm_password_sys = 41474; (* Reenter New System Password *) acmevms$_confirm_password_1 = 41475; (* Reenter New Primary Password *) acmevms$_confirm_password_2 = 41476; (* Reenter New Secondary Password *) acmevms$_max_general_in_ucs = 41476; (* *) (* Output Item Codes *) (* *) (* While SYS$ACM does not specify semantics for the handling *) (* of multiple output item codes of the same value, the semantics *) (* of the VMS ACME are uniform for all output item codes -- *) (* all such codes are honored independently. *) (* *) (* *) (* Output item codes not subject to VTF-7 <-> UCS conversion *) (* *) (* *) (* General Output Items *) (* *) (* These non-converting output item codes are permanent features *) (* of the VMS ACME. *) (* *) CONST acmevms$_min_general_out = 49664; acmevms$_class_days = 49664; (* primary days for the scheduler class *) acmevms$_class_flags = 49665; (* flags for the scheduler class *) acmevms$_class_number = 49666; (* number of the scheduler class *) acmevms$_class_primeday_limit = 49667; (* hourly quantum percentage on primary day *) acmevms$_class_seconday_limit = 49668; (* hourly quantum percentage on secondary day *) acmevms$_max_general_out = 49668; (* *) (* CREPRC-based output items *) (* *) (* These Output Item Codes provide information in a format suitable *) (* for passing to the $CREPRC System service, freeing callers of any *) (* need to track the introduction of new VMS process quotas. *) (* *) CONST acmevms$_min_creprc_out = 49920; acmevms$_creprc_baspri = 49920; (* Process base priority *) acmevms$_creprc_image = 49921; (* Image name (LOGINOUT) *) acmevms$_creprc_prcnam = 49922; (* Process name (blank) *) acmevms$_creprc_prvadr = 49923; (* Process privilege *) acmevms$_creprc_quota = 49924; (* Process quota list *) acmevms$_creprc_uic = 49925; (* UIC for detached process *) acmevms$_max_creprc_out = 49925; (* *) (* UAI-based output items *) (* *) (* These codes provide the same information returned by $GETUAI, *) (* but synchronized with the UAI data as used for authentication. *) (* *) (* Correspondence between these codes and those from UAIDEF is *) (* tested in the private part of module STARLET_WE_USE_ by arrays *) (* ENSURE_UAI_NO_BIGGER_THAN_ACMEVMS_UAI and also by the array *) (* ENSURE_ACMEVMS_UAI_NO_BIGGER_THAN_UAI. *) (* *) (* The UAI_BASE constant defined below, added to normal UAI$_ codes *) (* used for the $SETUAI and $GETUAI system services will produce *) (* the following values: *) (* *) CONST acmevms$_min_uai_out = 50176; acmevms$_uai_rtype = 50176; (* UAF record type *) acmevms$_uai_version = 50177; (* UAF format version *) acmevms$_uai_usrdatoff = 50178; (* offset of counted string of user data *) acmevms$_uai_username = 50179; (* username *) acmevms$_uai_username_tag = 50180; (* tag to differentiate records *) acmevms$_uai_uic = 50181; (* user ID code *) acmevms$_uai_mem = 50182; (* member subfield *) acmevms$_uai_grp = 50183; (* group subfield *) acmevms$_uai_sub_id = 50184; (* user sub-identifier *) acmevms$_uai_parent_id = 50185; (* identifier of owner of this account *) acmevms$_uai_account = 50186; (* account name *) acmevms$_uai_owner = 50187; (* owner's name *) acmevms$_uai_defdev = 50188; (* default device *) acmevms$_uai_defdir = 50189; (* default directory *) acmevms$_uai_lgicmd = 50190; (* login command file *) acmevms$_uai_defcli = 50191; (* default command interpreter *) acmevms$_uai_clitables = 50192; (* user CLI tables *) acmevms$_uai_pwd = 50193; (* hashed password *) acmevms$_uai_pwd2 = 50194; (* second password *) acmevms$_uai_logfails = 50195; (* count of login failures *) acmevms$_uai_salt = 50196; (* random password salt *) acmevms$_uai_encrypt = 50197; (* primary password hash algorithm *) acmevms$_uai_encrypt2 = 50198; (* secondary password hash algorithm *) acmevms$_uai_pwd_length = 50199; (* minimum password length *) acmevms$_uai_expiration = 50200; (* expiration date for account *) acmevms$_uai_pwd_lifetime = 50201; (* password lifetime *) acmevms$_uai_pwd_date = 50202; (* date of password change *) acmevms$_uai_pwd2_date = 50203; (* date of 2nd password change *) acmevms$_uai_lastlogin_i = 50204; (* date of last interactive login *) acmevms$_uai_lastlogin_n = 50205; (* date of last non-interactive login *) acmevms$_uai_priv = 50206; (* process privilege vector *) acmevms$_uai_def_priv = 50207; (* default process privileges *) acmevms$_uai_min_class = 50208; (* minimum security class *) acmevms$_uai_max_class = 50209; (* maximum security class *) acmevms$_uai_flags = 50210; (* user flags longword *) acmevms$_uai_network_access_p = 50211; (* hourly network access, primary *) acmevms$_uai_network_access_s = 50212; (* hourly network access, secondary *) acmevms$_uai_batch_access_p = 50213; (* hourly batch access, primary *) acmevms$_uai_batch_access_s = 50214; (* hourly batch access, secondary *) acmevms$_uai_local_access_p = 50215; (* hourly local access, primary *) acmevms$_uai_local_access_s = 50216; (* hourly local access, secondary *) acmevms$_uai_dialup_access_p = 50217; (* hourly dialup access, primary *) acmevms$_uai_dialup_access_s = 50218; (* hourly dialup access, secondary *) acmevms$_uai_remote_access_p = 50219; (* hourly remote access, primary *) acmevms$_uai_remote_access_s = 50220; (* hourly remote access, secondary *) acmevms$_uai_primedays = 50221; (* bits representing primary days *) acmevms$_uai_pri = 50222; (* base process priority *) acmevms$_uai_quepri = 50223; (* maximum job queuing priority *) acmevms$_uai_maxjobs = 50224; (* maximum jobs for UIC allowed *) acmevms$_uai_maxacctjobs = 50225; (* maximum jobs for account allowed *) acmevms$_uai_maxdetach = 50226; (* maximum detached processes for UIC *) acmevms$_uai_prccnt = 50227; (* subprocess creation limit *) acmevms$_uai_biolm = 50228; (* buffered I/O limit *) acmevms$_uai_diolm = 50229; (* direct I/O limit *) acmevms$_uai_tqcnt = 50230; (* timer queue entry limit *) acmevms$_uai_astlm = 50231; (* AST queue limit *) acmevms$_uai_enqlm = 50232; (* enqueue limit *) acmevms$_uai_fillm = 50233; (* open file limit *) acmevms$_uai_shrfillm = 50234; (* shared file limit *) acmevms$_uai_wsquota = 50235; (* working set size quota *) acmevms$_uai_dfwscnt = 50236; (* default working set size *) acmevms$_uai_wsextent = 50237; (* working set size limit *) acmevms$_uai_pgflquota = 50238; (* page file quota *) acmevms$_uai_cputim = 50239; (* CPU time quota *) acmevms$_uai_bytlm = 50240; (* buffered I/O byte count limit *) acmevms$_uai_pbytlm = 50241; (* paged buffer I/O byte count limit *) acmevms$_uai_jtquota = 50242; (* job-wide logical name table creation quota *) acmevms$_uai_proxy_lim = 50243; (* number of proxies user can grant *) acmevms$_uai_proxies = 50244; (* number of proxies granted *) acmevms$_uai_account_lim = 50245; (* number of sub-accounts allowed *) acmevms$_uai_accounts = 50246; (* number of sub-accounts in use *) acmevms$_uai_user_data = 50247; (* user data area *) (* Next two codes not supported for output *) CONST acmevms$_uai_password = 50248; (* plaintext primary password *) acmevms$_uai_password2 = 50249; (* plaintext secondary password *) (* Previous two codes not supported for output *) CONST acmevms$_uai_def_class = 50250; (* default security classification *) acmevms$_uai_audit_flags = 50251; (* audit flags to be used when changing data *) acmevms$_max_uai_out = 50251; (* *) (* Output item codes subject to VTF-7 <-> UCS conversion *) (* *) CONST acmevms$_min_general_out_ucs = 57856; acmevms$_class_name = 57856; (* name of the scheduler class *) acmevms$_max_general_out_ucs = 57856; (*+ *) (* *) (* Bit mask types *) (* *) (*- *) (* *) (* Flags indicating CLI qualifiers were supplied *) (* *) (* Most of these are passed to the VMS ACME to possibly *) (* trigger (audited) rejection of the login attempt. *) (* *) CONST acmevms$m_disk = 1; acmevms$m_cli = 2; acmevms$m_tables = 4; acmevms$m_command = 8; acmevms$m_connect = 16; acmevms$m_new_password = 32; acmevms$m_local_password = 64; TYPE cli_flags$TYPE = RECORD acmevms$v_disk : [POS(0)] $BOOL; (* /DISK= *) acmevms$v_cli : [POS(1)] $BOOL; (* /CLI= *) acmevms$v_tables : [POS(2)] $BOOL; (* /TABLES= *) acmevms$v_command : [POS(3)] $BOOL; (* /COMMAND= *) acmevms$v_connect : [POS(4)] $BOOL; (* /CONNECT[=] *) acmevms$v_new_password : [POS(5)] $BOOL; (* /NEW_PASSWORD *) acmevms$v_local_password : [POS(6)] $BOOL; (* /LOCAL_PASSWORD *) acmevms$v_cli_flags_fill_1 : [POS(7)] $BIT25; END; CONST acmevms$k_length = 4; (*+ *) (* *) (* Miscellaneous constants *) (* *) (*- *) (* Authentication mechanism for TNT$SERVER *) CONST acmevms$k_auth_mech_argus = 13860864; (* Only for TNT$SERVER *) (* Base to which UAI$_ codes can be added for use in SYS$ACM[W] *) CONST acmevms$k_uai_base = 50175; (* Item Code Base *) (* Maximum length (in characters) of a Mapped VMS Username *) CONST acmevms$k_maxchar_vms_username = 32; (* in characters *) (*** MODULE $ACRDEF ***) (*+ *) (* ACRDEF - ACCOUNTING RECORD DEFINITIONS *) (* *) (*********************************************************************** *) (* NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND * *) (* "ACR$K_CURVER" EQUATED TO IT. * *) (*********************************************************************** *) (* *) (*- *) (* RECORD/PACKET VERSIONS (ACR$V_VERSION) *) CONST ACR$K_VERSION2 = 0; (* VMS VERSION 2 ACCOUNTING FORMAT *) ACR$K_VERSION3T = 1; (* VMS VERSION 3 FIELD TEST *) ACR$K_VERSION3 = 2; (* VMS VERSION 3 ACCOUNTING FORMAT *) ACR$K_VERSION4 = 3; (* VMS VERSION 4 ACCOUNTING FORMAT *) ACR$K_CURVER = 3; (* CURRENT FORMAT VERSION NUMBER *) ACR$M_PACKET = 1; ACR$M_TYPE = 254; ACR$M_SUBTYPE = 3840; ACR$M_VERSION = 28672; ACR$M_CUSTOMER = 32768; ACR$K_PRCDEL = 1; (* PROCESS DELETE *) ACR$K_PRCPUR = 2; (* PROCESS PURGE *) ACR$K_IMGDEL = 3; (* IMAGE DELETE *) ACR$K_IMGPUR = 4; (* IMAGE PURGE *) ACR$K_SYSINIT = 5; (* SYSTEM INITIALIZATION *) ACR$K_SETTIME = 6; (* SET SYSTEM TIME *) ACR$K_LOGFAIL = 7; (* LOGIN VALIDATION FAILURE *) ACR$K_PRINT = 8; (* PRINT JOB *) ACR$K_USER = 9; (* USER SUPPLIED DATA *) ACR$K_ENABLE = 10; (* ACC. MANG. FUNCTION ENABLE *) ACR$K_DISABLE = 11; (* ACC. MANG. FUNCTION DISABLE *) ACR$K_ALTACM = 12; (* DECLARE ALTERNATE ACC. MANG. *) ACR$K_FILE_FL = 13; (* ACCOUNTING FILE - FORWARD LINK *) ACR$K_FILE_BL = 14; (* ACCOUNTING FILE - BACKWARD LINK *) (* RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS *) CONST ACR$K_INTERACTIVE = 1; (* INTERACTIVE PROCESS *) ACR$K_SUBPROCESS = 2; (* SUBPROCESS *) ACR$K_DETACHED = 3; (* DETACHED PROCESS *) ACR$K_BATCH = 4; (* BATCH PROCESS *) ACR$K_NETWORK = 5; (* NETWORK PROCESS *) (* PACKET TYPE (ACR$V_TYPE) CONSTANTS *) CONST ACR$K_ID = 1; (* IDENTIFICATION PACKET *) ACR$K_RESOURCE = 2; (* RESOURCE USAGE PACKET *) ACR$K_IMAGENAME = 3; (* IMAGENAME PACKET *) ACR$K_FILENAME = 4; (* FILENAME PACKET *) ACR$K_USER_DATA = 5; (* USER DATA PACKET *) TYPE ACR$TYPE = RECORD CASE INTEGER OF 1: (ACR$R_TYPE_OVERLAY : [BYTE(2)] RECORD END; ACR$W_LENGTH : $UWORD; (* RECORD OR PACKET LENGTH *) (* *) (* RECORD HEADER *) (* *) ); 2: (ACR$W_TYPE : [POS(0)] $UWORD; (* RECORD/PACKET TYPE *) ); 3: (); 4: (ACR$V_PACKET : [POS(0)] $BOOL; (* RECORD(0)/PACKET(1) *) ACR$V_TYPE : [POS(1)] $BIT7; (* RECORD/PACKET TYPE *) ACR$V_SUBTYPE : [POS(8)] $BIT4; (* RECORD/PACKET SUBTYPE *) ACR$V_VERSION : [POS(12)] $BIT3; (* RECORD/PACKET VERSION NUMBER *) ACR$V_CUSTOMER : [POS(15)] $BOOL; (* DIGITAL(0)/CUSTOMER(1) *) (* RECORD TYPE (ACR$V_TYPE) CONSTANTS *) ) END; CONST ACR$K_HDRLEN = 12; (* RECORD HEADER LENGTH *) ACR$C_HDRLEN = 12; (* RECORD HEADER LENGTH *) (* *) TYPE ACR1$TYPE = RECORD ACRDEF$$_FILL_2 : ARRAY [1..4] OF $BYTE; ACR$Q_SYSTIME : $UQUAD; (* EVENT SYSTEM TIME *) (* IDENTIFICATION PACKET *) (* *) END; CONST ACR$M_FULLNAME = 1; ACR$M_UIDGID = 2; ACR$M_FILL_1 = 252; ACR$K_IDVAR = 58; (* BEGINNING OF VARIABLE STORAGE AREA *) ACR$C_IDVAR = 58; (* BEGINNING OF VARIABLE STORAGE AREA *) (* *) TYPE ACR2$TYPE = RECORD CASE INTEGER OF 1: (ACRDEF$$_FILL_3 : ARRAY [1..4] OF $BYTE; ACR$L_PID : UNSIGNED; (* PROCESS ID *) ACR$L_OWNER : UNSIGNED; (* OWNER PROCES ID *) ACR$R_UIC_OVERLAY : [BYTE(4)] RECORD END; ACR$Q_PRIV : $UQUAD; (* PROCESS PRIV *) ACR$B_PRI : $UBYTE; (* PROCESS PRIORITY *) ACR$R_IDFLGS_OVERLAY : [BYTE(1)] RECORD END; ACR$W_USERNAME : $UWORD; (* USERNAME OFFSET *) ACR$W_ACCOUNT : $UWORD; (* ACCOUNT NAME OFFSET *) ACR$W_NODENAME : $UWORD; (* NODE NAME OFFSET *) ACR$W_TERMINAL : $UWORD; (* TERMINAL NAME OFFSET *) ACR$W_JOBNAME : $UWORD; (* JOB NAME OFFSET *) ACR$L_JOBID : UNSIGNED; (* JOB ID *) ACR$W_QUEUE : $UWORD; (* QUEUE NAME OFFSET *) ACR$W_NODEADDR : $UWORD; (* REMOTE NODE ADDRESS *) ACR$W_REMOTEID : $UWORD; (* REMOTE ID OFFSET *) ACR$W_FULLADDR : $UWORD; (* REMOTE PHASE V ADDRESS *) ACR$W_FULLNAME : $UWORD; (* REMOTE PHASE V FULLNAME *) ACR$L_POSIX_UID : UNSIGNED; (* POSIX UID *) ACR$L_POSIX_GID : UNSIGNED; (* POSIX GID *) (* RESOURCE PACKET *) (* *) ); 2: (ACR$L_UIC : [POS(96)] UNSIGNED; (* PROCESS UIC *) ACR$B_IDFLGS : [POS(200)] $UBYTE; (* FLAGS BIT MASK *) ); 3: (); 4: (ACR$W_MEM : [POS(96)] $UWORD; (* MEMBER UIC *) ACR$W_GRP : [POS(112)] $UWORD; (* GROUP UIC *) ACR$V_FULLNAME : [POS(200)] $BOOL; (* NOT PRESENT (0)/PRESENT(1) *) ACR$V_UIDGID : [POS(201)] $BOOL; (* NOT PRESENT (0)/PRESENT(1) *) ACR$V_FILL_1 : [POS(202)] $BIT6; (* SPARE BITS *) ) END; ACR3$TYPE = RECORD ACRDEF$$_FILL_4 : ARRAY [1..4] OF $BYTE; ACR$Q_LOGIN : $UQUAD; (* PROCESS/IMAGE START TIME *) ACR$L_STATUS : UNSIGNED; (* PROCESS/IMAGE FINAL STATUS *) ACR$L_IMGCNT : UNSIGNED; (* IMAGE EXECUTION COUNT/SEQUENCE NUMBER *) ACR$L_CPUTIME : UNSIGNED; (* PROCESS/IMAGE CPU TIME *) ACR$L_FAULTS : UNSIGNED; (* PROCESS/IMAGE PAGE FAULT COUNT *) ACR$L_FAULTIO : UNSIGNED; (* PROCESS/IMAGE PAGE FAULT I/O COUNT *) ACR$L_WSPEAK : UNSIGNED; (* PROCESS/IMAGE WORKING SET PEAK *) ACR$L_PAGEFL : UNSIGNED; (* PROCESS/IMAGE PEAK PAGE FILE USAGE *) ACR$L_DIOCNT : UNSIGNED; (* PROCESS/IMAGE DIRECT I/O COUNT *) ACR$L_BIOCNT : UNSIGNED; (* PROCESS/IMAGE BUFFERED I/O COUNT *) ACR$L_VOLUMES : UNSIGNED; (* PROCESS/IMAGE VOLUME MOUNT COUNT *) ACR$L_VP_CPUTIME : UNSIGNED; (* PROCESS/IMAGE VECTOR CPU TIME *) (* *) (* IMAGENAME PACKET *) (* *) END; ACR4$TYPE = RECORD ACRDEF$$_FILL_5 : ARRAY [1..4] OF $BYTE; ACR$T_IMAGENAME : PACKED ARRAY [1..256] OF CHAR; (* IMAGENAME *) (* *) (* PRINT RESOURCE PACKET *) (* *) END; ACR5$TYPE = RECORD ACRDEF$$_FILL_6 : ARRAY [1..4] OF $BYTE; ACR$L_PRINTSTS : UNSIGNED; (* JOB STATUS *) ACR$Q_QUETIME : $UQUAD; (* TIME JOB WAS QUEUED *) ACR$Q_BEGTIME : $UQUAD; (* TIME JOB WAS BEGUN *) ACR$L_SYMCPUTIM : UNSIGNED; (* SYMBIONT CPU TIME *) ACR$L_PAGECNT : UNSIGNED; (* TOTAL PAGES PRINTED *) ACR$L_QIOCNT : UNSIGNED; (* TOTAL QIOS ISSUED *) ACR$L_GETCNT : UNSIGNED; (* TOTAL GETS ISSUED *) (* *) (* FILENAME PACKET *) (* *) END; ACR6$TYPE = RECORD ACRDEF$$_FILL_7 : ARRAY [1..4] OF $BYTE; ACR$T_FILENAME : PACKED ARRAY [1..256] OF CHAR; (* FILENAME *) (* *) (* USER DATA PACKET *) (* *) END; ACR7$TYPE = RECORD ACRDEF$$_FILL_8 : ARRAY [1..4] OF $BYTE; ACR$T_USER_DATA : PACKED ARRAY [1..256] OF CHAR; (* USER DATA *) END; (*** MODULE $AFRDEF ***) CONST AFR$K_USER_LENGTH = 16; (* Length of user entry *) AFR$C_USER_LENGTH = 16; (* Length of user entry *) AFR$K_VMS_LENGTH = 24; (* Length of VMS entry *) AFR$C_VMS_LENGTH = 24; (* Length of VMS entry *) AFR$K_EXTENDED_LENGTH = 296; (* Extended length *) AFR$C_EXTENDED_LENGTH = 296; (* Extended length *) AFR$C_UNINITIALIZED = 0; AFR$C_BUFFERED = 1; AFR$C_EXCEPTION = 2; (* Values passed to start system service *) TYPE AFR$TYPE = RECORD CASE INTEGER OF 1: (AFR$R_PC_DATA_OVERLAY : [BYTE(8)] RECORD END; AFR$R_VA_DATA_OVERLAY : [BYTE(8)] RECORD END; AFR$R_RESERVED_OVERLAY : [BYTE(8)] RECORD END; AFR$T_IMAGE_NAME : PACKED ARRAY [1..256] OF CHAR; (* Image name *) AFR$T_USER_NAME : PACKED ARRAY [1..16] OF CHAR; (* User name *) ); 2: (AFR$Q_FAULT_PC : [POS(0)] $UQUAD; (* PC of alignment fault *) AFR$Q_FAULT_VA : [POS(64)] $UQUAD; (* Unaligned virtual address *) AFR$Q_RESERVED : [POS(128)] $UQUAD; (* Reserved for VMS *) ); 3: (AFR$R_PC_DATA_LONGWORDS : [POS(0), BYTE(8)] RECORD END; AFR$R_VA_DATA_LONGWORDS : [POS(64), BYTE(8)] RECORD END; AFR$R_RESERVED_LONGWORDS : [POS(128), BYTE(8)] RECORD END; ); 4: (AFR$L_FAULT_PC_L : [POS(0)] UNSIGNED; AFR$L_FAULT_PC_H : [POS(32)] UNSIGNED; AFR$L_FAULT_VA_L : [POS(64)] UNSIGNED; AFR$L_FAULT_VA_H : [POS(96)] UNSIGNED; AFR$L_RESERVED_L : [POS(128)] UNSIGNED; AFR$L_RESERVED_H : [POS(160)] UNSIGNED; ) END; CONST AFR$M_ENABLED = 1; AFR$M_TEMP_ENABLED = 2; AFR$M_PERM_ENABLED = 4; AFR$M_DISABLED = 0; AFR$M_USER_INFO = 8; TYPE AFRE$TYPE = RECORD AFR$V_ENABLED : [POS(0)] $BOOL; (* Enable bit *) AFR$V_TEMP_ENABLED : [POS(1)] $BOOL; (* TRUE if enabled image by image *) AFR$V_PERM_ENABLED : [POS(2)] $BOOL; (* TRUE if permanently enabled *) AFR$V_USER_INFO : [POS(3)] $BOOL; (* If set, user info is saved *) AFR$V_FILL_44_ : [POS(4)] $BIT4; END; CONST AME$M_KERNEL_MODE = 1; AME$M_EXEC_MODE = 2; AME$M_SUPER_MODE = 4; AME$M_USER_MODE = 8; AME$M_USER_VA = 16; AME$M_SYSTEM_VA = 32; AME$M_USER_PC = 64; AME$M_SYSTEM_PC = 128; AME$M_USER_VA_P0 = 256; AME$M_USER_VA_P1 = 512; AME$M_USER_VA_P2 = 1024; AME$C_SIZE = 4; (* Length in bytes for mask *) AME$K_SIZE = 4; (* Length in bytes for mask *) TYPE AME$TYPE = RECORD AME$V_KERNEL_MODE : [POS(0)] $BOOL; AME$V_EXEC_MODE : [POS(1)] $BOOL; AME$V_SUPER_MODE : [POS(2)] $BOOL; AME$V_USER_MODE : [POS(3)] $BOOL; AME$V_USER_VA : [POS(4)] $BOOL; AME$V_SYSTEM_VA : [POS(5)] $BOOL; AME$V_USER_PC : [POS(6)] $BOOL; AME$V_SYSTEM_PC : [POS(7)] $BOOL; AME$V_USER_VA_P0 : [POS(8)] $BOOL; AME$V_USER_VA_P1 : [POS(9)] $BOOL; AME$V_USER_VA_P2 : [POS(10)] $BOOL; AME$V_FILL_45_ : [POS(11)] $BIT5; END; (* *) (* AFLDEF defines which region a VA lies in *) (* *) CONST AFL$M_P0_VA = 1; AFL$M_P1_VA = 2; AFL$M_P2_VA = 4; AFL$M_S0S1_VA = 8; AFL$M_S2_VA = 16; AFL$M_PROCESS_VA = 32; AFL$M_SYSTEM_VA = 64; TYPE AFL$TYPE = RECORD CASE INTEGER OF (* Alignment fault location *) 1: (AFL$R_AFL_OVERLAY : [BYTE(4)] RECORD END; ); 2: (AFL$L_VA_LOC : [POS(0)] UNSIGNED; ); 3: (AFL$R_VA_LOC_BITDEFS : [POS(0), BYTE(1)] RECORD END; ); 4: (AFL$V_P0_VA : [POS(0)] $BOOL; (* Address is in P0 space *) AFL$V_P1_VA : [POS(1)] $BOOL; (* Address is in P1 space *) AFL$V_P2_VA : [POS(2)] $BOOL; (* Address is in P2 space *) AFL$V_S0S1_VA : [POS(3)] $BOOL; (* Address is in S0 or S1 space *) AFL$V_S2_VA : [POS(4)] $BOOL; (* Address is in S2 space *) AFL$V_PROCESS_VA : [POS(5)] $BOOL; (* Address is in P0,P1,or P2 (process space) *) AFL$V_SYSTEM_VA : [POS(6)] $BOOL; (* Address is in S0,S1,or S2 (system space) *) ) END; (*** MODULE $AGNDEF ***) (*+ *) (* $ASSIGN FLAGS bit definitions *) (*- *) CONST AGN$M_READONLY = 1; AGN$M_WRITEONLY = 2; AGN$M_CLONE = 4; TYPE AGN$TYPE = RECORD CASE INTEGER OF 1: (AGN$R_AGNDEF_BITS : [BYTE(4)] RECORD END; ); 2: (AGN$V_READONLY : [POS(0)] $BOOL; (* Channel to be assigned to device is READ ONLY. *) AGN$V_WRITEONLY : [POS(1)] $BOOL; (* Channel to be assigned to device is WRITE ONLY. *) AGN$V_CLONE : [POS(2)] $BOOL; (* Channel will be cloned by POSIX fork(). *) ) END; (*** MODULE $ALPHADEF ***) (* *) (* Not all of what you see here was built, shipped and/or announced. *) (* So-called Whitebox (Microsoft Windows-Only) systems are not listed. *) (* Various systems listed here are not supported by OpenVMS Alpha. *) (* *) CONST ALPHA$K_NOT_A_VAX = 1024; (* A pseudo-SMM sometimes seen *) ALPHA$K_MIN_ALPHA = 1024; (* The smallest architecturally-permitted Alpha SMM *) ALPHA$K_MIN_SMM = 1025; (* The smallest Alpha SMM *) ALPHA$K_ID_BASE = 1025; ALPHA$K_A7000_610 = 1025; (* DEC 7000 Model 610 *) ALPHA$K_A7000_620 = 1026; (* DEC 7000 Model 620 *) ALPHA$K_A7000_630 = 1027; (* DEC 7000 Model 630 *) ALPHA$K_A7000_640 = 1028; (* DEC 7000 Model 640 *) ALPHA$K_A10000_610 = 1029; (* DEC 10000 Model 610 *) ALPHA$K_A10000_620 = 1030; (* DEC 10000 Model 620 *) ALPHA$K_A10000_630 = 1031; (* DEC 10000 Model 630 *) ALPHA$K_A10000_640 = 1032; (* DEC 10000 Model 640 *) ALPHA$K_A3000_500W = 1033; (* DEC 3000 Model 500 *) ALPHA$K_A3000_500S = 1034; (* DEC 3000 Model 500S *) ALPHA$K_A3000_400W = 1035; (* DEC 3000 Model 400 *) ALPHA$K_A3000_400S = 1036; (* DEC 3000 Model 400S *) ALPHA$K_A4000_610 = 1037; (* DEC 4000 Model 610 *) ALPHA$K_A4000_620 = 1038; (* DEC 4000 Model 620 *) ALPHA$K_A4000_810 = 1039; ALPHA$K_A4000_820 = 1040; ALPHA$K_AADU = 1041; ALPHA$K_A3000_300 = 1042; (* DEC 3000 Model 300 *) ALPHA$K_A3000_300L = 1043; (* DEC 3000 Model 300L *) ALPHA$K_A2000_300 = 1044; (* DEC 2000 Model 300 *) ALPHA$K_A2000_300S = 1045; (* DEC 2000 Model 300S *) ALPHA$K_A7000_650 = 1046; (* DEC 7000 Model 650 *) ALPHA$K_A7000_660 = 1047; (* DEC 7000 Model 660 *) ALPHA$K_A10000_650 = 1048; (* DEC 10000 Model 650 *) ALPHA$K_A10000_660 = 1049; (* DEC 10000 Model 660 *) ALPHA$K_A4000_630 = 1050; ALPHA$K_A4000_640 = 1051; ALPHA$K_A4000_650 = 1052; ALPHA$K_A4000_660 = 1053; ALPHA$K_A2000_200 = 1054; ALPHA$K_A2000_200S = 1055; ALPHA$K_A3000_500X = 1056; (* DEC 3000 Model 500X *) (* *) (* The following Alpha System entries have been added to this file for REFERENCE ONLY. *) (* Please note that the Alpha system model name string and System Marketing Model *) (* value (SMM) are now passed by the SRM console to the Operating System through a *) (* structure called the HWRPB (hardware restart parameter block); by the Dynamic *) (* System Recognition (DSR) support that is present within all but the most ancient *) (* of Alpha systems and the correspondingly ancient versions of the SRM console. *) (* *) (* The following symbol-naming convention was derived from the Alpha System Reference *) (* Manual (SRM) Registry of Alpha Platforms, Systems, and Processors: *) (* *) (* ASa1a2b1b2c1c2d1d2e1e2 *) (* *) (* AS = Alpha System *) (* a1a2 = Family ID (2 digit hex value), Example: 0C (TurboLaser family) *) (* b1b2 = Processor Type (2 digit hex value), Example: 02 (EV4) , 05 (EV5), 06 (EV45), 07(EV56) *) (* c1c2 = Member ID (2 digit hex value), Example: 04 (Rack Mount) *) (* d1d2 = SRM Variant (2 digit hex value) for each Family ID/Processor Type/Member ID. Used for *) (* differentiating between same platforms with different chip speed (MHz) and/or cache *) (* size and/or expansion capabilities and/or AlphaStation/AlphaServer variants. In *) (* specific cases, there is the potential for the CPU count to spill into this field. *) (* e1e2 = Number of CPUs (2 digit hex value), Example: 0A (10 cpus), or maximum number of CPUs *) (* *) CONST ALPHA$K_AS0202020001 = 1057; (* DEC 4000 Model 710 *) ALPHA$K_AS0202020002 = 1058; (* DEC 4000 Model 720 *) ALPHA$K_AS0902020001 = 1059; (* AlphaServer 2100 4/200 (1cpu) *) ALPHA$K_AS0902020002 = 1060; (* AlphaServer 2100 4/200 (2cpu) *) ALPHA$K_AS0902020003 = 1061; (* AlphaServer 2100 4/200 (3cpu) *) ALPHA$K_AS0902020004 = 1062; (* AlphaServer 2100 4/200 (4cpu) *) ALPHA$K_AS0402040001 = 1063; (* DEC 3000 Model 800 *) ALPHA$K_AS0402060001 = 1064; (* DEC 3000 Model 600 *) ALPHA$K_AS0602010001 = 1065; (* DEC 2000 Model 500 *) ALPHA$K_AS0B04000001 = 1067; (* DECAXPpci33 *) ALPHA$K_AS0702020001 = 1068; (* DEC 3000 Model 300X *) ALPHA$K_AS0702030001 = 1069; (* DEC 3000 Model 300LX *) ALPHA$K_AS0406070001 = 1070; (* DEC 3000 Model 700 *) ALPHA$K_AS0406080001 = 1071; (* DEC 3000 Model 900 *) ALPHA$K_AS0706040001 = 1072; (* DEC 3000 series *) ALPHA$K_AS0706050001 = 1073; (* DEC 3000 series *) ALPHA$K_AS0306030001 = 1074; (* DEC 7000 Model 710 *) ALPHA$K_AS0306030002 = 1075; (* DEC 7000 Model 720 *) ALPHA$K_AS0306030003 = 1076; (* DEC 7000 Model 730 *) ALPHA$K_AS0306030004 = 1077; (* DEC 7000 Model 740 *) ALPHA$K_AS0306030005 = 1078; (* DEC 7000 Model 750 *) ALPHA$K_AS0306030006 = 1079; (* DEC 7000 Model 760 *) ALPHA$K_AS0D02010001 = 1086; (* AlphaStation 400 4/166 *) ALPHA$K_AS0D02020001 = 1087; (* AlphaStation 200 4/166 *) ALPHA$K_AS0D02030001 = 1088; (* AlphaStation 200 4/133 *) ALPHA$K_AS0F05010001 = 1089; (* AlphaStation 600 5/300 *) ALPHA$K_AS1102010001 = 1090; (* AlphaServer 1000 4/200 *) ALPHA$K_AS1106020001 = 1091; (* AlphaServer 1000 4/233 *) ALPHA$K_AS0C05000001 = 1093; (* AlphaServer 8200 5/300 (1cpu) *) ALPHA$K_AS0C05000002 = 1094; (* AlphaServer 8200 5/300 (2cpu) *) ALPHA$K_AS0C05000003 = 1095; (* AlphaServer 8200 5/300 (3cpu) *) ALPHA$K_AS0C05000004 = 1096; (* AlphaServer 8200 5/300 (4cpu) *) ALPHA$K_AS0C05000005 = 1097; (* AlphaServer 8200 5/300 (5cpu) *) ALPHA$K_AS0C05000006 = 1098; (* AlphaServer 8200 5/300 (6cpu) *) ALPHA$K_AS0C05010001 = 1099; (* AlphaServer 8400 5/300 (1cpu) *) ALPHA$K_AS0C05010002 = 1100; (* AlphaServer 8400 5/300 (2cpu) *) ALPHA$K_AS0C05010003 = 1101; (* AlphaServer 8400 5/300 (3cpu) *) ALPHA$K_AS0C05010004 = 1102; (* AlphaServer 8400 5/300 (4cpu) *) ALPHA$K_AS0C05010005 = 1103; (* AlphaServer 8400 5/300 (5cpu) *) ALPHA$K_AS0C05010006 = 1104; (* AlphaServer 8400 5/300 (6cpu) *) ALPHA$K_AS0C05010007 = 1105; (* AlphaServer 8400 5/300 (7cpu) *) ALPHA$K_AS0C05010008 = 1106; (* AlphaServer 8400 5/300 (8cpu) *) ALPHA$K_AS0C05010009 = 1107; (* AlphaServer 8400 5/300 (9cpu) *) ALPHA$K_AS0C0501000A = 1108; (* AlphaServer 8400 5/300 (10cpu) *) ALPHA$K_AS0C0501000B = 1109; (* AlphaServer 8400 5/300 (11cpu) *) ALPHA$K_AS0C0501000C = 1110; (* AlphaServer 8400 5/300 (12cpu) *) ALPHA$K_AS0906020001 = 1115; (* AlphaServer 2100 4/275 (1cpu) *) ALPHA$K_AS0906020002 = 1116; (* AlphaServer 2100 4/275 (2cpu) *) ALPHA$K_AS0906020003 = 1117; (* AlphaServer 2100 4/275 (3cpu) *) ALPHA$K_AS0906020004 = 1118; (* AlphaServer 2100 4/275 (4cpu) *) ALPHA$K_AS0905020001 = 1119; (* AlphaServer 2100 5/250 (1cpu) *) ALPHA$K_AS0905020002 = 1120; (* AlphaServer 2100 5/250 (2cpu) *) ALPHA$K_AS0905020003 = 1121; (* AlphaServer 2100 5/250 (3cpu) *) ALPHA$K_AS0905020004 = 1122; (* AlphaServer 2100 5/250 (4cpu) *) ALPHA$K_AS0902010001 = 1123; (* AlphaServer 2000 4/200 (1cpu) *) ALPHA$K_AS0902010002 = 1124; (* AlphaServer 2000 4/200 (2cpu) *) ALPHA$K_AS0902010003 = 1125; (* AlphaServer 2000 4/200 (3cpu) *) ALPHA$K_AS0902010004 = 1126; (* AlphaServer 2000 4/200 (4cpu) *) ALPHA$K_AS0906010001 = 1127; (* AlphaServer 2000 4/275 (1cpu) *) ALPHA$K_AS0906010002 = 1128; (* AlphaServer 2000 4/275 (2cpu) *) ALPHA$K_AS0906010003 = 1129; (* AlphaServer 2000 4/275 (3cpu) *) ALPHA$K_AS0906010004 = 1130; (* AlphaServer 2000 4/275 (4cpu) *) ALPHA$K_AS0905010001 = 1131; (* AlphaServer 2000 5/250 (1cpu) *) ALPHA$K_AS0905010002 = 1132; (* AlphaServer 2000 5/250 (2cpu) *) ALPHA$K_AS0905010003 = 1133; (* AlphaServer 2000 5/250 (3cpu) *) ALPHA$K_AS0905010004 = 1134; (* AlphaServer 2000 5/250 (4cpu) *) ALPHA$K_AS0902030001 = 1135; (* AlphaServer 2100 4/200 (1cpu) (rack) *) ALPHA$K_AS0902030002 = 1136; (* AlphaServer 2100 4/200 (2cpu) (rack) *) ALPHA$K_AS0902030003 = 1137; (* AlphaServer 2100 4/200 (3cpu) (rack) *) ALPHA$K_AS0902030004 = 1138; (* AlphaServer 2100 4/200 (4cpu) (rack) *) ALPHA$K_AS0906030001 = 1139; (* AlphaServer 2100 4/275 (1cpu) (rack) *) ALPHA$K_AS0906030002 = 1140; (* AlphaServer 2100 4/275 (2cpu) (rack) *) ALPHA$K_AS0906030003 = 1141; (* AlphaServer 2100 4/275 (3cpu) (rack) *) ALPHA$K_AS0906030004 = 1142; (* AlphaServer 2100 4/275 (4cpu) (rack) *) ALPHA$K_AS0905030001 = 1143; (* AlphaServer 2100 5/250 (1cpu) (rack) *) ALPHA$K_AS0905030002 = 1144; (* AlphaServer 2100 5/250 (2cpu) (rack) *) ALPHA$K_AS0905030003 = 1145; (* AlphaServer 2100 5/250 (3cpu) (rack) *) ALPHA$K_AS0905030004 = 1146; (* AlphaServer 2100 5/250 (4cpu) (rack) *) ALPHA$K_AS0D06040001 = 1151; (* AlphaStation 200 4/233 *) ALPHA$K_AS0D06050001 = 1152; (* AlphaStation 400 4/233 *) ALPHA$K_AS0D06060001 = 1153; (* AlphaStation 400 4/266 (2M) *) ALPHA$K_AS0D06070001 = 1154; (* AlphaStation 400 4/266 (512kb) *) ALPHA$K_AS0D06080001 = 1155; ALPHA$K_AS0D02090001 = 1156; (* AlphaStation 200 4/100 *) ALPHA$K_AS0D060A0001 = 1157; (* AlphaStation 200 4/300 *) ALPHA$K_AS0D060B0001 = 1158; (* AlphaStation 200 4/266, 512KB *) ALPHA$K_AS0D060C0001 = 1159; ALPHA$K_AS0D060D0001 = 1160; (* AlphaStation 400 4/300 *) ALPHA$K_AS0F05020001 = 1161; (* AlphaStation 600 5/266 *) ALPHA$K_AS1706010001 = 1167; ALPHA$K_AS0906010101 = 1171; (* AlphaServer 2000 4/233 (1cpu) *) ALPHA$K_AS0906010102 = 1172; (* AlphaServer 2000 4/233 (2cpu) *) ALPHA$K_AS0906010103 = 1173; (* AlphaServer 2000 4/233 (3cpu) *) ALPHA$K_AS0906010104 = 1174; (* AlphaServer 2000 4/233 (4cpu) *) ALPHA$K_AS0905010101 = 1175; (* AlphaServer 2000 5/300 (1cpu) *) ALPHA$K_AS0905010102 = 1176; (* AlphaServer 2000 5/300 (2cpu) *) ALPHA$K_AS0905010103 = 1177; (* AlphaServer 2000 5/300 (3cpu) *) ALPHA$K_AS0905010104 = 1178; (* AlphaServer 2000 5/300 (4cpu) *) ALPHA$K_AS0906020101 = 1179; (* AlphaServer 2100 4/233 (1cpu) *) ALPHA$K_AS0906020102 = 1180; (* AlphaServer 2100 4/233 (2cpu) *) ALPHA$K_AS0906020103 = 1181; (* AlphaServer 2100 4/233 (3cpu) *) ALPHA$K_AS0906020104 = 1182; (* AlphaServer 2100 4/233 (4cpu) *) ALPHA$K_AS0905020101 = 1183; (* AlphaServer 2100 5/300 (1cpu) *) ALPHA$K_AS0905020102 = 1184; (* AlphaServer 2100 5/300 (2cpu) *) ALPHA$K_AS0905020103 = 1185; (* AlphaServer 2100 5/300 (3cpu) *) ALPHA$K_AS0905020104 = 1186; (* AlphaServer 2100 5/300 (4cpu) *) ALPHA$K_AS0906030101 = 1187; (* AlphaServer 2100 4/233 (1cpu) (rack) *) ALPHA$K_AS0906030102 = 1188; (* AlphaServer 2100 4/233 (2cpu) (rack) *) ALPHA$K_AS0906030103 = 1189; (* AlphaServer 2100 4/233 (3cpu) (rack) *) ALPHA$K_AS0906030104 = 1190; (* AlphaServer 2100 4/233 (4cpu) (rack) *) ALPHA$K_AS0905030101 = 1191; (* AlphaServer 2100 5/300 (1cpu) (rack) *) ALPHA$K_AS0905030102 = 1192; (* AlphaServer 2100 5/300 (2cpu) (rack) *) ALPHA$K_AS0905030103 = 1193; (* AlphaServer 2100 5/300 (3cpu) (rack) *) ALPHA$K_AS0905030104 = 1194; (* AlphaServer 2100 5/300 (4cpu) (rack) *) ALPHA$K_AS1806010001 = 1195; (* AlphaServer 2000A 4/233 (1cpu) *) ALPHA$K_AS1806010002 = 1196; (* AlphaServer 2000A 4/233 (2cpu) *) ALPHA$K_AS1806010003 = 1197; (* AlphaServer 2000A 4/233 (3cpu) *) ALPHA$K_AS1806010004 = 1198; (* AlphaServer 2000A 4/233 (4cpu) *) ALPHA$K_AS1806010101 = 1199; (* AlphaServer 2000A 4/275 (1cpu) *) ALPHA$K_AS1806010102 = 1200; (* AlphaServer 2000A 4/275 (2cpu) *) ALPHA$K_AS1806010103 = 1201; (* AlphaServer 2000A 4/275 (3cpu) *) ALPHA$K_AS1806010104 = 1202; (* AlphaServer 2000A 4/275 (4cpu) *) ALPHA$K_AS1805010001 = 1203; (* AlphaServer 2000A 5/250 (1cpu) *) ALPHA$K_AS1805010002 = 1204; (* AlphaServer 2000A 5/250 (2cpu) *) ALPHA$K_AS1805010003 = 1205; (* AlphaServer 2000A 5/250 (3cpu) *) ALPHA$K_AS1805010004 = 1206; (* AlphaServer 2000A 5/250 (4cpu) *) ALPHA$K_AS1805010101 = 1207; (* AlphaServer 2000A 5/300 (1cpu) *) ALPHA$K_AS1805010102 = 1208; (* AlphaServer 2000A 5/300 (2cpu) *) ALPHA$K_AS1805010103 = 1209; (* AlphaServer 2000A 5/300 (3cpu) *) ALPHA$K_AS1805010104 = 1210; (* AlphaServer 2000A 5/300 (4cpu) *) ALPHA$K_AS1806020001 = 1211; (* AlphaServer 2100A 4/233 (1cpu) *) ALPHA$K_AS1806020002 = 1212; (* AlphaServer 2100A 4/233 (2cpu) *) ALPHA$K_AS1806020003 = 1213; (* AlphaServer 2100A 4/233 (3cpu) *) ALPHA$K_AS1806020004 = 1214; (* AlphaServer 2100A 4/233 (4cpu) *) ALPHA$K_AS1806020101 = 1215; (* AlphaServer 2100A 4/275 (1cpu) *) ALPHA$K_AS1806020102 = 1216; (* AlphaServer 2100A 4/275 (2cpu) *) ALPHA$K_AS1806020103 = 1217; (* AlphaServer 2100A 4/275 (3cpu) *) ALPHA$K_AS1806020104 = 1218; (* AlphaServer 2100A 4/275 (4cpu) *) ALPHA$K_AS1805020001 = 1219; (* AlphaServer 2100A 5/250 (1cpu) *) ALPHA$K_AS1805020002 = 1220; (* AlphaServer 2100A 5/250 (2cpu) *) ALPHA$K_AS1805020003 = 1221; (* AlphaServer 2100A 5/250 (3cpu) *) ALPHA$K_AS1805020004 = 1222; (* AlphaServer 2100A 5/250 (4cpu) *) ALPHA$K_AS1805020101 = 1223; (* AlphaServer 2100A 5/300 (1cpu) *) ALPHA$K_AS1805020102 = 1224; (* AlphaServer 2100A 5/300 (2cpu) *) ALPHA$K_AS1805020103 = 1225; (* AlphaServer 2100A 5/300 (3cpu) *) ALPHA$K_AS1805020104 = 1226; (* AlphaServer 2100A 5/300 (4cpu) *) ALPHA$K_AS1806030001 = 1227; (* AlphaServer 2100A 4/233 (1cpu) (rack) *) ALPHA$K_AS1806030002 = 1228; (* AlphaServer 2100A 4/233 (2cpu) (rack) *) ALPHA$K_AS1806030003 = 1229; (* AlphaServer 2100A 4/233 (3cpu) (rack) *) ALPHA$K_AS1806030004 = 1230; (* AlphaServer 2100A 4/233 (4cpu) (rack) *) ALPHA$K_AS1806030101 = 1231; (* AlphaServer 2100A 4/275 (1cpu) (rack) *) ALPHA$K_AS1806030102 = 1232; (* AlphaServer 2100A 4/275 (2cpu) (rack) *) ALPHA$K_AS1806030103 = 1233; (* AlphaServer 2100A 4/275 (3cpu) (rack) *) ALPHA$K_AS1806030104 = 1234; (* AlphaServer 2100A 4/275 (4cpu) (rack) *) ALPHA$K_AS1805030001 = 1235; (* AlphaServer 2100A 5/250 (1cpu) (rack) *) ALPHA$K_AS1805030002 = 1236; (* AlphaServer 2100A 5/250 (2cpu) (rack) *) ALPHA$K_AS1805030003 = 1237; (* AlphaServer 2100A 5/250 (3cpu) (rack) *) ALPHA$K_AS1805030004 = 1238; (* AlphaServer 2100A 5/250 (4cpu) (rack) *) ALPHA$K_AS1805030101 = 1239; (* AlphaServer 2100A 5/300 (1cpu) (rack) *) ALPHA$K_AS1805030102 = 1240; (* AlphaServer 2100A 5/300 (2cpu) (rack) *) ALPHA$K_AS1805030103 = 1241; (* AlphaServer 2100A 5/300 (3cpu) (rack) *) ALPHA$K_AS1805030104 = 1242; (* AlphaServer 2100A 5/300 (4cpu) (rack) *) ALPHA$K_AS1A05010001 = 1245; (* EB164 266 *) ALPHA$K_AS1A05020001 = 1246; (* EB164 300 *) ALPHA$K_AS0D06200001 = 1250; (* AlphaStation 205 4/133 *) ALPHA$K_AS0D06210001 = 1251; (* AlphaStation 205 4/166 *) ALPHA$K_AS0D06220001 = 1252; (* AlphaStation 205 4/200 *) ALPHA$K_AS0D06230001 = 1253; (* AlphaStation 205 4/233 *) ALPHA$K_AS0D06240001 = 1254; (* AlphaStation 205 4/266 *) ALPHA$K_AS0D06250001 = 1255; (* AlphaStation 205 4/300 *) ALPHA$K_AS0D06260001 = 1256; (* AlphaStation 205 4/333 *) ALPHA$K_AS0D06270001 = 1257; (* AlphaStation 255 4/133 *) ALPHA$K_AS0D06280001 = 1258; (* AlphaStation 255 4/166 *) ALPHA$K_AS0D06290001 = 1259; (* AlphaStation 255 4/200 *) ALPHA$K_AS0D062A0001 = 1260; (* AlphaStation 255 4/233 *) ALPHA$K_AS0D062B0001 = 1261; (* AlphaStation 255 4/266 *) ALPHA$K_AS0D062C0001 = 1262; (* AlphaStation 255 4/300 *) ALPHA$K_AS0D062D0001 = 1263; (* AlphaStation 255 4/333 *) ALPHA$K_AS1106030001 = 1264; (* AlphaServer 1000 4/266 *) ALPHA$K_AS1B06010001 = 1265; (* AlphaServer 1000A 4/266 *) ALPHA$K_AS0F05030001 = 1266; (* AlphaStation 500 5/266 *) ALPHA$K_AS0F05040001 = 1267; (* AlphaStation 500 5/300 *) ALPHA$K_AS0F05050001 = 1268; (* AlphaStation 500 5/333 *) ALPHA$K_AS1105040001 = 1269; (* AlphaServer 1000 5/300 *) ALPHA$K_AS1B05020001 = 1270; (* AlphaServer 1000A 5/300 *) ALPHA$K_AS0F05060001 = 1275; (* AlphaStation 600 5/333 *) ALPHA$K_AS0F05070001 = 1276; (* AlphaStation 600 5/366 *) ALPHA$K_AS0F05080001 = 1277; (* AlphaStation 600 5/400 *) ALPHA$K_AS0F05090001 = 1278; (* AlphaStation 600 5/433 *) ALPHA$K_AS0F050A0001 = 1279; (* AlphaStation 600 5/466 *) ALPHA$K_AS0F050B0001 = 1280; (* AlphaStation 600 5/500 *) ALPHA$K_AS0F070C0001 = 1281; (* AlphaStation 500/333 *) ALPHA$K_AS0F070D0001 = 1282; (* AlphaStation 500/366 *) ALPHA$K_AS0F070E0001 = 1283; (* AlphaStation 500/400 *) ALPHA$K_AS0F070F0001 = 1284; (* AlphaStation 500/433 *) ALPHA$K_AS0F07100001 = 1285; (* AlphaStation 500/466 *) ALPHA$K_AS0F07110001 = 1286; (* AlphaStation 500/500 *) ALPHA$K_AS0C05020001 = 1292; (* AlphaServer 8200 5/350 (1cpu) *) ALPHA$K_AS0C05020002 = 1293; (* AlphaServer 8200 5/350 (2cpu) *) ALPHA$K_AS0C05020003 = 1294; (* AlphaServer 8200 5/350 (3cpu) *) ALPHA$K_AS0C05020004 = 1295; (* AlphaServer 8200 5/350 (4cpu) *) ALPHA$K_AS0C05020005 = 1296; (* AlphaServer 8200 5/350 (5cpu) *) ALPHA$K_AS0C05020006 = 1297; (* AlphaServer 8200 5/350 (6cpu) *) ALPHA$K_AS0C05030001 = 1298; (* AlphaServer 8400 5/350 (1cpu) *) ALPHA$K_AS0C05030002 = 1299; (* AlphaServer 8400 5/350 (2cpu) *) ALPHA$K_AS0C05030003 = 1300; (* AlphaServer 8400 5/350 (3cpu) *) ALPHA$K_AS0C05030004 = 1301; (* AlphaServer 8400 5/350 (4cpu) *) ALPHA$K_AS0C05030005 = 1302; (* AlphaServer 8400 5/350 (5cpu) *) ALPHA$K_AS0C05030006 = 1303; (* AlphaServer 8400 5/350 (6cpu) *) ALPHA$K_AS0C05030007 = 1304; (* AlphaServer 8400 5/350 (7cpu) *) ALPHA$K_AS0C05030008 = 1305; (* AlphaServer 8400 5/350 (8cpu) *) ALPHA$K_AS0C05030009 = 1306; (* AlphaServer 8400 5/350 (9cpu) *) ALPHA$K_AS0C0503000A = 1307; (* AlphaServer 8400 5/350 (10cpu) *) ALPHA$K_AS0C0503000B = 1308; (* AlphaServer 8400 5/350 (11cpu) *) ALPHA$K_AS0C0503000C = 1309; (* AlphaServer 8400 5/350 (12cpu) *) ALPHA$K_AS1B07040001 = 1310; (* AlphaServer 600 5/333 *) ALPHA$K_AS1B07030001 = 1311; (* AlphaServer 1000A 5/400 *) ALPHA$K_AS1107050001 = 1312; (* AlphaServer 1000 5/400 *) ALPHA$K_AS1605020001 = 1313; (* AlphaServer 4100 5/266 0MB (1cpu) *) ALPHA$K_AS1605020002 = 1314; (* AlphaServer 4100 5/266 0MB (2cpu) *) ALPHA$K_AS1605020003 = 1315; (* AlphaServer 4100 5/266 0MB (3cpu) *) ALPHA$K_AS1605020004 = 1316; (* AlphaServer 4100 5/266 0MB (4cpu) *) ALPHA$K_AS1605010001 = 1317; (* AlphaServer 4100 5/266 0MB (1cpu) *) ALPHA$K_AS1605010002 = 1318; (* AlphaServer 4100 5/266 0MB (2cpu) *) ALPHA$K_AS1605010003 = 1319; (* AlphaServer 4100 5/266 0MB (3cpu) *) ALPHA$K_AS1605010004 = 1320; (* AlphaServer 4100 5/266 0MB (4cpu) *) ALPHA$K_AS1605020101 = 1321; (* AlphaServer 4100 5/300 0MB (1cpu) *) ALPHA$K_AS1605020102 = 1322; (* AlphaServer 4100 5/300 0MB (2cpu) *) ALPHA$K_AS1605020103 = 1323; (* AlphaServer 4100 5/300 0MB (3cpu) *) ALPHA$K_AS1605020104 = 1324; (* AlphaServer 4100 5/300 0MB (4cpu) *) ALPHA$K_AS1605010101 = 1325; (* AlphaServer 4100 5/300 0MB (1cpu) *) ALPHA$K_AS1605010102 = 1326; (* AlphaServer 4100 5/300 0MB (2cpu) *) ALPHA$K_AS1605010103 = 1327; (* AlphaServer 4100 5/300 0MB (3cpu) *) ALPHA$K_AS1605010104 = 1328; (* AlphaServer 4100 5/300 0MB (4cpu) *) ALPHA$K_AS1607020001 = 1329; (* AlphaServer 4100 5/400 0MB (1cpu) *) ALPHA$K_AS1607020002 = 1330; (* AlphaServer 4100 5/400 0MB (2cpu) *) ALPHA$K_AS1607020003 = 1331; (* AlphaServer 4100 5/400 0MB (3cpu) *) ALPHA$K_AS1607020004 = 1332; (* AlphaServer 4100 5/400 0MB (4cpu) *) ALPHA$K_AS1607010001 = 1333; (* AlphaServer 4100 5/400 0MB (1cpu) *) ALPHA$K_AS1607010002 = 1334; (* AlphaServer 4100 5/400 0MB (2cpu) *) ALPHA$K_AS1607010003 = 1335; (* AlphaServer 4100 5/400 0MB (3cpu) *) ALPHA$K_AS1607010004 = 1336; (* AlphaServer 4100 5/400 0MB (4cpu) *) ALPHA$K_AS1605020201 = 1337; (* AlphaServer 4100 5/266 1MB (1cpu) *) ALPHA$K_AS1605020202 = 1338; (* AlphaServer 4100 5/266 1MB (2cpu) *) ALPHA$K_AS1605020203 = 1339; (* AlphaServer 4100 5/266 1MB (3cpu) *) ALPHA$K_AS1605020204 = 1340; (* AlphaServer 4100 5/266 1MB (4cpu) *) ALPHA$K_AS1605010201 = 1341; (* AlphaServer 4100 5/266 1MB (1cpu) *) ALPHA$K_AS1605010202 = 1342; (* AlphaServer 4100 5/266 1MB (2cpu) *) ALPHA$K_AS1605010203 = 1343; (* AlphaServer 4100 5/266 1MB (3cpu) *) ALPHA$K_AS1605010204 = 1344; (* AlphaServer 4100 5/266 1MB (4cpu) *) ALPHA$K_AS1605020301 = 1345; (* AlphaServer 4100 5/300 1MB (1cpu) *) ALPHA$K_AS1605020302 = 1346; (* AlphaServer 4100 5/300 1MB (2cpu) *) ALPHA$K_AS1605020303 = 1347; (* AlphaServer 4100 5/300 1MB (3cpu) *) ALPHA$K_AS1605020304 = 1348; (* AlphaServer 4100 5/300 1MB (4cpu) *) ALPHA$K_AS1605010301 = 1349; (* AlphaServer 4100 5/300 1MB (1cpu) *) ALPHA$K_AS1605010302 = 1350; (* AlphaServer 4100 5/300 1MB (2cpu) *) ALPHA$K_AS1605010303 = 1351; (* AlphaServer 4100 5/300 1MB (3cpu) *) ALPHA$K_AS1605010304 = 1352; (* AlphaServer 4100 5/300 1MB (4cpu) *) ALPHA$K_AS1607020101 = 1353; (* AlphaServer 4100 5/400 1MB (1cpu) *) ALPHA$K_AS1607020102 = 1354; (* AlphaServer 4100 5/400 1MB (2cpu) *) ALPHA$K_AS1607020103 = 1355; (* AlphaServer 4100 5/400 1MB (3cpu) *) ALPHA$K_AS1607020104 = 1356; (* AlphaServer 4100 5/400 1MB (4cpu) *) ALPHA$K_AS1607010101 = 1357; (* AlphaServer 4100 5/400 1MB (1cpu) *) ALPHA$K_AS1607010102 = 1358; (* AlphaServer 4100 5/400 1MB (2cpu) *) ALPHA$K_AS1607010103 = 1359; (* AlphaServer 4100 5/400 1MB (3cpu) *) ALPHA$K_AS1607010104 = 1360; (* AlphaServer 4100 5/400 1MB (4cpu) *) ALPHA$K_AS1605020401 = 1361; (* AlphaServer 4100 5/266 2MB (1cpu) *) ALPHA$K_AS1605020402 = 1362; (* AlphaServer 4100 5/266 2MB (2cpu) *) ALPHA$K_AS1605020403 = 1363; (* AlphaServer 4100 5/266 2MB (3cpu) *) ALPHA$K_AS1605020404 = 1364; (* AlphaServer 4100 5/266 2MB (4cpu) *) ALPHA$K_AS1605010401 = 1365; (* AlphaServer 4100 5/266 2MB (1cpu) *) ALPHA$K_AS1605010402 = 1366; (* AlphaServer 4100 5/266 2MB (2cpu) *) ALPHA$K_AS1605010403 = 1367; (* AlphaServer 4100 5/266 2MB (3cpu) *) ALPHA$K_AS1605010404 = 1368; (* AlphaServer 4100 5/266 2MB (4cpu) *) ALPHA$K_AS1605020501 = 1369; (* AlphaServer 4100 5/300 2MB (1cpu) *) ALPHA$K_AS1605020502 = 1370; (* AlphaServer 4100 5/300 2MB (2cpu) *) ALPHA$K_AS1605020503 = 1371; (* AlphaServer 4100 5/300 2MB (3cpu) *) ALPHA$K_AS1605020504 = 1372; (* AlphaServer 4100 5/300 2MB (4cpu) *) ALPHA$K_AS1605010501 = 1373; (* AlphaServer 4100 5/300 2MB (1cpu) *) ALPHA$K_AS1605010502 = 1374; (* AlphaServer 4100 5/300 2MB (2cpu) *) ALPHA$K_AS1605010503 = 1375; (* AlphaServer 4100 5/300 2MB (3cpu) *) ALPHA$K_AS1605010504 = 1376; (* AlphaServer 4100 5/300 2MB (4cpu) *) ALPHA$K_AS1607020201 = 1377; (* AlphaServer 4100 5/400 2MB (1cpu) *) ALPHA$K_AS1607020202 = 1378; (* AlphaServer 4100 5/400 2MB (2cpu) *) ALPHA$K_AS1607020203 = 1379; (* AlphaServer 4100 5/400 2MB (3cpu) *) ALPHA$K_AS1607020204 = 1380; (* AlphaServer 4100 5/400 2MB (4cpu) *) ALPHA$K_AS1607010201 = 1381; (* AlphaServer 4100 5/400 2MB (1cpu) *) ALPHA$K_AS1607010202 = 1382; (* AlphaServer 4100 5/400 2MB (2cpu) *) ALPHA$K_AS1607010203 = 1383; (* AlphaServer 4100 5/400 2MB (3cpu) *) ALPHA$K_AS1607010204 = 1384; (* AlphaServer 4100 5/400 2MB (4cpu) *) ALPHA$K_AS1605020601 = 1385; (* AlphaServer 4100 5/266 4MB (1cpu) *) ALPHA$K_AS1605020602 = 1386; (* AlphaServer 4100 5/266 4MB (2cpu) *) ALPHA$K_AS1605020603 = 1387; (* AlphaServer 4100 5/266 4MB (3cpu) *) ALPHA$K_AS1605020604 = 1388; (* AlphaServer 4100 5/266 4MB (4cpu) *) ALPHA$K_AS1605010601 = 1389; (* AlphaServer 4100 5/266 4MB (1cpu) *) ALPHA$K_AS1605010602 = 1390; (* AlphaServer 4100 5/266 4MB (2cpu) *) ALPHA$K_AS1605010603 = 1391; (* AlphaServer 4100 5/266 4MB (3cpu) *) ALPHA$K_AS1605010604 = 1392; (* AlphaServer 4100 5/266 4MB (4cpu) *) ALPHA$K_AS1605020701 = 1393; (* AlphaServer 4100 5/300 4MB (1cpu) *) ALPHA$K_AS1605020702 = 1394; (* AlphaServer 4100 5/300 4MB (2cpu) *) ALPHA$K_AS1605020703 = 1395; (* AlphaServer 4100 5/300 4MB (3cpu) *) ALPHA$K_AS1605020704 = 1396; (* AlphaServer 4100 5/300 4MB (4cpu) *) ALPHA$K_AS1605010701 = 1397; (* AlphaServer 4100 5/300 4MB (1cpu) *) ALPHA$K_AS1605010702 = 1398; (* AlphaServer 4100 5/300 4MB (2cpu) *) ALPHA$K_AS1605010703 = 1399; (* AlphaServer 4100 5/300 4MB (3cpu) *) ALPHA$K_AS1605010704 = 1400; (* AlphaServer 4100 5/300 4MB (4cpu) *) ALPHA$K_AS1607020301 = 1401; (* AlphaServer 4100 5/400 4MB (1cpu) *) ALPHA$K_AS1607020302 = 1402; (* AlphaServer 4100 5/400 4MB (2cpu) *) ALPHA$K_AS1607020303 = 1403; (* AlphaServer 4100 5/400 4MB (3cpu) *) ALPHA$K_AS1607020304 = 1404; (* AlphaServer 4100 5/400 4MB (4cpu) *) ALPHA$K_AS1607010301 = 1405; (* AlphaServer 4100 5/400 4MB (1cpu) *) ALPHA$K_AS1607010302 = 1406; (* AlphaServer 4100 5/400 4MB (2cpu) *) ALPHA$K_AS1607010303 = 1407; (* AlphaServer 4100 5/400 4MB (3cpu) *) ALPHA$K_AS1607010304 = 1408; (* AlphaServer 4100 5/400 4MB (4cpu) *) ALPHA$K_AS1605040001 = 1409; (* AlphaServer 4000 5/266 0MB (1cpu) *) ALPHA$K_AS1605040002 = 1410; (* AlphaServer 4000 5/266 0MB (2cpu) *) ALPHA$K_AS1605030001 = 1411; (* AlphaServer 4000 5/266 0MB (1cpu) *) ALPHA$K_AS1605030002 = 1412; (* AlphaServer 4000 5/266 0MB (2cpu) *) ALPHA$K_AS1605040101 = 1413; (* AlphaServer 4000 5/300 0MB (1cpu) *) ALPHA$K_AS1605040102 = 1414; (* AlphaServer 4000 5/300 0MB (2cpu) *) ALPHA$K_AS1605030101 = 1415; (* AlphaServer 4000 5/300 0MB (1cpu) *) ALPHA$K_AS1605030102 = 1416; (* AlphaServer 4000 5/300 0MB (2cpu) *) ALPHA$K_AS1607040001 = 1417; (* AlphaServer 4000 5/400 0MB (1cpu) *) ALPHA$K_AS1607040002 = 1418; (* AlphaServer 4000 5/400 0MB (2cpu) *) ALPHA$K_AS1607030001 = 1419; (* AlphaServer 4000 5/400 0MB (1cpu) *) ALPHA$K_AS1607030002 = 1420; (* AlphaServer 4000 5/400 0MB (2cpu) *) ALPHA$K_AS1605040201 = 1421; (* AlphaServer 4000 5/266 1MB (1cpu) *) ALPHA$K_AS1605040202 = 1422; (* AlphaServer 4000 5/266 1MB (2cpu) *) ALPHA$K_AS1605030201 = 1423; (* AlphaServer 4000 5/266 1MB (1cpu) *) ALPHA$K_AS1605030202 = 1424; (* AlphaServer 4000 5/266 1MB (2cpu) *) ALPHA$K_AS1605040301 = 1425; (* AlphaServer 4000 5/300 1MB (1cpu) *) ALPHA$K_AS1605040302 = 1426; (* AlphaServer 4000 5/300 1MB (2cpu) *) ALPHA$K_AS1605030301 = 1427; (* AlphaServer 4000 5/300 1MB (1cpu) *) ALPHA$K_AS1605030302 = 1428; (* AlphaServer 4000 5/300 1MB (2cpu) *) ALPHA$K_AS1607040101 = 1429; (* AlphaServer 4000 5/400 1MB (1cpu) *) ALPHA$K_AS1607040102 = 1430; (* AlphaServer 4000 5/400 1MB (2cpu) *) ALPHA$K_AS1607030101 = 1431; (* AlphaServer 4000 5/400 1MB (1cpu) *) ALPHA$K_AS1607030102 = 1432; (* AlphaServer 4000 5/400 1MB (2cpu) *) ALPHA$K_AS1605040401 = 1433; (* AlphaServer 4000 5/266 2MB (1cpu) *) ALPHA$K_AS1605040402 = 1434; (* AlphaServer 4000 5/266 2MB (2cpu) *) ALPHA$K_AS1605030401 = 1435; (* AlphaServer 4000 5/266 2MB (1cpu) *) ALPHA$K_AS1605030402 = 1436; (* AlphaServer 4000 5/266 2MB (2cpu) *) ALPHA$K_AS1605040501 = 1437; (* AlphaServer 4000 5/300 2MB (1cpu) *) ALPHA$K_AS1605040502 = 1438; (* AlphaServer 4000 5/300 2MB (2cpu) *) ALPHA$K_AS1605030501 = 1439; (* AlphaServer 4000 5/300 2MB (1cpu) *) ALPHA$K_AS1605030502 = 1440; (* AlphaServer 4000 5/300 2MB (2cpu) *) ALPHA$K_AS1607040201 = 1441; (* AlphaServer 4000 5/400 2MB (1cpu) *) ALPHA$K_AS1607040202 = 1442; (* AlphaServer 4000 5/400 2MB (2cpu) *) ALPHA$K_AS1607030201 = 1443; (* AlphaServer 4000 5/400 2MB (1cpu) *) ALPHA$K_AS1607030202 = 1444; (* AlphaServer 4000 5/400 2MB (2cpu) *) ALPHA$K_AS1605040601 = 1445; (* AlphaServer 4000 5/266 4MB (1cpu) *) ALPHA$K_AS1605040602 = 1446; (* AlphaServer 4000 5/266 4MB (2cpu) *) ALPHA$K_AS1605030601 = 1447; (* AlphaServer 4000 5/266 4MB (1cpu) *) ALPHA$K_AS1605030602 = 1448; (* AlphaServer 4000 5/266 4MB (2cpu) *) ALPHA$K_AS1605040701 = 1449; (* AlphaServer 4000 5/300 4MB (1cpu) *) ALPHA$K_AS1605040702 = 1450; (* AlphaServer 4000 5/300 4MB (2cpu) *) ALPHA$K_AS1605030701 = 1451; (* AlphaServer 4000 5/300 4MB (1cpu) *) ALPHA$K_AS1605030702 = 1452; (* AlphaServer 4000 5/300 4MB (2cpu) *) ALPHA$K_AS1607040301 = 1453; (* AlphaServer 4000 5/400 4MB (1cpu) *) ALPHA$K_AS1607040302 = 1454; (* AlphaServer 4000 5/400 4MB (2cpu) *) ALPHA$K_AS1607030301 = 1455; (* AlphaServer 4000 5/400 4MB (1cpu) *) ALPHA$K_AS1607030302 = 1456; (* AlphaServer 4000 5/400 4MB (2cpu) *) ALPHA$K_AS1605060001 = 1457; (* AlphaServer 4000A 5/266 0MB (1cpu) *) ALPHA$K_AS1605060002 = 1458; (* AlphaServer 4000A 5/266 0MB (2cpu) *) ALPHA$K_AS1605050001 = 1459; (* AlphaServer 4000A 5/266 0MB (1cpu) *) ALPHA$K_AS1605050002 = 1460; (* AlphaServer 4000A 5/266 0MB (2cpu) *) ALPHA$K_AS1605060101 = 1461; (* AlphaServer 4000A 5/300 0MB (1cpu) *) ALPHA$K_AS1605060102 = 1462; (* AlphaServer 4000A 5/300 0MB (2cpu) *) ALPHA$K_AS1605050101 = 1463; (* AlphaServer 4000A 5/300 0MB (1cpu) *) ALPHA$K_AS1605050102 = 1464; (* AlphaServer 4000A 5/300 0MB (2cpu) *) ALPHA$K_AS1607060001 = 1465; (* AlphaServer 4000A 5/400 0MB (1cpu) *) ALPHA$K_AS1607060002 = 1466; (* AlphaServer 4000A 5/400 0MB (2cpu) *) ALPHA$K_AS1607050001 = 1467; (* AlphaServer 4000A 5/400 0MB (1cpu) *) ALPHA$K_AS1607050002 = 1468; (* AlphaServer 4000A 5/400 0MB (2cpu) *) ALPHA$K_AS1605060201 = 1469; (* AlphaServer 4000A 5/266 1MB (1cpu) *) ALPHA$K_AS1605060202 = 1470; (* AlphaServer 4000A 5/266 1MB (2cpu) *) ALPHA$K_AS1605050201 = 1471; (* AlphaServer 4000A 5/266 1MB (1cpu) *) ALPHA$K_AS1605050202 = 1472; (* AlphaServer 4000A 5/266 1MB (2cpu) *) ALPHA$K_AS1605060301 = 1473; (* AlphaServer 4000A 5/300 1MB (1cpu) *) ALPHA$K_AS1605060302 = 1474; (* AlphaServer 4000A 5/300 1MB (2cpu) *) ALPHA$K_AS1605050301 = 1475; (* AlphaServer 4000A 5/300 1MB (1cpu) *) ALPHA$K_AS1605050302 = 1476; (* AlphaServer 4000A 5/300 1MB (2cpu) *) ALPHA$K_AS1607060101 = 1477; (* AlphaServer 4000A 5/400 1MB (1cpu) *) ALPHA$K_AS1607060102 = 1478; (* AlphaServer 4000A 5/400 1MB (2cpu) *) ALPHA$K_AS1607050101 = 1479; (* AlphaServer 4000A 5/400 1MB (1cpu) *) ALPHA$K_AS1607050102 = 1480; (* AlphaServer 4000A 5/400 1MB (2cpu) *) ALPHA$K_AS1605060401 = 1481; (* AlphaServer 4000A 5/266 2MB (1cpu) *) ALPHA$K_AS1605060402 = 1482; (* AlphaServer 4000A 5/266 2MB (2cpu) *) ALPHA$K_AS1605050401 = 1483; (* AlphaServer 4000A 5/266 2MB (1cpu) *) ALPHA$K_AS1605050402 = 1484; (* AlphaServer 4000A 5/266 2MB (2cpu) *) ALPHA$K_AS1605060501 = 1485; (* AlphaServer 4000A 5/300 2MB (1cpu) *) ALPHA$K_AS1605060502 = 1486; (* AlphaServer 4000A 5/300 2MB (2cpu) *) ALPHA$K_AS1605050501 = 1487; (* AlphaServer 4000A 5/300 2MB (1cpu) *) ALPHA$K_AS1605050502 = 1488; (* AlphaServer 4000A 5/300 2MB (2cpu) *) ALPHA$K_AS1607060201 = 1489; (* AlphaServer 4000A 5/400 2MB (1cpu) *) ALPHA$K_AS1607060202 = 1490; (* AlphaServer 4000A 5/400 2MB (2cpu) *) ALPHA$K_AS1607050201 = 1491; (* AlphaServer 4000A 5/400 2MB (1cpu) *) ALPHA$K_AS1607050202 = 1492; (* AlphaServer 4000A 5/400 2MB (2cpu) *) ALPHA$K_AS1605060601 = 1493; (* AlphaServer 4000A 5/266 4MB (1cpu) *) ALPHA$K_AS1605060602 = 1494; (* AlphaServer 4000A 5/266 4MB (2cpu) *) ALPHA$K_AS1605050601 = 1495; (* AlphaServer 4000A 5/266 4MB (1cpu) *) ALPHA$K_AS1605050602 = 1496; (* AlphaServer 4000A 5/266 4MB (2cpu) *) ALPHA$K_AS1605060701 = 1497; (* AlphaServer 4000A 5/300 4MB (1cpu) *) ALPHA$K_AS1605060702 = 1498; (* AlphaServer 4000A 5/300 4MB (2cpu) *) ALPHA$K_AS1605050701 = 1499; (* AlphaServer 4000A 5/300 4MB (1cpu) *) ALPHA$K_AS1605050702 = 1500; (* AlphaServer 4000A 5/300 4MB (2cpu) *) ALPHA$K_AS1607060301 = 1501; (* AlphaServer 4000A 5/400 4MB (1cpu) *) ALPHA$K_AS1607060302 = 1502; (* AlphaServer 4000A 5/400 4MB (2cpu) *) ALPHA$K_AS1607050301 = 1503; (* AlphaServer 4000A 5/400 4MB (1cpu) *) ALPHA$K_AS1607050302 = 1504; (* AlphaServer 4000A 5/400 4MB (2cpu) *) ALPHA$K_AS0907010001 = 1505; (* AlphaServer 2000 5/375 (1cpu) *) ALPHA$K_AS0907010002 = 1506; (* AlphaServer 2000 5/375 (2cpu) *) ALPHA$K_AS0907010003 = 1507; (* AlphaServer 2000 5/375 (3cpu) *) ALPHA$K_AS0907010004 = 1508; (* AlphaServer 2000 5/375 (4cpu) *) ALPHA$K_AS0907020001 = 1509; (* AlphaServer 2100 5/375 (1cpu) *) ALPHA$K_AS0907020002 = 1510; (* AlphaServer 2100 5/375 (2cpu) *) ALPHA$K_AS0907020003 = 1511; (* AlphaServer 2100 5/375 (3cpu) *) ALPHA$K_AS0907020004 = 1512; (* AlphaServer 2100 5/375 (4cpu) *) ALPHA$K_AS0907030001 = 1513; (* AlphaServer 2100 5/375 (1cpu) (rack) *) ALPHA$K_AS0907030002 = 1514; (* AlphaServer 2100 5/375 (2cpu) (rack) *) ALPHA$K_AS0907030003 = 1515; (* AlphaServer 2100 5/375 (3cpu) (rack) *) ALPHA$K_AS0907030004 = 1516; (* AlphaServer 2100 5/375 (4cpu) (rack) *) ALPHA$K_AS0907010101 = 1517; (* AlphaServer 2000 5/400 (1cpu) *) ALPHA$K_AS0907010102 = 1518; (* AlphaServer 2000 5/400 (2cpu) *) ALPHA$K_AS0907010103 = 1519; (* AlphaServer 2000 5/400 (3cpu) *) ALPHA$K_AS0907010104 = 1520; (* AlphaServer 2000 5/400 (4cpu) *) ALPHA$K_AS0907020101 = 1521; (* AlphaServer 2100 5/400 (1cpu) *) ALPHA$K_AS0907020102 = 1522; (* AlphaServer 2100 5/400 (2cpu) *) ALPHA$K_AS0907020103 = 1523; (* AlphaServer 2100 5/400 (3cpu) *) ALPHA$K_AS0907020104 = 1524; (* AlphaServer 2100 5/400 (4cpu) *) ALPHA$K_AS0907030101 = 1525; (* AlphaServer 2100 5/400 (1cpu) (rack) *) ALPHA$K_AS0907030102 = 1526; (* AlphaServer 2100 5/400 (2cpu) (rack) *) ALPHA$K_AS0907030103 = 1527; (* AlphaServer 2100 5/400 (3cpu) (rack) *) ALPHA$K_AS0907030104 = 1528; (* AlphaServer 2100 5/400 (4cpu) (rack) *) ALPHA$K_AS1807010001 = 1529; (* AlphaServer 2000A 5/375 (1cpu) *) ALPHA$K_AS1807010002 = 1530; (* AlphaServer 2000A 5/375 (2cpu) *) ALPHA$K_AS1807010003 = 1531; (* AlphaServer 2000A 5/375 (3cpu) *) ALPHA$K_AS1807010004 = 1532; (* AlphaServer 2000A 5/375 (4cpu) *) ALPHA$K_AS1807020001 = 1533; (* AlphaServer 2100A 5/375 (1cpu) *) ALPHA$K_AS1807020002 = 1534; (* AlphaServer 2100A 5/375 (2cpu) *) ALPHA$K_AS1807020003 = 1535; (* AlphaServer 2100A 5/375 (3cpu) *) ALPHA$K_AS1807020004 = 1536; (* AlphaServer 2100A 5/375 (4cpu) *) ALPHA$K_AS1807030001 = 1537; (* AlphaServer 2100A 5/375 (1cpu) (rack) *) ALPHA$K_AS1807030002 = 1538; (* AlphaServer 2100A 5/375 (2cpu) (rack) *) ALPHA$K_AS1807030003 = 1539; (* AlphaServer 2100A 5/375 (3cpu) (rack) *) ALPHA$K_AS1807030004 = 1540; (* AlphaServer 2100A 5/375 (4cpu) (rack) *) ALPHA$K_AS1807010101 = 1541; (* AlphaServer 2000A 5/400 (1cpu) *) ALPHA$K_AS1807010102 = 1542; (* AlphaServer 2000A 5/400 (2cpu) *) ALPHA$K_AS1807010103 = 1543; (* AlphaServer 2000A 5/400 (3cpu) *) ALPHA$K_AS1807010104 = 1544; (* AlphaServer 2000A 5/400 (4cpu) *) ALPHA$K_AS1807020101 = 1545; (* AlphaServer 2100A 5/400 (1cpu) *) ALPHA$K_AS1807020102 = 1546; (* AlphaServer 2100A 5/400 (2cpu) *) ALPHA$K_AS1807020103 = 1547; (* AlphaServer 2100A 5/400 (3cpu) *) ALPHA$K_AS1807020104 = 1548; (* AlphaServer 2100A 5/400 (4cpu) *) ALPHA$K_AS1807030101 = 1549; (* AlphaServer 2100A 5/400 (1cpu) (rack) *) ALPHA$K_AS1807030102 = 1550; (* AlphaServer 2100A 5/400 (2cpu) (rack) *) ALPHA$K_AS1807030103 = 1551; (* AlphaServer 2100A 5/400 (3cpu) (rack) *) ALPHA$K_AS1807030104 = 1552; (* AlphaServer 2100A 5/400 (4cpu) (rack) *) ALPHA$K_AS1406030001 = 1553; (* AlphaPCI64 275, EV45 2MB Cache *) ALPHA$K_AS1E07010001 = 1554; (* Personal Workstation 433au *) ALPHA$K_AS1E07020001 = 1555; (* Personal Workstation 466au *) ALPHA$K_AS1E07030001 = 1556; (* Personal Workstation 500au *) ALPHA$K_AS1E07040001 = 1557; (* Personal Workstation 533au *) ALPHA$K_AS1B07030101 = 1558; (* AlphaServer 1000A 5/333 *) ALPHA$K_AS1107050101 = 1559; (* AlphaServer 1000 5/333 *) ALPHA$K_AS0C07040001 = 1560; (* AlphaServer 8200 5/440 (1cpu) *) ALPHA$K_AS0C07040002 = 1561; (* AlphaServer 8200 5/440 (2cpu) *) ALPHA$K_AS0C07040003 = 1562; (* AlphaServer 8200 5/440 (3cpu) *) ALPHA$K_AS0C07040004 = 1563; (* AlphaServer 8200 5/440 (4cpu) *) ALPHA$K_AS0C07040005 = 1564; (* AlphaServer 8200 5/440 (5cpu) *) ALPHA$K_AS0C07040006 = 1565; (* AlphaServer 8200 5/440 (6cpu) *) ALPHA$K_AS0C07050001 = 1566; (* AlphaServer 8400 5/440 (1cpu) *) ALPHA$K_AS0C07050002 = 1567; (* AlphaServer 8400 5/440 (2cpu) *) ALPHA$K_AS0C07050003 = 1568; (* AlphaServer 8400 5/440 (3cpu) *) ALPHA$K_AS0C07050004 = 1569; (* AlphaServer 8400 5/440 (4cpu) *) ALPHA$K_AS0C07050005 = 1570; (* AlphaServer 8400 5/440 (5cpu) *) ALPHA$K_AS0C07050006 = 1571; (* AlphaServer 8400 5/440 (6cpu) *) ALPHA$K_AS0C07050007 = 1572; (* AlphaServer 8400 5/440 (7cpu) *) ALPHA$K_AS0C07050008 = 1573; (* AlphaServer 8400 5/440 (8cpu) *) ALPHA$K_AS0C07050009 = 1574; (* AlphaServer 8400 5/440 (9cpu) *) ALPHA$K_AS0C0705000A = 1575; (* AlphaServer 8400 5/440 (10cpu) *) ALPHA$K_AS0C0705000B = 1576; (* AlphaServer 8400 5/440 (11cpu) *) ALPHA$K_AS0C0705000C = 1577; (* AlphaServer 8400 5/440 (12cpu) *) ALPHA$K_AS1F05010001 = 1578; (* XXM, EV5 266 MHz *) ALPHA$K_AS2007010001 = 1579; (* DIGITAL 21164 PICMG SBC *) ALPHA$K_AS1B07030201 = 1580; (* AlphaServer 1000A 5/500 2MB Cache *) ALPHA$K_AS1B07030301 = 1581; (* AlphaServer 1000A 5/500 8MB Cache *) ALPHA$K_AS1107050201 = 1582; (* AlphaServer 1000 5/500 2MB Cache *) ALPHA$K_AS1107050301 = 1583; (* AlphaServer 1000 5/500 8MB Cache *) ALPHA$K_AS1B07040101 = 1584; (* AlphaServer 800 5/400 2MB Cache *) ALPHA$K_AS1B07040201 = 1585; (* AlphaServer 800 5/500 2MB Cache *) ALPHA$K_AS1A07060001 = 1586; (* AlphaPC 164, EV56 466 MHz *) ALPHA$K_AS1A07070001 = 1587; (* AlphaPC 164, EV56 500 MHz *) ALPHA$K_AS2107000001 = 1588; (* AlphaVME 5/320, EV56 *) ALPHA$K_AS2107010001 = 1589; (* AlphaVME 5/480, EV56 *) ALPHA$K_AS1B07030401 = 1590; (* AlphaStation 600A 5/500 8MB Cache *) ALPHA$K_AS0C0705000D = 1591; (* AlphaServer 8400 5/440 (13cpu) *) ALPHA$K_AS0C0705000E = 1592; (* AlphaServer 8400 5/440 (14cpu) *) ALPHA$K_AS0D06080101 = 1593; (* AlphaServer 300 4/266 *) ALPHA$K_AS1607020401 = 1594; (* AlphaServer 4100 5/466 4MB (1cpu) (rack) *) ALPHA$K_AS1607020402 = 1595; (* AlphaServer 4100 5/466 4MB (2cpu) (rack) *) ALPHA$K_AS1607020403 = 1596; (* AlphaServer 4100 5/466 4MB (3cpu) (rack) *) ALPHA$K_AS1607020404 = 1597; (* AlphaServer 4100 5/466 4MB (4cpu) (rack) *) ALPHA$K_AS1607010401 = 1598; (* AlphaServer 4100 5/466 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607010402 = 1599; (* AlphaServer 4100 5/466 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607010403 = 1600; (* AlphaServer 4100 5/466 4MB (3cpu) (pedestal) *) ALPHA$K_AS1607010404 = 1601; (* AlphaServer 4100 5/466 4MB (4cpu) (pedestal) *) ALPHA$K_AS1607020501 = 1602; (* AlphaServer 4100 5/533 4MB (1cpu) (rack) *) ALPHA$K_AS1607020502 = 1603; (* AlphaServer 4100 5/533 4MB (2cpu) (rack) *) ALPHA$K_AS1607020503 = 1604; (* AlphaServer 4100 5/533 4MB (3cpu) (rack) *) ALPHA$K_AS1607020504 = 1605; (* AlphaServer 4100 5/533 4MB (4cpu) (rack) *) ALPHA$K_AS1607010501 = 1606; (* AlphaServer 4100 5/533 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607010502 = 1607; (* AlphaServer 4100 5/533 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607010503 = 1608; (* AlphaServer 4100 5/533 4MB (3cpu) (pedestal) *) ALPHA$K_AS1607010504 = 1609; (* AlphaServer 4100 5/533 4MB (4cpu) (pedestal) *) ALPHA$K_AS1607020601 = 1610; (* AlphaServer 4100 5/533 8MB (1cpu) (rack) *) ALPHA$K_AS1607020602 = 1611; (* AlphaServer 4100 5/533 8MB (2cpu) (rack) *) ALPHA$K_AS1607020603 = 1612; (* AlphaServer 4100 5/533 8MB (3cpu) (rack) *) ALPHA$K_AS1607020604 = 1613; (* AlphaServer 4100 5/533 8MB (4cpu) (rack) *) ALPHA$K_AS1607010601 = 1614; (* AlphaServer 4100 5/533 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607010602 = 1615; (* AlphaServer 4100 5/533 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607010603 = 1616; (* AlphaServer 4100 5/533 8MB (3cpu) (pedestal) *) ALPHA$K_AS1607010604 = 1617; (* AlphaServer 4100 5/533 8MB (4cpu) (pedestal) *) ALPHA$K_AS1607020701 = 1618; (* AlphaServer 4100 5/600 8MB (1cpu) (rack) *) ALPHA$K_AS1607020702 = 1619; (* AlphaServer 4100 5/600 8MB (2cpu) (rack) *) ALPHA$K_AS1607020703 = 1620; (* AlphaServer 4100 5/600 8MB (3cpu) (rack) *) ALPHA$K_AS1607020704 = 1621; (* AlphaServer 4100 5/600 8MB (4cpu) (rack) *) ALPHA$K_AS1607010701 = 1622; (* AlphaServer 4100 5/600 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607010702 = 1623; (* AlphaServer 4100 5/600 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607010703 = 1624; (* AlphaServer 4100 5/600 8MB (3cpu) (pedestal) *) ALPHA$K_AS1607010704 = 1625; (* AlphaServer 4100 5/600 8MB (4cpu) (pedestal) *) ALPHA$K_AS1607020801 = 1626; (* AlphaServer 4100 5/666 8MB (1cpu) (rack) *) ALPHA$K_AS1607020802 = 1627; (* AlphaServer 4100 5/666 8MB (2cpu) (rack) *) ALPHA$K_AS1607020803 = 1628; (* AlphaServer 4100 5/666 8MB (3cpu) (rack) *) ALPHA$K_AS1607020804 = 1629; (* AlphaServer 4100 5/666 8MB (4cpu) (rack) *) ALPHA$K_AS1607010801 = 1630; (* AlphaServer 4100 5/666 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607010802 = 1631; (* AlphaServer 4100 5/666 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607010803 = 1632; (* AlphaServer 4100 5/666 8MB (3cpu) (pedestal) *) ALPHA$K_AS1607010804 = 1633; (* AlphaServer 4100 5/666 8MB (4cpu) (pedestal) *) ALPHA$K_AS1607040401 = 1634; (* AlphaServer 4000 5/466 4MB (1cpu) (rack) *) ALPHA$K_AS1607040402 = 1635; (* AlphaServer 4000 5/466 4MB (2cpu) (rack) *) ALPHA$K_AS1607030401 = 1636; (* AlphaServer 4000 5/466 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607030402 = 1637; (* AlphaServer 4000 5/466 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607040501 = 1638; (* AlphaServer 4000 5/533 4MB (1cpu) (rack) *) ALPHA$K_AS1607040502 = 1639; (* AlphaServer 4000 5/533 4MB (2cpu) (rack) *) ALPHA$K_AS1607030501 = 1640; (* AlphaServer 4000 5/533 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607030502 = 1641; (* AlphaServer 4000 5/533 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607040601 = 1642; (* AlphaServer 4000 5/533 8MB (1cpu) (rack) *) ALPHA$K_AS1607040602 = 1643; (* AlphaServer 4000 5/533 8MB (2cpu) (rack) *) ALPHA$K_AS1607030601 = 1644; (* AlphaServer 4000 5/533 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607030602 = 1645; (* AlphaServer 4000 5/533 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607040701 = 1646; (* AlphaServer 4000 5/600 8MB (1cpu) (rack) *) ALPHA$K_AS1607040702 = 1647; (* AlphaServer 4000 5/600 8MB (2cpu) (rack) *) ALPHA$K_AS1607030701 = 1648; (* AlphaServer 4000 5/600 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607030702 = 1649; (* AlphaServer 4000 5/600 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607040801 = 1650; (* AlphaServer 4000 5/666 8MB (1cpu) (rack) *) ALPHA$K_AS1607040802 = 1651; (* AlphaServer 4000 5/666 8MB (2cpu) (rack) *) ALPHA$K_AS1607030801 = 1652; (* AlphaServer 4000 5/666 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607030802 = 1653; (* AlphaServer 4000 5/666 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607060401 = 1654; (* AlphaServer 4000 5/466 4MB (1cpu) (rack) *) ALPHA$K_AS1607060402 = 1655; (* AlphaServer 4000 5/466 4MB (2cpu) (rack) *) ALPHA$K_AS1607050401 = 1656; (* AlphaServer 4000 5/466 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607050402 = 1657; (* AlphaServer 4000 5/466 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607060501 = 1658; (* AlphaServer 4000 5/533 4MB (1cpu) (rack) *) ALPHA$K_AS1607060502 = 1659; (* AlphaServer 4000 5/533 4MB (2cpu) (rack) *) ALPHA$K_AS1607050501 = 1660; (* AlphaServer 4000 5/533 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607050502 = 1661; (* AlphaServer 4000 5/533 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607060601 = 1662; (* AlphaServer 4000 5/533 8MB (1cpu) (rack) *) ALPHA$K_AS1607060602 = 1663; (* AlphaServer 4000 5/533 8MB (2cpu) (rack) *) ALPHA$K_AS1607050601 = 1664; (* AlphaServer 4000 5/533 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607050602 = 1665; (* AlphaServer 4000 5/533 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607060701 = 1666; (* AlphaServer 4000 5/600 8MB (1cpu) (rack) *) ALPHA$K_AS1607060702 = 1667; (* AlphaServer 4000 5/600 8MB (2cpu) (rack) *) ALPHA$K_AS1607050701 = 1668; (* AlphaServer 4000 5/600 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607050702 = 1669; (* AlphaServer 4000 5/600 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607060801 = 1670; (* AlphaServer 4000 5/666 8MB (1cpu) (rack) *) ALPHA$K_AS1607060802 = 1671; (* AlphaServer 4000 5/666 8MB (2cpu) (rack) *) ALPHA$K_AS1607050801 = 1672; (* AlphaServer 4000 5/666 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607050802 = 1673; (* AlphaServer 4000 5/666 8MB (2cpu) (pedestal) *) ALPHA$K_AS0C07060001 = 1674; (* AlphaServer 8200 5/622 (1cpu) *) ALPHA$K_AS0C07060002 = 1674; (* AlphaServer 8200 5/622 (2cpu) *) ALPHA$K_AS0C07060003 = 1674; (* AlphaServer 8200 5/622 (3cpu) *) ALPHA$K_AS0C07060004 = 1674; (* AlphaServer 8200 5/622 (4cpu) *) ALPHA$K_AS0C07060005 = 1674; (* AlphaServer 8200 5/622 (5cpu) *) ALPHA$K_AS0C07060006 = 1674; (* AlphaServer 8200 5/622 (6cpu) *) ALPHA$K_AS0C07070001 = 1680; (* AlphaServer 8400 5/622 (1cpu) *) ALPHA$K_AS0C07070002 = 1681; (* AlphaServer 8400 5/622 (2cpu) *) ALPHA$K_AS0C07070003 = 1682; (* AlphaServer 8400 5/622 (3cpu) *) ALPHA$K_AS0C07070004 = 1683; (* AlphaServer 8400 5/622 (4cpu) *) ALPHA$K_AS0C07070005 = 1684; (* AlphaServer 8400 5/622 (5cpu) *) ALPHA$K_AS0C07070006 = 1685; (* AlphaServer 8400 5/622 (6cpu) *) ALPHA$K_AS0C07070007 = 1686; (* AlphaServer 8400 5/622 (7cpu) *) ALPHA$K_AS0C07070008 = 1687; (* AlphaServer 8400 5/622 (8cpu) *) ALPHA$K_AS0C07070009 = 1688; (* AlphaServer 8400 5/622 (9cpu) *) ALPHA$K_AS0C0707000A = 1689; (* AlphaServer 8400 5/622 (10cpu) *) ALPHA$K_AS0C0707000B = 1690; (* AlphaServer 8400 5/622 (11cpu) *) ALPHA$K_AS0C0707000C = 1691; (* AlphaServer 8400 5/622 (12cpu) *) ALPHA$K_AS0C0707000D = 1692; (* AlphaServer 8400 5/622 (13cpu) *) ALPHA$K_AS0C0707000E = 1693; (* AlphaServer 8400 5/622 (14cpu) *) ALPHA$K_AS1A07080001 = 1694; (* AlphaPC 164LX 400, EV56 400 MHz *) ALPHA$K_AS1A07090001 = 1695; (* AlphaPC 164LX 466, EV56 466 MHz *) ALPHA$K_AS1A070A0001 = 1696; (* AlphaPC 164LX 533, EV56 533 MHz *) ALPHA$K_AS1A070B0001 = 1697; (* AlphaPC 164LX 600, EV56 600 MHz *) ALPHA$K_AS1A070C0001 = 1698; (* AlphaPC 164SX 400, EV56 400 MHz *) ALPHA$K_AS1A070D0001 = 1699; (* AlphaPC 164SX 466, EV56 466 MHz *) ALPHA$K_AS1A070E0001 = 1700; (* AlphaPC 164SX 533, EV56 533 MHz *) ALPHA$K_AS1A070F0001 = 1701; (* AlphaPC 164SX 600, EV56 600 MHz *) ALPHA$K_AS1E07050001 = 1702; (* Personal Workstation 566au *) ALPHA$K_AS1E07060001 = 1703; (* Personal Workstation 600au *) ALPHA$K_AS1E07070001 = 1704; (* Personal Workstation 633au *) ALPHA$K_AS1E07080001 = 1705; (* Personal Workstation 666au *) ALPHA$K_AS1E07090001 = 1706; (* Personal Workstation 700au *) ALPHA$K_AS1E070A0001 = 1707; (* Personal Workstation 733au *) ALPHA$K_AS1E070B0001 = 1708; (* Personal Workstation 766au *) ALPHA$K_AS1E070C0001 = 1709; (* Personal Workstation 800au *) ALPHA$K_AS1E070D0001 = 1710; (* Personal Workstation 833au *) ALPHA$K_AS1E070E0001 = 1711; (* Personal Workstation 866au *) ALPHA$K_AS1E070F0001 = 1712; (* Personal Workstation 900au *) ALPHA$K_AS1E07100001 = 1713; (* Personal Workstation 933au *) ALPHA$K_AS1E07110001 = 1714; (* Personal Workstation 966au *) ALPHA$K_AS1E07120001 = 1715; (* Personal Workstation 1000au *) ALPHA$K_AS1E07130001 = 1716; (* Personal Workstation 466au *) ALPHA$K_AS1E07140001 = 1717; (* Personal Workstation 533au *) ALPHA$K_AS1E07150001 = 1718; (* Personal Workstation 600au *) ALPHA$K_AS1E07160001 = 1719; (* Personal Workstation 666au *) ALPHA$K_AS1E09140001 = 1720; (* Personal Workstation 466au *) ALPHA$K_AS1E09140101 = 1721; (* Personal Workstation 550au *) ALPHA$K_AS1605080001 = 1722; (* AlphaServer 1200 5/300 2MB (1cpu) (rack) *) ALPHA$K_AS1605080002 = 1723; (* AlphaServer 1200 5/300 2MB (2cpu) (rack) *) ALPHA$K_AS1605070001 = 1724; (* AlphaServer 1200 5/300 2MB (1cpu) (pedestal) *) ALPHA$K_AS1605070002 = 1725; (* AlphaServer 1200 5/300 2MB (2cpu) (pedestal) *) ALPHA$K_AS1607080101 = 1726; (* AlphaServer 1200 5/400 4MB (1cpu) (rack) *) ALPHA$K_AS1607080102 = 1727; (* AlphaServer 1200 5/400 4MB (2cpu) (rack) *) ALPHA$K_AS1607070101 = 1728; (* AlphaServer 1200 5/400 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607070102 = 1729; (* AlphaServer 1200 5/400 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607080201 = 1730; (* AlphaServer 1200 5/466 4MB (1cpu) (rack) *) ALPHA$K_AS1607080202 = 1731; (* AlphaServer 1200 5/466 4MB (2cpu) (rack) *) ALPHA$K_AS1607070201 = 1732; (* AlphaServer 1200 5/466 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607070202 = 1733; (* AlphaServer 1200 5/466 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607080301 = 1734; (* AlphaServer 1200 5/533 4MB (1cpu) (rack) *) ALPHA$K_AS1607080302 = 1735; (* AlphaServer 1200 5/533 4MB (2cpu) (rack) *) ALPHA$K_AS1607070301 = 1736; (* AlphaServer 1200 5/533 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607070302 = 1737; (* AlphaServer 1200 5/533 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607080401 = 1738; (* AlphaServer 1200 5/600 4MB (1cpu) (rack) *) ALPHA$K_AS1607080402 = 1739; (* AlphaServer 1200 5/600 4MB (2cpu) (rack) *) ALPHA$K_AS1607070401 = 1740; (* AlphaServer 1200 5/600 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607070402 = 1741; (* AlphaServer 1200 5/600 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607080501 = 1742; (* AlphaServer 1200 5/666 4MB (1cpu) (rack) *) ALPHA$K_AS1607080502 = 1743; (* AlphaServer 1200 5/666 4MB (2cpu) (rack) *) ALPHA$K_AS1607070501 = 1744; (* AlphaServer 1200 5/666 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607070502 = 1745; (* AlphaServer 1200 5/666 4MB (2cpu) (pedestal) *) ALPHA$K_AS1607080601 = 1746; (* AlphaServer 1200 5/533 8MB (1cpu) (rack) *) ALPHA$K_AS1607080602 = 1747; (* AlphaServer 1200 5/533 8MB (2cpu) (rack) *) ALPHA$K_AS1607070601 = 1748; (* AlphaServer 1200 5/533 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607070602 = 1749; (* AlphaServer 1200 5/533 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607080701 = 1750; (* AlphaServer 1200 5/600 8MB (1cpu) (rack) *) ALPHA$K_AS1607080702 = 1751; (* AlphaServer 1200 5/600 8MB (2cpu) (rack) *) ALPHA$K_AS1607070701 = 1752; (* AlphaServer 1200 5/600 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607070702 = 1753; (* AlphaServer 1200 5/600 8MB (2cpu) (pedestal) *) ALPHA$K_AS1607080801 = 1754; (* AlphaServer 1200 5/666 8MB (1cpu) (rack) *) ALPHA$K_AS1607080802 = 1755; (* AlphaServer 1200 5/666 8MB (2cpu) (rack) *) ALPHA$K_AS1607070801 = 1756; (* AlphaServer 1200 5/666 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607070802 = 1757; (* AlphaServer 1200 5/666 8MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0101 = 1758; (* AlphaStation 1200 5/400 4MB (1cpu) (rack) *) ALPHA$K_AS16070A0102 = 1759; (* AlphaStation 1200 5/400 4MB (2cpu) (rack) *) ALPHA$K_AS1607090101 = 1760; (* AlphaStation 1200 5/400 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607090102 = 1761; (* AlphaStation 1200 5/400 4MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0201 = 1762; (* AlphaStation 1200 5/466 4MB (1cpu) (rack) *) ALPHA$K_AS16070A0202 = 1763; (* AlphaStation 1200 5/466 4MB (2cpu) (rack) *) ALPHA$K_AS1607090201 = 1764; (* AlphaStation 1200 5/466 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607090202 = 1765; (* AlphaStation 1200 5/466 4MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0301 = 1766; (* AlphaStation 1200 5/533 4MB (1cpu) (rack) *) ALPHA$K_AS16070A0302 = 1767; (* AlphaStation 1200 5/533 4MB (2cpu) (rack) *) ALPHA$K_AS1607090301 = 1768; (* AlphaStation 1200 5/533 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607090302 = 1769; (* AlphaStation 1200 5/533 4MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0401 = 1770; (* AlphaStation 1200 5/600 4MB (1cpu) (rack) *) ALPHA$K_AS16070A0402 = 1771; (* AlphaStation 1200 5/600 4MB (2cpu) (rack) *) ALPHA$K_AS1607090401 = 1772; (* AlphaStation 1200 5/600 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607090402 = 1773; (* AlphaStation 1200 5/600 4MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0501 = 1774; (* AlphaStation 1200 5/666 4MB (1cpu) (rack) *) ALPHA$K_AS16070A0502 = 1775; (* AlphaStation 1200 5/666 4MB (2cpu) (rack) *) ALPHA$K_AS1607090501 = 1776; (* AlphaStation 1200 5/666 4MB (1cpu) (pedestal) *) ALPHA$K_AS1607090502 = 1777; (* AlphaStation 1200 5/666 4MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0601 = 1778; (* AlphaStation 1200 5/533 8MB (1cpu) (rack) *) ALPHA$K_AS16070A0602 = 1779; (* AlphaStation 1200 5/533 8MB (2cpu) (rack) *) ALPHA$K_AS1607090601 = 1780; (* AlphaStation 1200 5/533 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607090602 = 1781; (* AlphaStation 1200 5/533 8MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0701 = 1782; (* AlphaStation 1200 5/600 8MB (1cpu) (rack) *) ALPHA$K_AS16070A0702 = 1783; (* AlphaStation 1200 5/600 8MB (2cpu) (rack) *) ALPHA$K_AS1607090701 = 1784; (* AlphaStation 1200 5/600 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607090702 = 1785; (* AlphaStation 1200 5/600 8MB (2cpu) (pedestal) *) ALPHA$K_AS16070A0801 = 1786; (* AlphaStation 1200 5/666 8MB (1cpu) (rack) *) ALPHA$K_AS16070A0802 = 1787; (* AlphaStation 1200 5/666 8MB (2cpu) (rack) *) ALPHA$K_AS1607090801 = 1788; (* AlphaStation 1200 5/666 8MB (1cpu) (pedestal) *) ALPHA$K_AS1607090802 = 1789; (* AlphaStation 1200 5/666 8MB (2cpu) (pedestal) *) ALPHA$K_AS1E07190001 = 1790; (* Personal Workstation 433au *) ALPHA$K_AS1E071A0001 = 1791; (* Personal Workstation 500au *) ALPHA$K_AS1E071B0001 = 1792; (* Personal Workstation 600au *) ALPHA$K_AS0C07080001 = 1793; (* AlphaServer 8200 5/625 (1cpu) *) ALPHA$K_AS0C07080002 = 1794; (* AlphaServer 8200 5/625 (2cpu) *) ALPHA$K_AS0C07080003 = 1795; (* AlphaServer 8200 5/625 (3cpu) *) ALPHA$K_AS0C07080004 = 1796; (* AlphaServer 8200 5/625 (4cpu) *) ALPHA$K_AS0C07080005 = 1797; (* AlphaServer 8200 5/625 (5cpu) *) ALPHA$K_AS0C07080006 = 1798; (* AlphaServer 8200 5/625 (6cpu) *) ALPHA$K_AS0C07090001 = 1799; (* AlphaServer 8400 5/625 (1cpu) *) ALPHA$K_AS0C07090002 = 1800; (* AlphaServer 8400 5/625 (2cpu) *) ALPHA$K_AS0C07090003 = 1801; (* AlphaServer 8400 5/625 (3cpu) *) ALPHA$K_AS0C07090004 = 1802; (* AlphaServer 8400 5/625 (4cpu) *) ALPHA$K_AS0C07090005 = 1803; (* AlphaServer 8400 5/625 (5cpu) *) ALPHA$K_AS0C07090006 = 1804; (* AlphaServer 8400 5/625 (6cpu) *) ALPHA$K_AS0C07090007 = 1805; (* AlphaServer 8400 5/625 (7cpu) *) ALPHA$K_AS0C07090008 = 1806; (* AlphaServer 8400 5/625 (8cpu) *) ALPHA$K_AS0C07090009 = 1807; (* AlphaServer 8400 5/625 (9cpu) *) ALPHA$K_AS0C0709000A = 1808; (* AlphaServer 8400 5/625 (10cpu) *) ALPHA$K_AS0C0709000B = 1809; (* AlphaServer 8400 5/625 (11cpu) *) ALPHA$K_AS0C0709000C = 1810; (* AlphaServer 8400 5/625 (12cpu) *) ALPHA$K_AS0C0709000D = 1811; (* AlphaServer 8400 5/625 (13cpu) *) ALPHA$K_AS0C0709000E = 1812; (* AlphaServer 8400 5/625 (14cpu) *) ALPHA$K_AS2208050001 = 1813; (* AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 8-slot MMB) *) ALPHA$K_AS2208050002 = 1814; (* AlphaServer ES40 6/500 (2cpu) *) ALPHA$K_AS2208050003 = 1815; (* AlphaServer ES40 6/500 (3cpu) *) ALPHA$K_AS2208050004 = 1816; (* AlphaServer ES40 6/500 (4cpu) *) ALPHA$K_AS2208050101 = 1817; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 8-slot MMB) *) ALPHA$K_AS2208050102 = 1818; (* AlphaServer ES40 6/667 (2cpu) *) ALPHA$K_AS2208050103 = 1819; (* AlphaServer ES40 6/667 (3cpu) *) ALPHA$K_AS2208050104 = 1820; (* AlphaServer ES40 6/667 (4cpu) *) ALPHA$K_AS2208050201 = 1821; (* Professional Workstation XP1000 6/500 *) ALPHA$K_AS220B090001 = 1822; (* Professional Workstation XP1000 67/667 *) ALPHA$K_AS1E071C0001 = 1823; (* Personal Workstation 466au *) ALPHA$K_AS1E071D0001 = 1824; (* Personal Workstation 533au *) ALPHA$K_AS1E071E0001 = 1825; (* Personal Workstation 600au *) ALPHA$K_AS1E071F0001 = 1826; (* Personal Workstation 666au *) ALPHA$K_AS1E07200001 = 1827; (* Personal Workstation 700au *) ALPHA$K_AS1E07210001 = 1828; (* Personal Workstation 733au *) ALPHA$K_AS1E07220001 = 1829; (* Personal Workstation 767au *) ALPHA$K_AS1E07230001 = 1830; (* Personal Workstation 800au *) ALPHA$K_AS1E07240001 = 1831; (* Personal Workstation 833au *) ALPHA$K_AS1E07250001 = 1832; (* Personal Workstation 867au *) ALPHA$K_AS1E07260001 = 1833; (* Personal Workstation 900au *) ALPHA$K_AS1E07270001 = 1834; (* Personal Workstation 933au *) ALPHA$K_AS1E07280001 = 1835; (* Personal Workstation 967au *) ALPHA$K_AS1E07290001 = 1836; (* Personal Workstation 1000au *) ALPHA$K_AS2508010001 = 1837; (* SMARTengine Alpha 21264 SBC *) ALPHA$K_AS2208060001 = 1838; (* AlphaServer DS20 6/500 *) ALPHA$K_AS2208070001 = 1839; (* AlphaServer DS10 6/466 *) ALPHA$K_AS2208080001 = 1840; (* AlphaServer DS20E 6/500 *) ALPHA$K_AS0C080A0001 = 1841; (* AlphaServer GS60 6/525 (1cpu) *) ALPHA$K_AS0C080A0002 = 1842; (* AlphaServer GS60 6/525 (2cpu) *) ALPHA$K_AS0C080A0003 = 1843; (* AlphaServer GS60 6/525 (3cpu) *) ALPHA$K_AS0C080A0004 = 1844; (* AlphaServer GS60 6/525 (4cpu) *) ALPHA$K_AS0C080A0005 = 1845; (* AlphaServer GS60 6/525 (5cpu) *) ALPHA$K_AS0C080A0006 = 1846; (* AlphaServer GS60 6/525 (6cpu) *) ALPHA$K_AS0C080B0001 = 1847; (* AlphaServer GS140 6/525 (1cpu) *) ALPHA$K_AS0C080B0002 = 1848; (* AlphaServer GS140 6/525 (2cpu) *) ALPHA$K_AS0C080B0003 = 1849; (* AlphaServer GS140 6/525 (3cpu) *) ALPHA$K_AS0C080B0004 = 1850; (* AlphaServer GS140 6/525 (4cpu) *) ALPHA$K_AS0C080B0005 = 1851; (* AlphaServer GS140 6/525 (5cpu) *) ALPHA$K_AS0C080B0006 = 1852; (* AlphaServer GS140 6/525 (6cpu) *) ALPHA$K_AS0C080B0007 = 1853; (* AlphaServer GS140 6/525 (7cpu) *) ALPHA$K_AS0C080B0008 = 1854; (* AlphaServer GS140 6/525 (8cpu) *) ALPHA$K_AS0C080B0009 = 1855; (* AlphaServer GS140 6/525 (9cpu) *) ALPHA$K_AS0C080B000A = 1856; (* AlphaServer GS140 6/525 (10cpu) *) ALPHA$K_AS0C080B000B = 1857; (* AlphaServer GS140 6/525 (11cpu) *) ALPHA$K_AS0C080B000C = 1858; (* AlphaServer GS140 6/525 (12cpu) *) ALPHA$K_AS0C080B000D = 1859; (* AlphaServer GS140 6/525 (13cpu) *) ALPHA$K_AS0C080B000E = 1860; (* AlphaServer GS140 6/525 (14cpu) *) ALPHA$K_AS2208050301 = 1861; (* AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 8-slot MMB) *) ALPHA$K_AS2208050302 = 1862; (* AlphaServer ES40 6/500 (2cpu) *) ALPHA$K_AS2208050303 = 1863; (* AlphaServer ES40 6/500 (3cpu) *) ALPHA$K_AS2208050304 = 1864; (* AlphaServer ES40 6/500 (4cpu) *) ALPHA$K_AS2208050401 = 1865; (* AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 8-slot MMB) *) ALPHA$K_AS2208050402 = 1866; (* AlphaServer ES40 6/667 (2cpu) *) ALPHA$K_AS2208050403 = 1867; (* AlphaServer ES40 6/667 (3cpu) *) ALPHA$K_AS2208050404 = 1868; (* AlphaServer ES40 6/667 (4cpu) *) ALPHA$K_AS2208050501 = 1869; (* AlphaServer ES40 6/500 (1cpu, 6-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050502 = 1870; (* AlphaServer ES40 6/500 (2cpu) *) ALPHA$K_AS2208050503 = 1871; (* AlphaServer ES40 6/500 (3cpu) *) ALPHA$K_AS2208050504 = 1872; (* AlphaServer ES40 6/500 (4cpu) *) ALPHA$K_AS2208050601 = 1873; (* AlphaServer ES40 6/667 (1cpu, 6-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050602 = 1874; (* AlphaServer ES40 6/667 (2cpu) *) ALPHA$K_AS2208050603 = 1875; (* AlphaServer ES40 6/667 (3cpu) *) ALPHA$K_AS2208050604 = 1876; (* AlphaServer ES40 6/667 (4cpu) *) ALPHA$K_AS2107040001 = 1877; (* AlphaVME 5/480A, 5/480U *) ALPHA$K_AS2107050001 = 1878; (* AlphaVME 5/320U *) ALPHA$K_AS2208070101 = 1879; (* AlphaStation XP900, DS10, 6/466 *) ALPHA$K_AS0C080C0001 = 1880; (* AlphaServer GS60e 6/525 (1cpu) *) ALPHA$K_AS0C080C0002 = 1881; (* AlphaServer GS60e 6/525 (2cpu) *) ALPHA$K_AS0C080C0003 = 1882; (* AlphaServer GS60e 6/525 (3cpu) *) ALPHA$K_AS0C080C0004 = 1883; (* AlphaServer GS60e 6/525 (4cpu) *) ALPHA$K_AS0C080C0005 = 1884; (* AlphaServer GS60e 6/525 (5cpu) *) ALPHA$K_AS0C080C0006 = 1885; (* AlphaServer GS60e 6/525 (6cpu) *) ALPHA$K_AS0C080C0007 = 1886; (* AlphaServer GS60e 6/525 (7cpu) *) ALPHA$K_AS0C080C0008 = 1887; (* AlphaServer GS60e 6/525 (8cpu) *) ALPHA$K_AS0C0B0D0001 = 1890; (* AlphaServer GS60 67/700 (1cpu) *) ALPHA$K_AS0C0B0D0002 = 1891; (* AlphaServer GS60 67/700 (2cpu) *) ALPHA$K_AS0C0B0D0003 = 1892; (* AlphaServer GS60 67/700 (3cpu) *) ALPHA$K_AS0C0B0D0004 = 1893; (* AlphaServer GS60 67/700 (4cpu) *) ALPHA$K_AS0C0B0D0005 = 1894; (* AlphaServer GS60 67/700 (5cpu) *) ALPHA$K_AS0C0B0D0006 = 1895; (* AlphaServer GS60 67/700 (6cpu) *) ALPHA$K_AS0C0B0E0001 = 1896; (* AlphaServer GS140 67/700 (1cpu) *) ALPHA$K_AS0C0B0E0002 = 1897; (* AlphaServer GS140 67/700 (2cpu) *) ALPHA$K_AS0C0B0E0003 = 1898; (* AlphaServer GS140 67/700 (3cpu) *) ALPHA$K_AS0C0B0E0004 = 1899; (* AlphaServer GS140 67/700 (4cpu) *) ALPHA$K_AS0C0B0E0005 = 1900; (* AlphaServer GS140 67/700 (5cpu) *) ALPHA$K_AS0C0B0E0006 = 1901; (* AlphaServer GS140 67/700 (6cpu) *) ALPHA$K_AS0C0B0E0007 = 1902; (* AlphaServer GS140 67/700 (7cpu) *) ALPHA$K_AS0C0B0E0008 = 1903; (* AlphaServer GS140 67/700 (8cpu) *) ALPHA$K_AS0C0B0E0009 = 1904; (* AlphaServer GS140 67/700 (9cpu) *) ALPHA$K_AS0C0B0E000A = 1905; (* AlphaServer GS140 67/700 (10cpu) *) ALPHA$K_AS0C0B0E000B = 1906; (* AlphaServer GS140 67/700 (11cpu) *) ALPHA$K_AS0C0B0E000C = 1907; (* AlphaServer GS140 67/700 (12cpu) *) ALPHA$K_AS0C0B0E000D = 1908; (* AlphaServer GS140 67/700 (13cpu) *) ALPHA$K_AS0C0B0E000E = 1909; (* AlphaServer GS140 67/700 (14cpu) *) ALPHA$K_AS0C0B0F0001 = 1910; (* AlphaServer GS60e 67/700 (1cpu) *) ALPHA$K_AS0C0B0F0002 = 1911; (* AlphaServer GS60e 67/700 (2cpu) *) ALPHA$K_AS0C0B0F0003 = 1912; (* AlphaServer GS60e 67/700 (3cpu) *) ALPHA$K_AS0C0B0F0004 = 1913; (* AlphaServer GS60e 67/700 (4cpu) *) ALPHA$K_AS0C0B0F0005 = 1914; (* AlphaServer GS60e 67/700 (5cpu) *) ALPHA$K_AS0C0B0F0006 = 1915; (* AlphaServer GS60e 67/700 (6cpu) *) ALPHA$K_AS0C0B0F0007 = 1916; (* AlphaServer GS60e 67/700 (7cpu) *) ALPHA$K_AS0C0B0F0008 = 1917; (* AlphaServer GS60e 67/700 (8cpu) *) ALPHA$K_AS2208060002 = 1920; (* AlphaServer DS20 6/500 (2cpu) (pedestal) *) ALPHA$K_AS2208080002 = 1921; (* AlphaServer DS20 6/500 (2cpu) (rack) *) ALPHA$K_AS220B050001 = 1822; (* Professional Workstation XP1000 67/750 *) ALPHA$K_AS2208050701 = 1923; (* AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050702 = 1924; (* AlphaServer ES40 6/500 (2cpu) *) ALPHA$K_AS2208050703 = 1925; (* AlphaServer ES40 6/500 (3cpu) *) ALPHA$K_AS2208050704 = 1926; (* AlphaServer ES40 6/500 (4cpu) *) ALPHA$K_AS2208050801 = 1927; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050802 = 1928; (* AlphaServer ES40 6/667 (2cpu) *) ALPHA$K_AS2208050803 = 1929; (* AlphaServer ES40 6/667 (3cpu) *) ALPHA$K_AS2208050804 = 1930; (* AlphaServer ES40 6/667 (4cpu) *) ALPHA$K_AS2208050901 = 1931; (* AlphaServer ES40 6/500 (1cpu, 10-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050902 = 1932; (* AlphaServer ES40 6/500 (2cpu) *) ALPHA$K_AS2208050903 = 1933; (* AlphaServer ES40 6/500 (3cpu) *) ALPHA$K_AS2208050904 = 1934; (* AlphaServer ES40 6/500 (4cpu) *) ALPHA$K_AS2208050A01 = 1935; (* AlphaServer ES40 6/667 (1cpu, 10-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050A02 = 1936; (* AlphaServer ES40 6/667 (2cpu) *) ALPHA$K_AS2208050A03 = 1937; (* AlphaServer ES40 6/667 (3cpu) *) ALPHA$K_AS2208050A04 = 1938; (* AlphaServer ES40 6/667 (4cpu) *) ALPHA$K_AS220B080001 = 1939; (* AlphaServer DS20E 67/667 (1cpu) (rack) *) ALPHA$K_AS220B080002 = 1940; (* AlphaServer DS20E 67/667 (2cpu) (rack) *) ALPHA$K_AS2208080101 = 1941; (* AlphaStation DS20E 6/500 (1cpu) (rack) *) ALPHA$K_AS2208080102 = 1942; (* AlphaStation DS20E 6/500 (2cpu) (rack) *) ALPHA$K_AS220B080101 = 1943; (* AlphaStation DS20E 67/667 (1cpu) (rack) *) ALPHA$K_AS220B080102 = 1944; (* AlphaStation DS20E 67/667 (2cpu) (rack) *) ALPHA$K_AS2208050B01 = 1945; (* AlphaStation XP4000 6/500 (1cpu) (6-slot PCI, 4-slot MMB) *) ALPHA$K_AS2208050B02 = 1946; (* AlphaStation XP4000 6/500 (2cpu) *) ALPHA$K_AS2208050B03 = 1947; (* AlphaStation XP4000 6/500 (3cpu) *) ALPHA$K_AS2208050B04 = 1948; (* AlphaStation XP4000 6/500 (4cpu) *) ALPHA$K_AS220B050101 = 1949; (* AlphaStation ES40 67/667 (1cpu) (6-slot PCI, 4-slot MMB) *) ALPHA$K_AS220B050102 = 1950; (* AlphaStation ES40 67/667 (2cpu) *) ALPHA$K_AS220B050103 = 1951; (* AlphaStation ES40 67/667 (3cpu) *) ALPHA$K_AS220B050104 = 1952; (* AlphaStation ES40 67/667 (4cpu) *) ALPHA$K_AS2208050C01 = 1953; (* AlphaStation XP4000 6/500 (1cpu) (10-slot PCI, 8-slot MMB) *) ALPHA$K_AS2208050C02 = 1954; (* AlphaStation XP4000 6/500 (2cpu) *) ALPHA$K_AS2208050C03 = 1955; (* AlphaStation XP4000 6/500 (3cpu) *) ALPHA$K_AS2208050C04 = 1956; (* AlphaStation XP4000 6/500 (4cpu) *) ALPHA$K_AS220B050201 = 1957; (* AlphaStation ES40 67/667 (1cpu) (10-slot PCI, 8-slot MMB) *) ALPHA$K_AS220B050202 = 1958; (* AlphaStation ES40 67/667 (2cpu) *) ALPHA$K_AS220B050203 = 1959; (* AlphaStation ES40 67/667 (3cpu) *) ALPHA$K_AS220B050204 = 1960; (* AlphaStation ES40 67/667 (4cpu) *) ALPHA$K_AS2208070201 = 1961; (* AlphaServer DS10L 6/466 *) ALPHA$K_AS220B070001 = 1962; (* AlphaServer DS10L 67/616 *) ALPHA$K_AS220B070101 = 1962; (* AlphaStation DS10 67/616 *) ALPHA$K_AS220D080001 = 1964; (* AlphaServer DS20E 68A/833 (1cpu) (rack) *) ALPHA$K_AS220D080002 = 1965; (* AlphaServer DS20E 68A/833 (2cpu) (rack) *) ALPHA$K_AS230B080000 = 1966; (* AlphaServer GS40 67/728 *) ALPHA$K_AS230B080100 = 1967; (* AlphaServer GS80 67/728 *) ALPHA$K_AS230B080200 = 1968; (* AlphaServer GS160 67/728 *) ALPHA$K_AS230B080300 = 1969; (* AlphaServer GS320 67/728 *) ALPHA$K_AS220B070201 = 1970; (* AlphaServer DS10 67/616 *) ALPHA$K_AS260C010001 = 1971; (* AlphaServer ES45/3B 68CB/1000 (1cpu) *) ALPHA$K_AS260C010002 = 1972; (* AlphaServer ES45/3B 68CB/1000 (2cpu) *) ALPHA$K_AS260C010003 = 1973; (* AlphaServer ES45/3B 68CB/1000 (3cpu) *) ALPHA$K_AS260C010004 = 1974; (* AlphaServer ES45/3B 68CB/1000 (4cpu) *) ALPHA$K_AS260C010101 = 1975; (* AlphaServer ES45/2, 2B 68CB/1000 (1cpu) *) ALPHA$K_AS260C010102 = 1976; (* AlphaServer ES45/2, 2B 68CB/1000 (2cpu) *) ALPHA$K_AS260C010103 = 1977; (* AlphaServer ES45/2, 2B 68CB/1000 (3cpu) *) ALPHA$K_AS260C010104 = 1978; (* AlphaServer ES45/2, 2B 68CB/1000 (4cpu) *) ALPHA$K_AS260D020002 = 1979; (* AlphaServer TS202c 68A/933 (2cpu) *) ALPHA$K_AS260D030001 = 1980; (* AlphaServer TS212c 68A/933 (1cpu) *) ALPHA$K_AS260D030002 = 1981; (* AlphaServer TS212c 68A/933 (2cpu) *) ALPHA$K_AS220D080101 = 1982; (* AlphaServer DS20E 68A/833 (1cpu) (pedestal) *) ALPHA$K_AS220D080102 = 1983; (* AlphaServer DS20E 68A/833 (2cpu) (pedestal) *) ALPHA$K_AS220C050001 = 1984; (* AlphaStation ES40 68/833 (1cpu) (10-slot PCI) *) ALPHA$K_AS220C050002 = 1985; (* AlphaStation ES40 68/833 (2cpu) *) ALPHA$K_AS220C050003 = 1986; (* AlphaStation ES40 68/833 (3cpu) *) ALPHA$K_AS220C050004 = 1987; (* AlphaStation ES40 68/833 (4cpu) *) ALPHA$K_AS220C050101 = 1988; (* AlphaStation ES40 68/833 (1cpu) (6-slot PCI) *) ALPHA$K_AS220C050102 = 1989; (* AlphaStation ES40 68/833 (2cpu) *) ALPHA$K_AS220C050103 = 1990; (* AlphaStation ES40 68/833 (3cpu) *) ALPHA$K_AS220C050104 = 1991; (* AlphaStation ES40 68/833 (4cpu) *) ALPHA$K_AS260C040101 = 1992; (* AlphaServer DS25 68CB/1000 (1cpu) *) ALPHA$K_AS260C040201 = 1993; (* AlphaStation DS25 68CB/1000 (1cpu) *) ALPHA$K_AS260C040102 = 1994; (* AlphaServer DS25 68CB/1000 (1cpu) *) ALPHA$K_AS260C040202 = 1995; (* AlphaStation DS25 68CB/1000 (1cpu) *) ALPHA$K_AS260C010201 = 2002; (* AlphaServer ES45/1B 68CB/1000 (1cpu) *) ALPHA$K_AS260C010202 = 2003; (* AlphaServer ES45/1B 68CB/1000 (2cpu) *) ALPHA$K_AS260C010203 = 2004; (* AlphaServer ES45/1B 68CB/1000 (3cpu) *) ALPHA$K_AS260C010204 = 2005; (* AlphaServer ES45/1B 68CB/1000 (4cpu) *) ALPHA$K_AS220D0C0002 = 2006; (* AlphaServer DS20L, API CS20, 68A/833 (2cpu) *) ALPHA$K_AS260C020002 = 2007; (* AlphaServer TS202c 68CB/1250 (2cpu) *) ALPHA$K_AS220C050201 = 2008; (* AlphaStation TS40 68/833 (1cpu) (14-slot PCI) *) ALPHA$K_AS220C050202 = 2009; (* AlphaStation TS40 68/833 (2cpu) *) ALPHA$K_AS220C050203 = 2010; (* AlphaStation TS40 68/833 (3cpu) *) ALPHA$K_AS220C050204 = 2011; (* AlphaStation TS40 68/833 (4cpu) *) ALPHA$K_AS260C010301 = 2013; (* AlphaServer ES45/3B 68CB/1250 (1cpu) *) ALPHA$K_AS260C010302 = 2014; (* AlphaServer ES45/3B 68CB/1250 (2cpu) *) ALPHA$K_AS260C010303 = 2015; (* AlphaServer ES45/3B 68CB/1250 (3cpu) *) ALPHA$K_AS260C010304 = 2016; (* AlphaServer ES45/3B 68CB/1250 (4cpu) *) ALPHA$K_AS260C010401 = 2017; (* AlphaServer ES45/2, 2B 68CB/1250 (1cpu) *) ALPHA$K_AS260C010402 = 2018; (* AlphaServer ES45/2, 2B 68CB/1250 (2cpu) *) ALPHA$K_AS260C010403 = 2019; (* AlphaServer ES45/2, 2B 68CB/1250 (3cpu) *) ALPHA$K_AS260C010404 = 2020; (* AlphaServer ES45/2, 2B 68CB/1250 (4cpu) *) ALPHA$K_AS260C010501 = 2021; (* AlphaServer ES45/1B 68CB/1250 (1cpu) *) ALPHA$K_AS260C010502 = 2022; (* AlphaServer ES45/1B 68CB/1250 (2cpu) *) ALPHA$K_AS260C010503 = 2023; (* AlphaServer ES45/1B 68CB/1250 (3cpu) *) ALPHA$K_AS260C010504 = 2024; (* AlphaServer ES45/1B 68CB/1250 (4cpu) *) ALPHA$K_AS270F010000 = 2025; (* AlphaServer TS212c Series *) ALPHA$K_AS270F020000 = 2029; (* AlphaServer TS80 *) ALPHA$K_AS270F000104 = 2030; (* AlphaServer ES47 *) ALPHA$K_AS270F000208 = 2031; (* AlphaServer GS80 *) ALPHA$K_AS270F000008 = 2038; (* AlphaServer GS1280 (8cpu capable) *) ALPHA$K_AS270F000010 = 2039; (* AlphaServer GS1280 (16cpu capable) *) ALPHA$K_AS270F000020 = 2040; (* AlphaServer GS1280 (32cpu capable) *) ALPHA$K_AS270F000040 = 2041; (* AlphaServer GS1280 (64cpu capable) *) ALPHA$K_AS270F000080 = 2042; (* AlphaServer GS1280 (128cpu capable) *) ALPHA$K_AS260C050001 = 2047; (* AlphaServer DS15 68CB/1000 *) ALPHA$K_AS260C050101 = 2048; (* AlphaStation DS15 68CB/1000 *) ALPHA$K_AS260C050201 = 2049; (* AlphaServer TS15 68CB/1000 *) ALPHA$K_MAX_SMM = 2051; ALPHA$K_MAX_MODEL = 1056; ALPHA$K_MAX_ALPHA = 8191; (*** MODULE $ARMDEF ***) (*+ *) (* Access Rights Mask longword definitions *) (*- *) CONST ARM$M_READ = 1; ARM$M_WRITE = 2; ARM$M_EXECUTE = 4; ARM$M_DELETE = 8; ARM$M_CONTROL = 16; ARM$M_CREATE = 4; ARM$M_LOCK = 4; ARM$M_PHYSICAL = 4; ARM$M_LOGICAL = 8; ARM$M_ASSOCIATE = 1; ARM$M_SUBMIT = 2; ARM$M_MANAGE = 4; TYPE ARM$TYPE = RECORD CASE INTEGER OF 1: (ARM$R_FILL_47_ : [BYTE(4)] RECORD END; ); 2: (); 3: (); 4: (ARM$V_READ : [POS(0)] $BOOL; (* Read access *) ARM$V_WRITE : [POS(1)] $BOOL; (* Write access *) ARM$V_EXECUTE : [POS(2)] $BOOL; (* Execute access *) ARM$V_DELETE : [POS(3)] $BOOL; (* Delete access *) ARM$V_CONTROL : [POS(4)] $BOOL; (* Control access *) ARM$V_FILL : [POS(5)] $BIT27; (* [LOADSS]SYSACLSRV depends on this being here! *) ); 5: (ARM$R_FILL_49_ : [BYTE(4)] RECORD END; ); 6: (); 7: (); 8: (ARM$V_CREATE : [POS(2)] $BOOL; (* Create access (volume) *) ); 9: (ARM$R_FILL_51_ : [BYTE(4)] RECORD END; ); 10: (); 11: (); 12: (ARM$V_LOCK : [POS(2)] $BOOL; (* Lock access (resource domain) *) ); 13: (ARM$R_FILL_53_ : [BYTE(4)] RECORD END; ); 14: (); 15: (); 16: (ARM$V_PHYSICAL : [POS(2)] $BOOL; (* Physical I/O access (device) *) ARM$V_LOGICAL : [POS(3)] $BOOL; (* Logical I/O access (device) *) ); 17: (ARM$R_FILL_55_ : [BYTE(4)] RECORD END; ); 18: (); 19: (); 20: (ARM$V_ASSOCIATE : [POS(0)] $BOOL; (* Associate access (common event cluster) *) ); 21: (ARM$R_FILL_57_ : [BYTE(4)] RECORD END; ); 22: (); 23: (); 24: (ARM$V_SUBMIT : [POS(1)] $BOOL; (* Submit access (queue) *) ARM$V_MANAGE : [POS(2)] $BOOL; (* Manage access (queue) *) ) END; (*** MODULE $ATRDEF ***) (* ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ AND *) (* WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS *) (* TERMINATED BY A SINGLE ZERO LONGWORD. *) (* *) CONST ATR$C_UCHAR = 3; (* 4 BYTE USER FILE CHARACTERISTICS *) ATR$C_RECATTR = 4; (* 32 BYTES RECORD ATTRIBUTES *) ATR$C_FILNAM = 5; (* 6 BYTE RAD-50 FILE NAME *) ATR$C_FILTYP = 6; (* 2 BYTE RAD-50 FILE TYPE *) ATR$C_FILVER = 7; (* 2 BYTE BINARY FILE VERSION *) ATR$C_EXPDAT = 8; (* 7 BYTE ASCII EXPIRATION DATE *) ATR$C_STATBLK = 9; (* 32 BYTE STATISTICS BLOCK *) ATR$C_HEADER = 10; (* 512 BYTE FILE HEADER *) ATR$C_BLOCKSIZE = 11; (* MAGTAPE BLOCK SIZE *) ATR$C_USERLABEL = 12; (* USER FILE LABEL *) ATR$C_ASCDATES = 13; (* REVISION COUNT THRU EXP DATE IN ASCII *) ATR$C_ALCONTROL = 14; (* COMPATIBILITY MODE ALLOCATION DATA *) ATR$C_ENDLBLAST = 15; (* END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK *) ATR$C_ASCNAME = 16; (* FILE NAME, TYPE & VERSION IN ASCII *) ATR$C_CREDATE = 17; (* 64 BIT CREATION DATE *) ATR$C_REVDATE = 18; (* 64 BIT REVISION DATE *) ATR$C_EXPDATE = 19; (* 64 BIT EXPIRATION DATE *) ATR$C_BAKDATE = 20; (* 64 BIT BACKUP DATE *) ATR$C_UIC = 21; (* 4 BYTE FILE OWNER UIC *) ATR$C_FPRO = 22; (* 2 BYTE FILE PROTECTION *) ATR$C_RPRO = 23; (* 2 BYTE RECORD PROTECTION *) ATR$C_ACLEVEL = 24; (* 1 BYTE FILE ACCESS LEVEL *) ATR$C_SEMASK = 25; (* FILE SECURITY MASK AND LIMIT *) ATR$C_UIC_RO = 26; (* READ ONLY UIC *) ATR$C_DIRSEQ = 27; (* DIRECTORY UPDATE SEQUENCE COUNT *) ATR$C_BACKLINK = 28; (* FILE BACK LINK POINTER *) ATR$C_JOURNAL = 29; (* JOURNAL CONTROL FLAGS *) ATR$C_HDR1_ACC = 30; (* ANSI TAPE HEADER 1 ACCESSIBILITY *) (* CHARACTER *) CONST ATR$C_ADDACLENT = 31; (* ADD AN ACCESS CONTROL ENTRY *) ATR$C_DELACLENT = 32; (* REMOVE AN ACCESS CONTROL ENTRY *) ATR$C_MODACLENT = 33; (* MODIFY AN ACL ENTRY *) ATR$C_FNDACLENT = 34; (* LOCATE AN ACL ENTRY *) ATR$C_FNDACLTYP = 35; (* FIND A SPECIFIC TYPE OF ACE *) ATR$C_DELETEACL = 36; (* DELETE ACL LEAVING PROTECTED *) ATR$C_READACL = 37; (* READ THE ENTIRE ACL *) ATR$C_ACLLENGTH = 38; (* RETURN THE LENGTH OF THE ACL *) ATR$C_READACE = 39; (* READ A SINGLE ACE *) ATR$C_RESERVED = 40; (* MODIFY RESERVED AREA *) ATR$C_HIGHWATER = 41; (* HIGHWATER MARK (USER READ ONLY) *) ATR$C_DUMMY_0 = 42; (* *** AVAILABLE CODE *) ATR$C_PRIVS_USED = 43; (* PRIVILEGES USED TO GAIN ACCESS *) ATR$C_MATCHING_ACE = 44; (* ACE USED TO GAIN ACCESS (IF ANY) *) ATR$C_ACCESS_MODE = 45; (* ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS *) ATR$C_FILE_SPEC = 46; (* CONVERT FID TO FILE-SPEC *) ATR$C_CLASS_MASK = 47; (* Non-discretionary classification mask *) ATR$C_BUFFER_OFFSET = 48; (* For magnetic tape only length of buffer offset of block in file *) ATR$C_RU_ACTIVE = 49; (* Recoverable facility id number (if non-zero, means file has *) (* active recovery units managed by that facility) *) CONST ATR$C_GRANT_ACE = 50; (* ACE granting access *) ATR$C_NEXT_ACE = 51; (* Increment ACE number *) ATR$C_DELETE_ALL = 52; (* Delete the entire ACL *) ATR$C_BACKUP_DONE = 53; (* Alter backup info in RMS journaling ACEs *) (* ISO 9660 Descriptors *) CONST ATR$C_EFFDATE = 54; (* ISO 9660 Backup Date *) ATR$C_RCDDATE = 55; (* ISO 9660 Recorded Date *) ATR$C_VD = 56; (* Volume Descriptor *) ATR$C_PVD = 57; (* Primary Volume Descriptor *) ATR$C_SVD = 58; (* Supplementary Volume Descriptor *) ATR$C_VPD = 59; (* Volume Partition Descriptor *) ATR$C_VDST = 60; (* Volume Descriptor Set Terminator *) ATR$C_BOOT = 61; (* Boot Record *) ATR$C_PTR = 62; (* Path Table Record *) ATR$C_DIR = 63; (* Directory Record *) ATR$C_XAR = 64; (* Extended Attribute Record *) (* ISO 9660 Descriptors Fields *) CONST ATR$C_VOLUME_ID = 65; (* Volume Identifier *) ATR$C_VOLUME_FLAGS = 66; (* Volume Flags *) ATR$C_ESCAPE_SEQUENCES = 67; (* Escape Sequences *) ATR$C_VOLUME_SET_ID = 68; (* Volume Set Identifier *) ATR$C_COPYRIGHT_FID = 69; (* Copyright File Identifier *) ATR$C_ABSTRACT_FID = 70; (* Abstract File Identifier *) ATR$C_BIBLIOGRAPHIC_FID = 71; (* Bibliographic File Identifier *) ATR$C_CACHE_SEQ = 72; (* Cache sequence number *) ATR$C_FILE_SYSTEM_INFO = 73; (* File system structure level *) ATR$C_FILE_ATTR_CACHING_POLICY = 74; (* F64 caching only *) ATR$C_FILE_DATA_CACHING_POLICY = 75; (* F64 caching only *) ATR$C_CACHING_OPTIONS = 76; (* Spiralog/VDC caching options *) ATR$C_POSIX_DATA = 77; (* POSIX private data area *) ATR$C_ACCDATE = 78; (* ODS-5 last access time *) ATR$C_ATTDATE = 79; (* ODS-5 last attribute mod time *) ATR$C_LENGTH_HINT = 80; (* ODS-5 file length hint area *) ATR$C_EX_RECATTR = 81; (* ODS-5 extended RMS attributes - Reserved *) (* to Digital for future use. Must be zero. *) CONST ATR$C_EXTFLAGS = 82; (* PATHWORKS MS-DOS flags *) ATR$C_MODDATE = 83; (* ODS-5 last data mod time *) ATR$C_LINKCOUNT = 84; (* ODS-5 (hard) link count *) ATR$C_SYMLINK = 85; (* ODS-5 symlink data *) (* All new attributes should be *) (* added here before MAX_PLUS1 *) CONST ATR$C_MAX_PLUS1 = 86; (* Maximum code plus one *) ATR$C_MAX_CODE = 85; ATR$C_FNDACETYP = 35; (* Valid values for ATR$C_CACHING_POLICY *) CONST ATR$C_CACHE_POLICY_WRITETHRU = 1; ATR$C_CACHE_POLICY_WRITEBACK = 2; ATR$C_CACHE_POLICY_DEFAULT = 3; (* ATTRIBUTE MAXIMUM LENGTHS *) CONST ATR$S_UCHAR = 4; (* 4 BYTE USER FILE CHARACTERISTICS *) ATR$S_RECATTR = 32; (* 32 BYTES RECORD ATTRIBUTES *) ATR$S_FILNAM = 6; (* 6 BYTE RAD-50 FILE NAME *) ATR$S_FILTYP = 2; (* 2 BYTE RAD-50 FILE TYPE *) ATR$S_FILVER = 2; (* 2 BYTE BINARY FILE VERSION *) ATR$S_EXPDAT = 7; (* 7 BYTE ASCII EXPIRATION DATE *) ATR$S_STATBLK = 32; (* 32 BYTE STATISTICS BLOCK *) ATR$S_HEADER = 512; (* 512 BYTE FILE HEADER *) ATR$S_BLOCKSIZE = 2; (* MAGTAPE BLOCK SIZE *) ATR$S_USERLABEL = 80; (* USER FILE LABEL *) ATR$S_ASCDATES = 35; (* REVISION COUNT THRU EXP DATE IN ASCII *) ATR$S_ALCONTROL = 14; (* COMPATIBILITY MODE ALLOCATION DATA *) ATR$S_ENDLBLAST = 4; (* END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK *) ATR$S_ASCNAME = 252; (* FILE NAME, TYPE & VERSION *) ATR$S_CREDATE = 8; (* 64 BIT CREATION DATE *) ATR$S_REVDATE = 8; (* 64 BIT REVISION DATE *) ATR$S_EXPDATE = 8; (* 64 BIT EXPIRATION DATE *) ATR$S_BAKDATE = 8; (* 64 BIT BACKUP DATE *) ATR$S_UIC = 4; (* 4 BYTE FILE OWNER UIC *) ATR$S_FPRO = 2; (* 2 BYTE FILE PROTECTION *) ATR$S_RPRO = 2; (* 2 BYTE RECORD PROTECTION *) ATR$S_ACLEVEL = 1; (* 1 BYTE FILE ACCESS LEVEL *) ATR$S_SEMASK = 8; (* FILE SECURITY MASK AND LIMIT *) ATR$S_UIC_RO = 4; (* READ ONLY UIC *) ATR$S_DIRSEQ = 2; (* DIRECTORY UPDATE SEQUENCE COUNT *) ATR$S_BACKLINK = 6; (* FILE BACK LINK POINTER *) ATR$S_JOURNAL = 1; (* JOURNAL CONTROL FLAGS *) ATR$S_HDR1_ACC = 1; (* ANSI TAPE HEADER 1 ACCESSIBILITY *) (* CHARACTER *) CONST ATR$S_ADDACLENT = 255; (* ADD AN ACCESS CONTROL ENTRY *) ATR$S_DELACLENT = 255; (* REMOVE AN ACCESS CONTROL ENTRY *) ATR$S_MODACLENT = 255; (* MODIFY AN ACL ENTRY *) ATR$S_FNDACLENT = 255; (* LOCATE AN ACL ENTRY *) ATR$S_FNDACLTYP = 255; (* FIND A SPECIFIC TYPE OF ACE *) ATR$S_FNDACETYP = 255; (* FIND A SPECIFIC TYPE OF ACE *) ATR$S_DELETEACL = 255; (* DELETE ACL LEAVING PROTECTED *) ATR$S_READACL = 512; (* READ THE ENTIRE ACL *) ATR$S_ACLLENGTH = 4; (* RETURN THE LENGTH OF THE ACL *) ATR$S_READACE = 255; (* READ A SINGLE ACE *) ATR$S_RESERVED = 380; (* MODIFY RESERVED AREA *) ATR$S_HIGHWATER = 4; (* FILE HIGH WATER MARK (USER READ ONLY) *) ATR$S_DUMMY_0 = 4; (* *** AVAILABLE CODE *) ATR$S_PRIVS_USED = 4; (* PRIVS USED TO GAIN ACCESS *) ATR$S_MATCHING_ACE = 255; (* ACE USED TO GAIN ACCESS *) ATR$S_ACCESS_MODE = 1; (* ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORS *) ATR$S_FILE_SPEC = 4098; (* CONVERT FID TO FILE-SPEC *) ATR$S_CLASS_MASK = 20; (* Non-discretionary classification mask *) ATR$S_BUFFER_OFFSET = 2; (* Buffer offset length field *) ATR$S_RU_ACTIVE = 1; (* Recoverable facility id if RUs active *) ATR$S_GRANT_ACE = 255; (* ACE granting access *) ATR$S_NEXT_ACE = 4; (* Increment ACE number *) ATR$S_DELETE_ALL = 255; (* Delete the entire ACL *) ATR$S_BACKUP_DONE = 1; (* Alter backup info in RMS journaling ACEs *) (* ISO 9660 Descriptors *) CONST ATR$S_EFFDATE = 8; (* 64 BIT EFFECTIVE DATE *) ATR$S_RCDDATE = 8; (* 64 BIT RECORDED DATE *) ATR$S_VD = 7; (* Volume Descriptor *) ATR$S_PVD = 1395; (* Primary Volume Descriptor *) ATR$S_SVD = 1395; (* Supplementary Volume Descriptor *) ATR$S_VPD = 88; (* Volume Partition Descriptor *) ATR$S_VDST = 7; (* Volume Descriptor Set Terminator *) ATR$S_BOOT = 71; (* Boot Record *) ATR$S_PTR = 45; (* Path Table Record *) ATR$S_DIR = 512; (* Directory Record *) ATR$S_XAR = 512; (* Extended Attribute Record *) (* ISO 9660 Descriptors Fields *) CONST ATR$S_VOLUME_ID = 32; (* Volume Identifier *) ATR$S_VOLUME_FLAGS = 1; (* Volume Flags *) ATR$S_ESCAPE_SEQUENCES = 32; (* Escape Sequences *) ATR$S_VOLUME_SET_ID = 128; (* Volume Set Identifier *) ATR$S_COPYRIGHT_FID = 37; (* Copyright File Identifier *) ATR$S_ABSTRACT_FID = 37; (* Abstract File Identifier *) ATR$S_BIBLIOGRAPHIC_FID = 37; (* Bibliographic File Identifier *) ATR$S_CACHE_SEQ = 8; (* Cache sequence number *) ATR$S_FILE_SYSTEM_INFO = 2; (* file system structure level *) ATR$S_FILE_ATTR_CACHING_POLICY = 1; (* F64 caching only *) ATR$S_FILE_DATA_CACHING_POLICY = 1; (* F64 caching only *) ATR$S_POSIX_DATA = 64; (* F64 caching only *) ATR$S_CACHING_OPTIONS = 4; (* Spiralog/VDC caching options *) ATR$S_ACCDATE = 8; (* ODS-5 last access time *) ATR$S_ATTDATE = 8; (* ODS-5 last attribute mod time *) ATR$S_LENGTH_HINT = 16; (* ODS-5 file length hint area *) ATR$S_EX_RECATTR = 8; (* ODS-5 extended RMS attributes *) ATR$S_EXTFLAGS = 2; (* PATHWORKS MS-DOS flags *) ATR$S_LINKCOUNT = 2; (* ODS-5 (hard) link count *) ATR$S_MODDATE = 8; (* ODS-5 last data mod time *) ATR$S_SYMLINK = 1024; (* ODS-5 symlink data *) TYPE ATR$TYPE = RECORD ATR$W_SIZE : $UWORD; (* SIZE OF ATTRIBUTE IN BYTES *) ATR$W_TYPE : $UWORD; (* ATTRIBUTE TYPE CODE *) ATR$L_ADDR : $DEFPTR; (* ADDRESS OF ATTRIBUTE TEXT *) (* ATTRIBUTE CODES *) END; (* Define fields and constant values for ATR$_CACHING_OPTIONS longword. *) (* These must match [STARLET]FIBDEF.SDL exactly *) CONST ATR$M_FILE_ATTRIBUTES = 15; ATR$M_FILE_CONTENTS = 240; ATR$C_DEFAULT = 0; ATR$C_WRITETHROUGH = 1; ATR$C_WRITEBEHIND = 2; ATR$C_NOCACHING = 3; ATR$M_FLUSH_ON_CLOSE = 3840; ATR$C_FLUSH = 1; ATR$C_NOFLUSH = 2; ATR$M_CACHING_OPTIONS_MBZ = -4096; TYPE ATR_CACHING_OPTIONS_FLAGS$TYPE = RECORD ATR$V_FILE_ATTRIBUTES : [POS(0)] $BIT4; ATR$V_FILE_CONTENTS : [POS(4)] $BIT4; ATR$V_FLUSH_ON_CLOSE : [POS(8)] $BIT4; ATR$V_CACHING_OPTIONS_MBZ : [POS(12)] $BIT20; END; (* Define fields and constant values for ATR$_FILESYSTEM_INFO word. *) (* These must match [LIB]F11DEF.SDL exactly *) CONST ATR$C_ODS1 = 1; ATR$C_ODS2 = 2; ATR$C_ODS64 = 64; TYPE ATR_FILESYSTEM_INFO_FIELDS$TYPE = RECORD ATR$B_STRUCVER : $UBYTE; ATR$B_STRUCLEV : $UBYTE; END; (*** MODULE $BRKDEF ***) (*+ *) (* *) (* Breakthru system service input definitions. *) (* *) (*- *) CONST BRK$C_DEVICE = 1; (* device name *) BRK$C_USERNAME = 2; (* user name *) BRK$C_ALLUSERS = 3; (* all users *) BRK$C_ALLTERMS = 4; (* all logged in users *) BRK$C_MAXSENDTYPE = 4; (* *) (* Requestor ID's, DEC use only (0-31) *) (* *) CONST BRK$C_GENERAL = 0; (* GENERAL (OR UNSPECIFIED) *) BRK$C_PHONE = 1; (* PHONE *) BRK$C_MAIL = 2; (* MAIL *) BRK$C_QUEUE = 3; (* QUEUE MANAGER *) BRK$C_SHUTDOWN = 4; (* SYSTEM SHUTDOWN *) BRK$C_URGENT = 5; (* URGENT MESSAGE *) BRK$C_DCL = 6; (* DCL (control T) *) BRK$C_OPCOM = 7; (* OPERATOR MESSAGE *) (* Note that only first 16 are really stored by TTDRIVER now *) CONST BRK$C_USER1 = 32; (* reserved to customer *) BRK$C_USER2 = 33; (* reserved to customer *) BRK$C_USER3 = 34; (* reserved to customer *) BRK$C_USER4 = 35; (* reserved to customer *) BRK$C_USER5 = 36; (* reserved to customer *) BRK$C_USER6 = 37; (* reserved to customer *) BRK$C_USER7 = 38; (* reserved to customer *) BRK$C_USER8 = 39; (* reserved to customer *) BRK$C_USER9 = 40; (* reserved to customer *) BRK$C_USER10 = 41; (* reserved to customer *) BRK$C_USER11 = 42; (* reserved to customer *) BRK$C_USER12 = 43; (* reserved to customer *) BRK$C_USER13 = 44; (* reserved to customer *) BRK$C_USER14 = 45; (* reserved to customer *) BRK$C_USER15 = 46; (* reserved to customer *) BRK$C_USER16 = 47; (* reserved to customer *) BRK$M_SCREEN = 256; BRK$M_BOTTOM = 512; BRK$M_NOREFRESH = 1024; BRK$M_CLUSTER = 2048; TYPE FLAGS_INPUT$TYPE = RECORD (* mimics $BRDCSTDEF *) BRK$V_ERASE_LINES : [POS(0)] $BIT8; (* number of lines to erase *) BRK$V_SCREEN : [POS(8)] $BOOL; (* Do screen formatted write *) BRK$V_BOTTOM : [POS(9)] $BOOL; (* "screen" message at bottom *) BRK$V_NOREFRESH : [POS(10)] $BOOL; (* Refresh an interrupted read *) BRK$V_CLUSTER : [POS(11)] $BOOL; (* broadcast to cluster *) BRK$V_FILL_64_ : [POS(12)] $BIT4; END; (*** MODULE $CAPDEF ***) (*+ *) CONST CAP$K_ALL_USER = -1; CAP$K_ALL_USER_ADD = -1; CAP$K_ALL_CPU_ADD = -1; CAP$K_ALL_ACTIVE_CPUS = -1; CAP$K_ALL_USER_REMOVE = 0; CAP$K_ALL_CPU_REMOVE = 0; CAP$K_GET_FREE_CAP = 0; (* *) (* Constants defining user capability numbers *) (* *) CONST CAP$M_USER1 = 1; CAP$M_USER2 = 2; CAP$M_USER3 = 4; CAP$M_USER4 = 8; CAP$M_USER5 = 16; CAP$M_USER6 = 32; CAP$M_USER7 = 64; CAP$M_USER8 = 128; CAP$M_USER9 = 256; CAP$M_USER10 = 512; CAP$M_USER11 = 1024; CAP$M_USER12 = 2048; CAP$M_USER13 = 4096; CAP$M_USER14 = 8192; CAP$M_USER15 = 16384; CAP$M_USER16 = 32768; TYPE CAP$TYPE = RECORD CASE INTEGER OF 1: (CAP$R_FILL_65_ : [BYTE(4)] RECORD END; ); 2: (CAP$L_CAP : [POS(0)] UNSIGNED; ); 3: (); 4: (CAP$V_USER1 : [POS(0)] $BOOL; CAP$V_USER2 : [POS(1)] $BOOL; CAP$V_USER3 : [POS(2)] $BOOL; CAP$V_USER4 : [POS(3)] $BOOL; CAP$V_USER5 : [POS(4)] $BOOL; CAP$V_USER6 : [POS(5)] $BOOL; CAP$V_USER7 : [POS(6)] $BOOL; CAP$V_USER8 : [POS(7)] $BOOL; CAP$V_USER9 : [POS(8)] $BOOL; CAP$V_USER10 : [POS(9)] $BOOL; CAP$V_USER11 : [POS(10)] $BOOL; CAP$V_USER12 : [POS(11)] $BOOL; CAP$V_USER13 : [POS(12)] $BOOL; CAP$V_USER14 : [POS(13)] $BOOL; CAP$V_USER15 : [POS(14)] $BOOL; CAP$V_USER16 : [POS(15)] $BOOL; ) END; (* *) (* Constants defining user CPU numbers *) (* *) CONST CAP$M_CPU0 = 1; CAP$M_CPU1 = 2; CAP$M_CPU2 = 4; CAP$M_CPU3 = 8; CAP$M_CPU4 = 16; CAP$M_CPU5 = 32; CAP$M_CPU6 = 64; CAP$M_CPU7 = 128; CAP$M_CPU8 = 256; CAP$M_CPU9 = 512; CAP$M_CPU10 = 1024; CAP$M_CPU11 = 2048; CAP$M_CPU12 = 4096; CAP$M_CPU13 = 8192; CAP$M_CPU14 = 16384; CAP$M_CPU15 = 32768; CAP$M_CPU16 = 65536; CAP$M_CPU17 = 131072; CAP$M_CPU18 = 262144; CAP$M_CPU19 = 524288; CAP$M_CPU20 = 1048576; CAP$M_CPU21 = 2097152; CAP$M_CPU22 = 4194304; CAP$M_CPU23 = 8388608; CAP$M_CPU24 = 16777216; CAP$M_CPU25 = 33554432; CAP$M_CPU26 = 67108864; CAP$M_CPU27 = 134217728; CAP$M_CPU28 = 268435456; CAP$M_CPU29 = 536870912; CAP$M_CPU30 = 1073741824; CAP$M_CPU31 = -2147483648; TYPE CAP_CPUS$TYPE = RECORD CASE INTEGER OF 1: (CAP$R_FILL_67_ : [BYTE(4)] RECORD END; ); 2: (CAP$L_CAP_CPUS : [POS(0)] UNSIGNED; ); 3: (); 4: (CAP$V_CPU0 : [POS(0)] $BOOL; CAP$V_CPU1 : [POS(1)] $BOOL; CAP$V_CPU2 : [POS(2)] $BOOL; CAP$V_CPU3 : [POS(3)] $BOOL; CAP$V_CPU4 : [POS(4)] $BOOL; CAP$V_CPU5 : [POS(5)] $BOOL; CAP$V_CPU6 : [POS(6)] $BOOL; CAP$V_CPU7 : [POS(7)] $BOOL; CAP$V_CPU8 : [POS(8)] $BOOL; CAP$V_CPU9 : [POS(9)] $BOOL; CAP$V_CPU10 : [POS(10)] $BOOL; CAP$V_CPU11 : [POS(11)] $BOOL; CAP$V_CPU12 : [POS(12)] $BOOL; CAP$V_CPU13 : [POS(13)] $BOOL; CAP$V_CPU14 : [POS(14)] $BOOL; CAP$V_CPU15 : [POS(15)] $BOOL; CAP$V_CPU16 : [POS(16)] $BOOL; CAP$V_CPU17 : [POS(17)] $BOOL; CAP$V_CPU18 : [POS(18)] $BOOL; CAP$V_CPU19 : [POS(19)] $BOOL; CAP$V_CPU20 : [POS(20)] $BOOL; CAP$V_CPU21 : [POS(21)] $BOOL; CAP$V_CPU22 : [POS(22)] $BOOL; CAP$V_CPU23 : [POS(23)] $BOOL; CAP$V_CPU24 : [POS(24)] $BOOL; CAP$V_CPU25 : [POS(25)] $BOOL; CAP$V_CPU26 : [POS(26)] $BOOL; CAP$V_CPU27 : [POS(27)] $BOOL; CAP$V_CPU28 : [POS(28)] $BOOL; CAP$V_CPU29 : [POS(29)] $BOOL; CAP$V_CPU30 : [POS(30)] $BOOL; CAP$V_CPU31 : [POS(31)] $BOOL; ) END; CONST CAP$M_IMPLICIT_AFFINITY_CLEAR = 1; CAP$M_IMPLICIT_AFFINITY_SET = 2; CAP$M_IMPLICIT_DEFAULT_ONLY = 4; CAP$M_IMPLICIT_ALL_THREADS = 8; TYPE IMP_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (CAP$R_IMP_FLAGS : [BYTE(1)] RECORD END; ); 2: (CAP$V_IMPLICIT_AFFINITY_CLEAR : [POS(0)] $BOOL; (* Shut implicit affinity off *) CAP$V_IMPLICIT_AFFINITY_SET : [POS(1)] $BOOL; (* Turn implicit affinity on *) CAP$V_IMPLICIT_DEFAULT_ONLY : [POS(2)] $BOOL; (* Only system default changed *) CAP$V_IMPLICIT_ALL_THREADS : [POS(3)] $BOOL; (* Change affects all kernel threads in process *) ) END; (* *) (* Note: the following flags structure must mimic that of [LIB]CPBDEF.SDL *) (* *) CONST CAP$M_FLAG_CHECK_CPU = 1; CAP$M_FLAG_PERMANENT = 2; CAP$M_FLAG_CHECK_CPU_ACTIVE = 8; CAP$M_FLAG_DEFAULT_ONLY = 16; CAP$M_ALL_THREADS = 32; CAP$M_PURGE_WS_IF_NEW_RAD = 64; TYPE CAP_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (CAP$R_CAP_FLAGS : [BYTE(1)] RECORD END; ); 2: (CAP$V_FLAG_CHECK_CPU : [POS(0)] $BOOL; (* Check that process can run *) CAP$V_FLAG_PERMANENT : [POS(1)] $BOOL; (* Affect permanent mask *) CAP$V_FLAG_CHECK_CPU_ACTIVE : [POS(3)] $BOOL; (* Check all selected CPUs active *) CAP$V_FLAG_DEFAULT_ONLY : [POS(4)] $BOOL; (* Only system default changed *) CAP$V_ALL_THREADS : [POS(5)] $BOOL; (* Change affects all kernel threads in process *) CAP$V_PURGE_WS_IF_NEW_RAD : [POS(6)] $BOOL; (* If the home RAD was changed, purge the working set *) ) END; (*** MODULE $CBODEF ***) (*+ *) (* Define Create Buffer Object bits *) (*- *) CONST CBO$M_RETSVA = 1; CBO$M_EXMAXLIM = 2; CBO$M_SVA_32 = 4; CBO$M_NOSVA = 8; CBO$M_SYSBUFOBJ = 16; TYPE CREATE_BUFFER_OBJECT_FLAGS$TYPE = RECORD CBO$V_RETSVA : [POS(0)] $BOOL; (* (Priv) Return SVA, not PVA, of object *) CBO$V_EXMAXLIM : [POS(1)] $BOOL; (* (Priv) Bypass MAXBOBMEM check (VMS development use only) *) CBO$V_SVA_32 : [POS(2)] $BOOL; (* Allocate SVA from S0 space, $CREATE_BUFOBJ_64 only *) CBO$V_NOSVA : [POS(3)] $BOOL; (* Do not allocate any system space *) CBO$V_SYSBUFOBJ : [POS(4)] $BOOL; (* System buffer object (no process ties) *) CBO$v_filler : [POS(5)] $BIT27; END; (*** MODULE $CHFDEF ***) (* *) (* CONDITION HANDLING ARGUMENT LIST OFFSETS *) (* THERE ARE FOUR CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENT *) (* LIST, THE SIGNAL AND MECHANISM ARRAYS AND THE ALPHA EXCEPTION RECORD *) (* ALL ARE IDENTIFIED BY THE SAME BLOCK PREFIX. *) (* *) TYPE CHF$TYPE = RECORD CHFDEF$$_FILL_1 : INTEGER; (* Primary Argument Count *) CHF$L_SIGARGLST : INTEGER; (*ADDRESS OF SIGNAL ARGUMENTS *) CHF$L_MCHARGLST : INTEGER; (*ADDRESS OF MECHANISM ARGUMENTS *) END; CHF1$TYPE = RECORD CASE INTEGER OF 1: (CHF$R_SIG_ARGS_DESC : [BYTE(4)] RECORD END; CHF$R_SIG_NAME_DESC : [BYTE(4)] RECORD END; CHF$R_SIG_ARG1_DESC : [BYTE(4)] RECORD END; ); 2: (CHF$IS_SIG_ARGS : [POS(0)] INTEGER; (*NUMBER OF SIGNAL ARGUMENTS *) CHF$IS_SIG_NAME : [POS(32)] INTEGER; (*SIGNAL NAME *) CHF$IS_SIG_ARG1 : [POS(64)] INTEGER; (*FIRST SIGNAL SPECIFIC ARGUMENT *) ); 3: (CHF$L_SIG_ARGS : [POS(0)] INTEGER; (*obsolete def *) CHF$L_SIG_NAME : [POS(32)] INTEGER; (*obsolete def *) CHF$L_SIG_ARG1 : [POS(64)] INTEGER; (*obsolete def *) ) END; CONST CHF$M_FPREGS_VALID = 1; CHF$M_FPREGS2_VALID = 2; TYPE CHF2$TYPE = RECORD CASE INTEGER OF 1: (CHF$R_MCH_ARGS_DESC : [BYTE(4)] RECORD END; CHF$R_MCH_FLAGS_DESC : [BYTE(4)] RECORD END; CHF$R_MCH_FRAME_DESC : [BYTE(8)] RECORD END; CHF$R_MCH_DEPTH_DESC : [BYTE(4)] RECORD END; CHF$IS_MCH_RESVD1 : INTEGER; (*reserved, paired with DEPTH *) CHF$PH_MCH_DADDR : $QUAD; (*ESTABLISHER HANDLER DATA CELL *) CHF$PH_MCH_ESF_ADDR : $QUAD; (*ESTABLISHER EXCEPTION STACK FRAME *) CHF$PH_MCH_SIG_ADDR : $QUAD; (*ESTABLISHER EXCEPTION STACK FRAME *) CHF$R_MCH_SAVR0_DESC : [BYTE(8)] RECORD END; CHF$R_MCH_SAVR1_DESC : [BYTE(8)] RECORD END; CHF$IH_MCH_SAVR16 : $QUAD; (*SAVED REGISTER R16 *) CHF$IH_MCH_SAVR17 : $QUAD; (*SAVED REGISTER R17 *) CHF$IH_MCH_SAVR18 : $QUAD; (*SAVED REGISTER R18 *) CHF$IH_MCH_SAVR19 : $QUAD; (*SAVED REGISTER R19 *) CHF$IH_MCH_SAVR20 : $QUAD; (*SAVED REGISTER R20 *) CHF$IH_MCH_SAVR21 : $QUAD; (*SAVED REGISTER R21 *) CHF$IH_MCH_SAVR22 : $QUAD; (*SAVED REGISTER R22 *) CHF$IH_MCH_SAVR23 : $QUAD; (*SAVED REGISTER R23 *) CHF$IH_MCH_SAVR24 : $QUAD; (*SAVED REGISTER R24 *) CHF$IH_MCH_SAVR25 : $QUAD; (*SAVED REGISTER R25 *) CHF$IH_MCH_SAVR26 : $QUAD; (*SAVED REGISTER R26 *) CHF$IH_MCH_SAVR27 : $QUAD; (*SAVED REGISTER R27 *) CHF$IH_MCH_SAVR28 : $QUAD; (*SAVED REGISTER R28 *) CHF$R_MCH_RETVAL_FLOAT : [BYTE(8)] RECORD END; CHF$R_MCH_RETVAL2_FLOAT : [BYTE(8)] RECORD END; CHF$FH_MCH_SAVF10 : $QUAD; (*SAVED REGISTER F10 *) CHF$FH_MCH_SAVF11 : $QUAD; (*SAVED REGISTER F11 *) CHF$FH_MCH_SAVF12 : $QUAD; (*SAVED REGISTER F12 *) CHF$FH_MCH_SAVF13 : $QUAD; (*SAVED REGISTER F13 *) CHF$FH_MCH_SAVF14 : $QUAD; (*SAVED REGISTER F14 *) CHF$FH_MCH_SAVF15 : $QUAD; (*SAVED REGISTER F15 *) CHF$FH_MCH_SAVF16 : $QUAD; (*SAVED REGISTER F16 *) CHF$FH_MCH_SAVF17 : $QUAD; (*SAVED REGISTER F17 *) CHF$FH_MCH_SAVF18 : $QUAD; (*SAVED REGISTER F18 *) CHF$FH_MCH_SAVF19 : $QUAD; (*SAVED REGISTER F19 *) CHF$FH_MCH_SAVF20 : $QUAD; (*SAVED REGISTER F20 *) CHF$FH_MCH_SAVF21 : $QUAD; (*SAVED REGISTER F21 *) CHF$FH_MCH_SAVF22 : $QUAD; (*SAVED REGISTER F22 *) CHF$FH_MCH_SAVF23 : $QUAD; (*SAVED REGISTER F23 *) CHF$FH_MCH_SAVF24 : $QUAD; (*SAVED REGISTER F24 *) CHF$FH_MCH_SAVF25 : $QUAD; (*SAVED REGISTER F25 *) CHF$FH_MCH_SAVF26 : $QUAD; (*SAVED REGISTER F26 *) CHF$FH_MCH_SAVF27 : $QUAD; (*SAVED REGISTER F27 *) CHF$FH_MCH_SAVF28 : $QUAD; (*SAVED REGISTER F28 *) CHF$FH_MCH_SAVF29 : $QUAD; (*SAVED REGISTER F29 *) CHF$FH_MCH_SAVF30 : $QUAD; (*SAVED REGISTER F30 *) CHF$PH_MCH_SIG64_ADDR : $QUAD; (*64-bit sig array ptr *) ); 2: (CHF$IS_MCH_ARGS : [POS(0)] INTEGER; (*NUMBER OF MECHANISM ARGUMENTS *) CHF$IS_MCH_FLAGS : [POS(32)] INTEGER; (*Flags *) CHF$PH_MCH_FRAME : [POS(64)] $QUAD; (*ESTABLISHER FRAME ADDRESS *) CHF$IS_MCH_DEPTH : [POS(128)] INTEGER; (*FRAME DEPTH OF ESTABLISHER *) CHF$IH_MCH_RETVAL : [POS(384)] $QUAD; CHF$IH_MCH_RETVAL2 : [POS(448)] $QUAD; CHF$FH_MCH_SAVF0 : [POS(1344)] $QUAD; (*SAVED REGISTER F0 *) CHF$FH_MCH_SAVF1 : [POS(1408)] $QUAD; (*SAVED REGISTER F1 *) ); 3: (CHF$R_MCH_FLAGS_BITS : [POS(32), BYTE(1)] RECORD END; (*Flags bits. *) CHF$IH_MCH_DEPTH : [POS(128)] INTEGER; (*temp *) CHF$FH_MCH_RETVAL_FLOAT : [POS(1344)] $QUAD; CHF$FH_MCH_RETVAL2_FLOAT : [POS(1408)] $QUAD; ); 4: (CHF$V_FPREGS_VALID : [POS(32)] $BOOL; (*FP registers stored in MCH. *) CHF$V_FPREGS2_VALID : [POS(33)] $BOOL; CHF$IH_MCH_SAVR0 : [POS(384)] $QUAD; (*SAVED REGISTER R0 *) CHF$IH_MCH_SAVR1 : [POS(448)] $QUAD; (*SAVED REGISTER R1 *) ); 5: (); 6: (CHF$IL_MCH_SAVR0_LOW : [POS(384)] INTEGER; (*LOW ORDER 32 BITS *) CHF$IL_MCH_SAVR0_HIGH : [POS(416)] UNSIGNED; (*HIGH ORDER 32 BITS *) CHF$IL_MCH_SAVR1_LOW : [POS(448)] INTEGER; (*LOW ORDER 32 BITS *) CHF$IL_MCH_SAVR1_HIGH : [POS(480)] UNSIGNED; (*HIGH ORDER 32 BITS *) ) END; CONST CHF$M_CALEXT_CANCEL = 1; CHF$M_CALEXT_LAST = 2; CHF$K_CALEXT_LENGTH = 16; (*LENGTH OF CATCH-ALL DESC BLOCK *) CHF$C_CALEXT_LENGTH = 16; (*LENGTH OF CATCH-ALL DESC BLOCK *) TYPE CHF3$TYPE = RECORD CASE INTEGER OF 1: (CHF$L_CALEXT_LINK : INTEGER; (*CATCH-ALL EXTENSION LINK *) CHF$L_CALEXT_ADDRESS : INTEGER; (*ADDRESS OF CATCH-ALL EXTENSION *) CHF$R_CALEXT_FLAGS_DESC : [BYTE(4)] RECORD END; CHF$L_CALEXT_RESERVED : UNSIGNED; (*RESERVED *) ); 2: (CHF$L_CALEXT_FLAGS : [POS(64)] UNSIGNED; (*FLAGS *) ); 3: (); 4: (CHF$V_CALEXT_CANCEL : [POS(64)] $BOOL; (*REMOVE CATCH-ALL EXTENSION *) CHF$V_CALEXT_LAST : [POS(65)] $BOOL; (*LAST CATCH-ALL EXTENSION *) ) END; CHF6$TYPE = RECORD CASE INTEGER OF 1: (CHF64$R_SIG_ARGS_UNION : [BYTE(4)] RECORD END; CHF64$L_SIGNAL64 : INTEGER; (* 64-bit array tag: overlays sig_name of 32b version *) CHF64$Q_SIG_NAME : $QUAD; (* Signal value *) CHF64$Q_SIG_ARG1 : $QUAD; (* First signal argument *) ); 2: (CHF64$L_SIG_ARGS : [POS(0)] INTEGER; (* Longword including count & options *) ); 3: (); 4: (CHF64$W_SIG_ARG_COUNT : [POS(0)] $WORD; (* Word holding count itself *) CHF64$W_SIG_MSG_OPTIONS : [POS(16)] $WORD; (* Word containing message options *) ) END; (*** MODULE $CHKPNTDEF ***) (*- *) (* *) (* Define flags for calls to create checkpointable processes *) (*+ *) CONST CHKPNT$M_AUTO_RESTART = 1; CHKPNT$M_DEBUG = 2; CHKPNT$M_ASYNC = 4; TYPE CHKPNT$TYPE = RECORD CHKPNT$V_AUTO_RESTART : [POS(0)] $BOOL; (* auto-restart detached process *) CHKPNT$V_DEBUG : [POS(1)] $BOOL; (* merge in DEBUG *) CHKPNT$V_ASYNC : [POS(2)] $BOOL; (* asynchronous checkpoint process *) CHKPNT$V_FILL_77_ : [POS(3)] $BIT5; END; (*** MODULE $CHPDEF ***) (* *) (* Item code definition for the $CHKPRO (check protection) system service. *) (* *) CONST CHP$_END = 0; (* list end *) CHP$_ACCESS = 1; (* intended access *) CHP$_FLAGS = 2; (* read / write flags *) CHP$_PRIV = 3; (* privilege mask *) CHP$_ACMODE = 4; (* accessor access mode *) CHP$_ACCLASS = 5; (* accessor security classification *) CHP$_RIGHTS = 6; (* rights list *) CHP$_ADD_RIGHTS = 7; (* additional rights list segments *) CHP$_MODE = 8; (* simple access mode *) CHP$_MODES = 9; (* per action access mode *) CHP$_MIN_CLASS = 10; (* minimum security classification *) CHP$_MAX_CLASS = 11; (* maximum security classification *) CHP$_OWNER = 12; (* object owner UIC *) CHP$_PROT = 13; (* protection mask *) CHP$_ACL = 14; (* access control list segment *) CHP$_AUDIT_NAME = 15; (* audit names returned *) CHP$_ALARM_NAME = 16; (* alarm names returned *) CHP$_MATCHED_ACE = 17; (* address of matching ACE *) CHP$_PRIVUSED = 18; (* address of mask of privileges used *) CHP$_AUDIT_LIST = 19; (* address of supplemental audit item list *) CHP$_OBJECT_NAME = 20; (* object name descriptor *) CHP$_OBJECT_CLASS = 21; (* object class name descriptor *) CHP$_UIC = 22; (* accessor UIC *) CHP$_OBJECT_SPECIFIC = 23; (* object specific longword (for OSR) *) (* add new item codes before here *) CONST CHP$_MAX_CODE = 24; (* highest CHP$ item code *) CHP$_ADDRIGHTS = 7; CHP$_MINCLASS = 10; CHP$_MAXCLASS = 11; CHP$_AUDITNAME = 15; CHP$_ALARMNAME = 16; CHP$_MATCHEDACE = 17; CHP$_CLASS = 5; CHP$K_MATCHED_ACE_LENGTH = 255; CHP$K_ALARM_LENGTH = 768; CHP$K_AUDIT_LENGTH = 1560; CHP$M_SYSPRV = 1; CHP$M_BYPASS = 2; CHP$M_UPGRADE = 4; CHP$M_DOWNGRADE = 8; CHP$M_GRPPRV = 16; CHP$M_READALL = 32; CHP$M_OPER = 64; CHP$M_GRPNAM = 128; CHP$M_SYSNAM = 256; CHP$M_GROUP = 512; CHP$M_WORLD = 1024; CHP$M_PRMCEB = 2048; CHP$K_NUMBER_OF_PRIVS = 12; TYPE PRIVS_USED_BITS$TYPE = RECORD CHP$V_SYSPRV : [POS(0)] $BOOL; (* access via SYSPRV privilege *) CHP$V_BYPASS : [POS(1)] $BOOL; (* access via BYPASS privilege *) CHP$V_UPGRADE : [POS(2)] $BOOL; (* access via UPGRADE privilege *) CHP$V_DOWNGRADE : [POS(3)] $BOOL; (* access via DOWNGRADE privilege *) CHP$V_GRPPRV : [POS(4)] $BOOL; (* access via GRPPRV privilege *) CHP$V_READALL : [POS(5)] $BOOL; (* access via READALL privilege *) CHP$V_OPER : [POS(6)] $BOOL; (* access via OPER privilege *) CHP$V_GRPNAM : [POS(7)] $BOOL; (* access via GRPNAM privilege *) CHP$V_SYSNAM : [POS(8)] $BOOL; (* access via SYSNAM privilege *) CHP$V_GROUP : [POS(9)] $BOOL; (* access via GROUP privilege *) CHP$V_WORLD : [POS(10)] $BOOL; (* access via WORLD privilege *) CHP$V_PRMCEB : [POS(11)] $BOOL; (* access via PRMCEB privilege *) CHP$V_FILL_78_ : [POS(12)] $BIT4; END; CONST CHP$M_OBSERVE = 1; CHP$M_ALTER = 2; CHP$M_READ = 1; CHP$M_WRITE = 2; CHP$M_USEREADALL = 4; CHP$M_AUDIT = 8; CHP$M_NOFAILAUD = 16; CHP$M_NOSUCCAUD = 32; CHP$M_DELETE = 64; CHP$M_MANDATORY = 128; CHP$M_FLUSH = 256; CHP$M_CREATE = 512; CHP$M_INTERNAL = 1024; CHP$M_SERVER = 2048; TYPE FLAG_BITS$TYPE = RECORD CASE INTEGER OF 1: (CHP$R_SEVMS_DEFS : [BYTE(1)] RECORD END; ); 2: (CHP$V_OBSERVE : [POS(0)] $BOOL; (* non-discretionary read access *) CHP$V_ALTER : [POS(1)] $BOOL; (* non-discretionary write access *) ); 3: (CHP$R_VMS_DEFS : [BYTE(2)] RECORD END; ); 4: (CHP$V_READ : [POS(0)] $BOOL; (* non-discretionary read access *) CHP$V_WRITE : [POS(1)] $BOOL; (* non-discretionary write access *) CHP$V_USEREADALL : [POS(2)] $BOOL; (* READALL privilege applies *) CHP$V_AUDIT : [POS(3)] $BOOL; (* access audit requested *) CHP$V_NOFAILAUD : [POS(4)] $BOOL; (* do not perform failed access audit *) CHP$V_NOSUCCAUD : [POS(5)] $BOOL; (* do not perform successful access audit *) CHP$V_DELETE : [POS(6)] $BOOL; (* perform audit as delete event type *) CHP$V_MANDATORY : [POS(7)] $BOOL; (* perform mandatory audit *) CHP$V_FLUSH : [POS(8)] $BOOL; (* force buffer flush in AUDIT_SERVER *) CHP$V_CREATE : [POS(9)] $BOOL; (* perform audit as create event type *) CHP$V_INTERNAL : [POS(10)] $BOOL; (* audit on behalf of VMS TCB *) CHP$V_SERVER : [POS(11)] $BOOL; (* audit originates in TCB server process *) ) END; CONST CHP$M_NOACCESS = 1; CHP$M_REMDUPID = 2; CHP$M_INCSYSID = 4; CHP$M_INCIMGID = 8; CHP$M_DEFPRIV = 16; CHP$M_DEFCLASS = 32; TYPE PROFILE_FLAGS$TYPE = RECORD CHP$V_NOACCESS : [POS(0)] $BOOL; (* do not access UAF to build profile *) CHP$V_REMDUPID : [POS(1)] $BOOL; (* remove duplicate system rights IDs *) CHP$V_INCSYSID : [POS(2)] $BOOL; (* include system rights IDs *) CHP$V_INCIMGID : [POS(3)] $BOOL; (* include image rights IDs *) CHP$V_DEFPRIV : [POS(4)] $BOOL; (* initialize privs from default mask *) CHP$V_DEFCLASS : [POS(5)] $BOOL; (* initialize class from default mask *) CHP$V_FILL_81_ : [POS(6)] $BIT2; END; (*** MODULE CIADEF IDENT x-4 ***) CONST CIA$K_SCAN = 1; CIA$K_DELETE = 2; CIA$K_SHOW = 3; CIA$K_PERFORMANCE = 4; CIA$K_ZERO_PERFORMANCE = 5; CIA$K_SCAN_EXTENDED = 6; CIA$K_DELETE_EXTENDED = 7; CIA$K_SHOW_EXTENDED = 8; CIA$K_MAX_CIA_CODE = 9; CIA$K_PERFORMANCE_LENGTH = 40; TYPE PERFORMANCE$TYPE = RECORD CIA$L_TOTAL_MESSAGES : UNSIGNED; CIA$L_TOTAL_EXCEPTIONS : UNSIGNED; CIA$L_SHOWS : UNSIGNED; CIA$L_SCANS : UNSIGNED; CIA$L_DELETES : UNSIGNED; CIA$L_PERFORMANCE : UNSIGNED; CIA$L_AUDITS : UNSIGNED; CIA$L_INVALID_MESSAGES : UNSIGNED; CIA$L_INTRUDERS : UNSIGNED; CIA$L_SUSPECTS : UNSIGNED; END; CONST CIA$K_SOURCE_TERMINAL_LENGTH = 64; CIA$K_SOURCE_NODE_MAX_LENGTH = 1024; CIA$K_USER_SPEC_MAX_LENGTH = 1058; CIA$K_USER_STRING_MAX_LENGTH = 32; CIA$K_PASSWORD_MAX_LENGTH = 32; CIA$K_SOURCE_ADDRESS_MAX_LENGTH = 128; CIA$K_SCSNODE_LENGTH = 8; CIA$K_SCSNODE_REPLY_LENGTH = 12; CIA$K_USERDATA_LENGTH = 256; TYPE CIA$GENERIC_DESC = RECORD CIA$W_DESC_LENGTH : $UWORD; CIA$W_FILL1 : $UWORD; CIA$T_DESC_DATA : CHAR; END; CONST CIAEXT$S_PACKET = 4; TYPE EXTENSION_PACKET$TYPE = RECORD CIAEXT$W_TYPE : $UWORD; (* packet type *) CIAEXT$W_LENGTH : $UWORD; (* packet length NOT including T/L words *) CIAEXT$R_VALUE : RECORD END ; (* start of data *) END; CONST CIAEXT$_USER_DATA = 100; CIAEXT$_SCSNODE = 101; CIAEXT$_SCSNODE_REPLY = 102; CIAEXT$_IMAGE_NAME = 103; CIAEXT$_MAX_CIAEXT_CODE = 104; CIA$_SCSNODE_LIST = 200; (* List of nodes for which to act *) CIA$_SCSNODE = 201; (* Single node for SCAN *) CIA$_OUTPUT_LIST = 202; (* List of nodes records occured on *) CIA$_USER_DATA = 203; (* Opaque Data. We don't use it. *) CIA$_USER_CRITERIAL = 204; (* Existing argument passed by item list *) CIA$_FAILED_USERNAME = 205; (* Existing argument passsed by item list *) CIA$_IMAGE_NAME = 206; (* Image name performing scan *) CIA$_MAX_CIA_ITEM = 207; CIA$K_IMAGE_NAME_MAX_SIZE = 4096; TYPE IMAGE_NAME$TYPE = RECORD CIA$W_IMAGE_LENGTH : $UWORD; CIA$W_IMAGE_UNUSED : $UWORD; CIA$T_IMAGE_STRING : PACKED ARRAY [1..4096] OF CHAR; END; CONST CIA$M_IGNORE_RETURN = 1; CIA$M_RESERVED_1 = 254; CIA$M_SUSPECTS = 256; CIA$M_INTRUDERS = 512; CIA$M_SECONDARY_PASSWORD = 1024; CIA$M_NOAUDIT = 2048; CIA$M_REAL_USERNAME = 4096; CIA$M_SHOW_NODE = 8192; CIA$M_ITEMLIST = 16384; CIA$M_FILL_1 = -32768; CIA$K_HEADER_LENGTH = 8; TYPE HEADER$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_CONTEXT : UNSIGNED; CIA$R_FILL_82_ : [BYTE(4)] RECORD END; ); 2: (CIA$L_HEADER_FLAGS : [POS(32)] UNSIGNED; ); 3: (); 4: (CIA$V_IGNORE_RETURN : [POS(32)] $BOOL; CIA$V_RESERVED_1 : [POS(33)] $BIT7; CIA$V_SUSPECTS : [POS(40)] $BOOL; CIA$V_INTRUDERS : [POS(41)] $BOOL; CIA$V_SECONDARY_PASSWORD : [POS(42)] $BOOL; CIA$V_NOAUDIT : [POS(43)] $BOOL; CIA$V_REAL_USERNAME : [POS(44)] $BOOL; CIA$V_SHOW_NODE : [POS(45)] $BOOL; CIA$V_ITEMLIST : [POS(46)] $BOOL; CIA$V_FILL_1 : [POS(47)] $BIT17; ) END; CONST CIA$K_SHOW_INPUT_LENGTH = 1062; CIA$K_DELETE_INPUT_LENGTH = 1062; TYPE CONTENTS$TYPE = RECORD CIA$W_LENGTH : $UWORD; CIA$W_UNUSED : $UWORD; CIA$T_NAME : PACKED ARRAY [1..1058] OF CHAR; END; CONST CIA$K_SCAN_CONTENTS_LENGTH = 1386; TYPE SCAN_CONTENTS$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_PARENT_ID : UNSIGNED; CIA$L_JOB_TYPE : UNSIGNED; CIA$L_LOGIN_STATUS : UNSIGNED; CIA$R_FILL_84_ : [BYTE(68)] RECORD END; CIA$R_FILL_86_ : [BYTE(36)] RECORD END; CIA$R_FILL_88_ : [BYTE(132)] RECORD END; CIA$W_UNUSED_4 : $UWORD; CIA$R_FAILED_USER : [BYTE(36)] RECORD END; CIA$R_FILL_90_ : [BYTE(36)] RECORD END; CIA$R_FILL_92_ : [BYTE(36)] RECORD END; CIA$R_FILL_94_ : [BYTE(1028)] RECORD END; ); 2: (CIA$T_SOURCE_TERMINAL : [POS(96)] PACKED ARRAY [1..68] OF CHAR; CIA$T_SOURCE_USER : [POS(640)] PACKED ARRAY [1..36] OF CHAR; CIA$T_SOURCE_ADDRESS : [POS(928)] PACKED ARRAY [1..132] OF CHAR; CIA$W_FAILED_USER_LENGTH : [POS(2000)] $UWORD; CIA$T_FAILED_USER_NAME : [POS(2032)] PACKED ARRAY [1..32] OF CHAR; CIA$T_FAILED_PASSWORD : [POS(2288)] PACKED ARRAY [1..36] OF CHAR; CIA$T_PARENT_USER : [POS(2576)] PACKED ARRAY [1..36] OF CHAR; CIA$T_SOURCE_NODE : [POS(2864)] PACKED ARRAY [1..1028] OF CHAR; ); 3: (); 4: (CIA$W_SOURCE_TERM_LENGTH : [POS(96)] $UWORD; CIA$T_SOURCE_TERM_NAME : [POS(128)] PACKED ARRAY [1..64] OF CHAR; CIA$W_SOURCE_USER_LENGTH : [POS(640)] $UWORD; CIA$T_SOURCE_USER_NAME : [POS(672)] PACKED ARRAY [1..32] OF CHAR; CIA$W_SOURCE_ADDR_LENGTH : [POS(928)] $UWORD; CIA$T_SOURCE_ADDRESS_NAME : [POS(960)] PACKED ARRAY [1..128] OF CHAR; CIA$W_FAILED_PASS_LENGTH : [POS(2288)] $UWORD; CIA$T_FAILED_PASS_NAME : [POS(2320)] PACKED ARRAY [1..32] OF CHAR; CIA$W_PARENT_USER_LENGTH : [POS(2576)] $UWORD; CIA$T_PARENT_USER_NAME : [POS(2608)] PACKED ARRAY [1..32] OF CHAR; CIA$W_SOURCE_NODE_LENGTH : [POS(2864)] $UWORD; CIA$T_SOURCE_NODE_NAME : [POS(2896)] PACKED ARRAY [1..1024] OF CHAR; ) END; CONST CIA$M_INTRUDER = 1; CIA$M_SUSPECT = 2; CIA$M_NETWORK = 4; CIA$M_TERM_USER = 8; CIA$M_TERMINAL = 16; CIA$M_USERNAME = 32; CIA$M_FILL_2 = -64; CIA$K_SHOW_OUTPUT_LENGTH = 1086; TYPE SHOW_OUTPUT$TYPE = RECORD CASE INTEGER OF 1: (CIA$L_STATUS : UNSIGNED; CIA$L_RETURNED_CONTEXT : UNSIGNED; CIA$Q_EXPIRATION_TIME : $UQUAD; CIA$R_FILL_96_ : [BYTE(4)] RECORD END; CIA$L_ATTEMPT_COUNT : UNSIGNED; CIA$R_FILL_98_ : [BYTE(1062)] RECORD END; ); 2: (CIA$L_FLAGS : [POS(128)] UNSIGNED; CIA$T_USER_SPEC : [POS(192)] PACKED ARRAY [1..1062] OF CHAR; ); 3: (); 4: (CIA$V_INTRUDER : [POS(128)] $BOOL; CIA$V_SUSPECT : [POS(129)] $BOOL; CIA$V_NETWORK : [POS(130)] $BOOL; CIA$V_TERM_USER : [POS(131)] $BOOL; CIA$V_TERMINAL : [POS(132)] $BOOL; CIA$V_USERNAME : [POS(133)] $BOOL; CIA$W_USER_SPEC_LENGTH : [POS(192)] $UWORD; CIA$T_USER_SPEC_NAME : [POS(224)] PACKED ARRAY [1..1058] OF CHAR; ) END; BREAKIN_BLOCK$TYPE = RECORD CIA$L_BREAK_FLAGS : UNSIGNED; CIA$L_BREAK_COUNT : UNSIGNED; CIA$Q_BREAK_TIME : $UQUAD; END; CIA$GENERIC_REPLY = RECORD CIA$L_REPLY_STATUS : UNSIGNED; (* status of request *) END; (*** MODULE $CLIDEF ***) (*++ *) (* *) (* $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS *) (* *) (* THIS MODULE DEFINES THE OFFSET VALUES FOR THE DATA STRUCTURES *) (* USED TO COMMUNICATED COMMAND INFORMATION BETWEEN THE CLI AND *) (* THE UTILITY THAT WAS REQUESTED TO PERFORM THE OPERATION. *) (* *) (*-- *) CONST CLI$M_DEBUG = 1; CLI$M_DBGTRU = 2; CLI$M_VERIFY = 4; CLI$M_BATCH = 8; CLI$M_INDIRECT = 16; CLI$M_VFYINP = 32; CLI$M_TRMVRBLV = 768; CLI$M_DBGEXCP = 65536; TYPE CLI$TYPE = RECORD CASE INTEGER OF 1: (CLI$L_INIARGCNT : UNSIGNED; (* INITIAL ARG COUNT *) CLI$A_PROGXFER : $DEFPTR; (* PROGRAM TRANSFER VECTOR ADDRESS *) CLI$A_UTILSERV : $DEFPTR; (* ADDRESS OF CLI UTILITY SERVICE *) CLI$A_IMGHDADR : $DEFPTR; (* ADDRESS OF IMAGE HEADER *) CLI$A_IMGFILED : $DEFPTR; (* ADDRESS OF IMAGE FILE DATA *) CLI$L_LINKFLAG : UNSIGNED; (* LINK FLAG LONGWORD *) CLI$R_CLIFLAG_OVERLAY : [BYTE(4)] RECORD END; CLI$L_ARGLIST : INTEGER; (* ADDRESS OF APPLICATION ARGUMENT LIST *) (* (USED FOR MERGED IMAGE ARG. PASSING) *) (* *) (* DEFINE CLI COMMAND INTERFACE REQUEST BLOCK *) (* *) ); 2: (CLI$L_CLIFLAG : [POS(192)] UNSIGNED; (* CLI FLAG LONGWORD *) ); 3: (); 4: (CLI$V_DEBUG : [POS(192)] $BOOL; (* DEBUG QUALIFIER SEEN *) CLI$V_DBGTRU : [POS(193)] $BOOL; (* DEBUG WAS TRUE *) CLI$V_VERIFY : [POS(194)] $BOOL; (* VERIFY IS ON *) CLI$V_BATCH : [POS(195)] $BOOL; (* THIS PROCESS IS A BATCH JOB *) CLI$V_INDIRECT : [POS(196)] $BOOL; (* INDIRECT LEVEL NOT EQUAL TO ZERO *) CLI$V_VFYINP : [POS(197)] $BOOL; (* UTILITY SHOULD VERFIY INPUT *) CLI$V_TRMVRBLV : [POS(200)] $BIT2; (* TERMINAL VERBOSITY LEVEL *) CLI$V_DBGEXCP : [POS(208)] $BOOL; (* DEBUGGER CALLED VIA "DEBUG" EXCEPTION *) (* THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENDING ON INIARGCNT *) ) END; CONST CLI$M_PARMREQ = 1; CLI$M_ABSADR = 2; CLI$M_EXPNAM = 4; CLI$M_LASTVAL = 1; CLI$M_DUMMY = 2; CLI$M_PARMPRS = 1; CLI$M_CONCATINP = 2; CLI$M_MOREINP = 4; CLI$M_PARMDEF = 8; CLI$M_MOREVALS = 1; CLI$M_KEYVALU = 2; CLI$K_REQDESC = 28; (* SIZE OF THE STRUCTURE *) CLI$C_REQDESC = 28; (* SIZE OF THE STRUCTURE *) (* *) TYPE CLI1$TYPE = RECORD CASE INTEGER OF 1: (CLI$R_FILL_3_OVERLAY : [BYTE(4)] RECORD END; CLI$A_ERRACT : $DEFPTR; (* ADDRESS OF ERROR ACTION ROUTINE *) CLI$R_RQDESC_OVERLAY : [BYTE(8)] RECORD END; CLI$A_PRSACT : $DEFPTR; (* PARAMETER PRESENT ACTION ROUTINE *) CLI$A_ABSACT : $DEFPTR; (* PARAMETER ABSENT ACTION ROUTINE *) CLI$A_QUALST : $DEFPTR; (* ADDRESS OF QUALIFIERS *) (* Define the Descriptor Used by Symbol and Logical-name Callbacks *) (* *) ); 2: (CLI$Q_RQDESC : [POS(64)] $UQUAD; (* QUADWORD REQUEST DESCRIPTOR *) ); 3: (); 4: (CLI$W_RQSIZE : [POS(64)] $UWORD; (* RESULTANT SIZE OF PARAMETER *) ); 5: (CLI$B_RQTYPE : [POS(0)] $UBYTE; (* TYPE OF REQUEST BEING MADE *) CLI$W_SERVCOD : [POS(8)] $UWORD; (* CLI SERVICE CODE *) CLI$B_RQSTAT : [POS(24)] $UBYTE; (* OUTPUT STATUS FLAGS *) CLI$L_RQVALU : [POS(96)] UNSIGNED; (* ACTUAL VALUE IN VALUE CONVERSTION *) ); 6: (CLI$A_RQADDR : [POS(96)] $DEFPTR; (* ADDRESS OF RESULTANT PARAMETER *) ); 7: (CLI$V_SUBTYP : [POS(0)] $BIT4; (* SUB TYPE VIELD *) CLI$V_PRITYP : [POS(4)] $BIT4; (* PRIMARY TYPYE *) CLI$V_PARMPRS : [POS(24)] $BOOL; (* PARAMETER IS PRESENT *) CLI$V_CONCATINP : [POS(25)] $BOOL; (* INPUT CONCATONATION EXISTS *) CLI$V_MOREINP : [POS(26)] $BOOL; (* ANOTHER SET OF INPUT PARAMETERS *) CLI$V_PARMDEF : [POS(27)] $BOOL; (* PARAMETER WAS DEFAULTED PRESENT *) ); 8: (CLI$B_RQINDX : [POS(8)] $UBYTE; (* OFFSET FOR VALUE KEYWORD INDEX *) CLI$B_RQFLGS : [POS(16)] $UBYTE; (* INPUT FLAGS CONCERNING REQUEST *) ); 9: (CLI$B_BITNUM : [POS(8)] $UBYTE; (* BIT TO SET IF REQUEST IS SUCESSFUL *) CLI$V_MOREVALS : [POS(24)] $BOOL; (* UNPROCESSED VALUES REMAIN *) CLI$V_KEYVALU : [POS(25)] $BOOL; (* SUBSEQUENT TOKEN IS VALUE FOR KEY *) ); 10: (CLI$V_PARMREQ : [POS(16)] $BOOL; (* PARAMATER IS REQUIRED *) CLI$V_ABSADR : [POS(17)] $BOOL; (* ALL ADDRESS ARE ABSOLUTE *) CLI$V_EXPNAM : [POS(18)] $BOOL; (* RETURN EXPLICIT NAMES ONLY *) ); 11: (); 12: (CLI$V_LASTVAL : [POS(16)] $BOOL; (* LAST VALUE ALLOWED *) CLI$V_DUMMY : [POS(17)] $BOOL; (* *** SAVE PLACE FOR ABS ADR *** *) ) END; CLI2$TYPE = RECORD CLIDEF$$_FILL_8 : ARRAY [1..4] OF $BYTE; CLI$Q_NAMDESC : $UQUAD; (* Logical name or symbol name *) CLI$Q_VALDESC : $UQUAD; (* Equivalence name or symbol value *) CLI$Q_TABDESC : $UQUAD; (* Name of logical name table *) CLI$L_ITMLST : INTEGER; (* Address of item list *) CLI$L_ATTR : INTEGER; (* Address of attribute longword *) (* *) (* Define the Descriptor Locations Used for the Old/New *) (* Out-of-Band Character(s) Masks *) (* *) END; CLI3$TYPE = RECORD CLIDEF$$_FILL_9 : ARRAY [1..4] OF $BYTE; CLI$L_NEW_MASK : UNSIGNED; (* Enable/disable mask *) CLI$L_OLD_MASK : UNSIGNED; (* Previous enabled values mask *) (* *) (* Define the descriptor used for ATTACH callback *) (* *) END; CLI4$TYPE = RECORD CLIDEF$$_FILL_10 : ARRAY [1..4] OF $BYTE; CLI$L_PID : UNSIGNED; (* PID of "destination" process *) (* *) (* Define the descriptor used for SPAWN callback *) (* *) END; CONST CLI$M_NOWAIT = 1; CLI$M_NOCLISYM = 2; CLI$M_NOLOGNAM = 4; CLI$M_NOKEYPAD = 8; CLI$M_NOTIFY = 16; CLI$M_NOCONTROL = 32; CLI$M_TRUSTED = 64; CLI$M_AUTHPRIV = 128; CLI$M_SUBSYSTEM = 256; CLI$M_DETACHED = 512; CLI$K_SPAWN_VERSION = 1; (* Latest version *) CLI$C_SPAWN_VERSION = 1; (* Latest version *) CLI$K_SRVDESC = 88; (* Length of longest "service" callback *) CLI$C_SRVDESC = 88; (* Length of longest "service" callback *) (* *) TYPE CLI5$TYPE = RECORD CASE INTEGER OF 1: (CLIDEF$$_FILL_11 : ARRAY [1..4] OF $BYTE; CLI$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; CLIDEF$$_FILL_5 : ARRAY [1..2] OF $BYTE; (* Unused *) CLI$L_OUTPID : UNSIGNED; (* PID of subprocess on return *) CLI$L_LSTSTATUS : INTEGER; (* Address to store final subprocess status *) CLI$Q_CMDSTR : $UQUAD; (* Descriptor of command string *) CLI$Q_INPUT : $UQUAD; (* Descriptor of input filespec *) CLI$Q_OUTPUT : $UQUAD; (* Descriptor of output filespec *) CLI$Q_PRCNAM : $UQUAD; (* Descriptor of name for subprocess *) CLI$L_ASTADR : INTEGER; (* Address of termination AST routine *) CLI$L_ASTPRM : INTEGER; (* Address of AST routine parameter *) CLI$B_EFN : $UBYTE; (* Event flag to set on termination *) CLI$B_VERSION : $UBYTE; (* Data structure version *) CLIDEF$$_FILL_6 : ARRAY [1..2] OF $BYTE; (* Unused *) CLI$Q_PROMPT : $UQUAD; (* Descriptor of prompt string *) CLI$Q_CLI : $UQUAD; (* Descriptor of cli name *) CLI$Q_TABLE : $UQUAD; (* Descriptor of cli table name *) CLI$L_KT_LIMIT : INTEGER; (* Kernel thread limit *) (* *) (* Define the length of the longest "supervisor-mode service" request block, *) (* so that programs can allocate a fixed amount of space for the block. *) (* *) (* DEFINE THE PARAMETER QUALIFIER DESCRIPTOR *) (* *) ); 2: (CLI$B_FLAGS : [POS(32)] $UBYTE; (* Flags (as byte) *) ); 3: (CLI$W_FLAGS : [POS(32)] $UWORD; (* Flags (as word) *) ); 4: (); 5: (CLI$V_NOWAIT : [POS(32)] $BOOL; (* Do not wait for subprocess completion *) CLI$V_NOCLISYM : [POS(33)] $BOOL; (* Do not copy CLI symbols to subprocess *) CLI$V_NOLOGNAM : [POS(34)] $BOOL; (* Do not copy logical names to subprocess *) CLI$V_NOKEYPAD : [POS(35)] $BOOL; (* Do not copy keypad state to subprocess *) CLI$V_NOTIFY : [POS(36)] $BOOL; (* Output notification message *) CLI$V_NOCONTROL : [POS(37)] $BOOL; (* Do not put CR/LF in front of prompt string *) CLI$V_TRUSTED : [POS(38)] $BOOL; (* Allow spawn regardless of UAF CAPTIVE flag *) CLI$V_AUTHPRIV : [POS(39)] $BOOL; (* Propagate AUTHPRIV to subprocess *) CLI$V_SUBSYSTEM : [POS(40)] $BOOL; (* Copy protected subsystem IDs to subprocess *) CLI$V_DETACHED : [POS(41)] $BOOL; (* Spawn a detached process *) ) END; CONST CLI$M_ALLOCCUR = 1; CLI$M_QDUSRV = 2; CLI$M_QDEXPA = 4; CLI$M_QUALTRU = 1; CLI$M_QUALEXP = 2; CLI$K_QUALDEF = 20; (* SIZE OF FIXED PART OF STRUCTURE *) CLI$C_QUALDEF = 20; (* SIZE OF FIXED PART OF STRUCTURE *) CLI$K_QDBITS = 20; (* START OF BIT LISTS(VARIALBLE LENGTH) *) CLI$C_QDBITS = 20; (* START OF BIT LISTS(VARIALBLE LENGTH) *) TYPE CLI6$TYPE = RECORD CASE INTEGER OF 1: (CLI$B_QDBLKSIZ : $UBYTE; (* SIZE OF THE FINAL BLOCK *) CLI$B_QDCODE : $UBYTE; (* ID CODE FOR THE QUALIFIER *) CLI$R_QDFLGS_OVERLAY : [BYTE(1)] RECORD END; CLI$R_QDSTAT_OVERLAY : [BYTE(1)] RECORD END; CLI$R_QDVALDESC_OVERLAY : [BYTE(8)] RECORD END; CLI$A_TRUACT : $DEFPTR; (* QUALIFIER TRUE ACTION ROUTINE *) CLI$A_FLSACT : $DEFPTR; (* QUALIFIER FALSE ACTION ROUTINE *) CLI$L_USRVAL : UNSIGNED; (* OPTION USER VALUE IF PRESENT *) (* *) (* DEFINE SPACE FOR THE RESULT PARSE WORK AREA *) (* *) ); 2: (CLI$B_QDFLGS : [POS(16)] $UBYTE; (* FLAGS BYTE *) CLI$B_QDSTAT : [POS(24)] $UBYTE; (* QUALIFIER STATUS *) CLI$Q_QDVALDESC : [POS(32)] $UQUAD; (* QUALIFIER VALUE DESCRIPTOR *) ); 3: (); 4: (CLI$V_ALLOCCUR : [POS(16)] $BOOL; (* TAKE ACTION ON ALL OCCURANCES *) CLI$V_QDUSRV : [POS(17)] $BOOL; (* USER CONTEX VALUE IS PRESENT *) CLI$V_QDEXPA : [POS(18)] $BOOL; (* TAKE ACTION ON EXPLICIT OCCURANCES *) CLI$V_QUALTRU : [POS(24)] $BOOL; (* QUALIFIER IS TRUE *) CLI$V_QUALEXP : [POS(25)] $BOOL; (* QUALIFIER EXPLICITLY STATED *) CLI$W_QDVALSIZ : [POS(32)] $UWORD; (* SIZE OF VALUE *) CLI$A_QDVALADR : [POS(64)] $DEFPTR; (* ADDRESS OF VALUE STRING *) ) END; CONST CLI$K_WORKAREA = 128; (* SIZE OF HEADER *) CLI$C_WORKAREA = 128; (* SIZE OF HEADER *) (* *) CONST CLI$K_UTILOPR = 0; (* UTILITY OPERATIONS *) CLI$K_INPSPEC = 1; (* REQUEST FOR AN INPUT SPECIFICATION *) CLI$K_OUTSPEC = 2; (* AN OUTPUT FILE SPECIFICATION *) CLI$K_PARDONE = 3; (* PARAMETER DONE REQUEST *) CLI$K_VALCONV = 4; (* REQUEST A VALUE CONVERSION *) CLI$K_CLINT = 5; (* CLINT OPERATIONS *) (* *) CONST CLI$K_INITPRS = 0; (* REQUEST INITIALIZATION OF PARSE *) CLI$K_GETCMD = 1; (* GET COMMAND BUFFER LIMITS *) CLI$K_GETQUAL = 2; (* OPTAIN STATE OF QUALIFIERS *) CLI$K_GETOPT = 3; (* DECODE COMMAND OPTION *) CLI$K_GETLINE = 4; (* GET COMMAND LINE *) (* *) (* THE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUEST *) (* TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE A *) (* DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILL *) (* APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION *) (* CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5. *) (* *) CONST CLI$K_CLISERV = 5; (* REQUEST A SERVICE FROM THE CLI *) (* *) CONST CLI$K_INPUT1 = 16; (* PRIMARY INPUT *) CLI$K_INPUT2 = 17; (* SECONDARY INPUT *) CLI$K_INPUT3 = 18; (* THIRD, *) CLI$K_INPUT4 = 19; (* ETC,ETC,ETC *) (* *) CONST CLI$K_OUTPUT1 = 32; (* FIRST OUTPUT *) CLI$K_OUTPUT2 = 33; (* SECOND OUTPUT *) CLI$K_OUTPUT3 = 34; (* THIRD,- *) CLI$K_OUTPUT4 = 35; (* ETC,ETC,ETC *) (* *) CONST CLI$K_ENDPRM1 = 48; (* COMPLETED PARAMETER SET 1 *) CLI$K_ENDPRM2 = 49; (* COMPLETED PARAMETER SET 2 *) CLI$K_ENDPRM3 = 50; (* COMPLETED PARAMETER SET 3 *) CLI$K_ENDPRM4 = 51; (* COMPLETED PARAMETER SET 4 *) (* *) CONST CLI$K_NUMERVAL = 64; (* NUMBERIC VALUE *) CLI$K_ASCIIVAL = 65; (* ASCII VALUE *) CLI$K_KEYWORD = 66; (* KEYWORD VALUE *) CLI$K_KEYVAL = 67; (* KEYWORD WITH VALUE *) CLI$K_FILSPEC = 68; (* VALUE IS A FILESPEC *) (* *) CONST CLI$K_PRESENT = 80; (* DETERMINE IF ENTITY IS PRESENT *) CLI$K_GETVALUE = 81; (* GET VALUE OF ENTITY *) CLI$K_ENDPARSE = 82; (* CLEAN UP AFTER PARSING COMMAND *) CLI$K_DCLPARSE = 83; (* PARSE USER COMMAND LINE *) CLI$K_DISPATCH = 84; (* DISPATCH TO ACTION ROUTINE *) CLI$K_NEXTQUAL = 85; (* PROCESS NEXT QUALIFIER *) (* *) TYPE CLI7$TYPE = RECORD CLI$L_WORKAREA : ARRAY [1..32] OF UNSIGNED; (* ALLOCATE 32 LONG WORDS *) (* DEFINE CLI UTILITY REQUEST CODES *) (* *) (* CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS *) (* THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS *) (* AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE *) (* *) (* DEFINE REQUEST TYPE CODES *) (* DEFINE COMPLETE CODES FOR UTILITY OPERATIONS *) (* *) (* DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS *) (* *) (* DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS *) (* *) (* DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION *) (* *) (* DEFINE CODES FOR VALUE CONVERSION REQUESTS *) (* *) (* DEFINE COMPLETE CODES FOR UTILITY OPERATIONS *) (* *) (* DEFINE SET CODE SET REQUEST BLOCK *) (* *) END; CLI8$TYPE = RECORD CLIDEF$$_FILL_12 : ARRAY [1..4] OF $BYTE; CLI$L_CODESET : UNSIGNED; (* CODE SET VALUE *) END; (*** MODULE $CLISERVDEF ***) (* *) (* DEFINE CLI SERVICE REQUEST CODES *) (* *) (* DEFINE CLI SERVICE CODES *) CONST CLI$K_PAUSE = 1; (* PAUSE THE IMAGE *) CLI$K_DEFLOCAL = 2; (* DEFINE A SYMBOL IN THE LOCAL TABLE *) CLI$K_DEFGLOBAL = 3; (* DEFINE A SYMBOL IN THE GLOBAL TABLE *) CLI$K_CHAIN = 4; (* PASS AN IMAGE TO RUN AFTER THIS ONE *) CLI$K_COMMAND = 5; (* PASS A COMMAND LINE TO LATER EXECUTE *) CLI$K_CREALOG = 6; (* DEFINE A PROCESS LOGICAL NAME *) CLI$K_DELELOG = 7; (* DELETE A PROCESS LOGICAL NAME *) CLI$K_DISACTRLY = 8; (* DISABLE DCL CONTROL Y PROCESSING *) CLI$K_ENABCTRLY = 9; (* ENABLE DCL CONTROL Y PROCESSING *) CLI$K_GETSYM = 10; (* RETURN VALUE OF A SYMBOL *) CLI$K_DELELCL = 11; (* DELETE A LOCAL SYMBOL *) CLI$K_DELEGBL = 12; (* DELETE A GLOBAL SYMBOL *) CLI$K_DISAOOB = 13; (* DISABLE OUT-OF-BAND CHARACTER(S) *) CLI$K_ENABOOB = 14; (* RE-ENABLE OUT-OF-BAND CHARACTER(S) *) CLI$K_SPAWN = 15; (* SPAWN A SUBPROCESS *) CLI$K_ATTACH = 16; (* ATTACH TO A PROCESS *) CLI$K_LIBDEFLOCAL = 17; (* DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOL *) CLI$K_LIBDEFGLOBAL = 18; (* DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL *) CLI$K_LIBGETSYM = 19; (* GET A SYMBOL VALUE USING LIB$GET_SYMBOL *) CLI$K_LIBDELELCL = 20; (* DELETE A SYMBOL USING LIB$DELETE_SYMBOL *) CLI$K_LIBDELEGBL = 21; (* DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOL *) CLI$K_SETCODESET = 22; (* SET CODE SET *) (* *) (* Define local/global symbol flag returned by GETSYM *) (* *) CONST CLI$K_LOCAL_SYM = 1; (* Local symbol *) CLI$K_GLOBAL_SYM = 2; (* Global symbol *) (*** MODULE $CLIVERBDEF ***) (* *) (* DEFINE GENERIC CODES FOR VERBS *) (* *) (* DEFINE VERB QENERIC CODES *) CONST CLI$K_VERB_ALLO = 1; (* ALLOCATE *) CLI$K_VERB_ANAL = 2; (* ANALIZE *) CLI$K_VERB_ASSI = 3; (* ASSIGN *) CLI$K_VERB_BASI = 4; (* BASIC *) CLI$K_VERB_BLIS = 5; (* BLISS *) CLI$K_VERB_COBO = 6; (* COBOL *) CLI$K_VERB_CONT = 7; (* CONTINUE *) CLI$K_VERB_COPY = 8; (* COPY *) CLI$K_VERB_CREA = 9; (* CREATE *) CLI$K_VERB_DATA = 10; (* DATA *) CLI$K_VERB_DEAL = 11; (* DEALLOCATE *) CLI$K_VERB_DEAS = 12; (* DEASSIGN *) CLI$K_VERB_DEBU = 13; (* DEBUG *) CLI$K_VERB_DEFI = 14; (* DEFINE *) CLI$K_VERB_DELE = 15; (* DELETE *) CLI$K_VERB_DEPO = 16; (* DEPOSIT *) CLI$K_VERB_DIFF = 17; (* DIFFERENCE COMMAND *) CLI$K_VERB_DIRE = 18; (* DIRECTORY *) CLI$K_VERB_DISM = 19; (* DISMOUNT *) CLI$K_VERB_EDIT = 20; (* EDIT *) CLI$K_VERB_EOD = 21; (* EOD *) CLI$K_VERB_EXAM = 22; (* EXAMINE *) CLI$K_VERB_EXIT = 23; (* EXIT *) CLI$K_VERB_FORT = 24; (* FORTRAN *) CLI$K_VERB_GOTO = 25; (* GOTO *) CLI$K_VERB_HELP = 26; (* HELP *) CLI$K_VERB_IF = 27; (* IF *) CLI$K_VERB_INIT = 28; (* INITIALIZE *) CLI$K_VERB_INQU = 29; (* INQUIRE *) CLI$K_VERB_LINK = 30; (* LINK *) CLI$K_VERB_LOGO = 31; (* LOGOUT *) CLI$K_VERB_MACR = 32; (* MACRO *) CLI$K_VERB_MCR = 33; (* MCR *) CLI$K_VERB_ON = 34; (* ON *) CLI$K_VERB_PRIN = 35; (* PRINT *) CLI$K_VERB_RUN = 36; (* RUN *) CLI$K_VERB_SET = 37; (* SET *) CLI$K_VERB_SHOW = 38; (* SHOW *) CLI$K_VERB_STAR = 39; (* START *) CLI$K_VERB_STOP = 40; (* STOP *) CLI$K_VERB_SUBM = 41; (* SUBMIT *) CLI$K_VERB_TYPE = 42; (* TYPE *) CLI$K_VERB_MOUN = 43; (* MOUNT *) CLI$K_VERB_PATC = 44; (* PATCH *) CLI$K_VERB_REPL = 45; (* REPLAY *) CLI$K_VERB_UNLO = 46; (* UNLOCK *) CLI$K_VERB_APPE = 47; (* APPEND COMMAND *) CLI$K_VERB_DUMP = 48; (* DUMP *) CLI$K_VERB_PURG = 49; (* PURGE *) CLI$K_VERB_RENA = 50; (* RENAME *) CLI$K_VERB_CANC = 51; (* CANCEL *) CLI$K_VERB_LIBR = 52; (* LIBRARY *) CLI$K_VERB_SORT = 53; (* SORT *) CLI$K_VERB_REQU = 54; (* REQUEST *) CLI$K_VERB_SYNC = 55; (* SYNCRONIZE *) CLI$K_VERB_CORA = 56; (* CORAL *) CLI$K_VERB_PASC = 57; (* PASCAL *) CLI$K_VERB_PLI = 58; (* PL/1 *) CLI$K_VERB_MESS = 59; (* MESSAGE *) (* DEFINE VERB QENERIC CODES *) CONST CLI$K_VERB_FORE = 255; (* FOREIGN COMMAND *) (*** MODULE $CLSDEF ***) (*+ *) (* *) (* Security classification block. Contains secrecy and integrity *) (* level and categories for non-discretionary (mandatory) access controls. *) (* *) (*- *) CONST CLS$S_CLSDEF_TLVRNG = 4; (* Preserve previous size symbol *) TYPE CLS_TLVRNG$TYPE = RECORD (* Range specifier field references *) CLS$W_RANGE_LOW : $UWORD; (* Range low limit *) CLS$W_RANGE_HIGH : $UWORD; (* Range high limit *) END; CONST CLS$K_END = 0; (* List terminator *) CLS$K_SC_ENUMERATE = 1; (* Secrecy category enumerated list *) CLS$K_SC_RANGE = 2; (* Secrecy category range list *) CLS$K_SC_MASK = 3; (* Secrecy category bitmask *) CLS$K_IC_ENUMERATE = 17; (* Integrity category enumerated list *) CLS$K_IC_RANGE = 18; (* Integirty category range list *) CLS$K_IC_MASK = 19; (* Integrity category bitmask *) CLS$K_VOID = 255; (* Voided entry *) CLS$S_CLSDEF_TLV = 8; (* Preserve previous size symbol *) TYPE CLS_TLV$TYPE = RECORD CASE INTEGER OF (* TLV entry field references *) 1: (CLS$R_TLV : [BYTE(8)] RECORD END; ); 2: (CLS$B_TAG : [POS(0)] $UBYTE; (* Format code *) CLS$B_LENGTH : [POS(8), BYTE(1)] RECORD END; (* Field length, intrepretation format *) CLS$R_VALUE_SET : [POS(16), BYTE(6)] RECORD END; (* Value set. *) ); (* dependent: *) 3: (CLS$B_COUNT : [POS(8)] $UBYTE; (* # entries in an enumerated list *) (* # range pairs in a range list *) (* # longwords following voided entry *) ); 4: (CLS$B_MASK_SIZE : [POS(8)] $UBYTE; (* # longwords in a bitmask *) CLS$W_CATLST : [POS(16)] ARRAY [1..1] OF $UWORD; (* Vector of enumerated cat. *) ); 5: (); 6: (CLS$L_RNGLST : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* Vector of high:low word *) (* range pairs *) ); 7: (); 8: (CLS$W_BASE : [POS(16)] $UWORD; (* Bias value *) CLS$L_MASK : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* <32 * MASK_SIZE> bit mask *) ); 9: (); 10: (); 11: (); 12: (CLS$W_VOID : [POS(16)] ARRAY [1..1] OF $UWORD; (* words *) ) END; CONST CLS$K_MIN_SEC_LEV = 0; (* Minimum secrecy level *) CLS$K_MIN_INT_LEV = 0; (* Minimum integrity level *) CLS$K_MAX_SEC_LEV = 255; (* Maximum secrecy level *) CLS$K_MAX_INT_LEV = 255; (* Maximum integrity level *) CLS$K_MIN_SEC_CAT = 1; (* Minimum secrecy category *) CLS$K_MIN_INT_CAT = 1; (* Minimum integrity category *) CLS$K_MAX_SEC_CAT = 65536; (* Maximum supported secrecy category *) CLS$K_MAX_INT_CAT = 65536; (* Maximum supported integrity category *) CLS$K_MAX_SEC_CAT_S64I64 = 64; (* Maximum type 0 secrecy category *) CLS$K_MAX_INT_CAT_S64I64 = 64; (* Maximum type 0 integrity category *) CLS$K_MAX_SEC_CAT_S128 = 128; (* Maximum type 1 secrecy category *) CLS$K_MAX_SEC_CAT_DYN_CAT = 65536; (* Maximum type 2 secrecy category *) CLS$K_MAX_INT_CAT_DYN_CAT = 65536; (* Maximum type 2 integrity category *) CLS$K_TYP_S64I64 = 0; (* Type 0 class block identifier *) CLS$K_TYP_S128 = 1; (* Type 1 class block identifier *) CLS$K_TYP_DYN_CAT = 2; (* Type 2 class blook identifier *) CLS$K_LENGTH_HDR = 4; (* Size of common header *) CLS$K_LENGTH_S64I64 = 20; (* Size of type 0 class block *) CLS$K_LENGTH_S128 = 20; (* Size of type 1 class block *) CLS$K_LENGTH_DYN_CAT = 4; (* Size of type 2 class block *) (* fixed portion *) CONST CLS$S_CLSDEF = 20; (* Preserve previous size definition *) CLS$K_LENGTH = 20; (* length of structure *) TYPE CLS$TYPE = RECORD CASE INTEGER OF 1: (CLS$R_SEVMS_DEFS : [BYTE(20)] RECORD END; ); 2: (CLS$B_SEC_LEV : [POS(0)] $UBYTE; (* Secrecy level *) CLS$B_INT_LEV : [POS(8)] $UBYTE; (* Integrity level *) CLS$B_TYPE : [POS(16)] $UBYTE; (* Class block type *) (* Class block type identifiers *) CLS$B_TLVLST_SIZE : [POS(24)] $UBYTE; (* Size in longwords of TLV list in *) (* a type 2 class block. *) ); (* *) (* Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred. *) (* Previous name forms have been retained for backwards compatibility only. *) (* *) 3: (); 4: (CLS$Q_SEC_CAT_S64I64 : [POS(32)] $UQUAD; (* Secrecy category mask *) CLS$Q_INT_CAT_S64I64 : [POS(96)] $UQUAD; (* Integrity category mask *) ); 5: (); 6: (CLS$O_SEC_CAT_S128 : [POS(32)] $UOCTA; (* Secrecy category mask *) ); 7: (); 8: (CLS$L_TLVLST : [POS(32)] ARRAY [1..1] OF UNSIGNED; (* Tag-Length-Value_set list *) (* *) (* The following definitions have been superseded and are being retained for backwards compatibility only. *) (* Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. *) (* *) ); 9: (); 10: (CLS$Q_SEC_CAT_0 : [POS(32)] $UQUAD; (* Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 preferred *) CLS$Q_INT_CAT_0 : [POS(96)] $UQUAD; (* Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred *) ); 11: (); 12: (CLS$O_SEC_CAT_1 : [POS(32)] $UOCTA; (* Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 preferred *) (* *) (* The following definitions have been superseded and are being retained for backwards compatibility only. *) (* Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. *) (* *) ); 13: (CLS$R_VMS_DEFS : [BYTE(20)] RECORD END; ); 14: (CLS$B_SECUR_LEV : [POS(0)] $UBYTE; (* Security level - Usage of CLS$B_SEC_LEV preferred *) CLS$B_INTEG_LEV : [POS(8)] $UBYTE; (* Integrity level - Usage of CLS$B_INT_LEV preferred *) CLS$Q_SECUR_CAT : [POS(32)] $UQUAD; (* Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$O_SEC_CAT_S128 preferred *) CLS$Q_INTEG_CAT : [POS(96)] $UQUAD; (* Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred *) (* *) (* The CLS$S_CLSDEF definition is provided for backwards compatibility only. *) (* Usage of the CLS$K_LENGTH_S64I64, CLS$K_LENGTH_S128 and CLS$K_LENGTH_DYN_CAT definitions is preferred. *) (* *) ) END; (* *) (* $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS system service item codes *) (* *) CONST CLS$_SECSTR = 1; (* Textual secrecy/security string *) CLS$_INTSTR = 2; (* Textual integrity string *) CLS$_CLSBLK = 3; (* Simple classification block *) CLS$_MINCLSBLK = 4; (* Minimum classification block *) CLS$_MAXCLSBLK = 5; (* Maximum classification block *) CLS$_WIDTH = 6; (* Width of display for $FORMAT_CLASS *) CLS$_TRMDSC = 7; (* Line terminator for $FORMAT_CLASS *) CLS$_INDENT = 8; (* Line indenting for $FORMAT_CLASS *) CLS$_OLDCLSBLK = 9; (* Previous classification block *) CLS$_OLDMINCLS = 10; (* Previous minimum class block *) CLS$_OLDMAXCLS = 11; (* Previous maximum class block *) CLS$_TRANQUIL = 12; (* Override tranquility checks - Usage reserved to Digital *) CLS$_FLAGS = 13; (* Formatting control flags *) (* ADD ITEM-CODES BEFORE THIS COMMENT *) CONST CLS$_MIN_ITEM_CODE = 1; CLS$_MAX_ITEM_CODE = 13; CLS$M_COMPRESS = 1; CLS$M_EXPAND = 2; (*** MODULE $CLUEVTDEF ***) CONST CLUEVTHNDL$K_LENGTH = 8; (* Length of block. *) CLUEVTHNDL$C_LENGTH = 8; (* Length of block. *) TYPE CLUEVTHNDL$TYPE = RECORD cluevthndl$l_cluacb_addr : UNSIGNED; cluevthndl$l_seq_num : UNSIGNED; END; CONST CLUEVT$C_ADD = 1; CLUEVT$C_REMOVE = 2; (*** MODULE $CMBDEF ***) (*+ *) (* $CREMBX FLAGS bit definitions *) (*- *) CONST CMB$M_READONLY = 1; CMB$M_WRITEONLY = 2; TYPE CMB$TYPE = RECORD CASE INTEGER OF 1: (CMB$R_CMBDEF_BITS : [BYTE(4)] RECORD END; ); 2: (CMB$V_READONLY : [POS(0)] $BOOL; (* Channel to be assigned to mailbox is READ ONLY. *) CMB$V_WRITEONLY : [POS(1)] $BOOL; (* Channel to be assigned to mailbox is WRITE ONLY. *) ) END; (*** MODULE $CPUIDEF ***) CONST CPUI$K_TICKS = 1; (* Get CPU's tick info *) (*+ *) (* CPUI Flags Definitions *) (*- *) CONST CPUI$M_SEARCH = 1; CPUI$M_RESERVED = -2; TYPE CPUI_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (CPUI$R_CPUIDEF_UNION : [BYTE(4)] RECORD END; ); 2: (CPUI$L_FLAGS : [POS(0)] UNSIGNED; ); 3: (); 4: (CPUI$V_SEARCH : [POS(0)] $BOOL; (* If CPU not active, search for next CPU *) CPUI$V_RESERVED : [POS(1)] $BIT31; (* No other flags defined at this time *) ) END; CONST CPUI$K_KERNEL_TICKS_INDEX = 0; (* 0 - kernel mode *) CPUI$K_EXEC_TICKS_INDEX = 1; (* 1 - exec mode *) CPUI$K_SUPER_TICKS_INDEX = 2; (* 2 - super mode *) CPUI$K_USER_TICKS_INDEX = 3; (* 3 - user mode *) CPUI$K_INT_TICKS_INDEX = 4; (* 4 - interrupt *) CPUI$K_MPSYNCH_TICKS_INDEX = 5; (* 5 - mpsynch *) CPUI$K_IDLE_TICKS_INDEX = 6; (* 6 - idle *) CPUI$K_TICKS_ENTRIES = 7; (* 7 - Total number of entries *) (*** MODULE $CRDEF ***) (*+ *) (* CARD READER STATUS BITS *) (*- *) CONST CR$M_TMODE = 15; CR$K_T026 = 0; (*026 PUNCH CODE TRANSLATION *) CR$K_T029 = 1; (*029 PUNCH CODE TRANSLATION *) TYPE CR$TYPE = RECORD CASE INTEGER OF 1: (CR$R_CRDEF_BITS : [BYTE(1)] RECORD END; ); 2: (CR$V_TMODE : [POS(0)] $BIT4; (* TRANSLATION MODE *) (* *) (* TRANSLATION MODE DEFINITIONS *) (* *) (* *) ) END; (*** MODULE CSHDEF IDENT X-1 ***) (* $SCHED function codes *) CONST CSH$_READ_ALL = 23; (* Read data on all processes *) CSH$_READ_NEW = 24; (* Read data on new processes *) CSH$_SET_CLASS = 25; (* Place process(es) into class(es) *) CSH$_RES1 = 26; CSH$_RES2 = 27; CSH$_RES3 = 28; CSH$_RES4 = 29; CSH$_SET_NEW = 30; (* Define this process as "new" *) CSH$_SET_TIMEOUT = 31; (* Set deadman timer *) CSH$_RES5 = 32; CSH$_RES6 = 33; CSH$_RES7 = 34; CSH$_RES8 = 35; CSH$_READ_QUANT = 36; (* Read per-class quanta remaining *) CSH$_SET_QUANT = 37; (* Define per-class quanta *) CSH$_RES9 = 38; CSH$_RESA = 39; CSH$_RESB = 40; CSH$_RESC = 41; CSH$_SET_ATTN_AST = 42; (* Establish attention AST *) CSH$_RSED = 43; CSH$_RESE = 44; CSH$_RESF = 45; CSH$_RES0 = 46; CSH$_CLEAR_ATTN_AST = 47; (* Clear attention AST *) CSH$_MAX_SCHED_FUNC = 48; (* AST reason mask *) CONST CSH$V_NEW_PROC = 1; (* Possible new process *) (* CSHC -- Class ScHeduler Class block *) (* *) (* Used to communicate from user to system, defining process/class mapping *) CONST CSHC$K_LENGTH = 8; CSHC$C_LENGTH = 8; TYPE CSHC$TYPE = RECORD CSHC$L_EPID : UNSIGNED; (* EPID of target process *) CSHC$W_CLASS : $WORD; (* Class number, 0-N, %X'FFFF' means *) (* `Take out of class scheduling' *) CSHC$W_WINDFALL : $UWORD; (* Windfall ticks to grant *) END; (* CSHP -- Class ScHeduler data block for Processes *) (* *) (* Used to communicate from system to user, showing various characteristics *) (* of processes. *) CONST CSHP$K_LENGTH = 24; CSHP$C_LENGTH = 24; TYPE CSHP$TYPE = RECORD CSHP$L_STATUS : UNSIGNED; (* Copy of PCB$L_STS *) CSHP$W_PIX : $UWORD; (* Process index slot *) CSHP$B_PRI : $BYTE; (* Current priority (internal) *) CSHP$B_PRIB : $BYTE; (* Current base priority (internal) *) CSHP$L_EPID : UNSIGNED; (* The official PID *) CSHP$T_ACCOUNT : PACKED ARRAY [1..8] OF CHAR; (* Account string from PCB *) CSHP$L_CPUTIM : UNSIGNED; (* CPU time charged *) END; (*** MODULE $CSTDEF ***) (*+ *) (* *) (* Constants defining single-transition operations *) (* *) CONST CST$K_CPU_STOP = 1; CST$K_CPU_MIGRATE = 2; CST$K_CPU_START = 3; CST$K_CPU_ASSIGN = 4; CST$K_CPU_DEASSIGN = 5; CST$K_CPU_FAILOVER = 6; CST$K_CPU_POWER_OFF = 7; CST$K_CPU_POWER_ON = 8; (* *) (* Constants defining multiple operation masks. The starting *) (* position of these values must be in the upper word to save *) (* space for future single-operation codes *) (* *) CONST CST$m_reserved1 = 255; CST$M_CPU_STOP = 256; CST$M_CPU_MIGRATE = 512; CST$M_CPU_START = 1024; CST$M_CPU_ASSIGN = 2048; CST$M_CPU_DEASSIGN = 4096; CST$M_CPU_FAILOVER = 8192; CST$M_CPU_POWER_OFF = 16384; CST$M_CPU_POWER_ON = 32768; TYPE CST_MASK$TYPE = RECORD CASE INTEGER OF 1: (CST$R_CST_MASK : [BYTE(2)] RECORD END; ); 2: (CST$v_reserved1 : [POS(0)] $BIT8; CST$V_CPU_STOP : [POS(8)] $BOOL; CST$V_CPU_MIGRATE : [POS(9)] $BOOL; CST$V_CPU_START : [POS(10)] $BOOL; CST$V_CPU_ASSIGN : [POS(11)] $BOOL; CST$V_CPU_DEASSIGN : [POS(12)] $BOOL; CST$V_CPU_FAILOVER : [POS(13)] $BOOL; CST$V_CPU_POWER_OFF : [POS(14)] $BOOL; CST$V_CPU_POWER_ON : [POS(15)] $BOOL; ) END; (* *) (* Constants defining target software nodes for reassignment *) (* *) CONST CST$K_PARTITION = -1; CST$K_COMMUNITY = -2; CST$K_HARD_PARTITION = -3; CST$K_SW_ROOT = -4; (* *) (* Constants defining CPU types *) (* *) CONST CST$K_ANY_OWNED_CPU = -1; CST$K_ANY_ACTIVE_CPU = -2; CST$K_ANY_STOPPED_CPU = -3; CST$K_ANY_UNOWNED_CPU = -4; (* *) (* Constants defining flag parameter characteristics *) (* *) CONST CST$M_CPU_DEFAULT_CAPABILITIES = 1; CST$M_CPU_ALLOW_ORPHANS = 2; CST$M_CPU_DECONFIGURE = 4; TYPE CST_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (CST$R_CST_FLAGS : [BYTE(1)] RECORD END; ); 2: (CST$V_CPU_DEFAULT_CAPABILITIES : [POS(0)] $BOOL; CST$V_CPU_ALLOW_ORPHANS : [POS(1)] $BOOL; CST$V_CPU_DECONFIGURE : [POS(2)] $BOOL; ) END; (*** MODULE $DCDEF ***) (* *) (* DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS *) (* *) (* *) (* DEFINE ADAPTER TYPES *) (* When adding a new adapter type, make sure a corresponding entry is added *) (* to the ADP_TBL_UP and ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR *) (* modules. *) (* *) (**************************************************************************** *) (* FURTHERMORE, when altering the list of AT$_ symbols, you MUST update the *) (* module [MANAGE]SMIIOGEN-UTILS.C. *) (**************************************************************************** *) (*DEFINE ADAPTER TYPES *) CONST AT$_MBA = 0; (* MASSBUS ADAPTER *) AT$_UBA = 1; (* UNIBUS ADAPTER *) AT$_DR = 2; (* DR32 ADAPTER *) AT$_MPM = 3; (* MULTI-PORT MEMORY *) AT$_CI = 4; (* CI BUS *) AT$_NULL = 5; (* NULL (SOFTWARE) ADAPTER *) AT$_BDA = 6; (* BI DISK ADAPTER(KDB50) *) AT$_DMB32 = 7; (* DMB32 ADAPTER *) AT$_DRB32 = 8; (* DRB32 ADAPTER *) AT$_BVP = 9; (* BVP GENERIC ADAPTER *) AT$_BVP_SSP = 10; (* BVP STORAGE SYSTEMS PORT *) AT$_BVP_NIP = 11; (* BVP NI PORT *) AT$_KA410 = 12; (* VAXstar system *) AT$_KA420 = 12; (* PVAX/CVAXstar system *) AT$_GENBI = 13; (* Generic BI device *) AT$_NBI = 14; (* NBIB on BI. *) AT$_DISK9 = 15; AT$_XBI = 16; AT$_TERM9 = 17; AT$_TAPE9 = 18; AT$_PRTR9 = 19; AT$_SFUN9 = 20; AT$_USER9 = 21; AT$_MBUSIO = 22; AT$_MBUSGFX = 23; AT$_KA640 = 24; AT$_XWATCH = 25; AT$_XBI_PLUS_XMI = 26; AT$_XBI_PLUS_BI = 27; AT$_XJA = 28; AT$_HSX50 = 29; AT$_KDM70 = 29; AT$_NI = 30; AT$_KA43 = 31; AT$_SJA = 32; AT$_GENXMI = 33; AT$_KA440 = 34; AT$_KA46 = 34; AT$_KA520 = 35; AT$_XSA = 36; AT$_XZA = 37; AT$_XZA_SCSI = 37; AT$_VME = 38; AT$_IOP = 39; AT$_LAMB = 40; AT$_KA49 = 41; AT$_TC = 42; AT$_X1303 = 43; AT$_XMI = 44; AT$_FBUS = 45; AT$_COREIO = 46; AT$_KA0202 = 47; AT$_KA0202_LBUS = 48; AT$_KA0302 = 49; AT$_KA0402 = 50; AT$_TURBO_SCSI = 51; AT$_CIMNA = 52; AT$_XZA_DSSI = 53; AT$_DEMNA = 54; AT$_FFA = 55; AT$_KA0602 = 56; AT$_EISA = 57; AT$_VTI_COMBO = 58; AT$_KA0702 = 64; AT$_TC_MULTI_NI = 65; AT$_AHA_1742A = 66; AT$_KA0902 = 67; AT$_PCI = 68; AT$_KA0802 = 69; AT$_MULTIFUNCTION_PCI = 70; AT$_ISA = 71; AT$_XBUS = 72; AT$_KA0C05 = 73; AT$_KA0E04 = 74; AT$_KA0D02 = 75; AT$_THIRDPARTY0 = 76; AT$_THIRDPARTY1 = 77; AT$_THIRDPARTY2 = 78; AT$_THIRDPARTY3 = 79; AT$_THIRDPARTY4 = 80; AT$_THIRDPARTY5 = 81; AT$_THIRDPARTY6 = 82; AT$_THIRDPARTY7 = 83; AT$_MULTIFUNCTION_ISA = 84; AT$_KA0F05 = 85; AT$_LMCP = 86; AT$_TIOP = 87; AT$_ITIOP = 88; AT$_KA1102 = 89; AT$_KA1504 = 90; AT$_HPC = 91; AT$_PCMCIA = 92; AT$_KA1402 = 93; AT$_KA0905 = 94; AT$_KA1802 = 95; AT$_KA1805 = 96; AT$_MEMCHAN = 97; AT$_KA1B02 = 98; AT$_KA1B05 = 99; AT$_KA1A05 = 100; AT$_KA1605 = 101; AT$_MC_BUS = 102; AT$_KA1105 = 103; AT$_KA1702 = 104; AT$_KA1E07 = 105; AT$_KA2005 = 106; AT$_KA2405 = 107; AT$_KA2208 = 108; AT$_KA2508 = 109; AT$_KA2308 = 110; AT$_WFQBB = 111; AT$_WFIOP = 112; AT$_WFPCA = 113; AT$_KA2608 = 114; AT$_KA270F = 115; AT$_IO7 = 116; AT$_I2000 = 117; AT$_ACPI_IA64_PLTFRM = 118; AT$_ACPI_IA64_CONTAIN = 119; AT$_ACPI_IA64_SYSBUS = 120; AT$_ACPI_IA64_BUSLESS = 121; AT$_ACPI_IA64_IOC = 122; AT$_PCIE = 123; (* *) (* DEFINE DEVICE CLASSES *) (* *) (*DEFINE DEVICE CLASSES *) CONST DC$_ANY = 0; (* ANY *) (* NOTE: This "special" device class *) (* is only used by [SYS]SYSGETDVI.MAR for *) (* item code validation. It should not be *) (* used for anything else, especially for *) (* device creation by driver writers! *) CONST DC$_DISK = 1; (* DISK *) DC$_TAPE = 2; (* TAPES *) DC$_SCOM = 32; (* SYNCHRONOUS COMMUNICATIONS DEVICES *) DC$_CARD = 65; (* CARD READER *) DC$_TERM = 66; (* TERMINAL *) DC$_LP = 67; (* LINE PRINTER *) DC$_WORKSTATION = 70; (* WORKSTATIONS *) DC$_REALTIME = 96; (* REAL-TIME *) DC$_DECVOICE = 97; (* DECVOICE products *) DC$_AUDIO = 98; (* General audio *) DC$_VIDEO = 99; (* General video *) DC$_BUS = 128; (* BUSES, E.G, CI *) DC$_MAILBOX = 160; (* MAILBOX *) DC$_REMCSL_STORAGE = 170; (* REMOTE CONSOLE STORAGE *) DC$_MISC = 200; (* MISCELLANEOUS DEVICES *) (* *) (* DEFINE DEVICE TYPES *) (* *) (* *) (* DISK DEVICES *) (* *) CONST DT$_RK06 = 1; (*RK06 DISK *) DT$_RK07 = 2; (*RK07 DISK *) DT$_RP04 = 3; (*RP04 DISK *) DT$_RP05 = 4; (*RP05 DISK *) DT$_RP06 = 5; (*RP06 DISK *) DT$_RM03 = 6; (*RM03 DISK *) DT$_RP07 = 7; (*RP07 DISK *) DT$_RP07HT = 8; (*RP07 DISK WITH HEAD/TRACK *) DT$_RL01 = 9; (*RL01 DISK *) DT$_RL02 = 10; (*RL02 DISK *) DT$_RX02 = 11; (*RX02 DISK *) DT$_RX04 = 12; (*RX04 DISK *) DT$_RM80 = 13; (*RM80 DISK *) DT$_TU58 = 14; (*TU58 *) DT$_RM05 = 15; (*RM05 DISK *) DT$_RX01 = 16; (*RX01 DISK *) DT$_ML11 = 17; (*ML11 disk *) DT$_RB02 = 18; (*R02 ON RB730 *) DT$_RB80 = 19; (*R80 ON RB730 *) DT$_RA80 = 20; (*R80 ON INTELLIGENT CONTROLLER *) DT$_RA81 = 21; (*R81 ON INTELLIGENT CONTROLLER *) DT$_RA60 = 22; (*PINON ON INTELLIGENT CONTROLLER *) DT$_RZ01 = 23; (*AZTEC REMOVABLE (Old name) *) DT$_RC25 = 23; (*AZTEC REMOVABLE (New name) *) DT$_RZF01 = 24; (*AZTEC FIXED (Old name) *) DT$_RCF25 = 24; (*AZTEC FIXED (New name) *) DT$_RD51 = 25; (*RD51 FIXED DISK DRIVE *) DT$_RX50 = 26; (*RX50 FLOPPY DISK DRIVE *) DT$_RD52 = 27; (*RD52 FIXED DISK DRIVE *) DT$_RD53 = 28; (*RD53 FIXED DISK DRIVE *) DT$_RD26 = 29; (*RD26 FIXED DISK DRIVE *) DT$_RA82 = 30; (*RA82 FIXED DISK DRIVE *) DT$_RD31 = 31; (*RD31 FIXED DISK DRIVE *) DT$_RD54 = 32; (*RD54 FIXED DISK DRIVE *) DT$_CRX50 = 33; (*Console RX50 *) DT$_RRD50 = 34; (*RRD50 *) DT$_GENERIC_DU = 35; (*Brand X Disk *) DT$_RX33 = 36; (*RX33 DISKETTE DRIVE *) DT$_RX18 = 37; (*RX18 *) DT$_RA70 = 38; DT$_RA90 = 39; DT$_RD32 = 40; DT$_DISK9 = 41; DT$_RX35 = 42; DT$_RF30 = 43; DT$_RF70 = 44; DT$_RF71 = 44; DT$_RD33 = 45; DT$_ESE20 = 46; DT$_TU56 = 47; DT$_RZ22 = 48; DT$_RZ23 = 49; DT$_RZ24 = 50; DT$_RZ55 = 51; DT$_RRD40S = 52; DT$_RRD40 = 53; DT$_GENERIC_DK = 54; DT$_RX23 = 55; DT$_RF31 = 56; DT$_RF72 = 57; DT$_RAM_DISK = 58; DT$_RZ25 = 59; DT$_RZ56 = 60; DT$_RZ57 = 61; DT$_RX23S = 62; DT$_RX33S = 63; DT$_RA92 = 64; DT$_SSTRIPE = 65; DT$_RZ23L = 66; DT$_RX26 = 67; DT$_RZ57I = 68; DT$_RZ31 = 69; DT$_RZ58 = 70; DT$_SCSI_MO = 71; DT$_RWZ01 = 71; DT$_RRD42 = 72; DT$_CD_LOADER_1 = 73; DT$_ESE25 = 74; DT$_RFH31 = 75; DT$_RFH72 = 76; DT$_RF73 = 77; DT$_RFH73 = 78; DT$_RA72 = 79; DT$_RA71 = 80; DT$_RAH72 = 80; DT$_RF32 = 81; DT$_RF35 = 81; DT$_RFH32 = 82; DT$_RFH35 = 82; DT$_RFF31 = 83; DT$_RF31F = 83; DT$_RZ72 = 84; DT$_RZ73 = 85; DT$_RZ35 = 86; DT$_RZ24L = 87; DT$_RZ25L = 88; DT$_RZ55L = 89; DT$_RZ56L = 90; DT$_RZ57L = 91; DT$_RA73 = 92; DT$_RZ26 = 93; DT$_RZ36 = 94; DT$_RZ74 = 95; DT$_ESE52 = 96; DT$_ESE56 = 97; DT$_ESE58 = 98; DT$_RZ27 = 99; DT$_RZ37 = 100; DT$_RZ34L = 101; DT$_RZ35L = 102; DT$_RZ36L = 103; DT$_RZ38 = 104; DT$_RZ75 = 105; DT$_RZ59 = 106; DT$_RZ13 = 107; DT$_RZ14 = 108; DT$_RZ15 = 109; DT$_RZ16 = 110; DT$_RZ17 = 111; DT$_RZ18 = 112; DT$_EZ51 = 113; DT$_EZ52 = 114; DT$_EZ53 = 115; DT$_EZ54 = 116; DT$_EZ58 = 117; DT$_EF51 = 118; DT$_EF52 = 119; DT$_EF53 = 120; DT$_EF54 = 121; DT$_EF58 = 122; DT$_RF36 = 123; DT$_RF37 = 124; DT$_RF74 = 125; DT$_RF75 = 126; DT$_HSZ10 = 127; DT$_RZ28 = 128; DT$_GENERIC_RX = 180; DT$_FD1 = 129; (*FOREIGN DISK TYPE 1 *) DT$_FD2 = 130; (*FOREIGN DISK TYPE 2 *) DT$_FD3 = 131; (*FOREIGN DISK TYPE 3 *) DT$_FD4 = 132; (*FOREIGN DISK TYPE 4 *) DT$_FD5 = 133; (*FOREIGN DISK TYPE 5 *) DT$_FD6 = 134; (*FOREIGN DISK TYPE 6 *) DT$_FD7 = 135; (*FOREIGN DISK TYPE 7 *) DT$_FD8 = 136; (*FOREIGN DISK TYPE 8 *) DT$_RZ29 = 137; DT$_RZ26L = 138; DT$_RRD43 = 139; DT$_RRD44 = 140; DT$_HSX00 = 141; DT$_HSX01 = 142; DT$_RZ26B = 143; DT$_RZ27B = 144; DT$_RZ28B = 145; DT$_RZ29B = 146; DT$_RZ73B = 147; DT$_RZ74B = 148; DT$_RZ75B = 149; DT$_RWZ21 = 150; DT$_RZ27L = 151; DT$_HSZ20 = 152; DT$_HSZ40 = 153; DT$_HSZ15 = 154; DT$_RZ26M = 155; DT$_RW504 = 156; DT$_RW510 = 157; DT$_RW514 = 158; DT$_RW516 = 159; DT$_RWZ52 = 160; DT$_RWZ53 = 161; DT$_RWZ54 = 162; DT$_RWZ31 = 163; DT$_EZ31 = 164; DT$_EZ32 = 165; DT$_EZ33 = 166; DT$_EZ34 = 167; DT$_EZ35 = 168; DT$_EZ31L = 169; DT$_EZ32L = 170; DT$_EZ33L = 171; DT$_RZ28L = 172; DT$_RWZ51 = 173; DT$_EZ56R = 174; DT$_RAID0 = 175; DT$_RAID5 = 176; DT$_CONSOLE_CALLBACK = 177; DT$_FILES_64 = 178; DT$_SWXCR = 179; DT$_SNAPPY_DISK = 180; DT$_SNAPPY_POOL = 181; DT$_USB_CB_DISK = 182; (* *) (* TAPE DEVICES *) (* *) CONST DT$_TE16 = 1; (*TE16 MAGTAPE *) DT$_TU45 = 2; (*TU45 MAGTAPE *) DT$_TU77 = 3; (*TU77 MAGTAPE *) DT$_TS11 = 4; (*TS11 MAGTAPE *) DT$_TU78 = 5; (*TU78 MAGTAPE *) DT$_TA78 = 6; (*TA78 MAGTAPE *) DT$_TU80 = 7; (*TU80 MAGTAPE *) DT$_TU81 = 8; (*TU81 MAGTAPE *) DT$_TA81 = 9; DT$_TK50 = 10; (*TK50 CARTRIDGE TAPE *) DT$_MR_TU70 = 11; (*TU70 STC TAPE (DX20) *) DT$_MR_TU72 = 12; (*TU72 STC TAPE *) DT$_MW_TSU05 = 13; (*TSU05 TAPE (CSS) *) DT$_MW_TSV05 = 14; (*TSV05 TAPE (CSS) *) DT$_TK70 = 15; (*TK70 CARTRIDGE TAPE *) DT$_RV20 = 16; DT$_RV80 = 16; DT$_TK60 = 17; (*TK60 CARTRIDGE TAPE *) DT$_GENERIC_TU = 18; (*Brand X Tape *) DT$_TA79 = 19; (*TA79 *) DT$_TAPE9 = 20; DT$_TA90 = 21; DT$_TF30 = 22; DT$_TF85 = 22; DT$_TF70 = 23; DT$_RV60 = 24; DT$_TZ30 = 25; DT$_TM32 = 26; DT$_TZX0 = 27; DT$_TSZ05 = 27; DT$_GENERIC_MK = 28; DT$_TK50S = 29; DT$_TZ30S = 30; DT$_TK70L = 31; DT$_TLZ04 = 32; DT$_TZK10 = 33; DT$_TSZ07 = 34; DT$_TSZ08 = 35; DT$_TA90E = 36; DT$_TZK11 = 37; DT$_TZ85 = 38; DT$_TZ86 = 39; DT$_TZ87 = 40; DT$_TZ857 = 41; DT$_EXABYTE = 42; DT$_TAPE_LOADER_1 = 43; DT$_TA91 = 44; DT$_TLZ06 = 45; DT$_TA85 = 46; DT$_TKZ60 = 47; DT$_TLZ6 = 48; DT$_TZ867 = 49; DT$_TZ877 = 50; DT$_TAD85 = 51; DT$_TF86 = 52; DT$_TKZ09 = 53; DT$_TA86 = 54; DT$_TA87 = 55; DT$_TD34 = 56; DT$_TD44 = 57; DT$_HST00 = 58; DT$_HST01 = 59; DT$_TLZ07 = 60; DT$_TLZ7 = 61; DT$_TZ88 = 62; DT$_TZ885 = 63; DT$_TZ887 = 64; DT$_TZ89 = 65; DT$_TZ895 = 66; DT$_TZ897 = 67; DT$_TZ875 = 68; DT$_TL810 = 69; DT$_TL820 = 70; DT$_TZ865 = 71; (* *) (* TERMINAL DEVICE TYPES *) (* *) (* new definitions for terminal types should be placed in $ttdef only *) (* this table remains around for compatibility only *) (* *) (* **** MATCHES $TTDEF ***** *) CONST DT$_TTYUNKN = 0; (* UNKNOWN TERMINAL *) DT$_VT05 = 1; (* VT05 *) DT$_FT1 = 16; (* FOREIGN TERMINAL TYPES *) DT$_FT2 = 17; DT$_FT3 = 18; DT$_FT4 = 19; DT$_FT5 = 20; DT$_FT6 = 21; DT$_FT7 = 22; DT$_FT8 = 23; (* END OF FOREIGN TYPES *) (* RESERVE REST UP TO 32 FOR EXTENSIONS *) CONST DT$_LAX = 32; (* LA TYPE TERMINAL *) DT$_LA36 = 32; (* LA36 *) DT$_LA120 = 33; DT$_VT5X = 64; (* VT5X TYPE *) DT$_VT52 = 64; (* VT52 *) DT$_VT55 = 65; (* VT55 *) DT$_TQ_BTS = 4; (* TQ_BTS *) DT$_TEK401X = 10; (* TEK401X series *) DT$_VT100 = 96; (* VT100 *) DT$_VK100 = 2; DT$_VT173 = 3; DT$_LA34 = 34; DT$_LA38 = 35; DT$_LA12 = 36; DT$_LA24 = 37; DT$_LA100 = 37; DT$_LQP02 = 38; DT$_VT101 = 97; DT$_VT102 = 98; DT$_VT105 = 99; DT$_VT125 = 100; DT$_VT131 = 101; DT$_VT132 = 102; DT$_DZ11 = 66; (* DZ11 CONTROLLER *) DT$_DZ32 = 67; (* DZ32 CONTROLLER *) DT$_DZ730 = 68; (* DZ730 (COMBO) CONTROLLER *) DT$_DMZ32 = 69; (* DMZ32 CONTROLLER *) DT$_DHV = 70; (* DHV CONTROLLER *) DT$_DHU = 71; (* DHU CONTROLLER *) DT$_SLU = 72; (* Onboard Serial Line Unit *) DT$_TERM9 = 73; (*Terminal on 009 *) DT$_LAT = 74; (* LAT terminals *) (* *) (* Terminal WORKSTATIONS *) (* *) CONST DT$_VS100 = 1; (* VAXstation 100 *) DT$_VS125 = 2; (* VAXstation 125 *) DT$_VL_VS8200 = 3; (* VAXstation 8200 (Lynx) *) DT$_VD = 4; (* VAXstation Vir. Device *) DT$_DECW_OUTPUT = 5; DT$_DECW_INPUT = 6; DT$_DECW_PSEUDO = 7; (* *) (* SYNCHRONOUS COMMUNICATIONS DEVICE TYPES *) (* *) CONST DT$_DMC11 = 1; (* DMC11 *) DT$_DMR11 = 2; (* DMR11 *) DT$_XK_3271 = 3; (* DUP-11 FOR 3271 PROTOCOL EMULATOR *) DT$_XJ_2780 = 4; (* DUP-11 FOR 2780 " " *) DT$_NW_X25 = 5; (* X25 PROTOCOL EMULATOR *) DT$_NV_X29 = 6; (* X29 " " *) DT$_SB_ISB11 = 7; (* ISB-11 DEC dataway *) DT$_MX_MUX200 = 8; (* MUX-200 PROTOCOL EMULATOR *) DT$_DMP11 = 9; (* DMP11 *) DT$_DMF32 = 10; (* DMF32 *) DT$_XV_3271 = 11; (* DV-11 3271 PROTOCOL EMULATOR *) DT$_CI = 12; (* CI - Computer Interconnect *) DT$_NI = 13; (* NI - Network Interconnect *) DT$_UNA11 = 14; (* UNIBUS to NI adapter *) DT$_DEUNA = 14; (* UNIBUS to NI adapter *) DT$_YN_X25 = 15; (* KMS11 X.25 P. E. *) DT$_YO_X25 = 16; (* " " " *) DT$_YP_ADCCP = 17; (* " ADCCP P.E. *) DT$_YQ_3271 = 18; (* " " " *) DT$_YR_DDCMP = 19; (* " DDCMP *) DT$_YS_SDLC = 20; (* " SDLC *) DT$_UK_KTC32 = 21; (* " KTC32 *) DT$_DEQNA = 22; (* Q-BUS to NI adapter *) DT$_DMV11 = 23; (* DMV11 *) DT$_ES_LANCE = 24; (* SCORPIO to NI adapter *) DT$_DELUA = 25; (* LSI version of DEUNA *) DT$_NQ_3271 = 26; (* DHCF *) DT$_DMB32 = 27; (* DMB32 (BICombo) *) DT$_YI_KMS11K = 28; (* not a product, used by field service *) DT$_ET_DEBNT = 29; (* DEBNT (DEBNA grandpa) *) DT$_ET_DEBNA = 29; (* DEBNA (BI-NI adapter) *) DT$_SJ_DSV11 = 30; (* DSV11 Q-BUS sync adapter *) DT$_SL_DSB32 = 31; (* DSB32 BI sync adaptor *) DT$_ZS_DST32 = 32; (* DST32, X25 *) DT$_XQ_DELQA = 33; (* DELQA - Q-BUS to NI adaptor *) DT$_ET_DEBNI = 34; (* DEBNI (BI-NI adapter) *) DT$_EZ_SGEC = 35; (* SGEC CVAX to ethernet chip *) DT$_EX_DEMNA = 36; DT$_DIV32 = 37; DT$_XQ_DEQTA = 38; DT$_FT_NI = 39; DT$_EP_LANCE = 40; DT$_KWV32 = 41; DT$_SM_DSF32 = 42; DT$_FX_DEMFA = 43; DT$_SF_DSF32 = 44; (* FT unit for DSF32 CIRRUS sync comm *) DT$_SE_DUP11 = 45; (* SEDRIVER common DUP11 sync comm *) DT$_SE_DPV11 = 46; (* SEDRIVER common DPV11 sync comm *) DT$_ZT_DSW = 47; (* Generic DSW sync com *) DT$_FC_DEFZA = 48; (* Turbochannel to FDDI *) DT$_EC_PMAD = 49; (* Turbochannel to Ethernet *) DT$_EZ_TGEC = 50; (* TGEC ethernet chip *) DT$_EA_DEANA = 51; (* Futurebus to Ethernet *) DT$_EY_NITC2 = 52; (* Turbochannel to Ethernet *) DT$_ER_DE422 = 53; (* EISA bus to Ethernet *) DT$_ER_DE200 = 54; (* ISA bus to Ethernet *) DT$_EW_TULIP = 55; (* Integral PCI bus to TULIP Ethernet *) DT$_FA_DEFAA = 56; (* Futurebus to FDDI *) DT$_FC_DEFTA = 57; (* Turbochannel to FDDI *) DT$_FQ_DEFQA = 58; (* Q-bus to FDDI *) DT$_FR_DEFEA = 59; (* EISA bus to FDDI *) DT$_FW_DEFPA = 60; (* PCI bus to FDDI *) DT$_IC_DETRA = 61; (* Turbochannel to Token Ring *) DT$_IQ_DEQRA = 62; (* Q-bus to Token Ring *) DT$_IR_DW300 = 63; (* EISA bus to Token Ring *) DT$_ZR_SCC = 64; (* SCC on AXP workstations *) DT$_ZY_DSYT1 = 65; (* Turbo channel sync interface *) DT$_ZE_DNSES = 66; (* EISA sync interface *) DT$_ER_DE425 = 67; (* EISA bus to TULIP Ethernet *) DT$_EW_DE435 = 68; (* PCI bus to TULIP Ethernet *) DT$_ER_DE205 = 69; (* ISA bus to LEMAC Ethernet *) DT$_HC_OTTO = 70; (* Turbochannel to ATM *) DT$_ZS_PBXDI = 71; (* ISA sync comms card *) DT$_EL_ELAN = 72; (* Emulated CSMACD LAN for ATM *) DT$_HW_OTTO = 73; (* PCI to ATM *) DT$_EO_3C598 = 74; (* PCMCIA to Ethernet *) DT$_IW_TC4048 = 75; (* PCI to TokenRing *) DT$_EW_DE450 = 76; (* PCI to DC21040 Ethernet *) DT$_EW_DE500 = 77; (* PCI to DC21140 Ethernet *) DT$_CL_CLIP = 78; (* Classical IP over ATM *) DT$_ZW_PBXDP = 79; (* PCI sync comms card *) DT$_HW_METEOR = 80; (* PCI-ATM ATMworks 351 *) DT$_ER_DE305 = 81; (* ISA bus to Ethernet *) DT$_EW_DEGPA = 82; (* PCI to Gigabit Ethernet (DEGPA) *) DT$_IW_RACORE = 83; (* PCI to TokenRing (Racore) *) DT$_EB_SMLAN = 84; (* Shared Memory (Galaxy) *) DT$_EI_82558 = 85; (* PCI to Fast Ethernet (82558) *) DT$_EI_82559 = 86; (* PCI to Fast Ethernet (82559) *) DT$_HW_HE622 = 87; (* PCI to ATM (HE622) *) DT$_HW_HE155 = 88; (* PCI to ATM (HE155) *) DT$_EW_BCM5703 = 89; (* PCI/PCIX to GBE (Broadcom 5703) *) DT$_EW_BCM5704 = 90; (* PCI/PCIX to GBE (Broadcom 5704) *) DT$_EW_XFRAME = 91; (* PCI/PCIX 10 GBE (S2io) *) DT$_EW_BCM5701 = 92; (* PCI/PCIX to GBE (Broadcom 5701) *) DT$_LL_LLAN = 93; (* Logical LAN (failover) *) DT$_EG_ELP_FC = 94; (* Emulex LP Fibre Channel *) DT$_EG_Q_FC = 95; (* Qlogic Fibre Channel *) DT$_EI_82540 = 96; (* Intel Gigabit (8254x) *) DT$_VL_VLAN = 97; (* VLAN *) DT$_EW_BCM5715 = 98; (* PCIE to GBE (Broadcom 5715) *) DT$_EI_AVIO = 99; (* HPVM AVIO LAN Device *) DT$_ER_BCM57711 = 100; (* PCIX 10 GBE (Broadcom 57711-LOM) *) DT$_EW_BCM57711 = 101; (* PCIX 10 GBE (Broadcom 57711) *) (* *) (* LINE PRINTER AND CARD READER DEVICE TYPES *) (* *) CONST DT$_LP11 = 1; (* LP11 *) DT$_LA11 = 2; (* LA11 *) DT$_LA180 = 3; (* LA180 *) DT$_LC_DMF32 = 4; (* DMF32 *) DT$_LI_DMB32 = 5; (* DMB32 *) DT$_PRTR9 = 6; (*Printer on 009 *) DT$_SCSI_SCANNER_1 = 7; (* SCSI Scanner *) DT$_PC_PRINTER = 8; (*PC Printer *) DT$_CR11 = 1; (* CR11 CARD READER *) (* *) (* MAILBOX DEVICE TYPES *) (* *) CONST DT$_MBX = 1; (* LOCAL MEMORY MAILBOX *) DT$_SHRMBX = 2; (* SHARED MEMORY MAILBOX *) DT$_NULL = 3; (* The NULL DEVICE *) DT$_PIPE = 4; (* PIPE DEVICE *) (* *) (* REMOTE CONSOLE STORAGE DEVICE TYPES *) (* *) CONST DT$_DAP_DEVICE = 1; (* DAP-ACCESSED DEVICE *) (* *) (* REALTIME DEVICE TYPES *) (* *) CONST DT$_LPA11 = 1; (* LPA-11 *) DT$_DR780 = 2; (* DR780 *) DT$_DR750 = 3; (* DR750 *) DT$_DR11W = 4; (* DR11W *) DT$_PCL11R = 5; (* PCL11 RECEIVER (CSS) *) DT$_PCL11T = 6; (* PCL11 TRANSMTTER (CSS) *) DT$_DR11C = 7; (* DR11C PARALLEL INTERFACE *) DT$_BS_DT07 = 8; (* UNIBUS SWITCH *) DT$_XP_PCL11B = 9; (* PCL-11B (DECNET and NONDECNET mode CSS) *) DT$_IX_IEX11 = 10; (* IEEE-488 to UNIBUS INTERFACE *) DT$_FP_FEPCM = 11; (* FEPCM CSS frontend processor *) DT$_TK_FCM = 12; (* FEPCM CSS frontend processor *) DT$_XI_DR11C = 13; (* PARALLEL INTERFACE ON DMF-32 *) DT$_XA_DRV11WA = 14; (* DMA Parallel Interface *) DT$_DRB32 = 15; (* DRB32 (or MFA) *) DT$_HX_DRQ3B = 16; (* DRQ3B PARALLEL INTERFACE *) (* *) (* DECVOICE DEVICES *) (* *) CONST DT$_DECVOICE = 1; (* VQ- DECVOICE class driver *) DT$_DTC04 = 2; (* VX DECvoice 1 M7132 port driver *) DT$_DTC05 = 3; (* VM Decvoice III M3135 port driver *) DT$_DTCN5 = 4; (* VN Decvoice III M3136 port driver *) (* *) (* AUDIO DEVICES *) (* *) CONST DT$_AMD79C30A = 1; (* AMD79C30A on VLC/PMARIAH *) DT$_CMI8738 = 2; (* CMI8738 sound chip bearing HP Part no AD317A *) (* *) (* BUS CLASS DEVICES *) (* *) CONST DT$_CI780 = 1; (* CI780 *) DT$_CI750 = 2; (* CI750 *) DT$_UQPORT = 3; (* UQPORT is generic UDA *) DT$_UDA50 = 3; (* UDA50 *) DT$_UDA50A = 4; (* UDA50A *) DT$_LESI = 5; (* Low end storage *) DT$_TU81P = 6; (* TU81 port *) DT$_RDRX = 7; (* RDRX port *) DT$_TK50P = 8; (* TK50 port *) DT$_RUX50P = 9; (* RUX50 port *) DT$_RC26P = 10; (* RC26P port *) DT$_QDA50 = 11; (* KDA50 port (old name) *) DT$_KDA50 = 11; (* KDA50 port *) DT$_BDA50 = 12; (* KDB50 port (old name) *) DT$_KDB50 = 12; (* KDB50 port (alias BDA50) *) DT$_RRD50P = 13; (* RRD50 port *) DT$_QDA25 = 14; (* KDA25 port (old name) *) DT$_KDA25 = 14; (* KDA25 port *) DT$_BCI750 = 15; (* BI-CI750 port *) DT$_BCA = 16; (* BI-CI port *) DT$_RQDX3 = 17; (* RQDX3 port *) DT$_NISCA = 18; (* NI-SCA port *) DT$_AIO = 19; (* BVP SSP port *) DT$_KFBTA = 19; (* BVP SSP port *) DT$_AIE = 20; (* BVP multi-port *) DT$_DEBNT = 20; (* BVP multi-port *) DT$_BSA = 21; DT$_KSB50 = 21; DT$_TK70P = 22; (* TK70 port *) DT$_RV20P = 23; DT$_RV80P = 23; DT$_TK60P = 24; (* TK60 port *) DT$_SII = 25; DT$_KFSQSA = 26; DT$_KFQSA = 26; DT$_SHAC = 27; DT$_CIXCD = 28; DT$_N5380 = 29; DT$_SCSII = 30; DT$_HSX50 = 31; DT$_KDM70 = 31; DT$_TM32P = 32; DT$_TK7LP = 33; DT$_SWIFT = 34; DT$_N53C94 = 35; DT$_KFMSA = 36; DT$_SCSI_XTENDR = 37; DT$_FT_TRACE_RAM = 38; DT$_XVIB = 39; DT$_XZA_SCSI = 40; DT$_XZA_DSSI = 41; DT$_N710_SCSI = 42; DT$_N710_DSSI = 43; DT$_AHA1742A = 44; DT$_TZA_SCSI = 45; DT$_N810_SCSI = 46; DT$_CIPCA = 47; DT$_ISP1020 = 48; DT$_MC_SPUR = 49; DT$_PZA_SCSI = 50; DT$_MCSCA = 51; (* MC-SCA port pmdriver *) DT$_SMCI = 52; (* SMCI port (pbdriver) *) DT$_KZPCM_SCSI = 53; DT$_SYM896_SCSI = 54; DT$_FCP_SCSI = 55; DT$_LP7000_FC = 56; DT$_SYM895_SCSI = 57; DT$_KZPCA_SCSI = 58; DT$_ADAPTEC7892_SCSI = 59; DT$_ADAPTEC7895_SCSI = 60; DT$_ADAPTEC7897_SCSI = 61; DT$_ADAPTEC7899_SCSI = 62; DT$_CISS = 63; DT$_ISP23XX_FC = 64; DT$_LSI1010_SCSI = 65; DT$_LSI1030_SCSI = 66; DT$_ISP24XX_FC = 67; DT$_LSI106X_SAS = 68; DT$_SW_ISCSI = 69; DT$_LP8000_FC = 70; DT$_LP9000_FC = 71; DT$_LP9802_FC = 72; DT$_LP10000_FC = 73; DT$_LP11002_FC = 74; DT$_ISP243X_FC = 75; DT$_EP2422_FC = 76; DT$_ISP253X_FC = 77; DT$_GSP = 78; DT$_ICH10_AHCI = 79; (* *) (* MISCELLANEOUS DEVICES *) (* *) CONST DT$_DN11 = 1; (* AUTODIALER *) DT$_PV = 2; (* Pseudo keyboard *) DT$_SFUN9 = 3; DT$_USER9 = 4; DT$_GENERIC_SCSI = 5; DT$_DMA_520 = 6; DT$_T3270 = 7; DT$_IPMI = 9; DT$_ACPI_SE = 10; (*** MODULE $DDTMDEF ***) (* *) (* Transaction Manager services structure definitions *) (* *) TYPE DDTM$X_TRANSACTION_ID =$UOCTA; (* Transaction Id type *) DDTM$X_UTC_DATE_TIME =$UOCTA; (* UTC type *) CONST DDTM$S_TID = 16; (* Size of a transaction id *) (* *) (* System services modifier flags *) (* *) CONST DDTM$M_SYNC = 1; DDTM$M_NONDEFAULT = 2; DDTM$M_PROCESS = 4; DDTM$M_VOLATILE = 8; DDTM$M_RUNDOWN = 16; DDTM$M_CANCEL = 32; DDTM$M_FULL_STATE = 64; DDTM$M_BRANCH_UNSYNCHED = 128; DDTM$M_COORDINATOR = 256; DDTM$M_NOWAIT = 512; DDTM$M_FINAL_STATE = 1024; DDTM$M_LATE = -2147483648; TYPE DDTM$R_FLAGS = RECORD DDTM$V_SYNC : [POS(0)] $BOOL; (* Synchronous status requested *) DDTM$V_NONDEFAULT : [POS(1)] $BOOL; (* Not the default transaction *) DDTM$V_PROCESS : [POS(2)] $BOOL; (* Process-permanent RM *) DDTM$V_VOLATILE : [POS(3)] $BOOL; (* volatile-only state *) DDTM$V_RUNDOWN : [POS(4)] $BOOL; (* forget all RMs *) DDTM$V_CANCEL : [POS(5)] $BOOL; (* Cancel GET operation *) DDTM$V_FULL_STATE : [POS(6)] $BOOL; (* Full state information *) DDTM$V_BRANCH_UNSYNCHED : [POS(7)] $BOOL; (* Don't need to sync branch *) DDTM$V_COORDINATOR : [POS(8)] $BOOL; (* Join Coordinating RM *) DDTM$V_NOWAIT : [POS(9)] $BOOL; (* Don't wait for termination *) DDTM$V_FINAL_STATE : [POS(10)] $BOOL; (* Get final transaction outcome *) DDTM$V_FILL_1 : [POS(11)] $BIT20; (* Fill out to a longword *) DDTM$V_LATE : [POS(31)] $BOOL; (* Phase one branch or join *) END; (* *) (* Resource manager event request options *) (* *) CONST DDTM$M_EV_PREPARE = 1; DDTM$M_EV_ABORT = 2; DDTM$M_EV_COMMIT = 4; DDTM$M_EV_DEFAULT_TRANS = 8; DDTM$M_EV_TRANS_START = 16; TYPE DDTM$R_EVENT_MASK = RECORD DDTM$V_EV_PREPARE : [POS(0)] $BOOL; (* Vote request required *) DDTM$V_EV_ABORT : [POS(1)] $BOOL; (* Abort notificiation *) DDTM$V_EV_COMMIT : [POS(2)] $BOOL; (* Commit notificiation *) DDTM$V_EV_DEFAULT_TRANS : [POS(3)] $BOOL; (* New default TID *) DDTM$V_EV_TRANS_START : [POS(4)] $BOOL; (* Request transaction start events *) DDTM$V_FILL_2 : [POS(5)] $BIT27; (* Fill out to a longword *) END; (* *) (* $TRANS_EVENT system service event types *) (* *) CONST DDTM$K_TX_PREPARE = 1; (* Prepare transaction request *) DDTM$K_TX_COMMIT = 2; (* Commit transaction order *) DDTM$K_TX_ABORT = 3; (* Abort transaction order *) DDTM$K_TX_RECOVER_COMMIT = 4; (* Commit order on recovery *) DDTM$K_TX_RECOVER_ABORT = 5; (* Abort order on recovery *) (* *) (* Resource manager event report types *) (* *) CONST DDTM$K_PREPARE = 1; (* Prepare operation *) DDTM$K_COMMIT = 2; (* Commit operation *) DDTM$K_ABORT = 3; (* Abort operation *) DDTM$K_ONE_PHASE_COMMIT = 4; (* One-phase commit *) DDTM$K_DEFAULT_CLEARED = 5; (* Tid no longer default *) DDTM$K_DEFAULT_SET = 6; (* Tid now process default *) DDTM$K_STARTED_DEFAULT = 7; (* New process default transaction *) DDTM$K_STARTED_NONDEFAULT = 8; (* New nondefault transaction *) DDTM$K_RECOVER_COMMITTED = 9; (* Transaction committed *) DDTM$K_RECOVER_ERROR = 10; (* Error during recovery *) DDTM$K_RECOVER_INDOUBT = 11; (* Transaction is indoubt *) DDTM$K_RECOVER_RESOLVE = 12; (* RM resposible for resolution *) (* *) (* Transaction report structure (DECdtm V1.0) *) (* *) TYPE DDTM$R_AST$TYPE = RECORD (* Transaction event AST parameter *) DDTM$L_ARGLEN : UNSIGNED; (* Structure length *) DDTM$A_TID : $DEFPTR; (* Transaction id *) DDTM$L_PART_ID : UNSIGNED; (* Participant identifier *) DDTM$L_RM_CTX : UNSIGNED; (* RM event ASTPRM *) DDTM$L_OPTYPE : UNSIGNED; (* Operation type *) DDTM$L_REASON : UNSIGNED; (* Abort extended reason code *) DDTM$O_UTC_CMT_TIME : $UOCTA; (* Reserved to Digital *) DDTM$O_UTC_LATEST : $UOCTA; (* Reserved to Digital *) END; (* *) (* Transaction report structure *) (* *) TYPE DDTM$R_REPORT$TYPE = RECORD DDTM$L_REPORT_LEN : UNSIGNED; (* Structure length *) DDTM$A_TID_PTR : $DEFPTR; (* Transaction id *) DDTM$L_REPORT_ID : UNSIGNED; (* Report identifier *) DDTM$L_RM_CONTEXT : UNSIGNED; (* RM event ASTPRM *) DDTM$L_EVENT_TYPE : UNSIGNED; (* Event report type *) DDTM$L_ABORT_REASON : UNSIGNED; (* Abort extended reason code *) DDTM$O_COMMIT_TIME : $UOCTA; (* Reserved to Digital *) DDTM$O_LATEST_TIME : $UOCTA; (* Reserved to Digital *) DDTM$Q_TX_CLASS : $UQUAD; (* Transaction class descriptor *) DDTM$Q_PART_NAME : $UQUAD; (* RM Instance descriptor *) END; (*** MODULE $DELPRCSYMDEF ***) (*+ *) (* *) (* $DELPRCSYMDEF - $DELPRC symbol definitions *) (* *) (*- *) CONST DELPRC$M_EXIT = 4; DELPRC$M_NOEXIT = 8; TYPE DELPRCFLAGS$TYPE = RECORD DELPRC$V_MODE : [POS(0)] $BIT2; (* Access mode to start exit functionality with *) DELPRC$V_EXIT : [POS(2)] $BOOL; (* Enable exit functionality *) DELPRC$V_NOEXIT : [POS(3)] $BOOL; (* Do not enable exit functionality *) DELPRC$$_FILL_1 : [POS(4)] $BIT28; END; (*** MODULE $DEVDEF ***) (* *) (* THE FOLLOWING BITS DEFINE THE DEVICE CHARACTERISTICS FOR *) (* BOTH THE UCBS AND RMS. *) (* *) CONST DEV$M_REC = 1; DEV$M_CCL = 2; DEV$M_TRM = 4; DEV$M_DIR = 8; DEV$M_SDI = 16; DEV$M_SQD = 32; DEV$M_SPL = 64; DEV$M_OPR = 128; DEV$M_RCT = 256; DEV$M_QSVD = 512; DEV$M_QSVBL = 1024; DEV$M_MPDEV_SECONDARY = 2048; DEV$M_MPDEV_MEMBER = 4096; DEV$M_NET = 8192; DEV$M_FOD = 16384; DEV$M_DUA = 32768; DEV$M_SHR = 65536; DEV$M_GEN = 131072; DEV$M_AVL = 262144; DEV$M_MNT = 524288; DEV$M_MBX = 1048576; DEV$M_DMT = 2097152; DEV$M_ELG = 4194304; DEV$M_ALL = 8388608; DEV$M_FOR = 16777216; DEV$M_SWL = 33554432; DEV$M_IDV = 67108864; DEV$M_ODV = 134217728; DEV$M_RND = 268435456; DEV$M_RTM = 536870912; DEV$M_RCK = 1073741824; DEV$M_WCK = -2147483648; DEV$M_CLU = 1; DEV$M_DET = 2; DEV$M_RTT = 4; DEV$M_CDP = 8; DEV$M_2P = 16; DEV$M_MSCP = 32; DEV$M_SSM = 64; DEV$M_SRV = 128; DEV$M_RED = 256; DEV$M_NNM = 512; DEV$M_WBC = 1024; DEV$M_WTC = 2048; DEV$M_HOC = 4096; DEV$M_LOC = 8192; DEV$M_DFS = 16384; DEV$M_DAP = 32768; DEV$M_NLT = 65536; DEV$M_SEX = 131072; DEV$M_SHD = 262144; DEV$M_VRT = 524288; DEV$M_LDR = 1048576; DEV$M_NOLB = 2097152; DEV$M_NOCLU = 4194304; DEV$M_VMEM = 8388608; DEV$M_SCSI = 16777216; DEV$M_WLG = 33554432; DEV$M_NOFE = 67108864; DEV$M_FILL_2 = 134217728; DEV$M_CRAMIO = 268435456; DEV$M_DTN = 536870912; DEV$M_FILL_3 = 1073741824; DEV$M_POOL_MBR = -2147483648; TYPE DEV$TYPE = RECORD CASE INTEGER OF 1: (DEV$R_DEVDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (DEV$V_REC : [POS(0)] $BOOL; (* DEVICE RECORD ORIENTED *) DEV$V_CCL : [POS(1)] $BOOL; (* CARRIAGE CONTROL DEVICE *) DEV$V_TRM : [POS(2)] $BOOL; (* DEVICE IS A TERMINAL *) DEV$V_DIR : [POS(3)] $BOOL; (* DEVICE IS DIRECTORY STRUCTURED *) DEV$V_SDI : [POS(4)] $BOOL; (* DEVICE IS SINGLE DIRECTORY STRUCTURED *) DEV$V_SQD : [POS(5)] $BOOL; (* SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) *) DEV$V_SPL : [POS(6)] $BOOL; (* DEVICE BEING SPOOLED *) DEV$V_OPR : [POS(7)] $BOOL; (* DEVICE IS AN OPERATOR *) DEV$V_RCT : [POS(8)] $BOOL; (* DISK CONTAINS RCT (DEC STANDARD 166 DISK) *) DEV$V_QSVD : [POS(9)] $BOOL; (* Client device is served by QIOserver *) DEV$V_QSVBL : [POS(10)] $BOOL; (* Server device is servable by QIOserver *) DEV$V_MPDEV_SECONDARY : [POS(11)] $BOOL; (* Indicates secondary unit in a multipath set *) DEV$V_MPDEV_MEMBER : [POS(12)] $BOOL; (* Device is part of a multipath set. *) DEV$V_NET : [POS(13)] $BOOL; (* NETWORK DEVICE *) DEV$V_FOD : [POS(14)] $BOOL; (* FILES-ORIENTED DEVICE (I.E., DISK AND MT) *) DEV$V_DUA : [POS(15)] $BOOL; (* DEVICE IS DUAL PORTED *) DEV$V_SHR : [POS(16)] $BOOL; (* DEVICE SHAREABLE *) DEV$V_GEN : [POS(17)] $BOOL; (* DEVICE IS A GENERIC DEVICE *) DEV$V_AVL : [POS(18)] $BOOL; (* DEVICE AVAILABLE FOR USE *) DEV$V_MNT : [POS(19)] $BOOL; (* DEVICE IS MOUNTED *) DEV$V_MBX : [POS(20)] $BOOL; (* DEVICE IS A MAILBOX *) DEV$V_DMT : [POS(21)] $BOOL; (* DEVICE MARKED FOR DISMOUNT *) DEV$V_ELG : [POS(22)] $BOOL; (* DEVICE HAS ERROR LOGGING ENABLED *) DEV$V_ALL : [POS(23)] $BOOL; (* DEVICE IS ALLOCATED *) DEV$V_FOR : [POS(24)] $BOOL; (* DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) *) DEV$V_SWL : [POS(25)] $BOOL; (* DEVICE IS SOFTWARE WRITE LOCKED *) DEV$V_IDV : [POS(26)] $BOOL; (* DEVICE CAPABLE OF PROVIDING INPUT *) DEV$V_ODV : [POS(27)] $BOOL; (* DEVICE CAPABLE OF PROVIDING OUTPUT *) DEV$V_RND : [POS(28)] $BOOL; (* DEVICE ALLOWS RANDOM ACCESS *) DEV$V_RTM : [POS(29)] $BOOL; (* DEVICE IS REALTIME IN NATURE *) DEV$V_RCK : [POS(30)] $BOOL; (* DEVICE HAS READ CHECKING ENABLED *) DEV$V_WCK : [POS(31)] $BOOL; (* DEVICE HAS WRITE CHECKING ENABLED *) ); 3: (DEV$R_DEVDEF_BITS1 : [BYTE(4)] RECORD END; ); 4: (DEV$V_CLU : [POS(0)] $BOOL; (* DEVICE IS AVAILABLE CLUSTER-WIDE *) DEV$V_DET : [POS(1)] $BOOL; (* DEVICE IS DETACHED TERMINAL *) DEV$V_RTT : [POS(2)] $BOOL; (* DEVICE HAS REMOTE TERMINAL UCB EXTENSION *) DEV$V_CDP : [POS(3)] $BOOL; (* DUAL PATH DEVICE WITH 2 UCBs *) DEV$V_2P : [POS(4)] $BOOL; (* TWO PATHS ARE KNOWN TO THIS DEVICE *) DEV$V_MSCP : [POS(5)] $BOOL; (* DEVICE ACCESSED USING MSCP (disk or tape) *) DEV$V_SSM : [POS(6)] $BOOL; (* this bit was set for Phase I (controller-based) *) (* shadowing only. This bit is not set for *) (* Phase II (host-based) shadowing; Phase II *) (* sets the SHD bit (see below). *) DEV$V_SRV : [POS(7)] $BOOL; (* DEVICE IS SERVED VIA THE MSCP SERVER *) DEV$V_RED : [POS(8)] $BOOL; (* DEVICE IS redirected terminal *) DEV$V_NNM : [POS(9)] $BOOL; (* DEVICE HAS "node$" PREFIX *) DEV$V_WBC : [POS(10)] $BOOL; (* DEVICE SUPPORTS WRITE-BACK CACHING *) DEV$V_WTC : [POS(11)] $BOOL; (* DEVICE SUPPORTS WRITE-THROUGH CACHING *) DEV$V_HOC : [POS(12)] $BOOL; (* DEVICE SUPPORTS HOST CACHING *) DEV$V_LOC : [POS(13)] $BOOL; (* DEVICE ACCESSIBLE VIA LOCAL (NON-EMULATED) CONTROLLER *) DEV$V_DFS : [POS(14)] $BOOL; (* DEVICE IS DFS-SERVED *) DEV$V_DAP : [POS(15)] $BOOL; (* DEVICE IS DAP ACCESSED *) DEV$V_NLT : [POS(16)] $BOOL; (* DEVICE IS NOT-LAST-TRACK (I.E. IT HAS NO BAD BLOCK *) (* INFORMATION ON ITS LAST TRACK) *) DEV$V_SEX : [POS(17)] $BOOL; (* DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLING *) DEV$V_SHD : [POS(18)] $BOOL; (* DEVICE IS A MEMBER OF A HOST BASED SHADOW SET *) DEV$V_VRT : [POS(19)] $BOOL; (* DEVICE IS A SHADOW SET VIRTUAL UNIT *) DEV$V_LDR : [POS(20)] $BOOL; (* LOADER PRESENT (TAPES) *) DEV$V_NOLB : [POS(21)] $BOOL; (* DEVICE IGNORES SERVER LOAD BALANCING REQUESTS *) DEV$V_NOCLU : [POS(22)] $BOOL; (* DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE *) DEV$V_VMEM : [POS(23)] $BOOL; (* Virtual member of a constituent set *) DEV$V_SCSI : [POS(24)] $BOOL; (* DEVICE IS A SCSI DEVICE *) DEV$V_WLG : [POS(25)] $BOOL; (* DEVICE HAS MSCP Based (Phase I) WRITE LOGGING CAPABILITY *) DEV$V_NOFE : [POS(26)] $BOOL; (* DEVICE DOESN'T SUPPORT FORCED ERROR *) DEV$V_FILL_2 : [POS(27)] $BOOL; (* Reserved for: Allocation in progress (MME) *) DEV$V_CRAMIO : [POS(28)] $BOOL; (* Performs Mailbox I/O *) DEV$V_DTN : [POS(29)] $BOOL; (* Device has DDR Device Type Name available *) DEV$V_POOL_MBR : [POS(31)] $BOOL; (* Unit is bound to a storage pool *) ) END; (*** MODULE $DIBDEF ***) (*+ *) (* DEVICE INFORMATION BLOCK DEFINITIONS *) (*- *) CONST DIB$K_LENGTH = 116; (*LENGTH OF TOTAL BUFFER *) DIB$C_LENGTH = 116; (*LENGTH OF TOTAL BUFFER *) TYPE DIB$TYPE = RECORD CASE INTEGER OF 1: (DIB$L_DEVCHAR : UNSIGNED; (*DEVICE CHARACTERISTICS *) DIB$B_DEVCLASS : $UBYTE; (*DEVICE CLASS *) DIB$B_DEVTYPE : $UBYTE; (*DEVICE TYPE *) DIB$W_DEVBUFSIZ : $UWORD; (*DEVICE BUFFER SIZE *) DIB$R_DEVDEPEND_OVERLAY : [BYTE(4)] RECORD END; DIB$W_UNIT : $UWORD; (*DEVICE UNIT NUMBER *) DIB$W_DEVNAMOFF : $UWORD; (*OFFSET TO DEVICE NAME COUNTED STRING *) DIB$L_PID : UNSIGNED; (*DEVICE OWNER PROCESS IDENTIFICATION *) DIB$L_OWNUIC : UNSIGNED; (*DEVICE OWNER USER IDENTIFICATION CODE *) DIB$W_VPROT : $UWORD; (*DEVICE PROTECTION MASK *) DIB$W_ERRCNT : $UWORD; (*DEVICE ERROR COUNT *) DIB$L_OPCNT : UNSIGNED; (*DEVICE OPERATIONS COUNT *) DIB$W_VOLNAMOFF : $UWORD; (*OFFSET TO VOLUME LABEL COUNTED STRING *) DIB$W_RECSIZ : $UWORD; (*BLOCKED RECORD SIZE *) DIB$T_DEVNAME : PACKED ARRAY [1..76] OF CHAR; (*SPACE FOR DEVNAME AND LABEL (64+12) *) DIB$L_MAXBLOCK : UNSIGNED; (*DISK VOLUME SIZE IN BLOCKS *) ); 2: (DIB$L_DEVDEPEND : [POS(64)] UNSIGNED; (*DEVICE DEPENDENT INFORMATION *) ); 3: (); 4: (DIB$B_SECTORS : [POS(64)] $UBYTE; (*(DISK ONLY) SECTORS PER TRACK *) DIB$B_TRACKS : [POS(72)] $UBYTE; (* " TRACKS PER CYLINDER *) DIB$W_CYLINDERS : [POS(80)] $UWORD; (* " NUMBER OF CYLINDERS *) ) END; (*** MODULE $DIRENTDEF ***) CONST dirent$k_name = 1; dirent$k_version = 2; TYPE dirent$TYPE = RECORD dirent$iw_size : $WORD; dirent$iw_type : $WORD; END; dirent_nam$TYPE = RECORD dirent_nam$iw_size : $WORD; dirent_nam$iw_type : $WORD; dirent_nam$iw_version_limit : $WORD; dirent_nam$IW_FILL : $WORD; dirent_nam$il_name_length : INTEGER; dirent_nam$t_name : ARRAY [1..1] OF CHAR; END; CONST dirent$k_file = 1; dirent$k_directory = 2; TYPE dirent_ver$TYPE = RECORD CASE INTEGER OF 1: (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 : $WORD; dirent_ver$r_fid_overlay : [BYTE(6)] RECORD END; ); 2: (dirent_ver$iw_fid : [POS(80)] ARRAY [1..3] OF $UWORD; ); 3: (); 4: (dirent_ver$iw_fid_num : [POS(80)] $UWORD; dirent_ver$iw_fid_seq : [POS(96)] $UWORD; ); 5: (dirent_ver$iw_fid_rvn : [POS(112)] $UWORD; ); 6: (); 7: (dirent_ver$ib_fid_rvn : [POS(112)] $UBYTE; dirent_ver$ib_fid_nmx : [POS(120)] $UBYTE; ) END; (*** MODULE $DMTDEF ***) (* *) (* FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE. *) (* *) CONST DMT$M_NOUNLOAD = 1; DMT$M_UNIT = 2; DMT$M_ABORT = 4; DMT$M_CLUSTER = 8; DMT$M_UNLOAD = 16; DMT$M_OVR_CHECKS = 32; DMT$M_CHECK_ONLY = 64; DMT$M_REMOTE = 128; DMT$M_MINICOPY_REQUIRED = 256; DMT$M_MINICOPY_OPTIONAL = 512; DMT$M_FORCE = 1024; TYPE DMT$TYPE = RECORD CASE INTEGER OF 1: (DMT$R_DMTDEF_BITS : [BYTE(2)] RECORD END; ); 2: (DMT$V_NOUNLOAD : [POS(0)] $BOOL; (* DO NOT UNLOAD (SPIN DOWN) THE VOLUME *) DMT$V_UNIT : [POS(1)] $BOOL; (* DISMOUNT ONLY THE SPECIFIED VOLUME *) DMT$V_ABORT : [POS(2)] $BOOL; (* FORCED DISMOUNT *) DMT$V_CLUSTER : [POS(3)] $BOOL; (* CLUSTER-WIDE DISMOUNT *) DMT$V_UNLOAD : [POS(4)] $BOOL; (* EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD) *) DMT$V_OVR_CHECKS : [POS(5)] $BOOL; (* OVERRIDE OPEN FILE CHECKS *) DMT$V_CHECK_ONLY : [POS(6)] $BOOL; (* CHECK ONLY FOR OPEN FILES - DON'T DISMOUNT *) DMT$V_REMOTE : [POS(7)] $BOOL; (* CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR *) DMT$V_MINICOPY_REQUIRED : [POS(8)] $BOOL; (* BITMAP REQUIRED *) DMT$V_MINICOPY_OPTIONAL : [POS(9)] $BOOL; (* BITMAP OPTIONAL *) DMT$V_FORCE : [POS(10)] $BOOL; (* FORCE dismount of SSM *) ) END; (*** MODULE $DPSDEF ***) (*+ *) (* *) (* Get Device path information *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added at the END of the list so that *) (* users will not have to rebuild. *) (* *) (*- *) CONST DPS$_MP_PATHNAME = 1; (* Device path name *) (* *) (**** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *) (* *) (*** MODULE $DTIDEF ***) (* *) (* DTI flag definitions *) (* *) (* Item list definitions *) CONST DTI$_ENDITEM = 0; (* End of item list code *) DTI$_TRANSACTION_INFORMATION = 1; (* Active transaction list *) DTI$_CURRENT_TID = 2; (* Current transaction identifier *) DTI$_MEMBERSHIP_COUNT = 3; (* # members still in transaction *) DTI$_BRANCH_COUNT = 4; (* # branches still in transaction *) DTI$_ROOT_NODE_NAME = 5; (* Root node *) DTI$_STARTING_TIME = 6; (* Transaction start time *) dti$K_MAX_ITEM_CODE = 6; (* Transaction states *) CONST DTI$K_NULL = 0; DTI$K_STARTING = 1; (* Starting state *) DTI$K_ACTIVE = 2; (* Active state *) DTI$K_ONE_P_COMMITTING = 3; (* Committing (one-phase) *) DTI$K_PREPARING = 4; (* Preparing state *) DTI$K_PREPARED = 5; (* Prepared state *) DTI$K_COMMITTING = 6; (* Committing state *) DTI$K_COMMITTED = 7; (* Committed state *) DTI$K_ONE_P_COMMITTED = 8; (* Committed (one-phase) *) DTI$K_ABORTING = 9; (* Aborting state *) DTI$K_ABORTED = 10; (* Aborted or forgotten state *) DTI$K_IN_DOUBT = 11; (* Transaction has prepared and RM is *) (* coordinator; resolution must come *) (* from external entity *) (* SET item codes *) CONST DTI$K_ILLEGAL = 0; (* Make code 0 illegal *) DTI$K_DELETE_TRANSACTION = 1; (* Delete transaction *) DTI$K_DELETE_RM_NAME = 2; (* Delete resource manager *) DTI$K_MODIFY_STATE = 3; (* Modify transaction state *) DTI$K_DELETE_BRANCH_NODE = 4; (* Delete branch node *) DTI$K_SET_CURRENT_TID = 5; (* Set the current transaction identifier *) DTI$K_MAX_SET_CODE = 5; DTI$M_SEARCH_STARTING = 1; DTI$M_SEARCH_ACTIVE = 2; DTI$M_SEARCH_1P_COMITTING = 4; DTI$M_SEARCH_PREPARING = 8; DTI$M_SEARCH_PREPARED = 16; DTI$M_SEARCH_COMMITTING = 32; DTI$M_SEARCH_COMMITTED = 64; DTI$M_SEARCH_1P_COMMITTED = 128; DTI$M_SEARCH_ABORTING = 256; DTI$M_SEARCH_ABORTED = 512; DTI$_ENDSEARCH = 0; (* End of search list *) DTI$_SEARCH_AS_NODE = 1; (* Search as node *) DTI$_SEARCH_CURRENT_TID = 2; (* Search current transaction identifier *) DTI$_SEARCH_TID = 3; (* Search transaction identifier *) DTI$_SEARCH_RM_NAME = 4; (* Search resource manager *) DTI$_SEARCH_BRANCH_NAME = 5; (* Search branch node names *) DTI$_SEARCH_STATE = 6; (* Search state *) DTI$_SEARCH_RESOLVED_STATE = 7; (* Search resolved state *) DTI$K_MAX_SEARCH_CODE = 7; TYPE DTISEARCH$TYPE = RECORD (* Search list codes *) DTI$V_SEARCH_STARTING : [POS(0)] $BOOL; (* Starting state *) DTI$V_SEARCH_ACTIVE : [POS(1)] $BOOL; (* Active state *) DTI$V_SEARCH_1P_COMITTING : [POS(2)] $BOOL; (* 1P Committing state *) DTI$V_SEARCH_PREPARING : [POS(3)] $BOOL; (* Preparing state *) DTI$V_SEARCH_PREPARED : [POS(4)] $BOOL; (* Prepared state *) DTI$V_SEARCH_COMMITTING : [POS(5)] $BOOL; (* Committing state *) DTI$V_SEARCH_COMMITTED : [POS(6)] $BOOL; (* Committed state *) DTI$V_SEARCH_1P_COMMITTED : [POS(7)] $BOOL; (* 1P Committed state *) DTI$V_SEARCH_ABORTING : [POS(8)] $BOOL; (* Aborting state *) DTI$V_SEARCH_ABORTED : [POS(9)] $BOOL; (* Aborted state *) (* Search item list definitions *) DTI$V_FILL_118_ : [POS(10)] $BIT6; END; CONST DTI$M_UPDATE = 1; DTI$M_LOCAL_RM = 2; DTI$S_TRANSACTION_INFORMATION = 84; (* length of transaction information record *) TYPE DTIREC$TYPE = RECORD CASE INTEGER OF (* Transaction information record definitions *) 1: (DTI$R_FILL_119_ : [BYTE(2)] RECORD END; DTI$B_STATE : $UBYTE; (* Transaction state *) DTI$B_PART_NAME_LEN : $UBYTE; (* Length of participant name *) DTI$T_PART_NAME : PACKED ARRAY [1..32] OF CHAR; (* Participant name *) DTI$T_PART_LOG_ID : PACKED ARRAY [1..16] OF CHAR; (* Participant log id *) DTI$T_TID : PACKED ARRAY [1..16] OF CHAR; (* Transaction ID *) DTI$O_UTC_COMMIT_TIME : $UOCTA; (* UTC commit time *) ); 2: (DTI$W_FLAGS : [POS(0)] $UWORD; (* Modifier flags *) ); 3: (); 4: (DTI$V_UPDATE : [POS(0)] $BOOL; (* Delete resource manager from transaction *) DTI$V_LOCAL_RM : [POS(1)] $BOOL; (* Participant type (1 = RM, 0 = node) *) ) END; (*** MODULE $DVIDEF ***) (*+ *) (* *) (* Get Device and Volume Information Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added at the END of the list so that *) (* users will not have to rebuild. *) (* *) (*- *) CONST DVI$_DEVCHAR = 2; (* Device characteristics - VALUE - 4 bytes *) DVI$_DEVCLASS = 4; (* Device class - VALUE - 1 byte *) DVI$_DEVTYPE = 6; (* Device type - VALUE - 1 byte *) DVI$_DEVBUFSIZ = 8; (* Device buffer size - VALUE - 2 bytes *) DVI$_DEVDEPEND = 10; (* Device dependent information - VALUE - 4 bytes *) DVI$_UNIT = 12; (* Unit number - VALUE - 4 bytes *) DVI$_PID = 14; (* Process identification of device owner - VALUE - 4 bytes *) DVI$_OWNUIC = 16; (* UIC of device owner - VALUE - 4 bytes *) DVI$_VPROT = 18; (* Volume protection mask - VALUE - 2 bytes *) DVI$_ERRCNT = 20; (* Error count - VALUE - 2 bytes *) DVI$_OPCNT = 22; (* Operation count - VALUE - 4 bytes *) DVI$_RECSIZ = 24; (* Blocked record size - VALUE - 2 bytes *) DVI$_MAXBLOCK = 26; (* Number of logical blocks on the volume (disk) - VALUE - 4 bytes *) DVI$_DEVDEPEND2 = 28; (* Additional device dependent data - VALUE - 4 bytes *) DVI$_REFCNT = 30; (* Reference count of processes - VALUE - 2 bytes *) DVI$_DEVNAM = 32; (* Device name - STRING - 64 bytes *) DVI$_VOLNAM = 34; (* Volume name - STRING - 12 bytes *) DVI$_SECTORS = 36; (* Number of sectors per track (disk) - VALUE - 1 byte *) DVI$_TRACKS = 38; (* Number of tracks per cylinder (disk) - VALUE - 1 byte *) DVI$_CYLINDERS = 40; (* Number of cylinders on the volume (disk) - VALUE - 2 bytes *) DVI$_FREEBLOCKS = 42; (* Number of free blocks on the volume (disk) - VALUE - 4 bytes *) DVI$_LOGVOLNAM = 44; (* Logical volume name - STRING - 64 bytes *) DVI$_VOLNUMBER = 46; (* Number of this volume in volume set (disk) - VALUE - 4 byte *) DVI$_VOLCOUNT = 48; (* Count of volumes in volume set (disk) - VALUE - 4 byte *) DVI$_ROOTDEVNAM = 50; (* Device name of root volume in volume set (disk) - STRING - 64 bytes *) DVI$_NEXTDEVNAM = 52; (* Device name of next volume in volume set (disk) - STRING - 64 bytes *) DVI$_TRANSCNT = 54; (* Volume Transaction Count - VALUE - 2 bytes *) DVI$_MOUNTCNT = 56; (* Mount count - VALUE - 2 bytes *) DVI$_CLUSTER = 58; (* Volume Cluster Size (disk) - VALUE - 2 bytes *) DVI$_MAXFILES = 60; (* Maximum Files on Volume (disk) - VALUE - 4 bytes *) DVI$_SERIALNUM = 62; (* Volume Serial Number (disk) - VALUE - 4 bytes *) DVI$_ACPPID = 64; (* ACP Process ID - VALUE - 4 bytes *) DVI$_ACPTYPE = 66; (* ACP type code - VALUE - 1 byte *) DVI$_CONCEALED = 68; (* Device is a concealed device - BOOLEAN - 1 byte *) (* *) (** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD *) (* *) CONST DVI$_REC = 70; (* DEVICE RECORD ORIENTED *) DVI$_CCL = 72; (* CARRIAGE CONTROL DEVICE *) DVI$_TRM = 74; (* DEVICE IS A TERMINAL *) DVI$_DIR = 76; (* DEVICE IS DIRECTORY STRUCTURED *) DVI$_SDI = 78; (* DEVICE IS SINGLE DIRECTORY STRUCTURED *) DVI$_SQD = 80; (* SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) *) DVI$_SPL = 82; (* DEVICE BEING SPOOLED *) DVI$_OPR = 84; (* DEVICE IS AN OPERATOR *) DVI$_RCT = 86; (* DISK CONTAINS RCT (DEC STANDARD 166 DISK) *) DVI$_NET = 88; (* NETWORK DEVICE *) DVI$_FOD = 90; (* FILES-ORIENTED DEVICE (I.E., DISK AND MT) *) DVI$_DUA = 92; (* DEVICE IS DUAL PORTED *) DVI$_SHR = 94; (* DEVICE SHAREABLE *) DVI$_GEN = 96; (* DEVICE IS A GENERIC DEVICE *) DVI$_AVL = 98; (* DEVICE AVAILABLE FOR USE *) DVI$_MNT = 100; (* DEVICE IS MOUNTED *) DVI$_MBX = 102; (* DEVICE IS A MAILBOX *) DVI$_DMT = 104; (* DEVICE MARKED FOR DISMOUNT *) DVI$_ELG = 106; (* DEVICE HAS ERROR LOGGING ENABLED *) DVI$_ALL = 108; (* DEVICE IS ALLOCATED *) DVI$_FOR = 110; (* DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) *) DVI$_SWL = 112; (* DEVICE IS SOFTWARE WRITE LOCKED *) DVI$_IDV = 114; (* DEVICE CAPABLE OF PROVIDING INPUT *) DVI$_ODV = 116; (* DEVICE CAPABLE OF PROVIDING OUTPUT *) DVI$_RND = 118; (* DEVICE ALLOWS RANDOM ACCESS *) DVI$_RTM = 120; (* DEVICE IS REALTIME IN NATURE *) DVI$_RCK = 122; (* DEVICE HAS READ CHECKING ENABLED *) DVI$_WCK = 124; (* DEVICE HAS WRITE CHECKING ENABLED *) (* *) (** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD *) (** (AS DEFINED FOR TERMINALS: TTDEF IN STARDEFQZ.SDL) *) (* *) CONST DVI$_TT_PASSALL = 126; DVI$_TT_NOECHO = 128; DVI$_TT_NOTYPEAHD = 130; DVI$_TT_ESCAPE = 132; DVI$_TT_HOSTSYNC = 134; DVI$_TT_TTSYNC = 136; DVI$_TT_SCRIPT = 138; DVI$_TT_LOWER = 140; DVI$_TT_MECHTAB = 142; DVI$_TT_WRAP = 144; DVI$_TT_CRFILL = 146; DVI$_TT_LFFILL = 148; DVI$_TT_SCOPE = 150; DVI$_TT_REMOTE = 152; DVI$_TT_EIGHTBIT = 154; DVI$_TT_MBXDSABL = 156; DVI$_TT_NOBRDCST = 158; DVI$_TT_READSYNC = 160; DVI$_TT_MECHFORM = 162; DVI$_TT_HALFDUP = 164; DVI$_TT_MODEM = 166; DVI$_TT_OPER = 168; DVI$_TT_PAGE = 170; (* *) (** THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD *) (** (AS DEFINED FOR TERMINALS: TT2DEF IN STARDEFQZ.SDL) *) (* *) CONST DVI$_TT_LOCALECHO = 172; DVI$_TT_AUTOBAUD = 174; DVI$_TT_HANGUP = 176; DVI$_TT_MODHANGUP = 178; DVI$_TT_BRDCSTMBX = 180; DVI$_TT_DMA = 182; DVI$_TT_ALTYPEAHD = 184; DVI$_TT_SETSPEED = 186; DVI$_TT_DCL_MAILBX = 188; (* TEMP DEFINITIONS FOR DCL SPAWN *) DVI$_TT_EDITING = 190; DVI$_TT_INSERT = 192; DVI$_TT_FALLBACK = 194; DVI$_TT_DIALUP = 196; DVI$_TT_SECURE = 198; DVI$_TT_DISCONNECT = 200; DVI$_TT_PASTHRU = 202; DVI$_TT_SIXEL = 204; DVI$_TT_DRCS = 206; DVI$_TT_PRINTER = 208; DVI$_TT_APP_KEYPAD = 210; DVI$_TT_SYSPWD = 212; DVI$_TT_ANSICRT = 214; DVI$_TT_REGIS = 216; DVI$_TT_BLOCK = 218; DVI$_TT_AVO = 220; DVI$_TT_EDIT = 222; DVI$_TT_DECCRT = 224; (* *) (** THE FOLLOWING CODES ARE REGULAR ITEMS *) (* *) CONST DVI$_STS = 226; (* STATUS LONGWORD *) DVI$_DEVSTS = 228; (* DEVICE STATUS WORD *) DVI$_DEVCHAR2 = 230; (* Second device characteristics longword - VALUE - 4 bytes *) DVI$_FULLDEVNAM = 232; (* Fully qualified device name *) DVI$_LOCKID = 234; (* Device lock id - VALUE - 4 bytes *) DVI$_ALLDEVNAM = 236; (* Allocation class + device name *) DVI$_VOLSETMEM = 238; (* Volume set member *) DVI$_DEVLOCKNAM = 240; (* Device lock name *) (* *) (** THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES *) (* *) CONST DVI$_ALLOCLASS = 242; (* Allocation class of host(s) *) DVI$_ALT_HOST_AVAIL = 244; (* Alternate host is active *) DVI$_ALT_HOST_NAME = 246; (* Name of host serving alternate path *) DVI$_ALT_HOST_TYPE = 248; (* Type of alternate host *) DVI$_HOST_AVAIL = 250; (* Primary host is active *) DVI$_HOST_COUNT = 252; (* Number of paths to the device *) DVI$_HOST_NAME = 254; (* Name of host serving the primary path *) DVI$_HOST_TYPE = 256; (* Type of primary host (today one of "V785", "V780", "V750" or "HS50") *) DVI$_REMOTE_DEVICE = 258; (* Device is not connected to local node *) DVI$_SERVED_DEVICE = 260; (* Device is served to the cluster *) DVI$_SHDW_CATCHUP_COPYING = 262; (* Catch-up copy is in progress *) DVI$_SHDW_MASTER = 264; (* Device is "virtual" master device for shadow set *) DVI$_SHDW_MASTER_NAME = 266; (* Name of the "virtual" master device for a shadow set *) DVI$_SHDW_MEMBER = 268; (* Device is one of the volumes making a shadow set *) DVI$_SHDW_MERGE_COPYING = 270; (* Merge copy is in progress *) DVI$_SHDW_NEXT_MBR_NAME = 272; (* Name of the next device in shadow set *) (* *) (** THE FOLLOWING CODES ARE REGULAR ITEMS *) (* *) CONST DVI$_TT_PHYDEVNAM = 274; (* Terminal physical device name - STRING - 64 bytes *) DVI$_TT_DECCRT2 = 276; (* DEC_CRT level 2 part of devdepend2 longword for *) (* terminals. *) CONST DVI$_MEDIA_NAME = 278; (* Decoded media name from UCB$L_MEDIA_ID field (ie. RK07 ) *) DVI$_MEDIA_TYPE = 280; (* Decoded media type from UCB$L_MEDIA_ID field (ie. DM ) *) DVI$_MEDIA_ID = 282; (* NONdecoded media id from UCB$L_MEDIA_ID *) (* *) CONST DVI$_SHDW_FAILED_MEMBER = 284; (* Member unit has been failed out from shadow set *) DVI$_MSCP_UNIT_NUMBER = 286; (* MSCP unit number of device (internal hash *) (* value, not useful for customers or applications) *) CONST DVI$_DISPLAY_DEVNAM = 288; (* A displayable device name, useful for user *) (* displays but not for $ASSIGN *) CONST DVI$_TT_ACCPORNAM = 290; (* Name of local port on remote system. Counted *) (* string in remote native format, ie: LAT, X.29 *) CONST DVI$_DEVDEPEND3 = 292; (* Device dependent longword 3 *) DVI$_TT_MULTISESSION = 294; (* Multi-session terminal *) DVI$_TT_DECCRT3 = 296; (* VT3xx series terminal *) DVI$_SET_HOST_TERMINAL = 298; (* SET HOST session terminal *) DVI$_DFS_ACCESS = 300; (* DFS client access point device *) DVI$_DAPDEVNAM = 302; (* DAP device name, used to store the remote *) (* name string of a device that is accessed via *) (* the DAP protocol (without DECnet), such as *) (* certain console disks. *) CONST DVI$_TT_DECCRT4 = 304; (* VT4xx series terminal *) DVI$_TT_CHARSET = 306; (* Terminal character set information *) (* *) (** The following codes are the individual bits of the TT_CHARSET longword *) (** in the terminal UCB (as defined in TTCDEF) *) (* *) CONST DVI$_TT_CS_KANA = 308; (* Support Kana character set *) DVI$_TT_CS_KANJI = 310; (* Support Kanji character set *) DVI$_TT_CS_HANZI = 312; (* Support Hanzi character set *) DVI$_TT_CS_HANGUL = 314; (* Support Hangul character set *) DVI$_TT_CS_HANYU = 316; (* Support Hanyu character set *) DVI$_TT_CS_THAI = 318; (* Support Thai character set *) (* *) (** THE FOLLOWING CODES ARE REGULAR ITEMS *) (* *) CONST DVI$_DEVDEPEND4 = 320; (* Device dependent longword 4 *) DVI$_DEVICE_TYPE_NAME = 322; (* DDR Device type name *) DVI$_TT_ASIAN_MODE = 324; (* Asian terminal I/O characteristics *) DVI$_PREFERRED_CPU = 326; (* Return CPU affinity of device *) DVI$_TT_DECCRT5 = 328; (* VT5xx series terminal *) DVI$_TT_ANSI_COLOR = 330; (* Terminal supports ANSI color escape sequences *) DVI$_MT3_SUPPORTED = 332; (* Tape UCB owned by an MTD enhanced *) (* driver? (longword) *) CONST DVI$_MT3_DENSITY = 334; (* Tape density. (longword) *) DVI$_DRIVER_IMAGE_NAME = 336; (* Driver image name -- STRING *) DVI$_CLIENT_DEVICE = 338; (* Client device flag -- BOOLEAN *) DVI$_FC_PORT_NAME = 340; (* Fibre Channel Port Name -- STRING *) DVI$_FC_NODE_NAME = 342; (* Fibre Channel Node Name -- STRING *) DVI$_WWID = 344; (* SCSI Fibre Channel Device (Disk, Tape, etc.) *) (* World Wide Identifier -- STRING *) CONST DVI$_VOLCHAR = 346; (* Volume Characteristics (16 bytes) *) DVI$_HBVS_MASTER_MEMBER = 348; (* This device is master member of of shadow set *) DVI$_MULTIPATH = 350; (* this device is a member of a multipath set *) DVI$_MPDEV_CURRENT_PATH = 352; (* the current path of the multipath set *) DVI$_VOLSIZE = 354; (* the current logical volume size *) DVI$_EXPSIZE = 356; (* the growth limit of the volume *) DVI$_QLEN = 358; (* the queue length on the device *) DVI$_SHDW_SITE = 360; (* the shadowing site-specific value for the device *) DVI$_SHDW_MBR_COUNT = 362; (* the number of full members in a virtual unit *) DVI$_SHDW_DEVICE_COUNT = 364; (* the number of members in a virtual unit *) DVI$_SHDW_MBR_READ_COST = 366; (* the read cost for a member *) DVI$_SHDW_READ_SOURCE = 368; (* the name of the member from which reads occur *) DVI$_SHDW_TIMEOUT = 370; (* the timeout value for the device *) DVI$_DVI_UNUSED_1 = 372; (* Had been shdw_start_delay *) DVI$_SHDW_GENERATION = 374; (* the generation number *) DVI$_SHDW_STATUS = 376; (* the status of either the member or virtual unit *) DVI$_SHDW_MBR_COPY_DONE = 378; (* the percent done of a copy operation *) DVI$_SHDW_MBR_MERGE_DONE = 380; (* the percent done of a full merge operation *) DVI$_SHDW_MINIMERGE_ENABLE = 382; (* is this virtual unit enabled for mini-merge? *) DVI$_DVI_UNUSED_2 = 384; (* had been shdw_minimerge_capable *) DVI$_SHDW_COPIER_NODE = 386; (* the node on which the copy is being done *) DVI$_SHDW_MASTER_MBR = 388; (* the device that is the master member of the virtual unit *) DVI$_MPDEV_AUTO_PATH_SW_CNT = 390; (* number of times the device switched paths due to an I/O error *) DVI$_MPDEV_MAN_PATH_SW_CNT = 392; (* number of times the device switched paths due to $SET DEVICE /PATH= /SWITCH *) DVI$_WRITETHRU_CACHE_ENABLED = 394; (* vcb$v_writethru *) DVI$_NOCACHE_ON_VOLUME = 396; (* vcb$v_nocache *) DVI$_MOUNTVER_ELIGIBLE = 398; (* vcb$v_mountver *) DVI$_ERASE_ON_DELETE = 400; (* vcb$v_erase *) DVI$_NOHIGHWATER = 402; (* vcb$v_nohighwater *) DVI$_NOSHARE_MOUNTED = 404; (* vcb$v_noshare *) DVI$_CLUSLOCK = 406; (* vcb$v_cluslock *) DVI$_ODS2_SUBSET0 = 408; (* vcb$v_subset0 *) DVI$_PROT_SUBSYSTEM_ENABLED = 410; (* vcb$v_subsystem *) DVI$_ODS5 = 412; (* vcb$v_struc_ods5 *) DVI$_ACCESSTIMES_RECORDED = 414; (* vcb$v_accesstimes *) DVI$_HARDLINKS_SUPPORTED = 416; (* vcb$v_hardlinks *) DVI$_SCSI_DEVICE_FIRMWARE_REV = 418; (* firmware revision level for SCSI devices *) DVI$_TOTAL_PATH_COUNT = 420; (* number of configured multipath paths *) DVI$_AVAILABLE_PATH_COUNT = 422; (* number of working and enabled paths *) DVI$_VOLUME_EXTEND_QUANTITY = 424; (* default volume extend quantity *) DVI$_MOUNT_TIME = 426; (* time the volume was mounted *) DVI$_VOLUME_MOUNT_SYS = 428; (* vcb$v_system *) DVI$_VOLUME_MOUNT_GROUP = 430; (* vcb$v_group *) DVI$_PATH_AVAILABLE = 432; (* *) DVI$_PATH_USER_DISABLED = 434; (* *) DVI$_PATH_NOT_RESPONDING = 436; (* sud$v_not_responding *) DVI$_PATH_POLL_ENABLED = 438; (* *) DVI$_MVSUPMSG = 440; (* sud$v_mvsupmsg_auto *) DVI$_PATH_SWITCH_TO_TIME = 442; DVI$_PATH_SWITCH_FROM_TIME = 444; DVI$_ERROR_RESET_TIME = 446; DVI$_DEVICE_MAX_IO_SIZE = 448; DVI$_VOLUME_RETAIN_MAX = 450; DVI$_VOLUME_RETAIN_MIN = 452; DVI$_PREFERRED_CPU_BITMAP = 454; (* Bitmap indicating Fast Path CPU *) DVI$_MAILBOX_INITIAL_QUOTA = 456; DVI$_MAILBOX_BUFFER_QUOTA = 458; DVI$_VOLUME_WINDOW = 460; DVI$_VOLUME_SPOOLED_DEV_CNT = 462; DVI$_VOLUME_PENDING_WRITE_ERR = 464; DVI$_LAN_SPEED = 466; DVI$_LAN_LINK_UP = 468; DVI$_LAN_DEFAULT_MAC_ADDRESS = 470; DVI$_LAN_MAC_ADDRESS = 472; DVI$_LAN_FULL_DUPLEX = 474; DVI$_LAN_ALL_MULTICAST_MODE = 476; DVI$_LAN_PROMISCUOUS_MODE = 478; DVI$_LAN_JUMBO_FRAMES_ENABLED = 480; DVI$_LAN_AUTONEG_ENABLED = 482; DVI$_LAN_PROTOCOL_TYPE = 484; DVI$_LAN_PROTOCOL_NAME = 486; DVI$_LAN_LINK_STATE_VALID = 488; DVI$_FC_HBA_FIRMWARE_REV = 490; DVI$_ADAPTER_IDENT = 492; DVI$_MOUNTCNT_CLUSTER = 494; DVI$_SHDW_HBMM_RESET_COUNT = 496; DVI$_SHDW_HBMM_RESET_TIME = 498; DVI$_SPECIAL_FILES = 500; (* vcb$v_special_files *) DVI$_NOXFCCACHE_ON_VOLUME = 502; (* vcb$v_noxfccache *) DVI$_XFC_DEPOSING = 504; (* vcb$v_xfc_deposing *) (* *) (**** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *) (* *) (* *) (* Define flag bits in the item code. *) (* *) CONST DVI$M_SECONDARY = 1; DVI$M_NOREDIRECT = 32768; TYPE DVI$TYPE = RECORD DVI$V_SECONDARY : [POS(0)] $BOOL; (* Use secondary device characteristics *) DVI$V_ITEM_CODE : [POS(1)] $BIT14; (* Space for item code *) (* Define additional flags here, subtracting the space out of the *) (* above item code. (The item code must contain all the unused bits *) (* for proper validation in the service.) *) DVI$V_NOREDIRECT : [POS(15)] $BOOL; (* Don't redirect to virtual terminal *) END; (* *) (* Define flag bits in the volume characteristics item code. *) (* *) CONST DVI$M_VOL_READDIR = 15; DVI$C_READDIR_NONE = 0; (* directory cannot be read (scan with repeated IO$_ACCESS) *) DVI$C_READDIR_VIO = 1; (* read directory via IO$_READVBLK *) DVI$C_READDIR_IO = 2; (* read directory via IO$_READDIR *) DVI$C_READDIR_ACP = 3; (* read directory via IO$_ACPCNTRL *) DVI$M_VOL_LENGTH_HINT = 16; DVI$M_VOL_CACHING_ATTR = 32; DVI$M_VOL_ACCESS_DATE = 64; DVI$M_VOL_HARDLINK = 128; DVI$M_VOL_SET_SECURITY = 256; DVI$M_VOL_FID_TO_NAME = 512; DVI$M_VOL_ODS1_STYLE_PURGE = 1024; DVI$M_VOL_SHARED_TRUNCATE = 2048; DVI$M_VOL_WRITE_BARRIER = 4096; DVI$M_VOL_DIRSEQ_QIO = 8192; DVI$M_VOL_EFS = 16384; DVI$M_VOL_UCS2 = 32768; DVI$M_VOL_CASE_VARIANT = 65536; DVI$M_VOL_MODDATE = 131072; DVI$M_VOL_SPECIAL_FILE = 262144; DVI$M_VOL_SSIO = 524288; DVI$M_VOL_LOOKUP_SPECIAL = 1048576; TYPE DVIVOL$TYPE = RECORD CASE INTEGER OF 1: (DVI$R_DVIVOL_OVERLAY : [BYTE(16)] RECORD END; ); 2: (); 3: (); 4: (DVI$V_VOL_READDIR : [POS(0)] $BIT4; (* Read/scan a directory (4 bit field): *) DVI$V_VOL_LENGTH_HINT : [POS(4)] $BOOL; (* file length hint *) DVI$V_VOL_CACHING_ATTR : [POS(5)] $BOOL; (* support 'caching attribute' (contents, atttribute, on_close) *) DVI$V_VOL_ACCESS_DATE : [POS(6)] $BOOL; (* access date *) DVI$V_VOL_HARDLINK : [POS(7)] $BOOL; (* hardlink *) DVI$V_VOL_SET_SECURITY : [POS(8)] $BOOL; (* set volume security profile support *) DVI$V_VOL_FID_TO_NAME : [POS(9)] $BOOL; (* ATR$C_FILE_SPEC attribute (lib$fid_to_name) *) DVI$V_VOL_ODS1_STYLE_PURGE : [POS(10)] $BOOL; (* post ODS1 style purge operation *) DVI$V_VOL_SHARED_TRUNCATE : [POS(11)] $BOOL; (* Support truncate when open shared (Spiralog only?) *) DVI$V_VOL_WRITE_BARRIER : [POS(12)] $BOOL; (* Support IO$M_WRITE_BARRIER (vs IO$M_BARRIER) *) DVI$V_VOL_DIRSEQ_QIO : [POS(13)] $BOOL; (* read/arm DIRSEQ by QIO *) DVI$V_VOL_EFS : [POS(14)] $BOOL; (* extended file specification *) DVI$V_VOL_UCS2 : [POS(15)] $BOOL; (* ucs2 file names *) DVI$V_VOL_CASE_VARIANT : [POS(16)] $BOOL; (* case variant names *) DVI$V_VOL_MODDATE : [POS(17)] $BOOL; (* support for modification date (ATR$C_MODDATE). *) DVI$V_VOL_SPECIAL_FILE : [POS(18)] $BOOL; (* special file support including symbolic links (SYMLINK) *) DVI$V_VOL_SSIO : [POS(19)] $BOOL; (* support for shared stream I/O (SSIO) *) DVI$V_VOL_LOOKUP_SPECIAL : [POS(20)] $BOOL; (* support for special file detection in file lookup *) ) END; (* *) (* Constant form of name for past compatibility. *) (* *) CONST DVI$C_SECONDARY = 1; (* *) (* The following ACP type codes are formally defined in $AQBDEF *) (* These synonyms are available to user programs and they are *) (* guaranteed to be consistent by ASSUME's in SYSGETDVI. Additions *) (* to the ACP type codes in $AQBDEF should be reflected here and *) (* in the ASSUMES in SYSGETDVI. *) (* *) (* If you add ACP codes here, you must also update the ACP_TYPES *) (* text translation table embedded over in [lib]liblexica.bli. *) (* *) CONST DVI$C_ACP_F11V1 = 1; (* FILES-11 STRUCTURE LEVEL 1 *) DVI$C_ACP_F11V2 = 2; (* FILES-11 STRUCTURE LEVEL 2 *) DVI$C_ACP_MTA = 3; (* MAGTAPE *) DVI$C_ACP_NET = 4; (* NETWORKS *) DVI$C_ACP_REM = 5; (* REMOTE I/O *) DVI$C_ACP_HBS = 6; (* HOST BASED SHADOWING *) DVI$C_ACP_F11V3 = 7; (* Files-11 presentation of ISO 9660 *) DVI$C_ACP_F11V4 = 8; (* Files-11 presentation of High Sierra *) DVI$C_ACP_F64 = 9; (* Files 64 support for Dollar *) DVI$C_ACP_UCX = 10; (* ACP for TCP/IP Services for OpenVMS *) DVI$C_ACP_F11V5 = 11; (* FILES-11 STRUCTURE LEVEL 5 *) DVI$C_ACP_F11V6 = 12; (* FILES-11 STRUCTURE LEVEL 6 *) DVI$C_ACP_HBVS = 13; (* Host Based Volume Shadowing SCP *) (*** MODULE $DVSDEF ***) (*+ *) (* *) (* Device Scan Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added at the END of the list so that *) (* users will not have to rebuild. *) (* *) (*- *) CONST DVS$_DEVCLASS = 1; (* Device class - VALUE - 4 bytes (only one used) *) DVS$_DEVTYPE = 2; (* Device type - VALUE - 4 bytes (only one used) *) (*** MODULE $EFNDEF ***) CONST EFN$C_ENF = 128; (* Event No Flag (no stored state) *) EFN$C_CTX = 129; (* Wait for context *) (*** MODULE ELFDATYP IDENT X-4 ***) TYPE Elf64_Addr =$QUAD; Elf64_Off =$UQUAD; Elf64_Half =$UWORD; Elf64_Word =UNSIGNED; Elf64_Sword =INTEGER; Elf64_Xword =$UQUAD; Elf64_Sxword =$QUAD; Elf64_Section =UNSIGNED; Elf64_Symndx =UNSIGNED; subsys_majmin$TYPE = RECORD ver$w_minor_id : $UWORD; ver$w_major_id : $UWORD; END; sysver_majmin$TYPE = RECORD ver$v_minor_id : [POS(0)] $BIT24; ver$v_major_id : [POS(24)] $BIT8; END; CONST lnkg_desc1$m_type = 1; lnkg_desc1$m_notused0 = 2; lnkg_desc1$M_GP = 4; lnkg_desc1$m_notused1 = 8; lnkg_desc1$M_R2 = 48; lnkg_desc1$M_R3 = 192; lnkg_desc1$M_R4 = 768; lnkg_desc1$M_R5 = 3072; lnkg_desc1$M_R6 = 12288; lnkg_desc1$M_R7 = 49152; lnkg_desc1$M_R8 = 196608; lnkg_desc1$M_R9 = 786432; lnkg_desc1$M_R10 = 3145728; lnkg_desc1$M_R11 = 12582912; lnkg_desc1$M_R12 = 50331648; lnkg_desc1$M_R13 = 201326592; lnkg_desc1$M_R14 = 805306368; lnkg_desc1$M_R15 = -1073741824; lnkg_desc1$M_R16 = 0; lnkg_desc1$M_R17 = 0; lnkg_desc1$M_R18 = 0; lnkg_desc1$M_R19 = 0; lnkg_desc1$M_R20 = 0; lnkg_desc1$M_R21 = 0; lnkg_desc1$M_R22 = 0; lnkg_desc1$M_R23 = 0; lnkg_desc1$M_R24 = 0; lnkg_desc1$M_AI = 0; lnkg_desc1$m_notused25 = 0; lnkg_desc1$M_R26 = 0; lnkg_desc1$M_R27 = 0; lnkg_desc1$M_R28 = 0; lnkg_desc1$M_R29 = 0; lnkg_desc1$M_R30 = 0; lnkg_desc1$M_R31 = 0; LNKG_DESC1$K_SIZE = 8; LNKG_DESC1$C_SIZE = 8; TYPE vms_lnkg_desc1$TYPE = RECORD lnkg_desc1$v_type : [POS(0)] $BOOL; lnkg_desc1$v_notused0 : [POS(1)] $BOOL; lnkg_desc1$V_GP : [POS(2)] $BOOL; lnkg_desc1$v_notused1 : [POS(3)] $BOOL; lnkg_desc1$V_R2 : [POS(4)] $BIT2; lnkg_desc1$V_R3 : [POS(6)] $BIT2; lnkg_desc1$V_R4 : [POS(8)] $BIT2; lnkg_desc1$V_R5 : [POS(10)] $BIT2; lnkg_desc1$V_R6 : [POS(12)] $BIT2; lnkg_desc1$V_R7 : [POS(14)] $BIT2; lnkg_desc1$V_R8 : [POS(16)] $BIT2; lnkg_desc1$V_R9 : [POS(18)] $BIT2; lnkg_desc1$V_R10 : [POS(20)] $BIT2; lnkg_desc1$V_R11 : [POS(22)] $BIT2; lnkg_desc1$V_R12 : [POS(24)] $BIT2; lnkg_desc1$V_R13 : [POS(26)] $BIT2; lnkg_desc1$V_R14 : [POS(28)] $BIT2; lnkg_desc1$V_R15 : [POS(30)] $BIT2; lnkg_desc1$V_R16 : [POS(32)] $BIT2; lnkg_desc1$V_R17 : [POS(34)] $BIT2; lnkg_desc1$V_R18 : [POS(36)] $BIT2; lnkg_desc1$V_R19 : [POS(38)] $BIT2; lnkg_desc1$V_R20 : [POS(40)] $BIT2; lnkg_desc1$V_R21 : [POS(42)] $BIT2; lnkg_desc1$V_R22 : [POS(44)] $BIT2; lnkg_desc1$V_R23 : [POS(46)] $BIT2; lnkg_desc1$V_R24 : [POS(48)] $BIT2; lnkg_desc1$V_AI : [POS(50)] $BOOL; lnkg_desc1$v_notused25 : [POS(51)] $BOOL; lnkg_desc1$V_R26 : [POS(52)] $BIT2; lnkg_desc1$V_R27 : [POS(54)] $BIT2; lnkg_desc1$V_R28 : [POS(56)] $BIT2; lnkg_desc1$V_R29 : [POS(58)] $BIT2; lnkg_desc1$V_R30 : [POS(60)] $BIT2; lnkg_desc1$V_R31 : [POS(62)] $BIT2; END; (*** MODULE ELFDEF IDENT X-39 ***) CONST EHDR$K_EI_NIDENT = 16; EHDR$SC_EF_VMS_COMCOD = 0; ehdr$m_ef_vms_comcod = 3; EHDR$SC_EF_VMS_LINKAGES = 2; ehdr$m_ef_vms_linkages = 4; ehdr$m_ef_fill_1 = 8; EHDR$SC_EF_IA_64_ABI64 = 4; ehdr$m_ef_ia_64_abi64 = 16; EHDR$SC_EF_IA_64_REDUCEDFP = 5; ehdr$m_ef_ia_64_reducedfp = 32; EHDR$SC_EF_IA_64_CONS_GP = 6; ehdr$m_ef_ia_64_cons_gp = 64; EHDR$SC_EF_IA_64_NOFD_CONS_GP = 7; ehdr$m_ef_ia_64_nofd_cons_gp = 128; EHDR$SC_EF_IA_64_ABSOLUTE = 8; ehdr$m_ef_ia_64_absolute = 256; ehdr$m_ef_fill_2 = 16776704; EHDR$SC_EF_IA_64_ARCH = 24; ehdr$m_ef_ia_64_arch = -16777216; EHDR$SC_EF_IA_64_LOOS = 0; ehdr$m_ef_ia_64_loos = 15; ehdr$m_ef_fill_1a = 65520; EHDR$SC_EF_IA_64_HIOS = 16; ehdr$m_ef_ia_64_hios = 16711680; ELF64_EHDR$K_E_SIZE = 64; ELF64_EHDR$C_E_SIZE = 64; ELF64_EHDR$S_VMS_OBJECT_V1 = 64; ELF64_EHDR$S_VMS_IMAGE_V1 = 72; TYPE Elf64_Ehdr$TYPE = RECORD CASE INTEGER OF 1: (ehdr$r_ident : [BYTE(16)] RECORD END; ehdr$w_e_type : Elf64_Half; ehdr$w_e_machine : Elf64_Half; ehdr$l_e_version : Elf64_Word; ehdr$pq_e_entry : Elf64_Addr; ehdr$q_e_phoff : Elf64_Off; ehdr$q_e_shoff : Elf64_Off; ehdr$r_flags_overlay : [BYTE(4)] RECORD END; ehdr$w_e_ehsize : Elf64_Half; ehdr$w_e_phentsize : Elf64_Half; ehdr$w_e_phnum : Elf64_Half; ehdr$w_e_shentsize : Elf64_Half; ehdr$w_e_shnum : Elf64_Half; ehdr$w_e_shstrndx : Elf64_Half; ehdr$q_e_vms_needed_cnt : Elf64_Xword; ); 2: (ehdr$t_e_ident : [POS(0)] ARRAY [1..16] OF $UBYTE; ehdr$l_e_flags : [POS(384)] Elf64_Word; ); 3: (); 4: (ehdr$b_ei_mag0 : [POS(0)] $UBYTE; ehdr$b_ei_mag1 : [POS(8)] $UBYTE; ehdr$b_ei_mag2 : [POS(16)] $UBYTE; ehdr$b_ei_mag3 : [POS(24)] $UBYTE; ehdr$b_ei_class : [POS(32)] $UBYTE; ehdr$b_ei_data : [POS(40)] $UBYTE; ehdr$b_ei_version : [POS(48)] $UBYTE; ehdr$b_ei_osabi : [POS(56)] $UBYTE; ehdr$b_ei_abiversion : [POS(64)] $UBYTE; ehdr$b_ei_pad : [POS(72)] ARRAY [1..7] OF $UBYTE; ehdr$v_ef_vms_comcod : [POS(384)] $BIT2; ehdr$v_ef_vms_linkages : [POS(386)] $BOOL; ehdr$v_ef_fill_1 : [POS(387)] $BOOL; ehdr$v_ef_ia_64_abi64 : [POS(388)] $BOOL; ehdr$v_ef_ia_64_reducedfp : [POS(389)] $BOOL; ehdr$v_ef_ia_64_cons_gp : [POS(390)] $BOOL; ehdr$v_ef_ia_64_nofd_cons_gp : [POS(391)] $BOOL; ehdr$v_ef_ia_64_absolute : [POS(392)] $BOOL; ehdr$v_ef_fill_2 : [POS(393)] $BIT15; ehdr$v_ef_ia_64_arch : [POS(408)] $BIT8; ); 5: (); 6: (ehdr$v_ef_ia_64_loos : [POS(384)] $BIT4; ehdr$v_ef_fill_1a : [POS(388)] $BIT12; ehdr$v_ef_ia_64_hios : [POS(400)] $BIT8; ) END; CONST EHDR$K_EI_MAG0 = 0; EHDR$K_EI_MAG1 = 1; EHDR$K_EI_MAG2 = 2; EHDR$K_EI_MAG3 = 3; EHDR$K_EI_CLASS = 4; EHDR$K_EI_DATA = 5; EHDR$K_EI_VERSION = 6; EHDR$K_EI_OSABI = 7; EHDR$K_EI_ABIVERSION = 8; EHDR$K_EI_PAD = 9; EHDR$K_ELFMAG0 = 127; EHDR$K_ELFMAG1 = 69; EHDR$K_ELFMAG2 = 76; EHDR$K_ELFMAG3 = 70; EHDR$K_ELFCLASSNONE = 0; EHDR$K_ELFCLASS32 = 1; EHDR$K_ELFCLASS64 = 2; EHDR$K_ELFDATANONE = 0; EHDR$K_ELFDATA2LSB = 1; EHDR$K_ELFDATA2MSB = 2; EHDR$K_ELFOSABI_NONE = 0; EHDR$K_ELFOSABI_OPENVMS = 13; EHDR$K_ELFABIVERSION_VMS_CURR = 2; EHDR$K_ELFABIVERSION_VMS_OBJ = 2; EHDR$K_ELFABIVERSION_VMS_IMG = 2; EHDR$K_ET_NONE = 0; EHDR$K_ET_REL = 1; EHDR$K_ET_EXEC = 2; EHDR$K_ET_DYN = 3; EHDR$K_ET_CORE = 4; EHDR$K_ET_LOOS = 65024; EHDR$K_ET_HIOS = 65279; EHDR$K_ET_LOPROC = 65280; EHDR$K_ET_HIPROC = 65535; EHDR$K_ET_VMS_LINK_STB = 65024; EHDR$K_ET_VMS_DSF = 65025; EHDR$K_EM_NONE = 0; EHDR$K_EM_IA_64 = 50; IIHA$K_VMSXFER_SIZE = 48; IIHA$C_VMSXFER_SIZE = 48; TYPE transfer_address$TYPE = RECORD CASE INTEGER OF 1: (iiha$l_size : Elf64_Word; iiha$l_spare : Elf64_Word; iiha$r_tfr_overlay : [BYTE(40)] RECORD END; ); 2: (iiha$ar_tfradr : [POS(64)] ARRAY [1..5] OF Elf64_Addr; ); 3: (); 4: (iiha$pq_tfradr1 : [POS(64)] Elf64_Addr; iiha$pq_tfradr2 : [POS(128)] Elf64_Addr; iiha$pq_tfradr3 : [POS(192)] Elf64_Addr; iiha$pq_tfradr4 : [POS(256)] Elf64_Addr; iiha$pq_tfradr5 : [POS(320)] Elf64_Addr; ) END; CONST IIHA$C_INIT = 1; IIHA$C_MAIN = 2; IIHA$C_EXE_INIT = 3; EHDR$K_EV_NONE = 0; EHDR$K_EV_CURRENT = 1; EHDR$K_VMS_COMCOD_SUCCESS = 0; EHDR$K_VMS_COMCOD_WARNING = 1; EHDR$K_VMS_COMCOD_ERROR = 2; EHDR$K_VMS_COMCOD_ABORT = 3; EHDR$K_EF_IA_64_MASKOS = 16711695; EHDR$K_EF_IA_64_ARCHVERSION = 1; SHDR$SC_SHF_WRITE = 0; shdr$m_shf_write = 1; SHDR$SC_SHF_ALLOC = 1; shdr$m_shf_alloc = 2; SHDR$SC_SHF_EXECINSTR = 2; shdr$m_shf_execinstr = 4; shdr$m_shf_f64_bitfill_1 = 8; SHDR$SC_SHF_MERGE = 4; shdr$m_shf_merge = 16; SHDR$SC_SHF_STRINGS = 5; shdr$m_shf_strings = 32; SHDR$SC_SHF_INFO_LINK = 6; shdr$m_shf_info_link = 64; SHDR$SC_SHF_LINK_ORDER = 7; shdr$m_shf_link_order = 128; SHDR$SC_SHF_OS_NONCONFORMING = 8; shdr$m_shf_os_nonconforming = 256; SHDR$SC_SHF_GROUP = 9; shdr$m_shf_group = 512; SHDR$SC_SHF_TLS = 10; shdr$m_shf_tls = 1024; shdr$m_shf_f64_bitfill_2 = 268433408; SHDR$SC_SHF_IA_64_SHORT = 28; shdr$m_shf_ia_64_short = 268435456; SHDR$SC_SHF_IA_64_NORECOV = 29; shdr$m_shf_ia_64_norecov = 536870912; shdr$m_shf_f64_bitfill_3 = -1073741824; SHDR$SC_SHF_VMS_GLOBAL = 32; shdr$m_shf_vms_global = 0; SHDR$SC_SHF_VMS_OVERLAID = 33; shdr$m_shf_vms_overlaid = 0; SHDR$SC_SHF_VMS_SHARED = 34; shdr$m_shf_vms_shared = 0; SHDR$SC_SHF_VMS_VECTOR = 35; shdr$m_shf_vms_vector = 0; SHDR$SC_SHF_VMS_ALLOC_64BIT = 36; shdr$m_shf_vms_alloc_64bit = 0; SHDR$SC_SHF_VMS_PROTECTED = 37; shdr$m_shf_vms_protected = 0; shdr$m_shf_f64_bitfill_4 = 0; shdr$m_shf_f64_osfill_1 = 1048575; SHDR$SC_SHF_MASK_LOOS = 20; shdr$m_shf_mask_loos = 267386880; shdr$m_shf_f64_osfill_2 = -268435456; SHDR$SC_SHF_MASK_HIOS = 32; shdr$m_shf_mask_hios = 0; shdr$m_shf_f64_procfill_1 = 268435455; SHDR$SC_SHF_MASKLOPROC = 28; shdr$m_shf_maskloproc = -268435456; SHDR$SC_SHF_MASKHIPROC = 32; shdr$m_shf_maskhiproc = 0; ELF64_SHDR$K_SH_SIZE = 64; ELF64_SHDR$C_SH_SIZE = 64; TYPE Elf64_Shdr$TYPE = RECORD CASE INTEGER OF 1: (shdr$l_sh_name : Elf64_Word; shdr$l_sh_type : Elf64_Word; shdr$r_flags_overlay : [BYTE(8)] RECORD END; shdr$pq_sh_addr : Elf64_Addr; shdr$q_sh_offset : Elf64_Off; shdr$q_sh_size : Elf64_Xword; shdr$l_sh_link : Elf64_Word; shdr$l_sh_info : Elf64_Word; shdr$q_sh_addralign : Elf64_Xword; shdr$q_sh_entsize : Elf64_Xword; ); 2: (shdr$q_sh_flags : [POS(64)] Elf64_Xword; ); 3: (); 4: (shdr$v_shf_write : [POS(64)] $BOOL; shdr$v_shf_alloc : [POS(65)] $BOOL; shdr$v_shf_execinstr : [POS(66)] $BOOL; shdr$v_shf_f64_bitfill_1 : [POS(67)] $BOOL; shdr$v_shf_merge : [POS(68)] $BOOL; shdr$v_shf_strings : [POS(69)] $BOOL; shdr$v_shf_info_link : [POS(70)] $BOOL; shdr$v_shf_link_order : [POS(71)] $BOOL; shdr$v_shf_os_nonconforming : [POS(72)] $BOOL; shdr$v_shf_group : [POS(73)] $BOOL; shdr$v_shf_tls : [POS(74)] $BOOL; shdr$v_shf_f64_bitfill_2 : [POS(75)] $BIT17; shdr$v_shf_ia_64_short : [POS(92)] $BOOL; shdr$v_shf_ia_64_norecov : [POS(93)] $BOOL; shdr$v_shf_f64_bitfill_3 : [POS(94)] $BIT2; shdr$v_shf_vms_global : [POS(96)] $BOOL; shdr$v_shf_vms_overlaid : [POS(97)] $BOOL; shdr$v_shf_vms_shared : [POS(98)] $BOOL; shdr$v_shf_vms_vector : [POS(99)] $BOOL; shdr$v_shf_vms_alloc_64bit : [POS(100)] $BOOL; shdr$v_shf_vms_protected : [POS(101)] $BOOL; shdr$v_shf_f64_bitfill_4 : [POS(102)] $BIT26; ); 5: (); 6: (shdr$v_shf_f64_osfill_1 : [POS(64)] $BIT20; shdr$v_shf_mask_loos : [POS(84)] $BIT8; shdr$v_shf_f64_osfill_2 : [POS(92)] $BIT4; shdr$v_shf_mask_hios : [POS(96)] $BIT32; ); 7: (); 8: (shdr$v_shf_f64_procfill_1 : [POS(64)] $BIT28; shdr$v_shf_maskloproc : [POS(92)] $BIT4; shdr$v_shf_maskhiproc : [POS(96)] $BIT32; ) END; CONST SHDR$K_SHN_UNDEF = 0; SHDR$K_SHN_LORESERVE = 65280; SHDR$K_SHN_LOPROC = 65280; SHDR$K_SHN_HIPROC = 65311; SHDR$K_SHN_LOOS = 65312; SHDR$K_SHN_VMS_SYMVEC = 65312; SHDR$K_SHN_HIOS = 65343; SHDR$K_SHN_ABS = 65521; SHDR$K_SHN_COMMON = 65522; SHDR$K_SHN_XINDEX = 65535; SHDR$K_SHN_HIRESERVE = 65535; SHDR$K_SHT_NULL = 0; SHDR$K_SHT_PROGBITS = 1; SHDR$K_SHT_SYMTAB = 2; SHDR$K_SHT_STRTAB = 3; SHDR$K_SHT_RELA = 4; SHDR$K_SHT_HASH = 5; SHDR$K_SHT_DYNAMIC = 6; SHDR$K_SHT_NOTE = 7; SHDR$K_SHT_NOBITS = 8; SHDR$K_SHT_REL = 9; SHDR$K_SHT_SHLIB = 10; SHDR$K_SHT_DYNSYM = 11; SHDR$K_SHT_UNUSED_12 = 12; SHDR$K_SHT_UNUSED_13 = 13; SHDR$K_SHT_INIT_ARRAY = 14; SHDR$K_SHT_FINI_ARRAY = 15; SHDR$K_SHT_PREINIT_ARRAY = 16; SHDR$K_SHT_GROUP = 17; SHDR$K_SHT_SYMTAB_SHNDX = 18; GRPSEC$M_COMDAT_FLAG = 1; SHDR$K_SHT_LOOS = 1610612736; SHDR$K_SHT_HIOS = 1879048191; SHDR$K_SHT_LOPROC = 1879048192; SHDR$K_SHT_HIPROC = 2147483647; SHDR$K_SHT_LOUSER = -2147483648; SHDR$K_SHT_HIUSER = -1; SHDR$K_SHT_VMS_TRACE = 1610612736; SHDR$K_SHT_VMS_TIE_SIGNATURES = 1610612737; SHDR$K_SHT_VMS_DEBUG = 1610612738; SHDR$K_SHT_VMS_DEBUG_STR = 1610612739; SHDR$K_SHT_VMS_LINKAGES = 1610612740; SHDR$K_SHT_VMS_SYMBOL_VECTOR = 1610612741; SHDR$K_SHT_VMS_FIXUP = 1610612742; SHDR$K_SHT_VMS_DISPLAY_NAME_INF = 1610612743; SHDR$K_SHT_IA_64_LOPSREG = 2013265920; SHDR$K_SHT_IA_64_HIPSREG = 2147483647; SHDR$K_SHT_IA_64_EXT = 1879048192; SHDR$K_SHT_IA_64_UNWIND = 1879048193; SHDR$K_SHT_IA_64_PRIORITY_INIT = 2030043136; VMSSIG$$K_SIZE = 8; VMSSIG$$C_SIZE = 8; TYPE VMSSigEntry$TYPE = RECORD vmssig$l_se_symbol : Elf64_Word; vmssig$l_se_offset : Elf64_Word; END; CONST UNWIND$K_SIZE = 24; UNWIND$C_SIZE = 24; TYPE IA_64_Unwind_Entry$TYPE = RECORD unwind$pq_ue_start : Elf64_Addr; unwind$pq_ue_end : Elf64_Addr; unwind$pq_ue_info : Elf64_Addr; END; CONST ELF64_NHDR$K_NH_SIZE = 24; ELF64_NHDR$C_NH_SIZE = 24; TYPE Elf64_Nhdr$TYPE = RECORD nhdr$q_nh_namesz : Elf64_Xword; nhdr$q_nh_descsz : Elf64_Xword; nhdr$q_nh_type : Elf64_Xword; END; CONST ELF64_MHDR$K_MH_SIZE = 34; ELF64_MHDR$C_MH_SIZE = 34; TYPE Elf64_Mhdr$TYPE = RECORD mhdr$b_mh_create_date : ARRAY [1..17] OF $UBYTE; mhdr$b_mh_patch_date : ARRAY [1..17] OF $UBYTE; mhdr$b_mh_name_version : $UBYTE; mhdr$b_fill_123_ : ARRAY [0..4] OF $BYTE; END; CONST ELF64_ORIGDYN$K_MAJOR_ID = 1; ELF64_ORIGDYN$K_MINOR_ID = 3; TYPE Elf64_OrigDyn$TYPE = RECORD origdyn$l_major_id : UNSIGNED; origdyn$l_minor_id : UNSIGNED; origdyn$q_manipulation_date : $UQUAD; origdyn$q_link_flags : $UQUAD; origdyn$l_elf_flags : UNSIGNED; origdyn$l_filler : UNSIGNED; origdyn$b_imgid : ARRAY [1..1] OF $UBYTE; origdyn$b_fill_124_ : ARRAY [0..6] OF $BYTE; END; CONST NHDR$K_NT_VMS_MHD = 1; NHDR$K_NT_VMS_LNM = 2; NHDR$K_NT_VMS_SRC = 3; NHDR$K_NT_VMS_TITLE = 4; NHDR$K_NT_VMS_EIDC = 5; NHDR$K_NT_VMS_FPMODE = 6; NHDR$K_NT_VMS_LINKTIME = 101; NHDR$K_NT_VMS_IMGNAM = 102; NHDR$K_NT_VMS_IMGID = 103; NHDR$K_NT_VMS_LINKID = 104; NHDR$K_NT_VMS_IMGBID = 105; NHDR$K_NT_VMS_GSTNAM = 106; NHDR$K_NT_VMS_ORIG_DYN = 107; NHDR$K_NT_VMS_PATCHTIME = 108; NHDR$K_VMS_EIDC_ERRSEV_WARNING = 0; NHDR$K_VMS_EIDC_ERRSEV_SUCCESS = 1; NHDR$K_VMS_EIDC_ERRSEV_ERROR = 2; NHDR$K_VMS_EIDC_ERRSEV_SEVERE = 4; ELF64_SYM$K_ST_SIZE = 24; ELF64_SYM$C_ST_SIZE = 24; TYPE Elf64_Sym$TYPE = RECORD symtab$l_st_name : Elf64_Word; symtab$b_st_info : $UBYTE; symtab$b_st_other : $UBYTE; symtab$w_st_shndx : Elf64_Half; symtab$pq_st_value : Elf64_Addr; symtab$q_st_size : Elf64_Xword; END; CONST SYMTAB$K_STB_LOCAL = 0; SYMTAB$K_STB_GLOBAL = 1; SYMTAB$K_STB_WEAK = 2; SYMTAB$K_STB_LOOS = 10; SYMTAB$K_STB_VMS_WEAK = 11; SYMTAB$K_STB_VMS_SYSTEM = 12; SYMTAB$K_STB_HIOS = 12; SYMTAB$K_STB_LOPROC = 13; SYMTAB$K_STB_HIPROC = 15; SYMTAB$K_STT_NOTYPE = 0; SYMTAB$K_STT_OBJECT = 1; SYMTAB$K_STT_FUNC = 2; SYMTAB$K_STT_SECTION = 3; SYMTAB$K_STT_FILE = 4; SYMTAB$K_STT_COMMON = 5; SYMTAB$K_STT_TLS = 6; SYMTAB$K_STT_LOOS = 10; SYMTAB$K_STT_HIOS = 12; SYMTAB$K_STT_LOPROC = 13; SYMTAB$K_STT_HIPROC = 15; SYMTAB$K_STV_DEFAULT = 0; SYMTAB$K_STV_INTERNAL = 1; SYMTAB$K_STV_HIDDEN = 2; SYMTAB$K_STV_PROTECTED = 3; SYMTAB$K_STV_UNIVERSAL = 3; SYMTAB$K_VMS_STO_VISIBILITY = 3; SYMTAB$K_VMS_STO_FUNC_TYPE = 48; SYMTAB$K_VMS_STO_LINKAGE = 192; SYMTAB$K_VMS_SFT_CODE_ADDR = 0; SYMTAB$K_VMS_SFT_SYMV_IDX = 1; SYMTAB$K_VMS_SFT_FD = 2; SYMTAB$K_VMS_SFT_RESERVE = 3; SYMTAB$K_VMS_STL_IGNORE = 0; SYMTAB$K_VMS_STL_RESERVED = 1; SYMTAB$K_VMS_STL_STD = 2; SYMTAB$K_VMS_STL_LNK = 3; ELF64_RELA64$K_R_SIZE = 24; ELF64_RELA64$C_R_SIZE = 24; TYPE Elf64_Rela64$TYPE = RECORD CASE INTEGER OF 1: (rela$pq_r_offset : Elf64_Addr; rela$r_info_olay : [BYTE(8)] RECORD END; rela$q_r_addend : Elf64_Sxword; ); 2: (rela$q_r_info : [POS(64)] Elf64_Xword; ); 3: (); 4: (rela$l_r_type : [POS(64)] Elf64_Word; rela$l_r_sym : [POS(96)] Elf64_Word; ) END; CONST RELA$K_R_IA_64_NONE = 0; RELA$K_R_IA_64_IMM14 = 33; RELA$K_R_IA_64_IMM22 = 34; RELA$K_R_IA_64_IMM64 = 35; RELA$K_R_IA_64_DIR32MSB = 36; RELA$K_R_IA_64_DIR32LSB = 37; RELA$K_R_IA_64_DIR64MSB = 38; RELA$K_R_IA_64_DIR64LSB = 39; RELA$K_R_IA_64_GPREL22 = 42; RELA$K_R_IA_64_GPREL64I = 43; RELA$K_R_IA_64_GPREL32MSB = 44; RELA$K_R_IA_64_GPREL32LSB = 45; RELA$K_R_IA_64_GPREL64MSB = 46; RELA$K_R_IA_64_GPREL64LSB = 47; RELA$K_R_IA_64_LTOFF22 = 50; RELA$K_R_IA_64_LTOFF64I = 51; RELA$K_R_IA_64_PLTOFF22 = 58; RELA$K_R_IA_64_PLTOFF64I = 59; RELA$K_R_IA_64_PLTOFF64MSB = 62; RELA$K_R_IA_64_PLTOFF64LSB = 63; RELA$K_R_IA_64_FPTR64I = 67; RELA$K_R_IA_64_FPTR32MSB = 68; RELA$K_R_IA_64_FPTR32LSB = 69; RELA$K_R_IA_64_FPTR64MSB = 70; RELA$K_R_IA_64_FPTR64LSB = 71; RELA$K_R_IA_64_PCREL60B = 72; RELA$K_R_IA_64_PCREL21B = 73; RELA$K_R_IA_64_PCREL21M = 74; RELA$K_R_IA_64_PCREL21F = 75; RELA$K_R_IA_64_PCREL32MSB = 76; RELA$K_R_IA_64_PCREL32LSB = 77; RELA$K_R_IA_64_PCREL64MSB = 78; RELA$K_R_IA_64_PCREL64LSB = 79; RELA$K_R_IA_64_LTOFF_FPTR22 = 82; RELA$K_R_IA_64_LTOFF_FPTR64I = 83; RELA$K_R_IA_64_LTOFF_FPTR32MSB = 84; RELA$K_R_IA_64_LTOFF_FPTR32LSB = 85; RELA$K_R_IA_64_LTOFF_FPTR64MSB = 86; RELA$K_R_IA_64_LTOFF_FPTR64LSB = 87; RELA$K_R_IA_64_SEGREL32MSB = 92; RELA$K_R_IA_64_SEGREL32LSB = 93; RELA$K_R_IA_64_SEGREL64MSB = 94; RELA$K_R_IA_64_SEGREL64LSB = 95; RELA$K_R_IA_64_SECREL32MSB = 100; RELA$K_R_IA_64_SECREL32LSB = 101; RELA$K_R_IA_64_SECREL64MSB = 102; RELA$K_R_IA_64_SECREL64LSB = 103; RELA$K_R_IA_64_REL32MSB = 108; RELA$K_R_IA_64_REL32LSB = 109; RELA$K_R_IA_64_REL64MSB = 110; RELA$K_R_IA_64_REL64LSB = 111; RELA$K_R_IA_64_LTV32MSB = 116; RELA$K_R_IA_64_LTV32LSB = 117; RELA$K_R_IA_64_LTV64MSB = 118; RELA$K_R_IA_64_LTV64LSB = 119; RELA$K_R_IA_64_PCREL21BI = 121; RELA$K_R_IA_64_PCREL22 = 122; RELA$K_R_IA_64_PCREL64I = 123; RELA$K_R_IA_64_IPLTMSB = 128; RELA$K_R_IA_64_IPLTLSB = 129; RELA$K_R_IA_64_COPY = 132; RELA$K_R_IA_64_SUB = 133; RELA$K_R_IA_64_LTOFF22X = 134; RELA$K_R_IA_64_LDXMOV = 135; RELA$K_R_IA_64_TPREL14 = 145; RELA$K_R_IA_64_TPREL22 = 146; RELA$K_R_IA_64_TPREL64I = 147; RELA$K_R_IA_64_TPREL64MSB = 150; RELA$K_R_IA_64_TPREL64LSB = 151; RELA$K_R_IA_64_LTOFF_TP22 = 154; RELA$K_R_IA_64_DTPMOD64MSB = 166; RELA$K_R_IA_64_DTPMOD64LSB = 167; RELA$K_R_IA_64_LTOFF_DTPMOD22 = 170; RELA$K_R_IA_64_DTPREL14 = 177; RELA$K_R_IA_64_DTPREL22 = 178; RELA$K_R_IA_64_DTPREL64I = 179; RELA$K_R_IA_64_DTPREL32MSB = 180; RELA$K_R_IA_64_DTPREL32LSB = 181; RELA$K_R_IA_64_DTPREL64MSB = 182; RELA$K_R_IA_64_DTPREL64LSB = 183; RELA$K_R_IA_64_LTOFF_DTPREL22 = 186; RELA$K_R_IA_64_LOOS = 1879048192; RELA$K_R_IA_64_HIOS = -1; RELA$K_R_IA_64_DIR8 = 1879048192; RELA$K_R_IA_64_DIR16LSB = 1879048193; RELA$K_R_IA_64_VMS_CALL_SIG = 1879048194; RELA$K_R_IA_64_VMS_EXECLET_FUNC = 1879048195; RELA$K_R_IA_64_VMS_EXECLET_DATA = 1879048196; RELA$K_R_IA_64_VMS_FIX8 = 1879048197; RELA$K_R_IA_64_VMS_FIX16 = 1879048198; RELA$K_R_IA_64_VMS_FIX32 = 1879048199; RELA$K_R_IA_64_VMS_FIX64 = 1879048200; RELA$K_R_IA_64_VMS_FIXFD = 1879048201; RELA$K_R_IA_64_VMS_ACC_LOAD = 1879048202; RELA$K_R_IA_64_VMS_ACC_ADD = 1879048203; RELA$K_R_IA_64_VMS_ACC_SUB = 1879048204; RELA$K_R_IA_64_VMS_ACC_MUL = 1879048205; RELA$K_R_IA_64_VMS_ACC_DIV = 1879048206; RELA$K_R_IA_64_VMS_ACC_AND = 1879048207; RELA$K_R_IA_64_VMS_ACC_IOR = 1879048208; RELA$K_R_IA_64_VMS_ACC_EOR = 1879048209; RELA$K_R_IA_64_VMS_ACC_ASH = 1879048210; RELA$K_R_IA_64_VMS_ACC_STO8 = 1879048212; RELA$K_R_IA_64_VMS_ACC_STO16LSB = 1879048213; RELA$K_R_IA_64_VMS_ACC_STO32LSB = 1879048214; RELA$K_R_IA_64_VMS_ACC_STO64LSB = 1879048215; (* Display Name Info (dni) - aka Demangler info - entries *) (* Internally some more structures and names are used. However, a *) (* developer should only use the types Elf64_vms_dni32 and *) (* Elf64_vms_dni64, both contain all necessary fields. In C notation *) (* all the necesary 32 bit fields are: *) (* dni32$l_dni_format *) (* dni32$l_fmt1_info[i].fmt1$l_dni_demangler *) (* dni32$l_fmt1_info[i].fmt1$l_dni_symbol *) (* dni32$l_fmt1_info[i].fmt1$l_dni_data *) (* dni32$l_fmt2_info[i].fmt2$l_dni_symbol *) (* dni32$l_fmt2_info[i].fmt2$l_dni_data *) (* dni32$l_fmt3.fmt3$l_dni_demangler *) (* dni32$l_fmt4.fmt4$l_dni_demangler *) (* dni32$l_fmt4_info[i].fmt4$l_dni_symbol *) (* dni32$l_fmt4_info[i].fmt4$l_dni_data *) CONST DNI$_SUCCESS = 1; DNI$_NORMAL = 1; (* demangled string is in result buffer *) DNI$_ERROR = 2; (* error in demangling *) DNI$_ALTERNATE_SUCCESS = 9; DNI$_SAME = 9; (* demangled string identical to input string *) (* Data representations (0,4,8) *) CONST DNI$_DATA_ULEB = 0; (* ULEBs (see DWARF spec) *) DNI$_DATA_WORD = 4; (* ELF64_Word, VMS Longword *) DNI$_DATA_XWORD = 8; (* ELF64_Xword, VMS Quadword *) (* DNI formats (1, ..., 4) *) CONST DNI$_FMT1 = 1; DNI$_FMT2 = 2; DNI$_FMT3 = 3; DNI$_FMT4 = 4; (* *) (* 32 bit variants *) (* *) TYPE Elf64_vms_dni32_fmt1$TYPE = RECORD fmt1$l_dni_demangler : Elf64_Word; fmt1$l_dni_symbol : Elf64_Word; fmt1$l_dni_data : Elf64_Word; END; Elf64_vms_dni32_fmt2$TYPE = RECORD fmt2$l_dni_symbol : Elf64_Word; fmt2$l_dni_data : Elf64_Word; END; Elf64_vms_dni32_fmt3$TYPE = RECORD fmt3$l_dni_demangler : Elf64_Word; END; Elf64_vms_dni32_fmt4$TYPE = RECORD fmt4$l_dni_demangler : Elf64_Word; END; Elf64_vms_dni32_fmt4_sub$TYPE = RECORD fmt4$l_dni_symbol : Elf64_Word; fmt4$l_dni_data : Elf64_Word; END; Elf64_vms_dni32$TYPE = RECORD CASE INTEGER OF 1: (dni32$l_dni_format : Elf64_Word; dni32$r_entry32 : [BYTE(12)] RECORD END; ); 2: (dni32$r_format_l1 : [POS(32), BYTE(12)] RECORD END; ); 3: (dni32$l_fmt1_info : [POS(32)] ARRAY [1..1] OF Elf64_vms_dni32_fmt1$TYPE; ); 4: (dni32$r_format_l2 : [POS(32), BYTE(8)] RECORD END; ); 5: (dni32$l_fmt2_info : [POS(32)] ARRAY [1..1] OF Elf64_vms_dni32_fmt2$TYPE; ); 6: (dni32$r_format_l3 : [POS(32), BYTE(4)] RECORD END; ); 7: (dni32$l_fmt3 : [POS(32)] Elf64_vms_dni32_fmt3$TYPE; ); 8: (dni32$r_format_l4 : [POS(32), BYTE(12)] RECORD END; ); 9: (dni32$l_fmt4 : [POS(32)] Elf64_vms_dni32_fmt4$TYPE; dni32$l_fmt4_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni32_fmt4_sub$TYPE; ) END; (* *) (* 64 bit variants *) (* *) TYPE Elf64_vms_dni64_fmt1$TYPE = RECORD fmt1$q_dni_demangler : Elf64_Xword; fmt1$q_dni_symbol : Elf64_Xword; fmt1$q_dni_data : Elf64_Xword; END; Elf64_vms_dni64_fmt2$TYPE = RECORD fmt2$q_dni_symbol : Elf64_Xword; fmt2$q_dni_data : Elf64_Xword; END; Elf64_vms_dni64_fmt3$TYPE = RECORD fmt3$q_dni_demangler : Elf64_Xword; END; Elf64_vms_dni64_fmt4$TYPE = RECORD fmt4$q_dni_demangler : Elf64_Xword; END; Elf64_vms_dni64_fmt4_sub$TYPE = RECORD fmt4$q_dni_symbol : Elf64_Xword; fmt4$q_dni_data : Elf64_Xword; END; Elf64_vms_dni64$TYPE = RECORD CASE INTEGER OF 1: (dni64$q_dni_format : Elf64_Xword; dni64$r_entry64 : [BYTE(24)] RECORD END; ); 2: (dni64$r_format_q1 : [POS(64), BYTE(24)] RECORD END; ); 3: (dni64$q_fmt1_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni64_fmt1$TYPE; ); 4: (dni64$r_format_q2 : [POS(64), BYTE(16)] RECORD END; ); 5: (dni64$q_fmt2_info : [POS(64)] ARRAY [1..1] OF Elf64_vms_dni64_fmt2$TYPE; ); 6: (dni64$r_format_q3 : [POS(64), BYTE(8)] RECORD END; ); 7: (dni64$q_fmt3 : [POS(64)] Elf64_vms_dni64_fmt3$TYPE; ); 8: (dni64$r_format_q4 : [POS(64), BYTE(24)] RECORD END; ); 9: (dni64$q_fmt4 : [POS(64)] Elf64_vms_dni64_fmt4$TYPE; dni64$q_fmt4_info : [POS(128)] ARRAY [1..1] OF Elf64_vms_dni64_fmt4_sub$TYPE; ) END; CONST PHDR$SC_PF_X = 0; phdr$m_pf_x = 1; PHDR$SC_PF_W = 1; phdr$m_pf_w = 2; PHDR$SC_PF_R = 2; phdr$m_pf_r = 4; phdr$m_pf_fill_3to19 = 1048568; PHDR$SC_PF_VMS_NOWRIT_RELOC = 20; phdr$m_pf_vms_nowrit_reloc = 1048576; PHDR$SC_PF_VMS_INITIALCODE = 21; phdr$m_pf_vms_initialcode = 2097152; PHDR$SC_PF_VMS_RESIDENT = 22; phdr$m_pf_vms_resident = 4194304; PHDR$SC_PF_VMS_VECTOR = 23; phdr$m_pf_vms_vector = 8388608; PHDR$SC_PF_VMS_PROTECT = 24; phdr$m_pf_vms_protect = 16777216; PHDR$SC_PF_VMS_NOWRIT_FIXUP = 25; phdr$m_pf_vms_nowrit_fixup = 33554432; PHDR$SC_PF_VMS_SHORT = 26; phdr$m_pf_vms_short = 67108864; PHDR$SC_PF_VMS_SHARED = 27; phdr$m_pf_vms_shared = 134217728; PHDR$SC_PF_IA_64_NORECOV = 31; phdr$m_pf_ia_64_norecov = -2147483648; phdr$m_fill_1 = 1048575; PHDR$SC_PF_MASKOS = 20; phdr$m_pf_maskos = 267386880; PHDR$SC_PF_MASKPROC = 28; phdr$m_pf_maskproc = -268435456; ELF64_PHDR$K_SIZE = 56; ELF64_PHDR$C_SIZE = 56; TYPE Elf64_Phdr$TYPE = RECORD CASE INTEGER OF 1: (phdr$l_p_type : Elf64_Word; phdr$r_flags : [BYTE(4)] RECORD END; phdr$q_p_offset : Elf64_Off; phdr$pq_p_vaddr : Elf64_Addr; phdr$pq_p_paddr : Elf64_Addr; phdr$q_p_filesz : Elf64_Xword; phdr$q_p_memsz : Elf64_Xword; phdr$q_p_align : Elf64_Xword; ); 2: (phdr$l_p_flags : [POS(32)] Elf64_Word; ); 3: (); 4: (phdr$v_pf_x : [POS(32)] $BOOL; phdr$v_pf_w : [POS(33)] $BOOL; phdr$v_pf_r : [POS(34)] $BOOL; phdr$v_pf_fill_3to19 : [POS(35)] $BIT17; phdr$v_pf_vms_nowrit_reloc : [POS(52)] $BOOL; phdr$v_pf_vms_initialcode : [POS(53)] $BOOL; phdr$v_pf_vms_resident : [POS(54)] $BOOL; phdr$v_pf_vms_vector : [POS(55)] $BOOL; phdr$v_pf_vms_protect : [POS(56)] $BOOL; phdr$v_pf_vms_nowrit_fixup : [POS(57)] $BOOL; phdr$v_pf_vms_short : [POS(58)] $BOOL; phdr$v_pf_vms_shared : [POS(59)] $BOOL; phdr$v_pf_fill_24to30 : [POS(60)] $BIT3; phdr$v_pf_ia_64_norecov : [POS(63)] $BOOL; ); 5: (); 6: (phdr$v_fill_1 : [POS(32)] $BIT20; phdr$v_pf_maskos : [POS(52)] $BIT8; phdr$v_pf_maskproc : [POS(60)] $BIT4; ) END; CONST PHDR$K_PT_NULL = 0; PHDR$K_PT_LOAD = 1; PHDR$K_PT_DYNAMIC = 2; PHDR$K_PT_INTERP = 3; PHDR$K_PT_NOTE = 4; PHDR$K_PT_SHLIB = 5; PHDR$K_PT_PHDR = 6; PHDR$K_PT_TLS = 7; PHDR$K_PT_LOOS = 1610612736; PHDR$K_PT_HIOS = 1879048191; PHDR$K_PT_LOPROC = 1879048192; PHDR$K_PT_HIPROC = 2147483647; DYNSEG$SC_DT_VMS_LF_CALL_DEBUG = 0; dynseg$m_dt_vms_lf_call_debug = 1; DYNSEG$SC_DT_VMS_LF_NOP0BUFS = 1; dynseg$m_dt_vms_lf_nop0bufs = 2; DYNSEG$SC_DT_VMS_LF_P0IMAGE = 2; dynseg$m_dt_vms_lf_p0image = 4; DYNSEG$SC_DT_VMS_LF_MKTHREADS = 3; dynseg$m_dt_vms_lf_mkthreads = 8; DYNSEG$SC_DT_VMS_LF_UPCALLS = 4; dynseg$m_dt_vms_lf_upcalls = 16; DYNSEG$SC_DT_VMS_LF_IMGSTA = 5; dynseg$m_dt_vms_lf_imgsta = 32; DYNSEG$SC_DT_VMS_LF_INITIALIZE = 6; dynseg$m_dt_vms_lf_initialize = 64; DYNSEG$SC_DT_VMS_LF_MAIN = 7; dynseg$m_dt_vms_lf_main = 128; DYNSEG$SC_DT_VMS_LF_UNUSED = 8; dynseg$m_dt_vms_lf_unused = 256; DYNSEG$SC_DT_VMS_LF_EXE_INIT = 9; dynseg$m_dt_vms_lf_exe_init = 512; DYNSEG$SC_DT_VMS_LF_TBK_IN_IMG = 10; dynseg$m_dt_vms_lf_tbk_in_img = 1024; DYNSEG$SC_DT_VMS_LF_DBG_IN_IMG = 11; dynseg$m_dt_vms_lf_dbg_in_img = 2048; DYNSEG$SC_DT_VMS_LF_TBK_IN_DSF = 12; dynseg$m_dt_vms_lf_tbk_in_dsf = 4096; DYNSEG$SC_DT_VMS_LF_DBG_IN_DSF = 13; dynseg$m_dt_vms_lf_dbg_in_dsf = 8192; DYNSEG$SC_DT_VMS_LF_SIGNATURES = 14; dynseg$m_dt_vms_lf_signatures = 16384; DYNSEG$SC_DT_VMS_LF_REL_SEG_OFF = 15; dynseg$m_dt_vms_lf_rel_seg_off = 32768; DYNSEG$SC_DT_VMS_LF_SSI_INCAP = 16; dynseg$m_dt_vms_lf_ssi_incap = 65536; DYNSEG$K_SIZE = 16; DYNSEG$C_SIZE = 16; TYPE Elf64_Dyn$TYPE = RECORD CASE INTEGER OF 1: (dynseg$q_d_tag : Elf64_Sxword; dynseg$r_d_un : [BYTE(8)] RECORD END; ); 2: (dynseg$q_d_val : [POS(64)] Elf64_Xword; ); 3: (dynseg$pq_d_ptr : [POS(64)] Elf64_Addr; ); 4: (); 5: (dynseg$v_dt_vms_lf_call_debug : [POS(64)] $BOOL; dynseg$v_dt_vms_lf_nop0bufs : [POS(65)] $BOOL; dynseg$v_dt_vms_lf_p0image : [POS(66)] $BOOL; dynseg$v_dt_vms_lf_mkthreads : [POS(67)] $BOOL; dynseg$v_dt_vms_lf_upcalls : [POS(68)] $BOOL; dynseg$v_dt_vms_lf_imgsta : [POS(69)] $BOOL; dynseg$v_dt_vms_lf_initialize : [POS(70)] $BOOL; dynseg$v_dt_vms_lf_main : [POS(71)] $BOOL; dynseg$v_dt_vms_lf_exe_init : [POS(73)] $BOOL; dynseg$v_dt_vms_lf_tbk_in_img : [POS(74)] $BOOL; dynseg$v_dt_vms_lf_dbg_in_img : [POS(75)] $BOOL; dynseg$v_dt_vms_lf_tbk_in_dsf : [POS(76)] $BOOL; dynseg$v_dt_vms_lf_dbg_in_dsf : [POS(77)] $BOOL; dynseg$v_dt_vms_lf_signatures : [POS(78)] $BOOL; dynseg$v_dt_vms_lf_rel_seg_off : [POS(79)] $BOOL; dynseg$v_dt_vms_lf_ssi_incap : [POS(80)] $BOOL; ) END; CONST DYNSEG$K_DT_NULL = 0; DYNSEG$K_DT_NEEDED = 1; DYNSEG$K_DT_STRSZ = 10; DYNSEG$K_DT_IA_64_PLT_RESERVE = 1879048192; DYNSEG$K_DT_LOOS = 1610612749; DYNSEG$K_DT_VMS_SUBTYPE = 1610612749; DYNSEG$K_DT_VMS_DTLOOSPLUS_1 = 1610612750; DYNSEG$K_DT_VMS_IMGIOCNT = 1610612751; DYNSEG$K_DT_VMS_DTLOOSPLUS_3 = 1610612752; DYNSEG$K_DT_VMS_DTLOOSPLUS_4 = 1610612753; DYNSEG$K_DT_VMS_DTLOOSPLUS_5 = 1610612754; DYNSEG$K_DT_VMS_DTLOOSPLUS_6 = 1610612755; DYNSEG$K_DT_VMS_DTLOOSPLUS_7 = 1610612756; DYNSEG$K_DT_VMS_LNKFLAGS = 1610612757; DYNSEG$K_DT_VMS_DTLOOSPLUS_9 = 1610612758; DYNSEG$K_DT_VMS_VIR_MEM_BLK_SIZ = 1610612759; DYNSEG$K_DT_VMS_DTLOOSPLUS_11 = 1610612760; DYNSEG$K_DT_VMS_IDENT = 1610612761; DYNSEG$K_DT_VMS_DTLOOSPLUS_13 = 1610612762; DYNSEG$K_DT_VMS_DTLOOSPLUS_14 = 1610612763; DYNSEG$K_DT_VMS_DTLOOSPLUS_15 = 1610612764; DYNSEG$K_DT_VMS_NEEDED_IDENT = 1610612765; DYNSEG$K_DT_VMS_DTLOOSPLUS_17 = 1610612766; DYNSEG$K_DT_VMS_IMG_RELA_CNT = 1610612767; DYNSEG$K_DT_VMS_DTLOOSPLUS_19 = 1610612768; DYNSEG$K_DT_VMS_SEG_RELA_CNT = 1610612769; DYNSEG$K_DT_VMS_DTLOOSPLUS_21 = 1610612770; DYNSEG$K_DT_VMS_FIXUP_RELA_CNT = 1610612771; DYNSEG$K_DT_VMS_DTLOOSPLUS_23 = 1610612772; DYNSEG$K_DT_VMS_FIXUP_NEEDED = 1610612773; DYNSEG$K_DT_VMS_DTLOOSPLUS_25 = 1610612774; DYNSEG$K_DT_VMS_SYMVEC_CNT = 1610612775; DYNSEG$K_DT_VMS_DTLOOSPLUS_27 = 1610612776; DYNSEG$K_DT_VMS_DTLOOSPLUS_28 = 1610612777; DYNSEG$K_DT_VMS_DTLOOSPLUS_29 = 1610612778; DYNSEG$K_DT_VMS_XLATED = 1610612779; DYNSEG$K_DT_VMS_DTLOOSPLUS_31 = 1610612780; DYNSEG$K_DT_VMS_STACKSIZE = 1610612781; DYNSEG$K_DT_VMS_DTLOOSPLUS_33 = 1610612782; DYNSEG$K_DT_VMS_UNWINDSZ = 1610612783; DYNSEG$K_DT_VMS_DTLOOSPLUS_35 = 1610612784; DYNSEG$K_DT_VMS_UNWIND_CODSEG = 1610612785; DYNSEG$K_DT_VMS_DTLOOSPLUS_37 = 1610612786; DYNSEG$K_DT_VMS_UNWIND_INFOSEG = 1610612787; DYNSEG$K_DT_VMS_DTLOOSPLUS_39 = 1610612788; DYNSEG$K_DT_VMS_LINKTIME = 1610612789; DYNSEG$K_DT_VMS_DTLOOSPLUS_41 = 1610612790; DYNSEG$K_DT_VMS_SEG_NO = 1610612791; DYNSEG$K_DT_VMS_DTLOOSPLUS_43 = 1610612792; DYNSEG$K_DT_VMS_SYMVEC_OFFSET = 1610612793; DYNSEG$K_DT_VMS_DTLOOSPLUS_45 = 1610612794; DYNSEG$K_DT_VMS_SYMVEC_SEG = 1610612795; DYNSEG$K_DT_VMS_DTLOOSPLUS_47 = 1610612796; DYNSEG$K_DT_VMS_UNWIND_OFFSET = 1610612797; DYNSEG$K_DT_VMS_DTLOOSPLUS_49 = 1610612798; DYNSEG$K_DT_VMS_UNWIND_SEG = 1610612799; DYNSEG$K_DT_VMS_DTLOOSPLUS_51 = 1610612800; DYNSEG$K_DT_VMS_STRTAB_OFFSET = 1610612801; DYNSEG$K_DT_VMS_DTLOOSPLUS_53 = 1610612802; DYNSEG$K_DT_VMS_SYSVER_OFFSET = 1610612803; DYNSEG$K_DT_VMS_DTLOOSPLUS_55 = 1610612804; DYNSEG$K_DT_VMS_IMG_RELA_OFF = 1610612805; DYNSEG$K_DT_VMS_DTLOOSPLUS_57 = 1610612806; DYNSEG$K_DT_VMS_SEG_RELA_OFF = 1610612807; DYNSEG$K_DT_VMS_DTLOOSPLUS_59 = 1610612808; DYNSEG$K_DT_VMS_FIXUP_RELA_OFF = 1610612809; DYNSEG$K_DT_VMS_DTLOOSPLUS_61 = 1610612810; DYNSEG$K_DT_VMS_PLTGOT_OFFSET = 1610612811; DYNSEG$K_DT_VMS_DTLOOSPLUS_63 = 1610612812; DYNSEG$K_DT_VMS_PLTGOT_SEG = 1610612813; DYNSEG$K_DT_VMS_DTLOOSPLUS_65 = 1610612814; DYNSEG$K_DT_VMS_FPMODE = 1610612815; DYNSEG$K_DT_VMS_SUBTYPE_CLI = 1; TYPE vms_ident$TYPE = RECORD IDENTl_minor_id : UNSIGNED; IDENTw_major_id : $UWORD; IDENTb_match : $UBYTE; IDENTb_unused : $UBYTE; END; CONST TBK$K_RECTYPE_HDR32 = 1; TBK$K_RECTYPE_RTN32 = 2; TBK$K_RECTYPE_FIL = 3; TBK$K_RECTYPE_LN1 = 4; TBK$K_RECTYPE_LN2 = 5; TBK$K_RECTYPE_LN4 = 6; TBK$K_RECTYPE_PC1 = 7; TBK$K_RECTYPE_PC2 = 8; TBK$K_RECTYPE_PC4 = 9; TBK$K_RECTYPE_VERSION = 10; TBK$K_RECTYPE_HDR64 = 11; TBK$K_RECTYPE_RTN64 = 12; TBK$K_RECTYPE_PC8 = 13; TYPE system_version_array$TYPE = RECORD sysver$v_subsystem_mask : [POS(0)] $BIT32; (* Bit mask of valid array entries *) sysver$r_system_ver : sysver_majmin$TYPE; (* Version of sys$base_image *) sysver$r_subsys_ver : ARRAY [1..31] OF subsys_majmin$TYPE; (* Version of various subsystems *) END; CONST SYSVER$K_LENGTH = 33; SYSVER$C_LENGTH = 33; IMF$K_SIZE = 32; IMF$C_SIZE = 32; TYPE image_fixup$TYPE = RECORD imf$q_fixup_offset : Elf64_Xword; imf$l_type : Elf64_Word; imf$l_fixup_seg : Elf64_Word; imf$q_addend : Elf64_Sxword; imf$l_symvec_index : Elf64_Word; imf$l_data_type : Elf64_Word; END; CONST IMR$K_SIZE = 40; IMR$C_SIZE = 40; TYPE image_rela$TYPE = RECORD imr$q_rela_offset : Elf64_Xword; imr$l_type : Elf64_Word; imr$l_rela_seg : Elf64_Word; imr$q_addend : Elf64_Sxword; imr$q_sym_offset : Elf64_Xword; imr$l_sym_seg : Elf64_Word; imr$l_fill_1 : Elf64_Word; END; CONST SGR$K_SIZE = 32; SGR$C_SIZE = 32; TYPE segment_rela$TYPE = RECORD CASE INTEGER OF 1: (sgr$q_rela_offset : Elf64_Xword; sgr$l_type : Elf64_Word; sgr$l_rela_seg : Elf64_Word; sgr$q_addend : Elf64_Sxword; sgr$r_symbol_overlay : [BYTE(8)] RECORD END; ); 2: (sgr$q_gp_offset : [POS(192)] Elf64_Sxword; ); 3: (); 4: (sgr$l_symvec_index : [POS(192)] Elf64_Word; sgr$l_needed_index : [POS(224)] Elf64_Word; ) END; CONST VMS_FIXUP$K_SIZE = 24; VMS_FIXUP$C_SIZE = 24; TYPE vms_fixup$TYPE = RECORD vms_fixup$pq_offset : Elf64_Addr; vms_fixup$q_addend : Elf64_Sxword; vms_fixup$l_symindx : Elf64_Word; vms_fixup$l_type : Elf64_Word; END; CONST LNKG$K_SIZE = 8; LNKG$C_SIZE = 8; TYPE vms_linkages_header$TYPE = RECORD lnkg$l_type : Elf64_Word; lnkg$l_decl_count : Elf64_Word; END; CONST LNKG_ENTRY1$K_SIZE = 12; LNKG_ENTRY1$C_SIZE = 12; TYPE vms_lnkg_entry1$TYPE = RECORD CASE INTEGER OF 1: (lnkg_entry1$l_symidx : Elf64_Word; lnkg_entry1$r_lnkg_desc : [BYTE(8)] RECORD END; ); 2: (lnkg_entry1$ps_desc : [POS(32)] vms_lnkg_desc1$TYPE; ); 3: (lnkg_entry1$q_vms_linkage_qw : [POS(32)] Elf64_Xword; ) END; CONST VMSLNKG$K_VMS_LINKAGE_TYPE1 = 1; VMSLNKG$K_REG_POL_VOL = 0; VMSLNKG$K_REG_POL_SCR = 1; VMSLNKG$K_REG_POL_OUT = 2; VMSLNKG$K_REG_POL_PRE = 3; TYPE func_descr$TYPE = RECORD fd$pq_entryVA : Elf64_Addr; fd$pq_GPtr : Elf64_Addr; END; CONST UNWIND$K_DESC_VERSION = 1; unwind$m_unw_length = -1; UNWIND$SC_UNW_FLAG_EHANDLER = 32; unwind$m_unw_flag_ehandler = 0; UNWIND$SC_UNW_FLAG_UHANDLER = 33; unwind$m_unw_flag_uhandler = 0; unwind$m_unw_flag_rsvd_43_34 = 0; UNWIND$SC_UNW_FLAG_VMS_OSDA = 44; unwind$m_unw_flag_vms_osda = 0; UNWIND$SC_UNW_FLAG_VMS_HANDLER = 45; unwind$m_unw_flag_vms_handler = 0; UNWIND$SC_UNW_FLAG_MASK = 32; unwind$m_unw_flag_mask = 0; unwind$m_osmask_unused = 0; UNWIND$SC_UNW_FLAG_OSMASK = 44; unwind$m_unw_flag_osmask = 0; unwind$m_ivmsmode_unused = 0; UNWIND$SC_UNW_IVMS_MODE = 44; unwind$m_unw_ivms_mode = 0; unwind$m_version_unused = 0; UNWIND$SC_UNW_VERSION = 48; unwind$m_unw_version = 0; UNWIND$K_DESC_SIZE = 8; UNWIND$C_DESC_SIZE = 8; TYPE exceptn_unwind$TYPE = RECORD CASE INTEGER OF 1: (unwind$r_unwind_desc : [BYTE(8)] RECORD END; ); 2: (); 3: (unwind$w_unw_flags : [POS(32)] Elf64_Half; unwind$w_unw_version : [POS(48)] Elf64_Half; ); 4: (unwind$l_unw_length : [POS(0)] Elf64_Word; ); 5: (); 6: (unwind$v_unw_length : [POS(0)] $BIT32; ); 7: (); 8: (); 9: (unwind$v_unused_31_0 : [POS(0)] $BIT32; unwind$v_unw_flag_ehandler : [POS(32)] $BOOL; unwind$v_unw_flag_uhandler : [POS(33)] $BOOL; unwind$v_unw_flag_vms_osda : [POS(44)] $BOOL; unwind$v_unw_flag_vms_handler : [POS(45)] $BOOL; ); 10: (); 11: (unwind$v_unw_flag_mask : [POS(32)] $BIT16; ); 12: (); 13: (unwind$v_unw_flag_osmask : [POS(44)] $BIT4; ); 14: (); 15: (unwind$v_unw_ivms_mode : [POS(44)] $BIT2; ); 16: (); 17: (unwind$v_unw_version : [POS(48)] $BIT16; ) END; CONST UNWIND$K_FLAGS_UNUSED0 = 0; UNWIND$K_FLAGS_UNUSED1 = 1; UNWIND$K_FLAGS_SEMANTICS = 2; UNWIND$K_FLAGS_SEMANTICS_DATA = 3; UNWIND$K_ABI_UNIX = 0; UNWIND$K_ABI_HPUX = 1; UNWIND$K_ABI_WNT = 2; UNWIND$K_ABI_VMS = 3; UNWIND$K_HDR_PATTERN = 0; UNWIND$M_HDR_MASK = 128; UNWIND$K_R1_PATTERN = 0; UNWIND$M_R1_MASK = 192; UNWIND$K_R2_PATTERN = 64; UNWIND$M_R2_MASK = 248; UNWIND$K_R3_PATTERN = 96; UNWIND$M_R3_MASK = 252; UNWIND$K_P1_PATTERN = 128; UNWIND$M_P1_MASK = 224; UNWIND$K_P2_PATTERN = 160; UNWIND$M_P2_MASK = 240; UNWIND$K_P3_PATTERN = 176; UNWIND$M_P3_MASK = 248; UNWIND$K_P4_PATTERN = 184; UNWIND$M_P4_MASK = 255; UNWIND$K_P5_PATTERN = 185; UNWIND$M_P5_MASK = 255; UNWIND$K_P6_PATTERN = 192; UNWIND$M_P6_MASK = 224; UNWIND$K_P7_PATTERN = 224; UNWIND$M_P7_MASK = 240; UNWIND$K_P8_PATTERN = 240; UNWIND$M_P8_MASK = 255; UNWIND$K_P9_PATTERN = 241; UNWIND$M_P9_MASK = 255; UNWIND$K_P10_PATTERN = 255; UNWIND$M_P10_MASK = 255; UNWIND$K_B1_PATTERN = 128; UNWIND$M_B1_MASK = 192; UNWIND$K_B2_PATTERN = 192; UNWIND$M_B2_MASK = 224; UNWIND$K_B3_PATTERN = 224; UNWIND$M_B3_MASK = 255; UNWIND$K_B4_PATTERN = 240; UNWIND$M_B4_MASK = 247; UNWIND$K_X1_PATTERN = 249; UNWIND$M_X1_MASK = 255; UNWIND$K_X2_PATTERN = 250; UNWIND$M_X2_MASK = 255; UNWIND$K_X3_PATTERN = 251; UNWIND$M_X3_MASK = 255; UNWIND$K_X4_PATTERN = 252; UNWIND$M_X4_MASK = 255; UNWIND$K_P10_ABI_UNIX = 0; UNWIND$K_P10_ABI_HPUX = 1; UNWIND$K_P10_ABI_WNT = 2; UNWIND$K_P10_ABI_VMS = 3; (*** MODULE $ERADEF ***) (* *) (* *) (* Define erase type codes. The codes LODUMMY and HIDUMMY are *) (* used as placeholders, to make the definition of the upper and *) (* lower bound erase type symbols automatic. New erase type codes *) (* should be added at the end of the list, but before HIDUMMY. *) (* *) (* *) CONST ERA$K_LODUMMY = 0; (* *) ERA$K_MEMORY = 1; (* Erase main memory *) ERA$K_DISK = 2; (* Erase disk mass storage *) ERA$K_TAPE = 3; (* Erase magnetic tape mass storage *) ERA$K_HIDUMMY = 4; (* *) ERA$K_MINTYPE = 1; (* Lower bound of erase type codes *) ERA$K_MAXTYPE = 3; (* Upper bound of erase type codes *) (*** MODULE ESFDEF ***) (* *) (* Enumerate Item Codes for the various types of Environmental Sensor FRUs. *) (* *) CONST ESF$K_TEMP = 4096; ESF$K_POWER = 4097; ESF$K_FAN = 4098; (* *) (* The sys$get_env_sensors system service will populate the user's buffer *) (* with an array of the following structure. The dimension of the array is *) (* determined by the number of sensors corresponding to the item code by a *) (* run-time call to sys$get_env_sensors() with a buffer address of zero or *) (* buffer size of zero. sys$get_env_sensors() will pass the dimensions back *) (* to the caller so he can allocate buffers to contain the arrays for *) (* subsequent calls to sys$get_env_sensors() with valid buffer pointers and *) (* sizes. *) (* See [SYS]SYS_GET_ENV_SENSORS.C *) (* *) CONST esf$m_valid_status = 1; esf$m_valid_value = 2; esf$m_feat_reserved = 252; TYPE esfitem$TYPE = RECORD CASE INTEGER OF 1: (esf$b_type : $UBYTE; (* CFG_NODE config type field *) esf$b_subtype : $UBYTE; (* CFG_NODE config subtype field *) esf$B_VALUE : $UBYTE; (* Value byte *) esf$b_status : $UBYTE; (* Status byte *) esf$r_features_overlay : [BYTE(1)] RECORD END; (* *) (* Pad out to next quad word *) (* *) esf$b_reserved_1 : ARRAY [1..3] OF $UBYTE; (* *) (* fru_node_id contains FRU Descriptor Node ID information to help *) (* identify the location of the associated sensor. See "Alpha Systems *) (* Configuration Tree Implementation Specification" Table 1-79 on Page 50. *) (* The byte fields in this 8-byte structure are declared in CFGDEF.H as *) (* struct cfg$_cfg_node_id_fru_desc in the CFG_NODE structure. *) (* *) esf$q_fru_node_id : $UQUAD; (* *) (* fru_flags contains the Node Flags for the FRU. See "Alpha Configuration *) (* Tree Specification" Release T6.0-0023 page 7-45. *) (* See also cfg$iq_node_flags in CFGDEF.H. *) (* *) esf$q_fru_flags : $UQUAD; (* *) (* console_id is a quadword that contains the offset and bitfield elements *) (* to be used to access the low-level hardware status or value information *) (* *) esf$r_cid_overlay : [BYTE(8)] RECORD END; ); 2: (esf$b_features : [POS(32)] $UBYTE; (* Features of the Sensor FRU *) esf$q_console_id : [POS(192)] $UQUAD; (* Whole Console ID *) ); 3: (); 4: (esf$v_valid_status : [POS(32)] $BOOL; esf$v_valid_value : [POS(33)] $BOOL; esf$v_feat_reserved : [POS(34)] $BIT6; esf$l_offset : [POS(192)] UNSIGNED; (* Offset part of Console ID *) esf$L_BITFIELD : [POS(224)] UNSIGNED; (* Bitfield part of Console ID *) ) END; (* Copyright (c) 1989, 1990, 1991, 1992, 1993 *) (* by DIGITAL Equipment Corporation, Maynard, Mass. *) (* This file contains definitions for the opcode and subfunctions for the *) (* EVAX architecture. *) (* Each individual opcode and subfunction is defined *) (* Additionally for each instruction there is a 32 bit constant defined *) (* that represents the opcode/subfunc for that instruction. It is *) (* recomended that you use this 32 bit value if you can. It is more *) (* likely to remain valid accross version of this file and SRM changes. *) (* If you find errors in this file, send MAIL to AD::EVAX$OPCODES *) (* This version of EVAX_OPCODE.SDL matches the EVAX SYSTEM REFERENCE MANUAL *) (* Version 4.0 dated 2 April 1990. This is Rev V4.7 of this file. *) (* Last edited on 28 Jan 1993 *) (* *) (* Most (all?) of the obsolete instructions have been removed, and new EV6 *) (* instructions have been added. *) (* AMB, 7/7/98 *) (* Changes since last release: *) (* Changed... *) (* *) (* X-5A4 KLN2130 Karen L. Noel 25-Jan-2000 *) (* Add MTPR and MFPR opcode for VIRBND and SYSPTBR. Alpha *) (* ECO #121. *) (* *) (* X-5A3 AB Aaron Biver 24-Jul-1998 *) (* Replaced LDD, STG, and reserved opcodes 7 and up. *) (* They are being referenced elsewhere. *) (* *) (* X-5A2 AMB Aaron Biver 07-Jul-1998 *) (* Added SQRTx, FTOIx, ITOFx, CTxx, ECB, STG, LDG, *) (* MAXxxx, MINxxx, PKxx, UNPKxx, PERR, MF_FPCR, and WH64. *) (* Removed D-floating instructions, STD, LDG, several *) (* expired Reserved-PAL instructions, and a few other *) (* pre-EV4 instructions. *) (* *) (* *) (* X-5A1 SDD Steve DiPirro 27-Jul-1995 *) (* Got tired of waiting and added LDBU, LDWU, STB, STW, *) (* SEXTB, SEXTW, AMASK, and IMPLVER *) (* *) (* WMB (and 2 unused MB's) AND EXCB were added *) (* DRAINT changed to TRAPB *) (* *) (* *) (* This information is company confidential *) (*** MODULE evx_Opcodes ***) (* Obsolete opcodes still referenced within the TIE facility *) CONST EVX$OPC_LDD = 33; EVX$OPC_STD = 37; EVX$OPC_OPC0A = 10; EVX$OPC_OPC0C = 12; EVX$OPC_OPC0D = 13; EVX$OPC_OPC0E = 14; EVX$OPC_OPC14 = 20; EVX$OPC_OPC1C = 28; (* Opcodes for the Memory format instructions *) CONST EVX$OPC_LDBU = 10; EVX$OPC_LDWU = 12; EVX$OPC_LDL = 40; EVX$OPC_LDQ = 41; EVX$OPC_LDLL = 42; EVX$OPC_LDQL = 43; EVX$OPC_LDQU = 11; EVX$OPC_LDA = 8; EVX$OPC_STB = 14; EVX$OPC_STW = 13; EVX$OPC_STL = 44; EVX$OPC_STQ = 45; EVX$OPC_STLC = 46; EVX$OPC_STQC = 47; EVX$OPC_STQU = 15; EVX$OPC_LDAH = 9; EVX$OPC_LDF = 32; EVX$OPC_LDG = 33; EVX$OPC_LDS = 34; EVX$OPC_LDT = 35; EVX$OPC_STF = 36; EVX$OPC_STG = 37; EVX$OPC_STS = 38; EVX$OPC_STT = 39; EVX$OPC_SYNC = 24; EVX$SYNC_MB = 16384; EVX$SYNC_WMB = 17408; EVX$SYNC_FETCH = 32768; EVX$SYNC_RS = 61440; EVX$SYNC_TRAPB = 0; EVX$SYNC_EXCB = 1024; EVX$SYNC_FETCH_M = 40960; EVX$SYNC_RCC = 49152; EVX$SYNC_RC = 57344; EVX$SYNC_ECB = 59392; EVX$SYNC_WH64 = 63488; EVX$OPC_JSR = 26; (* Opcodes for the Branch format instructions *) CONST EVX$OPC_BR = 48; EVX$OPC_BSR = 52; EVX$OPC_BLBC = 56; EVX$OPC_BLBS = 60; EVX$OPC_FBEQ = 49; EVX$OPC_FBNE = 53; EVX$OPC_BEQ = 57; EVX$OPC_BNE = 61; EVX$OPC_FBLT = 50; EVX$OPC_FBGE = 54; EVX$OPC_BLT = 58; EVX$OPC_BGE = 62; EVX$OPC_FBLE = 51; EVX$OPC_FBGT = 55; EVX$OPC_BLE = 59; EVX$OPC_BGT = 63; (* Opcodes for the Operate format instructions *) CONST EVX$OPC_ADDI = 16; EVX$OPC_EXTI = 28; EVX$OPC_LOGI = 17; EVX$OPC_SHFI = 18; EVX$OPC_MULI = 19; EVX$ADDI_ADDL = 0; EVX$ADDI_ADDLV = 64; EVX$ADDI_ADDQ = 32; EVX$ADDI_ADDQV = 96; EVX$ADDI_S4ADDL = 2; EVX$ADDI_S4ADDQ = 34; EVX$ADDI_S8ADDL = 18; EVX$ADDI_S8ADDQ = 50; EVX$ADDI_S4SUBL = 11; EVX$ADDI_S4SUBQ = 43; EVX$ADDI_S8SUBL = 27; EVX$ADDI_S8SUBQ = 59; EVX$ADDI_SUBL = 9; EVX$ADDI_SUBLV = 73; EVX$ADDI_SUBQ = 41; EVX$ADDI_SUBQV = 105; EVX$ADDI_CMPEQ = 45; EVX$ADDI_CMPLT = 77; EVX$ADDI_CMPLE = 109; EVX$ADDI_CMPULT = 29; EVX$ADDI_CMPULE = 61; EVX$ADDI_CMPBGE = 15; EVX$EXTI_SEXTB = 0; EVX$EXTI_SEXTW = 1; EVX$EXTI_CTLZ = 50; EVX$EXTI_CTPOP = 48; EVX$EXTI_CTTZ = 51; EVX$EXTI_MAXSB8 = 62; EVX$EXTI_MAXSW4 = 63; EVX$EXTI_MAXUB8 = 60; EVX$EXTI_MAXUW4 = 61; EVX$EXTI_MINSB8 = 56; EVX$EXTI_MINSW4 = 57; EVX$EXTI_MINUB8 = 58; EVX$EXTI_MINUW4 = 59; EVX$EXTI_PERR = 49; EVX$EXTI_PKLB = 55; EVX$EXTI_PKWB = 54; EVX$EXTI_UNPKBL = 53; EVX$EXTI_UNPKBW = 52; (* FUNCTION FIELDS for instructions with opcode = 1C (EXTI), but operands are *) (* floating-point registers *) CONST EVX$EXTI_FTOIS = 120; EVX$EXTI_FTOIT = 112; (* FUNCTION FIELDS for logical instructions *) CONST EVX$LOGI_AND = 0; EVX$LOGI_BIC = 8; EVX$LOGI_CMOVEQ = 36; EVX$LOGI_CMOVNE = 38; EVX$LOGI_CMOVLBS = 20; EVX$LOGI_BIS = 32; EVX$LOGI_ORNOT = 40; EVX$LOGI_CMOVLT = 68; EVX$LOGI_CMOVGE = 70; EVX$LOGI_CMOVLBC = 22; EVX$LOGI_XOR = 64; EVX$LOGI_EQV = 72; EVX$LOGI_CMOVLE = 100; EVX$LOGI_CMOVGT = 102; EVX$LOGI_AMASK = 97; EVX$LOGI_IMPLVER = 108; EVX$SHFI_SLL = 57; EVX$SHFI_SRA = 60; EVX$SHFI_SRL = 52; EVX$SHFI_EXTBL = 6; EVX$SHFI_EXTWL = 22; EVX$SHFI_EXTLL = 38; EVX$SHFI_EXTQL = 54; EVX$SHFI_EXTWH = 90; EVX$SHFI_EXTLH = 106; EVX$SHFI_EXTQH = 122; EVX$SHFI_INSBL = 11; EVX$SHFI_INSWL = 27; EVX$SHFI_INSLL = 43; EVX$SHFI_INSQL = 59; EVX$SHFI_INSWH = 87; EVX$SHFI_INSLH = 103; EVX$SHFI_INSQH = 119; EVX$SHFI_MSKBL = 2; EVX$SHFI_MSKWL = 18; EVX$SHFI_MSKLL = 34; EVX$SHFI_MSKQL = 50; EVX$SHFI_MSKWH = 82; EVX$SHFI_MSKLH = 98; EVX$SHFI_MSKQH = 114; EVX$SHFI_ZAP = 48; EVX$SHFI_ZAPNOT = 49; EVX$MULI_MULL = 0; EVX$MULI_MULQV = 96; EVX$MULI_MULLV = 64; EVX$MULI_UMULH = 48; EVX$MULI_MULQ = 32; (* Opcodes for the Floating point Operate format instructions *) CONST EVX$OPC_FPCOMBO = 20; EVX$OPC_FPDEC = 21; EVX$OPC_FPIEEE = 22; EVX$OPC_FPAUX = 23; (* FUNCTION FIELDS for the new floating point instructions (combo of FPDEC & *) (* FPIEEE) *) CONST EVX$FPCOMBO_SQRTS = 139; EVX$FPCOMBO_SQRTSC = 11; EVX$FPCOMBO_SQRTSM = 75; EVX$FPCOMBO_SQRTSD = 203; EVX$FPCOMBO_SQRTSUC = 267; EVX$FPCOMBO_SQRTSUM = 331; EVX$FPCOMBO_SQRTSU = 395; EVX$FPCOMBO_SQRTSUD = 459; EVX$FPCOMBO_SQRTSSUC = 1291; EVX$FPCOMBO_SQRTSSUM = 1355; EVX$FPCOMBO_SQRTSSU = 1419; EVX$FPCOMBO_SQRTSSUD = 1483; EVX$FPCOMBO_SQRTSSUIC = 1803; EVX$FPCOMBO_SQRTSSUIM = 1867; EVX$FPCOMBO_SQRTSSUI = 1931; EVX$FPCOMBO_SQRTSSUID = 1995; EVX$FPCOMBO_SQRTT = 171; EVX$FPCOMBO_SQRTTC = 43; EVX$FPCOMBO_SQRTTM = 107; EVX$FPCOMBO_SQRTTD = 235; EVX$FPCOMBO_SQRTTUC = 299; EVX$FPCOMBO_SQRTTUM = 363; EVX$FPCOMBO_SQRTTU = 427; EVX$FPCOMBO_SQRTTUD = 491; EVX$FPCOMBO_SQRTTSUC = 1323; EVX$FPCOMBO_SQRTTSUM = 1387; EVX$FPCOMBO_SQRTTSU = 1451; EVX$FPCOMBO_SQRTTSUD = 1515; EVX$FPCOMBO_SQRTTSUIC = 1835; EVX$FPCOMBO_SQRTTSUIM = 1899; EVX$FPCOMBO_SQRTTSUI = 1963; EVX$FPCOMBO_SQRTTSUID = 2027; EVX$FPCOMBO_ITOFF = 20; EVX$FPCOMBO_ITOFT = 36; EVX$FPCOMBO_ITOFS = 4; (* FUNCTION FIELDS for the Floating point instructions *) CONST EVX$FPAUX_CPYS = 32; EVX$FPAUX_CVTLQ = 16; EVX$FPAUX_FCMOVEQ = 42; EVX$FPAUX_FCMOVNE = 43; EVX$FPAUX_MT_FPCR = 36; EVX$FPAUX_MF_FPCR = 37; EVX$FPAUX_CPYSN = 33; EVX$FPAUX_CVTQL = 48; EVX$FPAUX_FCMOVLT = 44; EVX$FPAUX_FCMOVGE = 45; EVX$FPAUX_CPYSE = 34; EVX$FPAUX_CVTQLV = 304; EVX$FPAUX_CVTQLSV = 1328; EVX$FPAUX_FCMOVLE = 46; EVX$FPAUX_FCMOVGT = 47; EVX$FPIEEE_CMPTEQ = 165; EVX$FPIEEE_CMPTLT = 166; EVX$FPIEEE_CMPTLE = 167; EVX$FPIEEE_CMPTUN = 164; EVX$FPIEEE_CMPTEQSU = 1445; EVX$FPIEEE_CMPTLTSU = 1446; EVX$FPIEEE_CMPTLESU = 1447; EVX$FPIEEE_CMPTUNSU = 1444; EVX$FPIEEE_CVTQS = 188; EVX$FPIEEE_CVTQSC = 60; EVX$FPIEEE_CVTQSM = 124; EVX$FPIEEE_CVTQSP = 252; EVX$FPIEEE_CVTQSSUI = 1980; EVX$FPIEEE_CVTQSSUIC = 1852; EVX$FPIEEE_CVTQSSUIM = 1916; EVX$FPIEEE_CVTQSSUIP = 2044; EVX$FPIEEE_CVTQT = 190; EVX$FPIEEE_CVTQTC = 62; EVX$FPIEEE_CVTQTM = 126; EVX$FPIEEE_CVTQTP = 254; EVX$FPIEEE_CVTQTSUI = 1982; EVX$FPIEEE_CVTQTSUIC = 1854; EVX$FPIEEE_CVTQTSUIM = 1918; EVX$FPIEEE_CVTQTSUIP = 2046; EVX$FPIEEE_CVTST = 684; EVX$FPIEEE_CVTSTS = 1708; EVX$FPIEEE_CVTTS = 172; EVX$FPIEEE_CVTTSC = 44; EVX$FPIEEE_CVTTSM = 108; EVX$FPIEEE_CVTTSP = 236; EVX$FPIEEE_CVTTSU = 428; EVX$FPIEEE_CVTTSUC = 300; EVX$FPIEEE_CVTTSUM = 364; EVX$FPIEEE_CVTTSUP = 492; EVX$FPIEEE_CVTTSSU = 1452; EVX$FPIEEE_CVTTSSUC = 1324; EVX$FPIEEE_CVTTSSUM = 1388; EVX$FPIEEE_CVTTSSUP = 1516; EVX$FPIEEE_CVTTSSUI = 1964; EVX$FPIEEE_CVTTSSUIC = 1836; EVX$FPIEEE_CVTTSSUIM = 1900; EVX$FPIEEE_CVTTSSUIP = 2028; EVX$FPIEEE_DIVS = 131; EVX$FPIEEE_DIVSC = 3; EVX$FPIEEE_DIVSM = 67; EVX$FPIEEE_DIVSP = 195; EVX$FPIEEE_DIVSU = 387; EVX$FPIEEE_DIVSUC = 259; EVX$FPIEEE_DIVSUM = 323; EVX$FPIEEE_DIVSUP = 451; EVX$FPIEEE_DIVSSU = 1411; EVX$FPIEEE_DIVSSUC = 1283; EVX$FPIEEE_DIVSSUM = 1347; EVX$FPIEEE_DIVSSUP = 1475; EVX$FPIEEE_DIVSSUI = 1923; EVX$FPIEEE_DIVSSUIC = 1795; EVX$FPIEEE_DIVSSUIM = 1859; EVX$FPIEEE_DIVSSUIP = 1987; EVX$FPIEEE_DIVT = 163; EVX$FPIEEE_DIVTC = 35; EVX$FPIEEE_DIVTM = 99; EVX$FPIEEE_DIVTP = 227; EVX$FPIEEE_DIVTU = 419; EVX$FPIEEE_DIVTUC = 291; EVX$FPIEEE_DIVTUM = 355; EVX$FPIEEE_DIVTUP = 483; EVX$FPIEEE_DIVTSU = 1443; EVX$FPIEEE_DIVTSUC = 1315; EVX$FPIEEE_DIVTSUM = 1379; EVX$FPIEEE_DIVTSUP = 1507; EVX$FPIEEE_DIVTSUI = 1955; EVX$FPIEEE_DIVTSUIC = 1827; EVX$FPIEEE_DIVTSUIM = 1891; EVX$FPIEEE_DIVTSUIP = 2019; EVX$FPIEEE_MULS = 130; EVX$FPIEEE_MULSC = 2; EVX$FPIEEE_MULSM = 66; EVX$FPIEEE_MULSP = 194; EVX$FPIEEE_MULSU = 386; EVX$FPIEEE_MULSUC = 258; EVX$FPIEEE_MULSUM = 322; EVX$FPIEEE_MULSUP = 450; EVX$FPIEEE_MULSSU = 1410; EVX$FPIEEE_MULSSUC = 1282; EVX$FPIEEE_MULSSUM = 1346; EVX$FPIEEE_MULSSUP = 1474; EVX$FPIEEE_MULSSUI = 1922; EVX$FPIEEE_MULSSUIC = 1794; EVX$FPIEEE_MULSSUIM = 1858; EVX$FPIEEE_MULSSUIP = 1986; EVX$FPIEEE_MULT = 162; EVX$FPIEEE_MULTC = 34; EVX$FPIEEE_MULTM = 98; EVX$FPIEEE_MULTP = 226; EVX$FPIEEE_MULTU = 418; EVX$FPIEEE_MULTUC = 290; EVX$FPIEEE_MULTUM = 354; EVX$FPIEEE_MULTUP = 482; EVX$FPIEEE_MULTSU = 1442; EVX$FPIEEE_MULTSUC = 1314; EVX$FPIEEE_MULTSUM = 1378; EVX$FPIEEE_MULTSUP = 1506; EVX$FPIEEE_MULTSUI = 1954; EVX$FPIEEE_MULTSUIC = 1826; EVX$FPIEEE_MULTSUIM = 1890; EVX$FPIEEE_MULTSUIP = 2018; EVX$FPIEEE_SUBS = 129; EVX$FPIEEE_SUBSC = 1; EVX$FPIEEE_SUBSM = 65; EVX$FPIEEE_SUBSP = 193; EVX$FPIEEE_SUBSU = 385; EVX$FPIEEE_SUBSUC = 257; EVX$FPIEEE_SUBSUM = 321; EVX$FPIEEE_SUBSUP = 449; EVX$FPIEEE_SUBSSU = 1409; EVX$FPIEEE_SUBSSUC = 1281; EVX$FPIEEE_SUBSSUM = 1345; EVX$FPIEEE_SUBSSUP = 1473; EVX$FPIEEE_SUBSSUI = 1921; EVX$FPIEEE_SUBSSUIC = 1793; EVX$FPIEEE_SUBSSUIM = 1857; EVX$FPIEEE_SUBSSUIP = 1985; EVX$FPIEEE_SUBT = 161; EVX$FPIEEE_SUBTC = 33; EVX$FPIEEE_SUBTM = 97; EVX$FPIEEE_SUBTP = 225; EVX$FPIEEE_SUBTU = 417; EVX$FPIEEE_SUBTUC = 289; EVX$FPIEEE_SUBTUM = 353; EVX$FPIEEE_SUBTUP = 481; EVX$FPIEEE_SUBTSU = 1441; EVX$FPIEEE_SUBTSUC = 1313; EVX$FPIEEE_SUBTSUM = 1377; EVX$FPIEEE_SUBTSUP = 1505; EVX$FPIEEE_SUBTSUI = 1953; EVX$FPIEEE_SUBTSUIC = 1825; EVX$FPIEEE_SUBTSUIM = 1889; EVX$FPIEEE_SUBTSUIP = 2017; EVX$FPIEEE_ADDS = 128; EVX$FPIEEE_ADDSC = 0; EVX$FPIEEE_ADDSM = 64; EVX$FPIEEE_ADDSP = 192; EVX$FPIEEE_ADDSU = 384; EVX$FPIEEE_ADDSUC = 256; EVX$FPIEEE_ADDSUM = 320; EVX$FPIEEE_ADDSUP = 448; EVX$FPIEEE_ADDSSU = 1408; EVX$FPIEEE_ADDSSUC = 1280; EVX$FPIEEE_ADDSSUM = 1344; EVX$FPIEEE_ADDSSUP = 1472; EVX$FPIEEE_ADDSSUI = 1920; EVX$FPIEEE_ADDSSUIC = 1792; EVX$FPIEEE_ADDSSUIM = 1856; EVX$FPIEEE_ADDSSUIP = 1984; EVX$FPIEEE_ADDT = 160; EVX$FPIEEE_ADDTC = 32; EVX$FPIEEE_ADDTM = 96; EVX$FPIEEE_ADDTP = 224; EVX$FPIEEE_ADDTU = 416; EVX$FPIEEE_ADDTUC = 288; EVX$FPIEEE_ADDTUM = 352; EVX$FPIEEE_ADDTUP = 480; EVX$FPIEEE_ADDTSU = 1440; EVX$FPIEEE_ADDTSUC = 1312; EVX$FPIEEE_ADDTSUM = 1376; EVX$FPIEEE_ADDTSUP = 1504; EVX$FPIEEE_ADDTSUI = 1952; EVX$FPIEEE_ADDTSUIC = 1824; EVX$FPIEEE_ADDTSUIM = 1888; EVX$FPIEEE_ADDTSUIP = 2016; EVX$FPIEEE_CVTTQ = 175; EVX$FPIEEE_CVTTQC = 47; EVX$FPIEEE_CVTTQV = 431; EVX$FPIEEE_CVTTQVC = 303; EVX$FPIEEE_CVTTQSV = 1455; EVX$FPIEEE_CVTTQSVC = 1327; EVX$FPIEEE_CVTTQSVI = 1967; EVX$FPIEEE_CVTTQSVIC = 1839; EVX$FPIEEE_CVTTQD = 239; EVX$FPIEEE_CVTTQVD = 495; EVX$FPIEEE_CVTTQSVD = 1519; EVX$FPIEEE_CVTTQSVID = 2031; EVX$FPIEEE_CVTTQM = 111; EVX$FPIEEE_CVTTQVM = 367; EVX$FPIEEE_CVTTQSVM = 1391; EVX$FPIEEE_CVTTQSVIM = 1903; EVX$FPIEEE_CVTTQP = 239; EVX$FPIEEE_CVTTQVP = 495; EVX$FPIEEE_CVTTQSVP = 1519; EVX$FPIEEE_CVTTQSVIP = 2031; (* FUNCTION FIELDS for the DEC Floating Point instructions *) CONST EVX$FPDEC_ADDF = 128; EVX$FPDEC_ADDFC = 0; EVX$FPDEC_ADDFU = 384; EVX$FPDEC_ADDFUC = 256; EVX$FPDEC_ADDFS = 1152; EVX$FPDEC_ADDFSC = 1024; EVX$FPDEC_ADDFSU = 1408; EVX$FPDEC_ADDFSUC = 1280; EVX$FPDEC_ADDG = 160; EVX$FPDEC_ADDGC = 32; EVX$FPDEC_ADDGU = 416; EVX$FPDEC_ADDGUC = 288; EVX$FPDEC_ADDGS = 1184; EVX$FPDEC_ADDGSC = 1056; EVX$FPDEC_ADDGSU = 1440; EVX$FPDEC_ADDGSUC = 1312; EVX$FPCOMBO_SQRTF = 138; EVX$FPCOMBO_SQRTFUC = 266; EVX$FPCOMBO_SQRTFU = 394; EVX$FPCOMBO_SQRTFC = 10; EVX$FPCOMBO_SQRTFSC = 1034; EVX$FPCOMBO_SQRTFS = 1162; EVX$FPCOMBO_SQRTFSUC = 1290; EVX$FPCOMBO_SQRTFSU = 1418; EVX$FPCOMBO_SQRTG = 170; EVX$FPCOMBO_SQRTGC = 42; EVX$FPCOMBO_SQRTGUC = 298; EVX$FPCOMBO_SQRTGU = 426; EVX$FPCOMBO_SQRTGSC = 1066; EVX$FPCOMBO_SQRTGS = 1194; EVX$FPCOMBO_SQRTGSUC = 1322; EVX$FPCOMBO_SQRTGSU = 1450; EVX$FPDEC_SUBF = 129; EVX$FPDEC_SUBFC = 1; EVX$FPDEC_SUBFU = 385; EVX$FPDEC_SUBFUC = 257; EVX$FPDEC_SUBFS = 1153; EVX$FPDEC_SUBFSC = 1025; EVX$FPDEC_SUBFSU = 1409; EVX$FPDEC_SUBFSUC = 1281; EVX$FPDEC_SUBG = 161; EVX$FPDEC_SUBGC = 33; EVX$FPDEC_SUBGU = 417; EVX$FPDEC_SUBGUC = 289; EVX$FPDEC_SUBGS = 1185; EVX$FPDEC_SUBGSC = 1057; EVX$FPDEC_SUBGSU = 1441; EVX$FPDEC_SUBGSUC = 1313; EVX$FPDEC_MULF = 130; EVX$FPDEC_MULFC = 2; EVX$FPDEC_MULFU = 386; EVX$FPDEC_MULFUC = 258; EVX$FPDEC_MULFS = 1154; EVX$FPDEC_MULFSC = 1026; EVX$FPDEC_MULFSU = 1410; EVX$FPDEC_MULFSUC = 1282; EVX$FPDEC_MULG = 162; EVX$FPDEC_MULGC = 34; EVX$FPDEC_MULGU = 418; EVX$FPDEC_MULGUC = 290; EVX$FPDEC_MULGS = 1186; EVX$FPDEC_MULGSC = 1058; EVX$FPDEC_MULGSU = 1442; EVX$FPDEC_MULGSUC = 1314; EVX$FPDEC_DIVF = 131; EVX$FPDEC_DIVFC = 3; EVX$FPDEC_DIVFU = 387; EVX$FPDEC_DIVFUC = 259; EVX$FPDEC_DIVFS = 1155; EVX$FPDEC_DIVFSC = 1027; EVX$FPDEC_DIVFSU = 1411; EVX$FPDEC_DIVFSUC = 1283; EVX$FPDEC_DIVG = 163; EVX$FPDEC_DIVGC = 35; EVX$FPDEC_DIVGU = 419; EVX$FPDEC_DIVGUC = 291; EVX$FPDEC_DIVGS = 1187; EVX$FPDEC_DIVGSC = 1059; EVX$FPDEC_DIVGSU = 1443; EVX$FPDEC_DIVGSUC = 1315; EVX$FPDEC_CMPGEQ = 165; EVX$FPDEC_CMPGLT = 166; EVX$FPDEC_CMPGLE = 167; EVX$FPDEC_CMPGEQS = 1189; EVX$FPDEC_CMPGLTS = 1190; EVX$FPDEC_CMPGLES = 1191; EVX$FPDEC_CVTDG = 158; EVX$FPDEC_CVTDGC = 30; EVX$FPDEC_CVTDGU = 414; EVX$FPDEC_CVTDGUC = 286; EVX$FPDEC_CVTDGS = 1182; EVX$FPDEC_CVTDGSC = 1054; EVX$FPDEC_CVTDGSU = 1438; EVX$FPDEC_CVTDGSUC = 1310; EVX$FPDEC_CVTGD = 173; EVX$FPDEC_CVTGDC = 45; EVX$FPDEC_CVTGDU = 429; EVX$FPDEC_CVTGDUC = 301; EVX$FPDEC_CVTGDS = 1197; EVX$FPDEC_CVTGDSC = 1069; EVX$FPDEC_CVTGDSU = 1453; EVX$FPDEC_CVTGDSUC = 1325; EVX$FPDEC_CVTFG = 142; EVX$FPDEC_CVTFGC = 14; EVX$FPDEC_CVTFGS = 1166; EVX$FPDEC_CVTFGSC = 1038; EVX$FPDEC_CVTGF = 172; EVX$FPDEC_CVTGFC = 44; EVX$FPDEC_CVTGFU = 428; EVX$FPDEC_CVTGFUC = 300; EVX$FPDEC_CVTGFS = 1196; EVX$FPDEC_CVTGFSC = 1068; EVX$FPDEC_CVTGFSU = 1452; EVX$FPDEC_CVTGFSUC = 1324; EVX$FPDEC_CVTQD = 189; EVX$FPDEC_CVTQDC = 61; EVX$FPDEC_CVTQDS = 1213; EVX$FPDEC_CVTQDSC = 1085; EVX$FPDEC_CVTQF = 188; EVX$FPDEC_CVTQFC = 60; EVX$FPDEC_CVTQFS = 1212; EVX$FPDEC_CVTQFSC = 1084; EVX$FPDEC_CVTQG = 190; EVX$FPDEC_CVTQGC = 62; EVX$FPDEC_CVTQGS = 1214; EVX$FPDEC_CVTQGSC = 1086; EVX$FPDEC_CVTDQ = 159; EVX$FPDEC_CVTDQC = 31; EVX$FPDEC_CVTDQV = 415; EVX$FPDEC_CVTDQVC = 287; EVX$FPDEC_CVTDQS = 1183; EVX$FPDEC_CVTDQSC = 1055; EVX$FPDEC_CVTDQSV = 1439; EVX$FPDEC_CVTDQSVC = 1311; EVX$FPDEC_CVTGQ = 175; EVX$FPDEC_CVTGQC = 47; EVX$FPDEC_CVTGQV = 431; EVX$FPDEC_CVTGQVC = 303; EVX$FPDEC_CVTGQS = 1199; EVX$FPDEC_CVTGQSC = 1071; EVX$FPDEC_CVTGQSV = 1455; EVX$FPDEC_CVTGQSVC = 1327; (* Opcode/Functions for the PAL code instructions *) CONST EVX$OPC_PAL = 0; EVX$PAL_BPT = 128; EVX$PAL_BUGCHK = 129; EVX$PAL_CHME = 130; EVX$PAL_CHMK = 131; EVX$PAL_CHMS = 132; EVX$PAL_CHMU = 133; EVX$PAL_IMB = 134; EVX$PAL_INSQHIL = 135; EVX$PAL_INSQTIL = 136; EVX$PAL_INSQHIQ = 137; EVX$PAL_INSQTIQ = 138; EVX$PAL_INSQUEL = 139; EVX$PAL_INSQUEQ = 140; EVX$PAL_INSQUELD = 141; EVX$PAL_INSQUEQD = 142; EVX$PAL_PROBER = 143; EVX$PAL_PROBEW = 144; EVX$PAL_RD_PS = 145; EVX$PAL_REI = 146; EVX$PAL_REMQHIL = 147; EVX$PAL_REMQTIL = 148; EVX$PAL_REMQHIQ = 149; EVX$PAL_REMQTIQ = 150; EVX$PAL_REMQUEL = 151; EVX$PAL_REMQUEQ = 152; EVX$PAL_REMQUELD = 153; EVX$PAL_REMQUEQD = 154; EVX$PAL_SWASTEN = 155; EVX$PAL_WR_PS_SW = 156; EVX$PAL_RSCC = 157; EVX$PAL_READ_UNQ = 158; EVX$PAL_WRITE_UNQ = 159; EVX$PAL_AMOVRR = 160; EVX$PAL_AMOVRM = 161; EVX$PAL_INSQHILR = 162; EVX$PAL_INSQTILR = 163; EVX$PAL_INSQHIQR = 164; EVX$PAL_INSQTIQR = 165; EVX$PAL_REMQHILR = 166; EVX$PAL_REMQTILR = 167; EVX$PAL_REMQHIQR = 168; EVX$PAL_REMQTIQR = 169; EVX$PAL_GENTRAP = 170; EVX$PAL_CFLUSH = 1; EVX$PAL_DRAINA = 2; EVX$PAL_HALT = 0; EVX$PAL_LDQP = 3; EVX$PAL_STQP = 4; EVX$PAL_SWPCTX = 5; EVX$PAL_MFPR_ASN = 6; EVX$PAL_MTPR_ASTEN = 7; EVX$PAL_MTPR_ASTSR = 8; EVX$PAL_CSERVE = 9; EVX$PAL_SWPPAL = 10; EVX$PAL_MFPR_FEN = 11; EVX$PAL_MTPR_FEN = 12; EVX$PAL_MTPR_IPIR = 13; EVX$PAL_MFPR_IPL = 14; EVX$PAL_MTPR_IPL = 15; EVX$PAL_MFPR_MCES = 16; EVX$PAL_MTPR_MCES = 17; EVX$PAL_MFPR_PCBB = 18; EVX$PAL_MFPR_PRBR = 19; EVX$PAL_MTPR_PRBR = 20; EVX$PAL_MFPR_PTBR = 21; EVX$PAL_MFPR_SCBB = 22; EVX$PAL_MTPR_SCBB = 23; EVX$PAL_MTPR_SIRR = 24; EVX$PAL_MFPR_SISR = 25; EVX$PAL_MFPR_TBCHK = 26; EVX$PAL_MTPR_TBIA = 27; EVX$PAL_MTPR_TBIAP = 28; EVX$PAL_MTPR_TBIS = 29; EVX$PAL_MFPR_ESP = 30; EVX$PAL_MTPR_ESP = 31; EVX$PAL_MFPR_SSP = 32; EVX$PAL_MTPR_SSP = 33; EVX$PAL_MFPR_USP = 34; EVX$PAL_MTPR_USP = 35; EVX$PAL_MTPR_TBISD = 36; EVX$PAL_MTPR_TBISI = 37; EVX$PAL_MFPR_ASTEN = 38; EVX$PAL_MFPR_ASTSR = 39; EVX$PAL_MFPR_VPTBASE = 41; EVX$PAL_MTPR_VPTBASE = 42; EVX$PAL_MTPR_PERFMON = 43; EVX$PAL_MTPR_DATAFX = 46; EVX$PAL_MFPR_VIRBND = 48; EVX$PAL_MTPR_VIRBND = 49; EVX$PAL_MFPR_SYSPTBR = 50; EVX$PAL_MTPR_SYSPTBR = 51; EVX$PAL_MFPR_WHAMI = 63; EVX$PAL_WTINT = 62; EVX$PAL_CLRFEN = 174; (* Opcodes reserved for PALcode *) CONST EVX$OPC_PAL19 = 25; EVX$OPC_PAL1B = 27; EVX$OPC_PAL1D = 29; EVX$OPC_PAL1E = 30; EVX$OPC_PAL1F = 31; (* Opcodes reserved for DIGITAL *) CONST EVX$OPC_OPC01 = 1; EVX$OPC_OPC02 = 2; EVX$OPC_OPC03 = 3; EVX$OPC_OPC04 = 4; EVX$OPC_OPC05 = 5; EVX$OPC_OPC06 = 6; EVX$OPC_OPC07 = 7; (* opcode and subfunction in correct location in long word *) (* suitable for OR'ing directly into the target instruction *) CONST EVX$opc32_LDBU = 671088640; EVX$opc32_LDWU = 805306368; EVX$opc32_LDL = -1610612736; EVX$opc32_LDQ = -1543503872; EVX$opc32_LDLL = -1476395008; EVX$opc32_LDQL = -1409286144; EVX$opc32_LDQU = 738197504; EVX$opc32_LDA = 536870912; EVX$opc32_STB = 939524096; EVX$opc32_STW = 872415232; EVX$opc32_STL = -1342177280; EVX$opc32_STQ = -1275068416; EVX$opc32_STLC = -1207959552; EVX$opc32_STQC = -1140850688; EVX$opc32_STQU = 1006632960; EVX$opc32_LDAH = 603979776; EVX$opc32_LDF = -2147483648; EVX$opc32_LDG = -2080374784; EVX$opc32_LDS = -2013265920; EVX$opc32_LDT = -1946157056; EVX$opc32_STF = -1879048192; EVX$opc32_STG = -1811939328; EVX$opc32_STS = -1744830464; EVX$opc32_STT = -1677721600; EVX$opc32_MB = 1612660736; EVX$opc32_WMB = 1612661760; EVX$opc32_TRAPB = 1612644352; EVX$opc32_EXCB = 1612645376; EVX$opc32_RCC = 1612693504; EVX$opc32_ECB = 1612703744; EVX$opc32_WH64 = 1612707840; EVX$opc32_FETCH = 1610645504; EVX$opc32_FETCH_M = 1610653696; EVX$opc32_RC = 1612701696; EVX$opc32_RS = 1612705792; EVX$opc32_JMP = 1744830464; EVX$opc32_JSR = 1744846848; EVX$opc32_RET = 1744863232; EVX$opc32_JSR_COROUTINE = 1744879616; EVX$opc32_BR = -1073741824; EVX$opc32_BSR = -805306368; EVX$opc32_BLBC = -536870912; EVX$opc32_BLBS = -268435456; EVX$opc32_FBEQ = -1006632960; EVX$opc32_FBNE = -738197504; EVX$opc32_BEQ = -469762048; EVX$opc32_BNE = -201326592; EVX$opc32_FBLT = -939524096; EVX$opc32_FBGE = -671088640; EVX$opc32_BLT = -402653184; EVX$opc32_BGE = -134217728; EVX$opc32_FBLE = -872415232; EVX$opc32_FBGT = -603979776; EVX$opc32_BLE = -335544320; EVX$opc32_BGT = -67108864; EVX$opc32_ADDL = 1073741824; EVX$opc32_ADDLV = 1073743872; EVX$opc32_ADDQ = 1073742848; EVX$opc32_ADDQV = 1073744896; EVX$opc32_S4ADDL = 1073741888; EVX$opc32_S4ADDQ = 1073742912; EVX$opc32_S8ADDL = 1073742400; EVX$opc32_S8ADDQ = 1073743424; EVX$opc32_S4SUBL = 1073742176; EVX$opc32_S4SUBQ = 1073743200; EVX$opc32_S8SUBL = 1073742688; EVX$opc32_S8SUBQ = 1073743712; EVX$opc32_SUBL = 1073742112; EVX$opc32_SUBLV = 1073744160; EVX$opc32_SUBQ = 1073743136; EVX$opc32_SUBQV = 1073745184; EVX$opc32_CMPEQ = 1073743264; EVX$opc32_CMPLT = 1073744288; EVX$opc32_CMPLE = 1073745312; EVX$opc32_CMPULT = 1073742752; EVX$opc32_CMPULE = 1073743776; EVX$opc32_CMPBGE = 1073742304; EVX$opc32_SEXTB = 1879048192; EVX$opc32_SEXTW = 1879048224; (*insert here *) CONST EVX$opc32_CTLZ = 1879049792; EVX$opc32_CTPOP = 1879049728; EVX$opc32_CTTZ = 1879049824; EVX$opc32_MAXSB8 = 1879050176; EVX$opc32_MAXSW4 = 1879050208; EVX$opc32_MAXUB8 = 1879050112; EVX$opc32_MAXUW4 = 1879050144; EVX$opc32_MINSB8 = 1879049984; EVX$opc32_MINSW4 = 1879050016; EVX$opc32_MINUB8 = 1879050048; EVX$opc32_MINUW4 = 1879050080; EVX$opc32_PERR = 1879049760; EVX$opc32_PKLB = 1879049952; EVX$opc32_PKWB = 1879049920; EVX$opc32_UNPKBL = 1879049888; EVX$opc32_UNPKBW = 1879049856; EVX$opc32_FTOIS = 1879052032; EVX$opc32_FTOIT = 1879051776; (* FUNCTION FIELDS for instructions with opcode = 1C (EXTI), but operands are *) (* floating-point registers *) CONST EVX$opc32_AND = 1140850688; EVX$opc32_BIC = 1140850944; EVX$opc32_CMOVEQ = 1140851840; EVX$opc32_CMOVNE = 1140851904; EVX$opc32_BIS = 1140851712; EVX$opc32_ORNOT = 1140851968; EVX$opc32_CMOVLT = 1140852864; EVX$opc32_CMOVGE = 1140852928; EVX$opc32_XOR = 1140852736; EVX$opc32_EQV = 1140852992; EVX$opc32_CMOVLE = 1140853888; EVX$opc32_CMOVGT = 1140853952; EVX$opc32_CMOVLBS = 1140851328; EVX$opc32_CMOVLBC = 1140851392; EVX$opc32_AMASK = 1140853792; EVX$opc32_IMPLVER = 1140854144; EVX$opc32_EXTBL = 1207959744; EVX$opc32_EXTWL = 1207960256; EVX$opc32_EXTLL = 1207960768; EVX$opc32_EXTQL = 1207961280; EVX$opc32_EXTWH = 1207962432; EVX$opc32_EXTLH = 1207962944; EVX$opc32_EXTQH = 1207963456; EVX$opc32_INSBL = 1207959904; EVX$opc32_INSWL = 1207960416; EVX$opc32_INSLL = 1207960928; EVX$opc32_INSQL = 1207961440; EVX$opc32_INSWH = 1207962336; EVX$opc32_INSLH = 1207962848; EVX$opc32_INSQH = 1207963360; EVX$opc32_MSKBL = 1207959616; EVX$opc32_MSKWL = 1207960128; EVX$opc32_MSKLL = 1207960640; EVX$opc32_MSKQL = 1207961152; EVX$opc32_MSKWH = 1207962176; EVX$opc32_MSKLH = 1207962688; EVX$opc32_MSKQH = 1207963200; EVX$opc32_ZAP = 1207961088; EVX$opc32_ZAPNOT = 1207961120; EVX$opc32_SRA = 1207961472; EVX$opc32_SRL = 1207961216; EVX$opc32_SLL = 1207961376; EVX$opc32_MULL = 1275068416; EVX$opc32_MULQV = 1275071488; EVX$opc32_MULLV = 1275070464; EVX$opc32_UMULH = 1275069952; EVX$opc32_MULQ = 1275069440; EVX$opc32_MF_FPCR = 1543505056; EVX$opc32_CPYS = 1543504896; EVX$opc32_CPYSN = 1543504928; EVX$opc32_CPYSE = 1543504960; EVX$opc32_CVTLQ = 1608516096; EVX$opc32_CVTQL = 1608517120; EVX$opc32_CVTQLV = 1608525312; EVX$opc32_CVTQLSV = 1608558080; EVX$opc32_FCMOVEQ = 1543505216; EVX$opc32_FCMOVNE = 1543505248; EVX$opc32_FCMOVLT = 1543505280; EVX$opc32_FCMOVGE = 1543505312; EVX$opc32_FCMOVLE = 1543505344; EVX$opc32_FCMOVGT = 1543505376; EVX$opc32_ADDS = 1476399104; EVX$opc32_ADDSC = 1476395008; EVX$opc32_ADDSM = 1476397056; EVX$opc32_ADDSP = 1476401152; EVX$opc32_ADDSU = 1476407296; EVX$opc32_ADDSUC = 1476403200; EVX$opc32_ADDSUM = 1476405248; EVX$opc32_ADDSUP = 1476409344; EVX$opc32_ADDSSU = 1476440064; EVX$opc32_ADDSSUC = 1476435968; EVX$opc32_ADDSSUM = 1476438016; EVX$opc32_ADDSSUP = 1476442112; EVX$opc32_ADDSSUI = 1476456448; EVX$opc32_ADDSSUIC = 1476452352; EVX$opc32_ADDSSUIM = 1476454400; EVX$opc32_ADDSSUIP = 1476458496; EVX$opc32_ADDT = 1476400128; EVX$opc32_ADDTC = 1476396032; EVX$opc32_ADDTM = 1476398080; EVX$opc32_ADDTP = 1476402176; EVX$opc32_ADDTU = 1476408320; EVX$opc32_ADDTUC = 1476404224; EVX$opc32_ADDTUM = 1476406272; EVX$opc32_ADDTUP = 1476410368; EVX$opc32_ADDTSU = 1476441088; EVX$opc32_ADDTSUC = 1476436992; EVX$opc32_ADDTSUM = 1476439040; EVX$opc32_ADDTSUP = 1476443136; EVX$opc32_ADDTSUI = 1476457472; EVX$opc32_ADDTSUIC = 1476453376; EVX$opc32_ADDTSUIM = 1476455424; EVX$opc32_ADDTSUIP = 1476459520; EVX$opc32_CMPTEQ = 1476400288; EVX$opc32_CMPTEQSU = 1476441248; EVX$opc32_CMPTLT = 1476400320; EVX$opc32_CMPTLTSU = 1476441280; EVX$opc32_CMPTLE = 1476400352; EVX$opc32_CMPTLESU = 1476441312; EVX$opc32_CMPTUN = 1476400256; EVX$opc32_CMPTUNSU = 1476441216; EVX$opc32_CVTQS = 1541412736; EVX$opc32_CVTQSC = 1541408640; EVX$opc32_CVTQSM = 1541410688; EVX$opc32_CVTQSP = 1541414784; EVX$opc32_CVTQSSUI = 1541470080; EVX$opc32_CVTQSSUIC = 1541465984; EVX$opc32_CVTQSSUIM = 1541468032; EVX$opc32_CVTQSSUIP = 1541472128; EVX$opc32_CVTQT = 1541412800; EVX$opc32_CVTQTC = 1541408704; EVX$opc32_CVTQTM = 1541410752; EVX$opc32_CVTQTP = 1541414848; EVX$opc32_CVTQTSUI = 1541470144; EVX$opc32_CVTQTSUIC = 1541466048; EVX$opc32_CVTQTSUIM = 1541468096; EVX$opc32_CVTQTSUIP = 1541472192; EVX$opc32_CVTST = 1541428608; EVX$opc32_CVTSTS = 1541461376; EVX$opc32_CVTTS = 1541412224; EVX$opc32_CVTTSC = 1541408128; EVX$opc32_CVTTSM = 1541410176; EVX$opc32_CVTTSP = 1541414272; EVX$opc32_CVTTSU = 1541420416; EVX$opc32_CVTTSUC = 1541416320; EVX$opc32_CVTTSUM = 1541418368; EVX$opc32_CVTTSUP = 1541422464; EVX$opc32_CVTTSSU = 1541453184; EVX$opc32_CVTTSSUC = 1541449088; EVX$opc32_CVTTSSUM = 1541451136; EVX$opc32_CVTTSSUP = 1541455232; EVX$opc32_CVTTSSUI = 1541469568; EVX$opc32_CVTTSSUIC = 1541465472; EVX$opc32_CVTTSSUIM = 1541467520; EVX$opc32_CVTTSSUIP = 1541471616; EVX$opc32_DIVS = 1476399200; EVX$opc32_DIVSC = 1476395104; EVX$opc32_DIVSM = 1476397152; EVX$opc32_DIVSP = 1476401248; EVX$opc32_DIVSU = 1476407392; EVX$opc32_DIVSUC = 1476403296; EVX$opc32_DIVSUM = 1476405344; EVX$opc32_DIVSUP = 1476409440; EVX$opc32_DIVSSU = 1476440160; EVX$opc32_DIVSSUC = 1476436064; EVX$opc32_DIVSSUM = 1476438112; EVX$opc32_DIVSSUP = 1476442208; EVX$opc32_DIVSSUI = 1476456544; EVX$opc32_DIVSSUIC = 1476452448; EVX$opc32_DIVSSUIM = 1476454496; EVX$opc32_DIVSSUIP = 1476458592; EVX$opc32_DIVT = 1476400224; EVX$opc32_DIVTC = 1476396128; EVX$opc32_DIVTM = 1476398176; EVX$opc32_DIVTP = 1476402272; EVX$opc32_DIVTU = 1476408416; EVX$opc32_DIVTUC = 1476404320; EVX$opc32_DIVTUM = 1476406368; EVX$opc32_DIVTUP = 1476410464; EVX$opc32_DIVTSU = 1476441184; EVX$opc32_DIVTSUC = 1476437088; EVX$opc32_DIVTSUM = 1476439136; EVX$opc32_DIVTSUP = 1476443232; EVX$opc32_DIVTSUI = 1476457568; EVX$opc32_DIVTSUIC = 1476453472; EVX$opc32_DIVTSUIM = 1476455520; EVX$opc32_DIVTSUIP = 1476459616; EVX$opc32_MULS = 1476399168; EVX$opc32_MULSC = 1476395072; EVX$opc32_MULSM = 1476397120; EVX$opc32_MULSP = 1476401216; EVX$opc32_MULSU = 1476407360; EVX$opc32_MULSUC = 1476403264; EVX$opc32_MULSUM = 1476405312; EVX$opc32_MULSUP = 1476409408; EVX$opc32_MULSSU = 1476440128; EVX$opc32_MULSSUC = 1476436032; EVX$opc32_MULSSUM = 1476438080; EVX$opc32_MULSSUP = 1476442176; EVX$opc32_MULSSUI = 1476456512; EVX$opc32_MULSSUIC = 1476452416; EVX$opc32_MULSSUIM = 1476454464; EVX$opc32_MULSSUIP = 1476458560; EVX$opc32_MULT = 1476400192; EVX$opc32_MULTC = 1476396096; EVX$opc32_MULTM = 1476398144; EVX$opc32_MULTP = 1476402240; EVX$opc32_MULTU = 1476408384; EVX$opc32_MULTUC = 1476404288; EVX$opc32_MULTUM = 1476406336; EVX$opc32_MULTUP = 1476410432; EVX$opc32_MULTSU = 1476441152; EVX$opc32_MULTSUC = 1476437056; EVX$opc32_MULTSUM = 1476439104; EVX$opc32_MULTSUP = 1476443200; EVX$opc32_MULTSUI = 1476457536; EVX$opc32_MULTSUIC = 1476453440; EVX$opc32_MULTSUIM = 1476455488; EVX$opc32_MULTSUIP = 1476459584; EVX$opc32_SUBS = 1476399136; EVX$opc32_SUBSC = 1476395040; EVX$opc32_SUBSM = 1476397088; EVX$opc32_SUBSP = 1476401184; EVX$opc32_SUBSU = 1476407328; EVX$opc32_SUBSUC = 1476403232; EVX$opc32_SUBSUM = 1476405280; EVX$opc32_SUBSUP = 1476409376; EVX$opc32_SUBSSU = 1476440096; EVX$opc32_SUBSSUC = 1476436000; EVX$opc32_SUBSSUM = 1476438048; EVX$opc32_SUBSSUP = 1476442144; EVX$opc32_SUBSSUI = 1476456480; EVX$opc32_SUBSSUIC = 1476452384; EVX$opc32_SUBSSUIM = 1476454432; EVX$opc32_SUBSSUIP = 1476458528; EVX$opc32_SUBT = 1476400160; EVX$opc32_SUBTC = 1476396064; EVX$opc32_SUBTM = 1476398112; EVX$opc32_SUBTP = 1476402208; EVX$opc32_SUBTU = 1476408352; EVX$opc32_SUBTUC = 1476404256; EVX$opc32_SUBTUM = 1476406304; EVX$opc32_SUBTUP = 1476410400; EVX$opc32_SUBTSU = 1476441120; EVX$opc32_SUBTSUC = 1476437024; EVX$opc32_SUBTSUM = 1476439072; EVX$opc32_SUBTSUP = 1476443168; EVX$opc32_SUBTSUI = 1476457504; EVX$opc32_SUBTSUIC = 1476453408; EVX$opc32_SUBTSUIM = 1476455456; EVX$opc32_SUBTSUIP = 1476459552; EVX$opc32_CVTTQ = 1541412320; EVX$opc32_CVTTQC = 1541408224; EVX$opc32_CVTTQV = 1541420512; EVX$opc32_CVTTQVC = 1541416416; EVX$opc32_CVTTQSV = 1541453280; EVX$opc32_CVTTQSVC = 1541449184; EVX$opc32_CVTTQSVI = 1541469664; EVX$opc32_CVTTQSVIC = 1541465568; EVX$opc32_CVTTQD = 1541414368; EVX$opc32_CVTTQVD = 1541422560; EVX$opc32_CVTTQSVD = 1541455328; EVX$opc32_CVTTQSVID = 1541471712; EVX$opc32_CVTTQM = 1541410272; EVX$opc32_CVTTQVM = 1541418464; EVX$opc32_CVTTQSVM = 1541451232; EVX$opc32_CVTTQSVIM = 1541467616; EVX$opc32_CVTTQP = 1541414368; EVX$opc32_CVTTQVP = 1541422560; EVX$opc32_CVTTQSVP = 1541455328; EVX$opc32_CVTTQSVIP = 1541471712; EVX$opc32_ADDF = 1409290240; EVX$opc32_ADDFC = 1409286144; EVX$opc32_ADDFU = 1409298432; EVX$opc32_ADDFUC = 1409294336; EVX$opc32_ADDFS = 1409323008; EVX$opc32_ADDFSC = 1409318912; EVX$opc32_ADDFSU = 1409331200; EVX$opc32_ADDFSUC = 1409327104; EVX$opc32_ADDG = 1409291264; EVX$opc32_ADDGC = 1409287168; EVX$opc32_ADDGU = 1409299456; EVX$opc32_ADDGUC = 1409295360; EVX$opc32_ADDGS = 1409324032; EVX$opc32_ADDGSC = 1409319936; EVX$opc32_ADDGSU = 1409332224; EVX$opc32_ADDGSUC = 1409328128; EVX$opc32_CMPGEQ = 1409291424; EVX$opc32_CMPGLT = 1409291456; EVX$opc32_CMPGLE = 1409291488; EVX$opc32_CMPGEQS = 1409324192; EVX$opc32_CMPGLTS = 1409324224; EVX$opc32_CMPGLES = 1409324256; EVX$opc32_CVTDG = 1474302912; EVX$opc32_CVTDGC = 1474298816; EVX$opc32_CVTDGU = 1474311104; EVX$opc32_CVTDGUC = 1474307008; EVX$opc32_CVTDGS = 1474335680; EVX$opc32_CVTDGSC = 1474331584; EVX$opc32_CVTDGSU = 1474343872; EVX$opc32_CVTDGSUC = 1474339776; EVX$opc32_CVTGD = 1474303392; EVX$opc32_CVTGDC = 1474299296; EVX$opc32_CVTGDU = 1474311584; EVX$opc32_CVTGDUC = 1474307488; EVX$opc32_CVTGDS = 1474336160; EVX$opc32_CVTGDSC = 1474332064; EVX$opc32_CVTGDSU = 1474344352; EVX$opc32_CVTGDSUC = 1474340256; EVX$opc32_CVTGF = 1474303360; EVX$opc32_CVTGFC = 1474299264; EVX$opc32_CVTGFU = 1474311552; EVX$opc32_CVTGFUC = 1474307456; EVX$opc32_CVTGFS = 1474336128; EVX$opc32_CVTGFSC = 1474332032; EVX$opc32_CVTGFSU = 1474344320; EVX$opc32_CVTGFSUC = 1474340224; EVX$opc32_CVTQF = 1474303872; EVX$opc32_CVTQFC = 1474299776; EVX$opc32_CVTQG = 1474303936; EVX$opc32_CVTQGC = 1474299840; EVX$opc32_DIVF = 1409290336; EVX$opc32_DIVFC = 1409286240; EVX$opc32_DIVFU = 1409298528; EVX$opc32_DIVFUC = 1409294432; EVX$opc32_DIVFS = 1409323104; EVX$opc32_DIVFSC = 1409319008; EVX$opc32_DIVFSU = 1409331296; EVX$opc32_DIVFSUC = 1409327200; EVX$opc32_DIVG = 1409291360; EVX$opc32_DIVGC = 1409287264; EVX$opc32_DIVGU = 1409299552; EVX$opc32_DIVGUC = 1409295456; EVX$opc32_DIVGS = 1409324128; EVX$opc32_DIVGSC = 1409320032; EVX$opc32_DIVGSU = 1409332320; EVX$opc32_DIVGSUC = 1409328224; EVX$opc32_MULF = 1409290304; EVX$opc32_MULFC = 1409286208; EVX$opc32_MULFU = 1409298496; EVX$opc32_MULFUC = 1409294400; EVX$opc32_MULFS = 1409323072; EVX$opc32_MULFSC = 1409318976; EVX$opc32_MULFSU = 1409331264; EVX$opc32_MULFSUC = 1409327168; EVX$opc32_MULG = 1409291328; EVX$opc32_MULGC = 1409287232; EVX$opc32_MULGU = 1409299520; EVX$opc32_MULGUC = 1409295424; EVX$opc32_MULGS = 1409324096; EVX$opc32_MULGSC = 1409320000; EVX$opc32_MULGSU = 1409332288; EVX$opc32_MULGSUC = 1409328192; EVX$opc32_SUBF = 1409290272; EVX$opc32_SUBFC = 1409286176; EVX$opc32_SUBFU = 1409298464; EVX$opc32_SUBFUC = 1409294368; EVX$opc32_SUBFS = 1409323040; EVX$opc32_SUBFSC = 1409318944; EVX$opc32_SUBFSU = 1409331232; EVX$opc32_SUBFSUC = 1409327136; EVX$opc32_SUBG = 1409291296; EVX$opc32_SUBGC = 1409287200; EVX$opc32_SUBGU = 1409299488; EVX$opc32_SUBGUC = 1409295392; EVX$opc32_SUBGS = 1409324064; EVX$opc32_SUBGSC = 1409319968; EVX$opc32_SUBGSU = 1409332256; EVX$opc32_SUBGSUC = 1409328160; (* Insert here *) CONST EVX$opc32_SQRTF = 1342181696; EVX$opc32_SQRTFUC = 1342185792; EVX$opc32_SQRTFU = 1342189888; EVX$opc32_SQRTFC = 1342177600; EVX$opc32_SQRTFSC = 1342181696; EVX$opc32_SQRTFS = 1342214464; EVX$opc32_SQRTFSUC = 1342218560; EVX$opc32_SQRTFSU = 1342222656; (*insert here *) CONST EVX$opc32_SQRTS = 1342181728; EVX$opc32_SQRTSC = 1342177632; EVX$opc32_SQRTSM = 1342179680; EVX$opc32_SQRTSD = 1342183776; EVX$opc32_SQRTSUC = 1342185824; EVX$opc32_SQRTSUM = 1342187872; EVX$opc32_SQRTSU = 1342189920; EVX$opc32_SQRTSUD = 1342191968; EVX$opc32_SQRTSSUC = 1342218592; EVX$opc32_SQRTSSUM = 1342220640; EVX$opc32_SQRTSSU = 1342222688; EVX$opc32_SQRTSSUD = 1342224736; EVX$opc32_SQRTSSUIC = 1342234976; EVX$opc32_SQRTSSUIM = 1342237024; EVX$opc32_SQRTSSUI = 1342239072; EVX$opc32_SQRTSSUID = 1342241120; EVX$opc32_SQRTT = 1342182752; EVX$opc32_SQRTTC = 1342178656; EVX$opc32_SQRTTM = 1342180704; EVX$opc32_SQRTTD = 1342184800; EVX$opc32_SQRTTUC = 1342186848; EVX$opc32_SQRTTUM = 1342188896; EVX$opc32_SQRTTU = 1342190944; EVX$opc32_SQRTTUD = 1342192992; EVX$opc32_SQRTTSUC = 1342219616; EVX$opc32_SQRTTSUM = 1342221664; EVX$opc32_SQRTTSU = 1342223712; EVX$opc32_SQRTTSUD = 1342225760; EVX$opc32_SQRTTSUIC = 1342236000; EVX$opc32_SQRTTSUIM = 1342238048; EVX$opc32_SQRTTSUI = 1342240096; EVX$opc32_SQRTTSUID = 1342242144; EVX$opc32_ITOFF = 1342177920; EVX$opc32_ITOFS = 1342177408; EVX$opc32_ITOFT = 1342178432; EVX$opc32_SQRTG = 1342182720; EVX$opc32_SQRTGC = 1342178624; EVX$opc32_SQRTGUC = 1342186816; EVX$opc32_SQRTGU = 1342190912; EVX$opc32_SQRTGSC = 1342211392; EVX$opc32_SQRTGS = 1342215488; EVX$opc32_SQRTGSUC = 1342219584; EVX$opc32_SQRTGSU = 1342223680; EVX$opc32_CVTGQ = 1474303456; EVX$opc32_CVTGQC = 1474299360; EVX$opc32_CVTGQV = 1474311648; EVX$opc32_CVTGQVC = 1474307552; EVX$opc32_CVTGQS = 1474336224; EVX$opc32_CVTGQSC = 1474332128; EVX$opc32_CVTGQSV = 1474344416; EVX$opc32_CVTGQSVC = 1474340320; EVX$opc32_BPT = 128; EVX$opc32_BUGCHK = 129; EVX$opc32_CHME = 130; EVX$opc32_CHMK = 131; EVX$opc32_CHMS = 132; EVX$opc32_CHMU = 133; EVX$opc32_IMB = 134; EVX$opc32_INSQHIL = 135; EVX$opc32_INSQTIL = 136; EVX$opc32_INSQHIQ = 137; EVX$opc32_INSQTIQ = 138; EVX$opc32_INSQUEL = 139; EVX$opc32_INSQUEQ = 140; EVX$opc32_INSQUELD = 141; EVX$opc32_INSQUEQD = 142; EVX$opc32_PROBER = 143; EVX$opc32_INSQHILR = 162; EVX$opc32_INSQTILR = 163; EVX$opc32_INSQHIQR = 164; EVX$opc32_INSQTIQR = 165; EVX$opc32_AMOVRR = 160; EVX$opc32_AMOVRM = 161; EVX$opc32_PROBEW = 144; EVX$opc32_RD_PS = 145; EVX$opc32_REI = 146; EVX$opc32_REMQHIL = 147; EVX$opc32_REMQTIL = 148; EVX$opc32_REMQHIQ = 149; EVX$opc32_REMQTIQ = 150; EVX$opc32_REMQUEL = 151; EVX$opc32_REMQUEQ = 152; EVX$opc32_REMQUELD = 153; EVX$opc32_REMQUEQD = 154; EVX$opc32_REMQHILR = 166; EVX$opc32_REMQTILR = 167; EVX$opc32_REMQHIQR = 168; EVX$opc32_REMQTIQR = 169; EVX$opc32_GENTRAP = 170; EVX$opc32_SWASTEN = 155; EVX$opc32_WR_PS_SW = 156; EVX$opc32_RSCC = 157; EVX$opc32_READ_UNQ = 158; EVX$opc32_WRITE_UNQ = 159; EVX$opc32_CFLUSH = 1; EVX$opc32_DRAINA = 2; EVX$opc32_HALT = 0; EVX$opc32_LDQP = 3; EVX$opc32_STQP = 4; EVX$opc32_SWPCTX = 5; EVX$opc32_MFPR_ASN = 6; EVX$opc32_MTPR_ASTEN = 7; EVX$opc32_MTPR_ASTSR = 8; EVX$opc32_CSERVE = 9; EVX$opc32_SWPPAL = 10; EVX$opc32_MFPR_FEN = 11; EVX$opc32_MTPR_FEN = 12; EVX$opc32_MTPR_IPIR = 13; EVX$opc32_MFPR_IPL = 14; EVX$opc32_MTPR_IPL = 15; EVX$opc32_MFPR_MCES = 16; EVX$opc32_MTPR_MCES = 17; EVX$opc32_MFPR_PCBB = 18; EVX$opc32_MFPR_PRBR = 19; EVX$opc32_MTPR_PRBR = 20; EVX$opc32_MFPR_PTBR = 21; EVX$opc32_MFPR_SCBB = 22; EVX$opc32_MTPR_SCBB = 23; EVX$opc32_MTPR_SIRR = 24; EVX$opc32_MFPR_SISR = 25; EVX$opc32_MFPR_TBCHK = 26; EVX$opc32_MTPR_TBIA = 27; EVX$opc32_MTPR_TBIAP = 28; EVX$opc32_MTPR_TBIS = 29; EVX$opc32_MFPR_ESP = 30; EVX$opc32_MTPR_ESP = 31; EVX$opc32_MFPR_SSP = 32; EVX$opc32_MTPR_SSP = 33; EVX$opc32_MFPR_USP = 34; EVX$opc32_MTPR_USP = 35; EVX$opc32_MTPR_TBISD = 36; EVX$opc32_MTPR_TBISI = 37; EVX$opc32_MFPR_ASTEN = 38; EVX$opc32_MFPR_ASTSR = 39; EVX$opc32_MFPR_VPTBASE = 41; EVX$opc32_MTPR_VPTBASE = 42; EVX$opc32_MTPR_PERFMON = 43; EVX$opc32_MTPR_DATAFX = 46; EVX$opc32_MFPR_WHAMI = 63; (* Opcodes reserved for PALcode *) CONST EVX$OPC32_PAL19 = 1677721600; EVX$OPC32_PAL1B = 1811939328; EVX$OPC32_PAL1D = 1946157056; EVX$OPC32_PAL1E = 2013265920; EVX$OPC32_PAL1F = 2080374784; (* Opcodes reserved for DIGITAL *) CONST EVX$OPC32_OPC01 = 67108864; EVX$OPC32_OPC02 = 134217728; EVX$OPC32_OPC03 = 201326592; EVX$OPC32_OPC04 = 268435456; EVX$OPC32_OPC05 = 335544320; EVX$OPC32_OPC06 = 402653184; EVX$OPC32_OPC07 = 469762048; (* The following include command is used as a hook to bring in any *) (* implimentation specific opcodes etc... to use it do some thing like *) (* $DEFINE/USER NL EVAX3_SPECIFIC_OPCODE.SDL *) (* to include what ever you may need. *) (*** MODULE $EVAX_INSTRDEF ***) (* *) (* All the different classes of instructions (used to decode). Each different *) (* class has a different printing format. *) (* *) CONST EVX$K_imemory = 1; EVX$K_fmemory = 2; EVX$K_ibranch = 3; EVX$K_fbranch = 4; EVX$K_operate = 5; EVX$K_float2 = 6; EVX$K_float3 = 7; EVX$K_jsr = 8; EVX$K_rcc = 9; EVX$K_pal = 10; EVX$K_sync0 = 11; EVX$K_sync1 = 12; EVX$K_floatoper = 13; EVX$K_operfloat = 14; EVX$K_unknown = 15; (* *) (* Codes to refer to the register operand numbers *) (* *) CONST EVX$K_R0 = 0; EVX$K_R1 = 1; EVX$K_R2 = 2; EVX$K_R3 = 3; EVX$K_R4 = 4; EVX$K_R5 = 5; EVX$K_R6 = 6; EVX$K_R7 = 7; EVX$K_R8 = 8; EVX$K_R9 = 9; EVX$K_R10 = 10; EVX$K_R11 = 11; EVX$K_R12 = 12; EVX$K_R13 = 13; EVX$K_R14 = 14; EVX$K_R15 = 15; EVX$K_R16 = 16; EVX$K_R17 = 17; EVX$K_R18 = 18; EVX$K_R19 = 19; EVX$K_R20 = 20; EVX$K_R21 = 21; EVX$K_R22 = 22; EVX$K_R23 = 23; EVX$K_R24 = 24; EVX$K_R25 = 25; EVX$K_R26 = 26; EVX$K_R27 = 27; EVX$K_R28 = 28; EVX$K_R29 = 29; EVX$K_R30 = 30; EVX$K_R31 = 31; EVX$K_F0 = 0; EVX$K_F1 = 1; EVX$K_F2 = 2; EVX$K_F3 = 3; EVX$K_F4 = 4; EVX$K_F5 = 5; EVX$K_F6 = 6; EVX$K_F7 = 7; EVX$K_F8 = 8; EVX$K_F9 = 9; EVX$K_F10 = 10; EVX$K_F11 = 11; EVX$K_F12 = 12; EVX$K_F13 = 13; EVX$K_F14 = 14; EVX$K_F15 = 15; EVX$K_F16 = 16; EVX$K_F17 = 17; EVX$K_F18 = 18; EVX$K_F19 = 19; EVX$K_F20 = 20; EVX$K_F21 = 21; EVX$K_F22 = 22; EVX$K_F23 = 23; EVX$K_F24 = 24; EVX$K_F25 = 25; EVX$K_F26 = 26; EVX$K_F27 = 27; EVX$K_F28 = 28; EVX$K_F29 = 29; EVX$K_F30 = 30; EVX$K_F31 = 31; EIF$Zero_register = 32; (* *) (* The following fields define all the possible instruction formats *) (* *) TYPE INSTR$TYPE = RECORD CASE INTEGER OF 1: (EIF$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; ); 2: (EIF$L_Instr : [POS(0)] UNSIGNED; (* Entire instruction *) ); 3: (); 4: (EIF$V_Mem_imm : [POS(0)] $BIT16; (* Memory displacement *) EIF$V_Rb : [POS(16)] $BIT5; (* Second register operand *) EIF$V_Ra : [POS(21)] $BIT5; (* First register operand *) ); 5: (); 6: (EIF$V_Brnch_imm : [POS(0)] $BIT21; (* Branch displacement *) ); 7: (); 8: (EIF$V_Rc : [POS(0)] $BIT5; (* Third register operand *) EIF$V_Opr_func : [POS(5)] $BIT7; (* Operate sub-opcode *) EIF$V_Lit_mode : [POS(12)] $BOOL; (* Set if literal mode *) EIF$V_Lit_val : [POS(13)] $BIT8; (* Literal value *) ); 9: (); 10: (EIF$V_Fc : [POS(0)] $BIT5; (* Third floating register operand *) EIF$V_Flt_func : [POS(5)] $BIT11; (* Floating sub-opcode *) EIF$V_Fb : [POS(16)] $BIT5; (* Second floating register operand *) EIF$V_Fa : [POS(21)] $BIT5; (* First floating register operand *) ); 11: (); 12: (EIF$V_Pal_func : [POS(0)] $BIT26; (* PAL sub-opcode *) ); 13: (); 14: (EIF$V_Sync_func : [POS(0)] $BIT16; (* Sync function code *) ); 15: (); 16: (EIF$V_Fill : [POS(0)] $BIT26; EIF$V_Opcode : [POS(26)] $BIT6; (* Instruction opcode *) ) END; (* *) (* bounds for the above fields *) (* *) CONST EIF$Opc_lower_bound = 0; EIF$Opc_upper_bound = 64; EIF$Opr_lower_bound = 0; EIF$Opr_upper_bound = 128; EIF$Flt_lower_bound = 0; EIF$Flt_upper_bound = 2048; (* *) (* decode field printing widths *) (* *) CONST EIF$Mem_imm_width = 4; EIF$Brnch_imm_width = 6; EIF$Opr_imm_width = 2; (*** MODULE $EVENTDEF ***) (* EVSB - Event Status Block *) (* The Event Status Block receives $EVENT service VMS and NT completion status *) TYPE EVSB$TYPE = RECORD EVT$L_VMS_STATUS : UNSIGNED; (* VMS completion status *) EVT$L_NT_STATUS : UNSIGNED; (* NT completion status *) END; CONST EVSB$K_LENGTH = 8; (* Length of EVSB *) EVSB$C_LENGTH = 8; (* Length of EVSB *) (* *) (* +-------------------------------------------------------------------+ *) (* | function codes *) (* +-------------------------------------------------------------------+ *) (* *) CONST EVT$FC_REGISTER_EVENT_SOURCE = 1; (* register event source *) EVT$FC_REPORT_EVENT = 2; (* report event *) EVT$FC_DEREGISTER_EVENT_SOURCE = 3; (* deregister event source *) EVT$FC_FUNCTION_CODE_TOO_BIG = 4; (* Always keep as last function code *) (* *) (* +-------------------------------------------------------------------+ *) (* | item codes *) (* +-------------------------------------------------------------------+ *) (* *) CONST EVT$_SERVER_NAME = 1; (* PW server name - currently ignored *) EVT$_SOURCE = 2; (* Event source id *) EVT$_HANDLE = 3; (* handle of registered event channel *) EVT$_EVENT_TYPE = 4; (* info, warning or error *) EVT$_EVENT_CATEGORY = 5; (* Event category *) EVT$_EVENT_ID = 6; (* Event ID *) EVT$_USER_SID = 7; (* NT security ID *) EVT$_NUMSTRINGS = 8; (* # counted strings in STRING_ARRAY *) EVT$_DATASIZE = 9; (* # bytes in RAW_DATA *) EVT$_STRING_ARRAY = 10; (* event log string data *) EVT$_RAW_DATA = 11; (* event log non-string data *) EVT$_ITEM_CODE_TOO_BIG = 12; (* Always keep as last item code *) (* *) (* max length of SERVER_NAME string is 8 wchars, 32 bytes (4 * 8) *) (* *) CONST EVT$_MAX_SERVER_NAME_LEN = 32; (* *) (* Values for EVT$_EVENT_TYPE. NOTE! These values must be kept in sync with *) (* the corresponding values in Microsoft's winnt.h *) (* *) CONST EVT$_SUCCESS = 0; (* MS EVENTLOG_SUCCESS *) EVT$_ERROR = 1; (* MS EVENTLOG_ERROR_TYPE *) EVT$_WARNING = 2; (* MS EVENTLOG_WARNING_TYPE *) EVT$_INFO = 4; (* MS EVENTLOG_INFORMATION_TYPE *) EVT$_AUDIT_SUCCESS = 8; (* MS EVENTLOG_AUDIT_SUCCESS *) EVT$_AUDIT_FAILURE = 16; (* MS EVENTLOG_AUDIT_FAILURE *) (*** MODULE $SDVDEF ***) (*+ *) (* *) (* Switch, enable/disable device path information *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added at the END of the list so that *) (* users will not have to rebuild. *) (* *) (*- *) CONST SDV$_MP_SWITCH_PATH = 1; (* Switch device path *) SDV$_MP_ENABLE_PATH = 2; (* Enable device path *) SDV$_MP_DISABLE_PATH = 3; (* Disable device path *) (* *) (**** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** *) (* *) (* END. *) (* MODULE STARDEFFL ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $FDLDEF ***) (*+ *) (* Define the version level of the FDL file structure *) (*- *) CONST FDL$C_VERSION = 2; FDL$K_VERSION = 2; (*+ *) (* FDL CALL INTERFACE CONTROL FLAGS *) (*- *) CONST FDL$M_SIGNAL = 1; FDL$M_FDL_STRING = 2; FDL$M_DEFAULT_STRING = 4; FDL$M_FULL_OUTPUT = 8; FDL$M_$CALLBACK = 16; FDL$M_LONG_NAMES = 32; TYPE FDL$TYPE = RECORD CASE INTEGER OF 1: (FDL$R_FDLDEF_BITS : [BYTE(1)] RECORD END; ); 2: (FDL$V_SIGNAL : [POS(0)] $BOOL; (* SIGNAL ERRORS, DON'T RETURN *) FDL$V_FDL_STRING : [POS(1)] $BOOL; (* MAIN FDL SPEC IS A CHAR STRING *) FDL$V_DEFAULT_STRING : [POS(2)] $BOOL; (* DEFAULT FDL SPEC IS A CHAR STRING *) FDL$V_FULL_OUTPUT : [POS(3)] $BOOL; (* PRODUCE A 'COMPLETE' FDL SPEC *) FDL$V_$CALLBACK : [POS(4)] $BOOL; (* USED BY EDF ON INPUT (DEC ONLY) *) FDL$V_LONG_NAMES : [POS(5)] $BOOL; (* Allocate and use NAML for FDL$PARSE *) ) END; (*** MODULE $FIBDEF ***) (*---- *) (* *) (* LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB) *) (* *) (***** *) (* *) (* NOTE: If the size of the FIB is changed the following must be changed *) (* to reflect the change: *) (* *) (* In Module: [RMS.SRC]RMSFWADEF.SDL *) (* *) (* Field: FWA$T_FIBBUF *) (* *) (* Constant: FWA$C_FIBLEN *) (* *) (* Both the field and constant must be GEQ to the size of *) (* the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96. *) (* *) (***** *) (* *) CONST FIB$M_NOWRITE = 1; FIB$M_DLOCK = 2; FIB$M_BLK_LOCK = 4; FIB$M_FASTRDSQNOS = 8; FIB$M_SPOOL = 16; FIB$M_WRITECK = 32; FIB$M_SEQONLY = 64; FIB$M_SEQNO = 128; FIB$M_WRITE = 256; FIB$M_READCK = 512; FIB$M_NOREAD = 1024; FIB$M_NOTRUNC = 2048; FIB$M_CONTROL = 4096; FIB$M_NO_READ_DATA = 8192; FIB$M_SSIO = 16384; FIB$M_EXECUTE = 65536; FIB$M_PRSRV_ATR = 131072; FIB$M_RMSLOCK = 262144; FIB$M_WRITETHRU = 524288; FIB$M_NOLOCK = 1048576; FIB$M_NORECORD = 2097152; FIB$M_NOVERIFY = 4194304; FIB$M_CHANGE_VOL = 8388608; FIB$M_REWIND = 8; FIB$M_CURPOS = 16; FIB$M_UPDATE = 64; FIB$K_ACCDATA = 10; (* ABOVE DATA NECESSARY FOR ACCESS *) FIB$C_ACCDATA = 10; (* ABOVE DATA NECESSARY FOR ACCESS *) FIB$K_DIRDATA = 22; (* ABOVE DATA NECESSARY FOR DIRECTORY OPS *) FIB$C_DIRDATA = 22; (* ABOVE DATA NECESSARY FOR DIRECTORY OPS *) FIB$M_NAMES_8BIT = 1; FIB$M_NAMES_16BIT = 2; FIB$M_PERCENT_LITERAL = 4; FIB$M_ALLVER = 8; FIB$M_ALLTYP = 16; FIB$M_ALLNAM = 32; FIB$M_CASE_SENSITIVE = 64; FIB$M_SEARCH = 128; FIB$M_WILD = 256; FIB$M_NEWVER = 512; FIB$M_SUPERSEDE = 1024; FIB$M_FINDFID = 2048; FIB$M_FINDDIR = 4096; FIB$M_CASE_VARIANT = 8192; FIB$M_LOWVER = 16384; FIB$M_HIGHVER = 32768; FIB$M_ALCON = 1; FIB$M_ALCONB = 2; FIB$M_FILCON = 4; FIB$M_ALDEF = 8; FIB$M_ALLOCATR = 16; FIB$M_EXTEND = 128; FIB$M_TRUNC = 256; FIB$M_NOHDREXT = 512; FIB$M_MARKBAD = 1024; FIB$M_NOPLACE = 16384; FIB$M_NOCHARGE = 32768; FIB$K_EXTDATA = 32; (* ABOVE NECESSARY FOR BASIC FILE EXTENSION *) FIB$C_EXTDATA = 32; (* ABOVE NECESSARY FOR BASIC FILE EXTENSION *) FIB$M_EXACT = 1; FIB$M_ONCYL = 2; FIB$C_CYL = 1; (* CYLINDER ADDRESS SPECIFIED *) FIB$C_LBN = 2; (* LBN SPECIFIED *) FIB$C_VBN = 3; (* PROXIMATE VBN SPECIFIED *) FIB$C_RFI = 4; (* RELATED FILE ID SPECIFIED *) FIB$K_ALCDATA = 44; (* ABOVE DATA NECESSARY FOR PLACEMENT *) FIB$C_ALCDATA = 44; (* ABOVE DATA NECESSARY FOR PLACEMENT *) FIB$M_ALT_REQ = 1; FIB$M_ALT_GRANTED = 2; FIB$M_DIRACL = 4; FIB$M_PROPAGATE = 8; FIB$M_NOCOPYACL = 16; FIB$M_NOCOPYOWNER = 32; FIB$M_NOCOPYPROT = 64; FIB$M_EXCLPREVIOUS = 128; FIB$M_ALIAS_ENTRY = 256; FIB$M_WILDFID_FLAG = 512; FIB$M_DID_FILESPEC = 1024; FIB$M_IS_SPECIAL = 2048; FIB$M_CHECK_SPECIAL = 4096; FIB$K_MOVEFILE = 72; (* end of FIB required by MOVEFILE *) FIB$C_MOVEFILE = 72; (* end of FIB required by MOVEFILE *) FIB$M_FILE_ATTRIBUTES = 15; FIB$M_FILE_CONTENTS = 240; FIB$C_DEFAULT = 0; (*Use default caching policy *) FIB$C_WRITETHROUGH = 1; (*Use writethrough caching *) FIB$C_WRITEBEHIND = 2; (*Use writebehind caching *) FIB$C_NOCACHING = 3; (*Do not cache file *) FIB$M_FLUSH_ON_CLOSE = 3840; FIB$C_FLUSH = 1; (*Flush file from cache when file closed *) FIB$C_NOFLUSH = 2; (*Retain file in cache when file closed *) FIB$M_CACHING_OPTIONS_MBZ = -4096; FIB$C_ODS2 = 0; (* Name is ODS-2 legal ASCII encoded *) FIB$C_ISL1 = 1; (* Name is 8-bit (ISO Latin 1) *) FIB$C_ISO_LATIN = 1; (* Synonym for ISL1 *) (* NOTE - Name format type 2 reserved (was UTF8) *) CONST FIB$C_UCS2 = 3; (* Name is UCS-2 encoded (both) *) FIB$C_NAMETYPE_LEN = 96; (* Length of FIB including NAMETYPE fields *) FIB$K_LENGTH = 96; FIB$C_LENGTH = 96; FIB$K_F64LEN = 96; FIB$C_F64LEN = 96; TYPE FIB$TYPE = RECORD CASE INTEGER OF 1: (FIB$R_ACCTL_OVERLAY : [BYTE(4)] RECORD END; FIB$R_FID_OVERLAY : [BYTE(6)] RECORD END; FIB$R_DID_OVERLAY : [BYTE(6)] RECORD END; FIB$L_WCC : UNSIGNED; (* WILD CARD CONTEXT *) FIB$R_NMCTL_OVERLAY : [BYTE(2)] RECORD END; FIB$R_EXCTL_OVERLAY : [BYTE(2)] RECORD END; FIB$L_EXSZ : UNSIGNED; (* EXTEND SIZE *) FIB$L_EXVBN : UNSIGNED; (* EXTENSION VBN *) FIB$R_ALOPTS_OVERLAY : [BYTE(1)] RECORD END; FIB$B_ALALIGN : $UBYTE; (* ALLOCATION ALIGNMENT *) FIB$R_ALLOC_OVERLAY : [BYTE(10)] RECORD END; FIB$W_VERLIMIT : $UWORD; (* DIRECTORY ENTRY VERSION LIMIT *) FIB$B_AGENT_MODE : $UBYTE; (* AGENTS ACCESS MODE *) FIB$B_RU_FACILITY : $UBYTE; (* RECOVERABLE-FACILITY CODE *) FIB$L_ACLCTX : UNSIGNED; (* ACL CONTEXT FOR READ *) FIB$L_ACL_STATUS : UNSIGNED; (* RETURN STATUS FROM ACL OPERATION *) FIB$R_STATUS_OVERLAY : [BYTE(4)] RECORD END; FIB$L_ALT_ACCESS : UNSIGNED; (* ALTERNATE ACCESS MASK *) FIB$R_FUNCDEPEND : [BYTE(8)] RECORD END; FIB$W_FILE_HDRSEQ_INCR : $UWORD; (*header seq no increment for indiv file *) FIB$W_DIR_HDRSEQ_INCR : $UWORD; (*header seq no increment for directory file *) FIB$W_FILE_DATASEQ_INCR : $UWORD; (*data seq no increment for indiv file *) FIB$W_DIR_DATASEQ_INCR : $UWORD; (*data seq no increment for driectory file *) (* Define fields and constant values for FIB$L_CACHING_OPTIONS longword. *) (* These must match [STARLET]ATRDEF.SDL exactly *) FIB$R_CACHING_OPTIONS_OVERLAY : [BYTE(4)] RECORD END; FIB$R_SD_FID_OVERLAY : [BYTE(6)] RECORD END; (* FID field for Secondary File Delete *) FIB$$_RESERVED_1 : $WORD; (* Pad up to a longword boundary *) FIB$B_NAME_FORMAT_IN : $UBYTE; (* Inbound file name encoding *) FIB$B_NAME_FORMAT_OUT : $UBYTE; (* Returned file name encoding *) FIB$B_ASCNAME_FORMAT : $UBYTE; (* ASCNAME attribute encoding *) FIB$B_RESERVED_2 : $UBYTE; (* For alignment. NOTE - Must be zero. *) ); 2: (FIB$L_ACCTL : [POS(0)] UNSIGNED; (* ACCESS CONTROL BITS *) FIB$W_FID : [POS(32)] ARRAY [1..3] OF $UWORD; (* FILE ID *) FIB$W_DID : [POS(80)] ARRAY [1..3] OF $UWORD; (* DIRECTORY ID *) FIB$W_NMCTL : [POS(160)] $UWORD; (* NAME CONTROL BITS *) FIB$W_EXCTL : [POS(176)] $UWORD; (* EXTEND CONTROL *) FIB$B_ALOPTS : [POS(256)] $UBYTE; (* ALLOCATION OPTIONS *) FIB$W_ALLOC : [POS(272)] ARRAY [1..5] OF $UWORD; (* ALLOCATION LOCATION *) FIB$L_STATUS : [POS(448)] UNSIGNED; (* GENERAL STATUS LONGWORD *) FIB$L_CACHING_OPTIONS : [POS(640)] UNSIGNED; (*F64XQP cache control bitvector *) FIB$W_SD_FID : [POS(672)] ARRAY [1..3] OF $UWORD; (* FILE ID *) ); 3: (FIB$L_MOV_SVBN : [POS(512)] UNSIGNED; (* starting VBN (MOVEFILE) *) FIB$L_MOV_VBNCNT : [POS(544)] UNSIGNED; (* count of VBNs (MOVEFILE) *) ); 4: (FIB$V_NOWRITE : [POS(0)] $BOOL; (* NO OTHER WRITERS *) FIB$V_DLOCK : [POS(1)] $BOOL; (* ENABLE DEACCESS LOCK *) FIB$V_BLK_LOCK : [POS(2)] $BOOL; (* ENABLE RMS-11 BLOCK LOCKING *) FIB$V_FASTRDSQNOS : [POS(3)] $BOOL; (* READ HDRSEQ AND DATASEQ VALS *) FIB$V_SPOOL : [POS(4)] $BOOL; (* SPOOL FILE ON CLOSE *) FIB$V_WRITECK : [POS(5)] $BOOL; (* ENABLE WRITE CHECK *) FIB$V_SEQONLY : [POS(6)] $BOOL; (* SEQUENTIAL ONLY ACCESS *) FIB$V_SEQNO : [POS(7)] $BOOL; (* STORE SEQNOS FOR THIS FILE *) FIB$V_WRITE : [POS(8)] $BOOL; (* WRITE ACCESS *) FIB$V_READCK : [POS(9)] $BOOL; (* ENABLE READ CHECK *) FIB$V_NOREAD : [POS(10)] $BOOL; (* NO OTHER READERS *) FIB$V_NOTRUNC : [POS(11)] $BOOL; (* FILE MAY NOT BE TRUNCATED *) FIB$V_CONTROL : [POS(12)] $BOOL; (* CONTROL ACCESS TO FILE *) FIB$V_NO_READ_DATA : [POS(13)] $BOOL; (* NO READ ACCESS TO FILE DATA *) FIB$V_SSIO : [POS(14)] $BOOL; (* File is opened for SSIO access *) (* THE HIGH 8 BITS CANNOT BE COPIED *) (* INTO THE ACCESS MODE WORD IN THE WINDOW *) FIB$V_EXECUTE : [POS(16)] $BOOL; (* ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) *) FIB$V_PRSRV_ATR : [POS(17)] $BOOL; (* PRESERVE ORIGINAL ATTRIBUTES OF FILE *) FIB$V_RMSLOCK : [POS(18)] $BOOL; (* OPEN WITH RMS RECORD LOCKING *) FIB$V_WRITETHRU : [POS(19)] $BOOL; (* FORCE CACHE WRITE-THROUGH ON OPERATION *) FIB$V_NOLOCK : [POS(20)] $BOOL; (* OVERRIDE ACCESS INTERLOCKS *) FIB$V_NORECORD : [POS(21)] $BOOL; (* DO NOT RECORD FILE ACCESS *) FIB$V_NOVERIFY : [POS(22)] $BOOL; (* Do not perform compare on move. *) FIB$V_CHANGE_VOL : [POS(23)] $BOOL; (* Allow Movefile move between volumes in a set. *) FIB$W_FID_NUM : [POS(32)] $UWORD; (* FILE NUMBER *) FIB$W_FID_SEQ : [POS(48)] $UWORD; (* FILE SEQUENCE NUMBER *) FIB$W_DID_NUM : [POS(80)] $UWORD; (* FILE NUMBER *) FIB$W_DID_SEQ : [POS(96)] $UWORD; (* FILE SEQUENCE NUMBER *) FIB$V_NAMES_8BIT : [POS(160)] $BOOL; (* RETURN 8BIT FILENAMES (HFS) *) FIB$V_NAMES_16BIT : [POS(161)] $BOOL; (* RETURN 16BIT FILENAMES (HFS) *) FIB$V_PERCENT_LITERAL : [POS(162)] $BOOL; (* PERCENT IS LITERAL (HFS) *) FIB$V_ALLVER : [POS(163)] $BOOL; (* MATCH ALL VERSIONS *) FIB$V_ALLTYP : [POS(164)] $BOOL; (* MATCH ALL TYPES *) FIB$V_ALLNAM : [POS(165)] $BOOL; (* MATCH ALL NAMES *) FIB$V_CASE_SENSITIVE : [POS(166)] $BOOL; (* case sensitive lookup *) FIB$V_SEARCH : [POS(167)] $BOOL; (* Match names in purely case blind manner. *) (* (intended for search operations; normal file *) (* access should give preference to exact match) *) FIB$V_WILD : [POS(168)] $BOOL; (* WILD CARDS IN FILE NAME *) FIB$V_NEWVER : [POS(169)] $BOOL; (* MAXIMIZE VERSION NUMBER *) FIB$V_SUPERSEDE : [POS(170)] $BOOL; (* SUPERSEDE EXISTING FILE *) FIB$V_FINDFID : [POS(171)] $BOOL; (* SEARCH FOR FILE ID *) FIB$V_FINDDIR : [POS(172)] $BOOL; (* SEARCH FOR DIR EXTENTION (Internal use only) *) (* the following bits are output, not input *) FIB$V_CASE_VARIANT : [POS(173)] $BOOL; (* A case variant of this filename exists *) FIB$V_LOWVER : [POS(174)] $BOOL; (* LOWER VERSION OF FILE EXISTS *) FIB$V_HIGHVER : [POS(175)] $BOOL; (* HIGHER VERSION OF FILE EXISTS *) FIB$V_ALCON : [POS(176)] $BOOL; (* ALLOCATE CONTIGUOUS *) FIB$V_ALCONB : [POS(177)] $BOOL; (* CONTIGUOUS BEST EFFORT *) FIB$V_FILCON : [POS(178)] $BOOL; (* MARK FILE CONTIGUOUS *) FIB$V_ALDEF : [POS(179)] $BOOL; (* ALLOCATE DEFAULT AMOUNT *) FIB$V_ALLOCATR : [POS(180)] $BOOL; (* PLACEMENT DATA PRESENT IN ATTRIBUTE LIST *) FIB$V_EXTEND : [POS(183)] $BOOL; (* ENABLE EXTENSION *) FIB$V_TRUNC : [POS(184)] $BOOL; (* ENABLE TRUNCATION *) FIB$V_NOHDREXT : [POS(185)] $BOOL; (* INHIBIT EXTENSION HEADERS *) FIB$V_MARKBAD : [POS(186)] $BOOL; (* MARK BLOCKS BAD *) FIB$V_NOPLACE : [POS(190)] $BOOL; (* DON'T ADD PLACEMENT POINTERS IN MOVEFILE *) FIB$V_NOCHARGE : [POS(191)] $BOOL; (* DON'T CHARGE DISKQUOTA *) FIB$V_EXACT : [POS(256)] $BOOL; (* EXACT PLACEMENT REQUIRED *) FIB$V_ONCYL : [POS(257)] $BOOL; (* PUT ALLOCATION ON ONE CYLINDER *) FIB$L_LOC_ADDR : [POS(320)] UNSIGNED; (* LOCATION ADDRESS (VBN, LBN, CYL) *) FIB$V_ALT_REQ : [POS(448)] $BOOL; (* ALTERNATE ACCESS REQUIRED *) FIB$V_ALT_GRANTED : [POS(449)] $BOOL; (* ALTERNATE ACCESS GRANTED *) FIB$V_DIRACL : [POS(450)] $BOOL; (* DO DIRECTORY ACL PROPAGATION *) FIB$V_PROPAGATE : [POS(451)] $BOOL; (* DO PROPAGATION ON ENTER/MODIFY *) FIB$V_NOCOPYACL : [POS(452)] $BOOL; (* DON'T PROPAGATE THE ACL *) FIB$V_NOCOPYOWNER : [POS(453)] $BOOL; (* DON'T PROPAGATE THE OWNER UIC *) FIB$V_NOCOPYPROT : [POS(454)] $BOOL; (* DON'T PROPAGATE THE SOGW PROTECTION *) FIB$V_EXCLPREVIOUS : [POS(455)] $BOOL; (* EXCLUDE THE PREVIOUS VERSION FROM PROPAGATION *) FIB$V_ALIAS_ENTRY : [POS(456)] $BOOL; (* FILE ACCESSED VIA AN ALIAS DIRECTORY ENTRY *) FIB$V_WILDFID_FLAG : [POS(457)] $BOOL; (* WILDCARD FID FLAG *) FIB$V_DID_FILESPEC : [POS(458)] $BOOL; (* FILESPEC HAD BEEN DID'ED *) FIB$V_IS_SPECIAL : [POS(459)] $BOOL; (* Special file detected and handled *) FIB$V_CHECK_SPECIAL : [POS(460)] $BOOL; (* Check for special files *) FIB$V_FILE_ATTRIBUTES : [POS(640)] $BIT4; (*File attributes caching field *) FIB$V_FILE_CONTENTS : [POS(644)] $BIT4; (*File contents caching field *) FIB$V_FLUSH_ON_CLOSE : [POS(648)] $BIT4; (*Flush file on close field *) FIB$V_CACHING_OPTIONS_MBZ : [POS(652)] $BIT20; (*Must be zero *) FIB$W_SD_FID_NUM : [POS(672)] $UWORD; (* FILE NUMBER *) FIB$W_SD_FID_SEQ : [POS(688)] $UWORD; (* FILE SEQUENCE NUMBER *) ); 5: (FIB$W_FID_RVN : [POS(64)] $UWORD; (* RELATIVE VOLUME NUMBER *) FIB$W_DID_RVN : [POS(112)] $UWORD; (* RELATIVE VOLUME NUMBER *) FIB$W_LOC_FID : [POS(272)] ARRAY [1..3] OF $UWORD; (* RELATED FILE ID *) FIB$W_SD_FID_RVN : [POS(704)] $UWORD; (* RELATIVE VOLUME NUMBER *) ); 6: (FIB$V_REWIND : [POS(3)] $BOOL; (* REWIND TAPE *) FIB$V_CURPOS : [POS(4)] $BOOL; (* CREATE AT CURRENT TAPE POSITION *) FIB$V_UPDATE : [POS(6)] $BOOL; (* UPDATE MODE (POSITION TO START OF FILE) *) ); 7: (FIB$B_FID_RVN : [POS(64)] $UBYTE; (* SHORT FORM RVN *) FIB$B_FID_NMX : [POS(72)] $UBYTE; (* EXTENDED FILE NUMBER *) FIB$B_DID_RVN : [POS(112)] $UBYTE; (* SHORT FORM RVN *) FIB$B_DID_NMX : [POS(120)] $UBYTE; (* EXTENDED FILE NUMBER *) FIB$W_LOC_NUM : [POS(272)] $UWORD; (* RELATED FILE NUMBER *) FIB$W_LOC_SEQ : [POS(288)] $UWORD; (* FILE SEQUENCE NUMBER *) FIB$B_SD_FID_RVN : [POS(704)] $UBYTE; (* SHORT FORM RVN *) FIB$B_SD_FID_NMX : [POS(712)] $UBYTE; (* EXTENDED FILE NUMBER *) ); 8: (FIB$B_WSIZE : [POS(24)] $BYTE; (* WINDOW SIZE *) FIB$W_LOC_RVN : [POS(304)] $UWORD; (* RELATED RVN *) ); 9: (FIB$W_FID_DIRNUM : [POS(32)] $UWORD; (* Directory number of File-Id *) FIB$L_FID_RECNUM : [POS(48)] UNSIGNED; (* Record number of File-ID *) FIB$W_DID_DIRNUM : [POS(80)] $UWORD; (* Directory number of File-Id *) FIB$L_DID_RECNUM : [POS(96)] UNSIGNED; (* Record number of File-ID *) ); 10: (FIB$B_LOC_RVN : [POS(304)] $UBYTE; (* SHORT FORM RVN *) FIB$B_LOC_NMX : [POS(312)] $UBYTE; (* EXTENDED FILE NUMBER *) ) END; CONST FIB$C_REWINDVOL = 1; (* REWIND VOLUME SET *) FIB$C_POSEND = 2; (* POSITION TO END OF VOLUME SET *) FIB$C_NEXTVOL = 3; (* FORCE NEXT VOLUME *) FIB$C_SPACE = 4; (* SPACE MAGNETIC TAPE *) FIB$C_ILLEGAL = 5; (* *) FIB$C_REWINDFIL = 6; (* REWIND FILE *) FIB$C_LOCK_VOL = 7; (* LOCK VOLUME AGAINST ALLOCATION *) FIB$C_UNLK_VOL = 8; (* UNLOCK VOLUME *) (* QUOTA FILE OPERATIONS *) CONST FIB$C_ENA_QUOTA = 9; (* ENABLE QUOTA FILE *) FIB$C_DSA_QUOTA = 10; (* DISABLE QUOTA FILE *) FIB$C_ADD_QUOTA = 11; (* ADD QUOTA FILE ENTRY *) FIB$C_EXA_QUOTA = 12; (* EXAMINE QUOTA FILE ENTRY *) FIB$C_MOD_QUOTA = 13; (* MODIFY QUOTA FILE ENTRY *) FIB$C_REM_QUOTA = 14; (* REMOVE QUOTA FILE ENTRY *) FIB$C_USEREOT = 15; (* ENABLE USER END OF TAPE HANDLING *) FIB$C_REMAP = 16; (* REMAP FILE WINDOW *) FIB$C_CLSEREXCP = 17; (* ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVE *) FIB$C_FLUSH_CACHE = 18; (* FLUSH SELECTED CACHE *) FIB$C_FORCE_MV = 19; (* FORCE MOUNT VERIFICATION TO OCCUR *) FIB$C_VALIDATE_VOLUME = 20; (* VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOT *) FIB$C_VALIDATE_FILE = 21; (* VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOT *) FIB$C_UPDATE_VOL_PROFILE = 22; (* UPDATE A VOLUME'S (PERMANENT) SECURITY PROFILE *) FIB$C_UPDATE_FIL_PROFILE = 23; (* UPDATE A FILE'S (PERMANENT) SECURITY PROFILE *) FIB$C_CHECK_PROTECTION = 24; (* PERFORM FILE OR VOLUME PROTECTION CHECK *) FIB$C_ADD_THREAD = 25; (* ADD A NEW THREAD *) FIB$C_REM_THREAD = 26; (* REMOVE A THREAD *) FIB$C_EXA_THREAD = 27; (* INQUIRE ABOUT THREADS *) FIB$C_CHECK_PATH = 28; (* FIND DIRSEQ VAL AND ARM BLKAST *) FIB$C_ENA_DW = 29; (* ENABLE DEFERRED WRITE *) FIB$C_DSA_DW = 30; (* DISABLE DEFERRED WRITE *) FIB$C_WRITEBACK_CACHE = 31; (* F64 caching *) FIB$C_WRITETHRU_CACHE = 32; (* F64 caching *) FIB$C_FILE_SYNCH = 33; (* VDC/Spiralog flush file to disk *) FIB$C_CACHING_OPTIONS = 34; (* VDC/Spiralog select caching mode *) FIB$C_WRITE_BARRIER = 35; (* VDC/Spiralog barrier writes to this point *) FIB$C_VOL_FLUSH = 36; (* VDC volume flush local node only *) FIB$C_VOL_FLUSH_ALL = 37; (* VDC flush all volumes local node only *) FIB$C_CLONE_FIL_PROFILE = 38; (* RETURN A COPY OF A FILE'S CURRENT SECURITY PROFILE *) FIB$C_STRUC_LEVEL2 = 39; (* Set the vcb to ods2 *) FIB$C_STRUC_LEVEL5 = 40; (* Set the vcb to ods5 *) FIB$C_EXPAND_VOLUME = 41; (* Expand the volume size *) FIB$C_EXPAND_BITMAP = 42; (* Increase the BITMAP.SYS size *) FIB$K_MTALEN = 28; (* LENGTH OF MTAACP DATA *) FIB$C_MTALEN = 28; (* LENGTH OF MTAACP DATA *) (* *) CONST FIB$C_FID_CACHE = 1; (* FLUSH THE FID CACHE *) FIB$C_EXTENT_CACHE = 2; (* FLUSH THE EXTENT CACHE *) FIB$C_QUOTA_CACHE = 3; (* FLUSH THE QUOTA CACHE *) FIB$C_BFRD_CACHE = 4; (* FLUSH THE BFRD CACHE *) FIB$C_VBN_CACHE = 5; (* FLUSH THE VBN CACHE *) (* *) CONST FIB$C_FLUSH_FILE_ATTRIBUTES = 1; (* Only flush file attributes *) FIB$C_FLUSH_FILE_CONTENTS = 2; (* Only flush file contents *) FIB$C_FLUSH_FILE = 3; (* Flush all of file *) (* *) CONST FIB$M_ALL_MEM = 1; FIB$M_ALL_GRP = 2; FIB$M_MOD_USE = 4; FIB$M_MOD_PERM = 8; FIB$M_MOD_OVER = 16; TYPE FIB1$TYPE = RECORD CASE INTEGER OF 1: (FIBDEF$$_FILL_14 : ARRAY [1..22] OF $BYTE; FIB$W_CNTRLFUNC : $UWORD; (* ACP CONTROL FUNCTION *) (* DEFINE ACP CONTROL FUNCTION CODES *) (* *) FIB$R_CNTRLVAL_OVERLAY : [BYTE(4)] RECORD END; ); 2: (FIB$L_CNTRLVAL : [POS(192)] UNSIGNED; (* ACP CONTROL FUNCTION VALUE PARAMETER *) (* CACHE IDENTIFIER CODES FOR FLUSH_CACHE *) (* *) (* Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC *) (* *) (* CONTROL BITS FOR QUOTA FILE OPERATIONS *) (* *) ); 3: (); 4: (FIB$V_ALL_MEM : [POS(192)] $BOOL; (* MATCH ALL MEMBER NUMBERS *) FIB$V_ALL_GRP : [POS(193)] $BOOL; (* MATCH ALL GROUP NUMBERS *) FIB$V_MOD_USE : [POS(194)] $BOOL; (* MODIFY USAGE DATA *) FIB$V_MOD_PERM : [POS(195)] $BOOL; (* MODIFY PERMANENT QUOTA *) FIB$V_MOD_OVER : [POS(196)] $BOOL; (* MODIFY OVERDRAFT LIMIT *) ) END; (* Add a synonym for FIB$C_FILE_SYNCH to keep naming consistency *) CONST FIB$C_FILE_FLUSH = 33; (*** MODULE $FIDDEF ***) (* *) (* STRUCTURE OF A FILE ID (FID) *) (* *) CONST FID$K_LENGTH = 6; FID$C_LENGTH = 6; FID$C_INDEXF = 1; (* INDEX FILE *) FID$C_BITMAP = 2; (* STORAGE MAP FILE *) FID$C_BADBLK = 3; (* BAD BLOCK FILE *) FID$C_MFD = 4; (* MASTER FILE DIRECTORY *) FID$C_CORIMG = 5; (* CORE IMAGE FILE *) FID$C_VOLSET = 6; (* VOLUME SET LIST FILE *) FID$C_CONTIN = 7; (* STANRARD CONTINUATION FILE *) FID$C_BACKUP = 8; (* BACKUP LOG FILE *) FID$C_BADLOG = 9; (* BAD BLOCK LOG FILE *) FID$C_SECURITY = 10; (* SECURITY FILE *) FID$C_GPT = 11; (* GPT FILE *) FID$C_FREFIL = 10; (* FREE SPACE FILE *) TYPE FID$TYPE = RECORD CASE INTEGER OF 1: (FID$R_FID_OVERLAY : [BYTE(6)] RECORD END; ); 2: (FID$W_FID : [POS(0)] ARRAY [1..3] OF $UWORD; (* File Identification Number *) ); 3: (); 4: (FID$W_NUM : [POS(0)] $UWORD; (* FILE NUMBER *) FID$W_SEQ : [POS(16)] $UWORD; (* FILE SEQUENCE NUMBER *) ); 5: (FID$W_RVN : [POS(32)] $UWORD; (* RELATIVE VOLUME NUMBER *) ); 6: (); 7: (FID$B_RVN : [POS(32)] $UBYTE; (* BYTE FORM OF RVN *) FID$B_NMX : [POS(40)] $UBYTE; (* FILE NUMBER EXTENSION *) (* FILE ID'S OF THE RESERVED FILES *) ); 8: (); 9: (FID$W_DIRNUM : [POS(0)] $UWORD; (* Directory number of File-Id *) FID$L_RECNUM : [POS(16)] UNSIGNED; (* Record number of File-ID *) ) END; (*** MODULE $FLTDEF ***) (* *) (* FLAG BITS FOR THE $SETFLT SYSTEM SERVICE. *) (* *) CONST FLT$M_NO_EXECUTE = 1; FLT$M_EXECUTE_ONLY = 2; FLT$M_PERM = 4; FLT$M_EXECUTABLE = 8; TYPE FLT$TYPE = RECORD CASE INTEGER OF 1: (FLT$R_FLTDEF_BITS : [BYTE(1)] RECORD END; ); 2: (FLT$V_NO_EXECUTE : [POS(0)] $BOOL; (* No Execute *) FLT$V_EXECUTE_ONLY : [POS(1)] $BOOL; (* Execute Only (for future use) *) FLT$V_PERM : [POS(2)] $BOOL; (* Permanent (for future use) *) FLT$V_EXECUTABLE : [POS(3)] $BOOL; (* Set page to executable *) ) END; (*** MODULE $GEN64DEF ***) (*+ *) (* Define the generic quadword structure. *) (*- *) TYPE GENERIC_64$TYPE = RECORD CASE INTEGER OF 1: (GEN64$R_QUAD_OVERLAY : [BYTE(8)] RECORD END; (* You can treat me as... *) ); 2: (GEN64$Q_QUADWORD : [POS(0)] $UQUAD; (* ...a single 64-bit value, or *) ); 3: (GEN64$L_LONGWORD : [POS(0)] ARRAY [1..2] OF UNSIGNED; (* ...two 32-bit values, or *) ); 4: (GEN64$W_WORD : [POS(0)] ARRAY [1..4] OF $UWORD; (* ...four 16-bit values *) ) END; CONST GEN64$K_LENGTH = 8; (* Length of GEN64 structure *) GEN64$C_LENGTH = 8; (* Length of GEN64 structure *) (*** MODULE $GETSPIDEF ***) (*+ *) (* Get System Performance Information Data Identifier Definitions *) (* *) (* The following constants define the items which can be collected *) (* with the Get System Performance Information service (GETSPI). *) (* The item numbers are defined as follows: *) (* *) (* 16 12 0 *) (* +------------------+-------------+ *) (* | Structure number | Item number | *) (* +------------------+-------------+ *) (* *) (* The top four bits represent the structure of the item and the last 12 *) (* bits represent the item within the structure. *) (* *) (* Caution! *) (* The SPIDEF in the [montor] facility contained the following *) (* instructions on adding new symbols. With this interface being added *) (* to STARLET, changing any item number is unacceptable. Some spare item *) (* number exist in each range; if these are ever exhausted, new ranges must *) (* be defined and support added, rather than changing item numbers. *) (* *) (* * The item numbers start *) (* * at 0 and increase sequentially to the last item (even across tables). *) (* * If new items are added to a table, programs MUST be relinked to allow *) (* * the old definitions to change. This was done to simplify some table *) (* * lookups in the Monitor Utility. To get around this, new items can be *) (* * added at the end of the list. *) (* * *) (* * Each table has one item at the end to act as a place holder. It should *) (* * have the same item number as the first item of the next table. These *) (* * items are not counters in the total number of SPI items GETSPI$_TABLESIZE. *) (*- *) (* DEFINE TABLE TYPES *) CONST GETSPI$C_EXETYPE = 1; (* Executive cells *) GETSPI$C_EWSTYPE = 2; (* Executive writable storage area *) GETSPI$C_MONTYPE = 3; (* Monitor specific items *) GETSPI$C_RMSTYPE = 4; (* Monitor RMS specific items *) GETSPI$C_LISTEND = 0; (* End of table list *) (* *) (* The following section defines items which are collected during initialization. *) (* There items include general system information, and server version number. *) (* The server version number is also defined here. *) (* *) CONST GETSPI$_initial = -1; (* Initialization item list *) GETSPI$_data_collection = -2; (* Data collection item list *) GETSPI$_sysinfo = -3; (* System information item *) GETSPI$_version_number = -4; (* Monitor version number *) GETSPI$_rms_file = -5; (* Parse file name *) GETSPI$_rms_gs = -6; (* Get global section address *) GETSPI$_last_type = -7; GETSPI$_server_version = 5; (* *) (* Define bits in the PMS flags field PMS$GL_FLAGS. These are used to *) (* synchronize access to some PMS field and enable other activity. *) (* *) TYPE getspi$pms_flags = RECORD CASE INTEGER OF 1: (GETSPI$l_flags : [BYTE(4)] RECORD END; (* Class qualifier flags for CDB (Active) *) ); 2: (GETSPI$v_disk_enable : [POS(0)] $BOOL; (* YES => Enable disk queue length collection *) (* This field must be accessed via an interlocked *) (* bit instruction. *) GETSPI$v_filler1 : [POS(1)] $BIT7; (* Fill out remainder of first byte *) GETSPI$v_disk_sync : [POS(8)] $BOOL; (* YES => Synchronize access to several PMS counters *) (* used in the collection of disk queue length. *) (* This field must be accessed via an interlocked *) (* bit instruction, AND MUST BE IN A SEPARATE *) (* BYTE from the disk_enable bit (required by *) (* the architecture to maintain synchronization). *) GETSPI$v_filler2 : [POS(9)] $BIT23; (* Fill out remainder of field *) ) END; (* *) (* Define two contants to handle help handle large lookaside lists. The *) (* maximum number that SPISHR will count to is defined with *) (* GETSPI$K_MAX_PACKET and the value returned when this threshold is *) (* reached is defined as GETSPI$K_POOL_OVF. *) (* *) CONST GETSPI$k_max_packet = 500; GETSPI$k_pool_ovf = -2147483647; (* *) (* Define item identifier numbers. Each data item has an associated *) (* value which is used to find its entry in the EXETBL. The item table *) (* is defined by the macros SPI_GENERATE_TABLE which makes multiple calls *) (* to the macro SPI_ITEM_CODE defined in the SYSGETSPI module. *) (* *) CONST GETSPI$_MODES = 4096; (* All modes counters on all CPU's *) GETSPI$_INTERRUPT = 4097; (* time on interrupt stack -- primary *) GETSPI$_KERNEL = 4098; (* time in kernel mode -- primary *) GETSPI$_EXEC = 4099; (* time in exec mode -- primary *) GETSPI$_SUPER = 4100; (* time in supervisor mode -- primary *) GETSPI$_USER = 4101; (* time in user mode -- primary *) GETSPI$_COMPAT = 4102; (* time in compat. mode -- primary *) GETSPI$_INTERRUPT_BUSY = 4103; (* Time spent spinning on the interrupt stack *) GETSPI$_KERNEL_BUSY = 4104; (* Time spent spinning on the lernel stack *) GETSPI$_IDLE = 4105; (* idle time -- primary *) GETSPI$_CPUBUSY = 4106; (* RETIRED ITEM - RETURNS 0 *) GETSPI$_COLPG = 4107; (* collided page wait *) GETSPI$_MWAIT = 4108; (* memory wait *) GETSPI$_CEF = 4109; (* common event flag wait *) GETSPI$_PFW = 4110; (* page wait *) GETSPI$_LEF = 4111; (* local event flag wait *) GETSPI$_LEFO = 4112; (* lef wait out of bal. set *) GETSPI$_HIB = 4113; (* hibernating *) GETSPI$_HIBO = 4114; (* hibernating outswapped *) GETSPI$_SUSP = 4115; (* suspended *) GETSPI$_SUSPO = 4116; (* suspended outswapped *) GETSPI$_FPG = 4117; (* free page wait *) GETSPI$_COM = 4118; (* computing *) GETSPI$_COMO = 4119; (* computable outswapped *) GETSPI$_CUR = 4120; (* current *) GETSPI$_OTHSTAT = 4121; (* RETIRED ITEM - RETURNS 0 *) GETSPI$_PROCS = 4122; (* process count for SYSTEM class *) GETSPI$_PROC = 4123; (* collect all process information *) GETSPI$_FRLIST = 4124; (* size of free list *) GETSPI$_MODLIST = 4125; (* size of modified list *) GETSPI$_FAULTS = 4126; (* page fault count *) GETSPI$_PREADS = 4127; (* page reads *) GETSPI$_PWRITES = 4128; (* page writes *) GETSPI$_PWRITIO = 4129; (* physical page write I/O's *) GETSPI$_PREADIO = 4130; (* physical page read I/O's *) GETSPI$_GVALFLTS = 4131; (* global valid faults *) GETSPI$_WRTINPROG = 4132; (* faults from write in progress *) GETSPI$_FREFLTS = 4133; (* faults from free list *) GETSPI$_MFYFLTS = 4134; (* faults from modified list *) GETSPI$_DZROFLTS = 4135; (* demand zero faults *) GETSPI$_SYSFAULTS = 4136; (* system page faults *) GETSPI$_LRPCNT = 4137; (* number of LRP packets available *) GETSPI$_LRPINUSE = 4138; (* number of LRPs in use *) GETSPI$_IRPCNT = 4139; (* number of IRP packets available *) GETSPI$_IRPINUSE = 4140; (* number of IRPs in use *) GETSPI$_SRPCNT = 4141; (* number of SRP packets available *) GETSPI$_SRPINUSE = 4142; (* number of SRPs in use *) GETSPI$_HOLECNT = 4143; (* number of blocks in dyn. memory *) GETSPI$_BIGHOLE = 4144; (* largest hole *) GETSPI$_SMALLHOLE = 4145; (* smallest hole *) GETSPI$_HOLESUM = 4146; (* total space in dyn. memory available *) GETSPI$_DYNINUSE = 4147; (* dynamic memory space in use *) GETSPI$_SMALLCNT = 4148; (* number of blocks < 32 bytes in size *) GETSPI$_ISWPCNT = 4149; (* total inswaps *) GETSPI$_DIRIO = 4150; (* count of direct I/Os *) GETSPI$_BUFIO = 4151; (* count of buffered I/Os *) GETSPI$_MBREADS = 4152; (* total mailbox reads *) GETSPI$_MBWRITES = 4153; (* total mailbox writes *) GETSPI$_LOGNAM = 4154; (* logical name translations *) GETSPI$_FCPCALLS = 4155; (* total fcp calls *) GETSPI$_FCPREAD = 4156; (* number of disk reads by FCP *) GETSPI$_FCPWRITE = 4157; (* number of disk writes by FCP *) GETSPI$_FCPCACHE = 4158; (* number of FCP cache hits *) GETSPI$_FCPCPU = 4159; (* number of CPU tics by FCP *) GETSPI$_FCPHIT = 4160; (* number of window hits *) GETSPI$_FCPSPLIT = 4161; (* number of split transfers *) GETSPI$_FCPFAULT = 4162; (* number of FCP page faults *) GETSPI$_ENQNEW = 4163; (* number of ENQ's (new) *) GETSPI$_ENQCVT = 4164; (* number of ENQ's (conversions) *) GETSPI$_DEQ = 4165; (* number of DEQ's *) GETSPI$_BLKAST = 4166; (* number of blocking AST's *) GETSPI$_ENQWAIT = 4167; (* number of ENQ's forced to wait *) GETSPI$_ENQNOTQD = 4168; (* number of ENQ's not queued *) GETSPI$_DLCKSRCH = 4169; (* number of deadlock searches *) GETSPI$_DLCKFND = 4170; (* number of deadlocks found *) GETSPI$_NUMLOCKS = 4171; (* total locks *) GETSPI$_NUMRES = 4172; (* total resources *) GETSPI$_ARRLOCPK = 4173; (* arriving local packets *) GETSPI$_DEPLOCPK = 4174; (* departing local packets *) GETSPI$_ARRTRAPK = 4175; (* arriving transit packets *) GETSPI$_TRCNGLOS = 4176; (* transit congestion loss *) GETSPI$_RCVBUFFL = 4177; (* receiver buffer failures *) GETSPI$_RESERVED1 = 4178; (* Reserved PMS location 1 *) GETSPI$_RESERVED2 = 4179; (* Reserved PMS location 2 *) GETSPI$_RESERVED3 = 4180; (* Reserved PMS location 3 *) GETSPI$_RESERVED4 = 4181; (* Reserved PMS location 4 *) GETSPI$_RESERVED5 = 4182; (* Reserved PMS location 5 *) GETSPI$_RESERVED6 = 4183; (* Reserved PMS location 6 *) GETSPI$_RESERVED7 = 4184; (* Reserved PMS location 7 *) GETSPI$_RESERVED8 = 4185; (* Reserved PMS location 8 *) GETSPI$_RESERVED9 = 4186; (* Reserved PMS location 9 *) GETSPI$_RESERVED10 = 4187; (* Reserved PMS location 10 *) GETSPI$_RESERVED11 = 4188; (* Reserved PMS location 11 *) GETSPI$_RESERVED12 = 4189; (* Reserved PMS location 12 *) GETSPI$_RESERVED13 = 4190; (* Reserved PMS location 13 *) GETSPI$_RESERVED14 = 4191; (* Reserved PMS location 14 *) GETSPI$_RESERVED15 = 4192; (* Reserved PMS location 15 *) GETSPI$_RESERVED16 = 4193; (* Reserved PMS location 16 *) GETSPI$_RESERVED17 = 4194; (* Reserved PMS location 17 *) GETSPI$_RESERVED18 = 4195; (* Reserved PMS location 18 *) GETSPI$_FID_TRIES = 4196; (* count of File Id cache attempts *) GETSPI$_FILHDR_TRIES = 4197; (* count of File header cache attempts *) GETSPI$_DIRFCB_TRIES = 4198; (* count of Directory block cache attempts *) GETSPI$_DIRDATA_TRIES = 4199; (* count of Directory data cache attempts *) GETSPI$_EXT_TRIES = 4200; (* count of Extent cache attempts *) GETSPI$_QUO_TRIES = 4201; (* count of Quota cache attempts *) GETSPI$_STORAGMAP_TRIES = 4202; (* count of storage bitmap cache attempts *) GETSPI$_DISKS = 4203; (* all disk data *) GETSPI$_TOTAL_LOCKS = 4204; (* Total of all locking activity - NOT COLLECTED BY SPI - COMPUTED BY MONITOR *) GETSPI$_ENQNEWLOC = 4205; (* new lock requests (local) *) GETSPI$_ENQNEWIN = 4206; (* new lock requests (incoming) *) GETSPI$_ENQNEWOUT = 4207; (* new lock requests (outgoing) *) GETSPI$_ENQCVTLOC = 4208; (* lock conversion requests (local) *) GETSPI$_ENQCVTIN = 4209; (* lock conversion requests (incoming) *) GETSPI$_ENQCVTOUT = 4210; (* lock conversion requests (outgoing) *) GETSPI$_DEQLOC = 4211; (* dequeues (local) *) GETSPI$_DEQIN = 4212; (* dequeues (incoming) *) GETSPI$_DEQOUT = 4213; (* dequeues (outgoing) *) GETSPI$_BLKLOC = 4214; (* blocking ASTs queued (local) *) GETSPI$_BLKIN = 4215; (* blocking ASTs queued (incoming) *) GETSPI$_BLKOUT = 4216; (* blocking ASTs queued (outgoing) *) GETSPI$_DIRIN = 4217; (* directory operations (incoming) *) GETSPI$_DIROUT = 4218; (* directory operations (outgoing) *) GETSPI$_DLCKMSGS = 4219; (* deadlock detection messages (in & out) *) GETSPI$_SCS = 4220; (* All SCS information *) GETSPI$_SYSTIME = 4221; (* Current system time *) GETSPI$_MSCP_REQUEST = 4222; (* IO request rate to the MSCP server *) GETSPI$_MSCP_READ = 4223; (* Read request rate to the MSCP server *) GETSPI$_MSCP_WRITE = 4224; (* Write request rate to the MSCP server *) GETSPI$_MSCP_FRAGMENT = 4225; (* Rate at which I/O's are fragmented *) GETSPI$_MSCP_SPLIT = 4226; (* Rate at which I/O's are split *) GETSPI$_MSCP_BUFWAIT = 4227; (* Rate at which incoming requests have to wait for a buffer *) GETSPI$_MSCP_SIZE1 = 4228; (* I/O rate for sizes 1-2 blocks *) GETSPI$_MSCP_SIZE2 = 4229; (* I/O rate for sizes 2-3 blocks *) GETSPI$_MSCP_SIZE3 = 4230; (* I/O rate for sizes 4-7 blocks *) GETSPI$_MSCP_SIZE4 = 4231; (* I/O rate for sizes 8-15 blocks *) GETSPI$_MSCP_SIZE5 = 4232; (* I/O rate for sizes 16-31 blocks *) GETSPI$_MSCP_SIZE6 = 4233; (* I/O rate for sizes 32-63 blocks *) GETSPI$_MSCP_SIZE7 = 4234; (* I/O rate for sizes 64-127 blocks *) GETSPI$_MSCP_ALL = 4235; (* Dummy item to collect all MSCP server class items *) GETSPI$_DDTM_STARTS = 4236; (* Local Transaction starts *) GETSPI$_DDTM_PREPARES = 4237; (* Local Transaction prepare event *) GETSPI$_DDTM_ONE_PHASE = 4238; (* Transaction ONE_PHASE commit event *) GETSPI$_DDTM_COMMITS = 4239; (* Local Transaction commit event *) GETSPI$_DDTM_ABORTS = 4240; (* Local Transaction abort event *) GETSPI$_DDTM_ENDS = 4241; (* Local Transaction ends *) GETSPI$_DDTM_BRANCHS = 4242; (* Start branch event *) GETSPI$_DDTM_ADDS = 4243; (* Add branch event *) GETSPI$_DDTM_BUCKETS1 = 4244; (* TPS rate for < 1 *) GETSPI$_DDTM_BUCKETS2 = 4245; (* TPS rate for 1-2 *) GETSPI$_DDTM_BUCKETS3 = 4246; (* TPS rate for 2-3 *) GETSPI$_DDTM_BUCKETS4 = 4247; (* TPS rate for 3-4 *) GETSPI$_DDTM_BUCKETS5 = 4248; (* TPS rate for 4-5 *) GETSPI$_DDTM_BUCKETS6 = 4249; (* TPS rate for > 6 *) GETSPI$_DDTM_ALL = 4250; (* Dummy item to collect all TRANSACTION class items *) GETSPI$_VECTORP = 4251; (* Vector Processor tics scheduled *) GETSPI$_VBYTE_READ = 4252; (* VBS bytes read *) GETSPI$_VBYTE_WRITE = 4253; (* VBS bytes written *) GETSPI$_VVBS_TRAN = 4254; GETSPI$_VRBS_TRAN = 4255; GETSPI$_VDIO_SEL = 4256; GETSPI$_VDIOMAP_ALLOC = 4257; GETSPI$_VRBS_AVAIL = 4258; GETSPI$_VSEL_FAIL = 4259; GETSPI$_VVBSM_HIT = 4260; GETSPI$_VVBSM_CACHE = 4261; GETSPI$_VFLUIDBAL = 4262; GETSPI$_VRECOPY = 4263; GETSPI$_VCPUTICKS = 4264; GETSPI$_RESERVEDEXE1 = 4265; (* Reserved EXE items *) GETSPI$_RESERVEDEXE2 = 4266; (* Reserved EXE items *) GETSPI$_RESERVEDEXE3 = 4267; (* Reserved EXE items *) GETSPI$_RESERVEDEXE4 = 4268; (* Reserved EXE items *) GETSPI$_RESERVEDEXE5 = 4269; (* Reserved EXE items *) GETSPI$_RESERVEDEXE6 = 4270; (* Reserved EXE items *) GETSPI$_RESERVEDEXE7 = 4271; (* Reserved EXE items *) GETSPI$_RESERVEDEXE8 = 4272; (* Reserved EXE items *) GETSPI$_RESERVEDEXE9 = 4273; (* Reserved EXE items *) GETSPI$_RESERVEDEXE10 = 4274; (* Reserved EXE items *) GETSPI$_RESERVEDEXE11 = 4275; (* Reserved EXE items *) GETSPI$_RESERVEDEXE12 = 4276; (* Reserved EXE items *) GETSPI$_RESERVEDEXE13 = 4277; (* Reserved EXE items *) GETSPI$_RESERVEDEXE14 = 4278; (* Reserved EXE items *) GETSPI$_RESERVEDEXE15 = 4279; (* Reserved EXE items *) GETSPI$_RESERVEDEXE16 = 4280; (* Reserved EXE items *) GETSPI$_RESERVEDEXE17 = 4281; (* Reserved EXE items *) GETSPI$_RESERVEDEXE18 = 4282; (* Reserved EXE items *) GETSPI$_RESERVEDEXE19 = 4283; (* Reserved EXE items *) GETSPI$_RESERVEDEXE20 = 4284; (* Reserved EXE items *) GETSPI$_RESERVEDEXE21 = 4285; (* Reserved EXE items *) GETSPI$_RESERVEDEXE22 = 4286; (* Reserved EXE items *) GETSPI$_RESERVEDEXE23 = 4287; (* Reserved EXE items *) GETSPI$_RESERVEDEXE24 = 4288; (* Reserved EXE items *) GETSPI$_RESERVEDEXE25 = 4289; (* Reserved EXE items *) GETSPI$_RESERVEDEXE26 = 4290; (* Reserved EXE items *) GETSPI$_RESERVEDEXE27 = 4291; (* Reserved EXE items *) GETSPI$_RESERVEDEXE28 = 4292; (* Reserved EXE items *) GETSPI$_RESERVEDEXE29 = 4293; (* Reserved EXE items *) GETSPI$_RESERVEDEXE30 = 4294; (* Reserved EXE items *) GETSPI$_RESERVEDEXE31 = 4295; (* Reserved EXE items *) GETSPI$_RESERVEDEXE32 = 4296; (* Reserved EXE items *) GETSPI$_RESERVEDEXE33 = 4297; (* Reserved EXE items *) GETSPI$_RESERVEDEXE34 = 4298; (* Reserved EXE items *) GETSPI$_RESERVEDEXE35 = 4299; (* Reserved EXE items *) GETSPI$_RESERVEDEXE36 = 4300; (* Reserved EXE items *) GETSPI$_RESERVEDEXE37 = 4301; (* Reserved EXE items *) GETSPI$_RESERVEDEXE38 = 4302; (* Reserved EXE items *) GETSPI$_RESERVEDEXE39 = 4303; (* Reserved EXE items *) GETSPI$_RESERVEDEXE40 = 4304; (* Reserved EXE items *) GETSPI$_RESERVEDEXE41 = 4305; (* Reserved EXE items *) GETSPI$_RESERVEDEXE42 = 4306; (* Reserved EXE items *) GETSPI$_RESERVEDEXE43 = 4307; (* Reserved EXE items *) GETSPI$_RESERVEDEXE44 = 4308; (* Reserved EXE items *) GETSPI$_RESERVEDEXE45 = 4309; (* Reserved EXE items *) GETSPI$_RESERVEDEXE46 = 4310; (* Reserved EXE items *) GETSPI$_RESERVEDEXE47 = 4311; (* Reserved EXE items *) GETSPI$_RESERVEDEXE48 = 4312; (* Reserved EXE items *) GETSPI$_RESERVEDEXE49 = 4313; (* Reserved EXE items *) GETSPI$_RESERVEDEXE50 = 4314; (* Reserved EXE items *) GETSPI$_RESERVEDEXE51 = 4315; (* Reserved EXE items *) GETSPI$_RESERVEDEXE52 = 4316; (* Reserved EXE items *) GETSPI$_RESERVEDEXE53 = 4317; (* Reserved EXE items *) GETSPI$_RESERVEDEXE54 = 4318; (* Reserved EXE items *) GETSPI$_RESERVEDEXE55 = 4319; (* Reserved EXE items *) GETSPI$_RESERVEDEXE56 = 4320; (* Reserved EXE items *) GETSPI$_RESERVEDEXE57 = 4321; (* Reserved EXE items *) GETSPI$_RESERVEDEXE58 = 4322; (* Reserved EXE items *) GETSPI$_RESERVEDEXE59 = 4323; (* Reserved EXE items *) GETSPI$_RESERVEDEXE60 = 4324; (* Reserved EXE items *) GETSPI$_RESERVEDEXE61 = 4325; (* Reserved EXE items *) GETSPI$_RESERVEDEXE62 = 4326; (* Reserved EXE items *) GETSPI$_RESERVEDEXE63 = 4327; (* Reserved EXE items *) GETSPI$_RESERVEDEXE64 = 4328; (* Reserved EXE items *) GETSPI$_RESERVEDEXE65 = 4329; (* Reserved EXE items *) GETSPI$_RESERVEDEXE66 = 4330; (* Reserved EXE items *) GETSPI$_RESERVEDEXE67 = 4331; (* Reserved EXE items *) GETSPI$_RESERVEDEXE68 = 4332; (* Reserved EXE items *) GETSPI$_RESERVEDEXE69 = 4333; (* Reserved EXE items *) GETSPI$_RESERVEDEXE70 = 4334; (* Reserved EXE items *) GETSPI$_RESERVEDEXE71 = 4335; (* Reserved EXE items *) GETSPI$_LASTEXE = 4336; (* Last item in the EXE table *) (* *) (* These next items are located in an executive writable page in memory *) (* *) CONST GETSPI$_ACCESS = 8432; (* number of file accesses *) GETSPI$_ALLOC = 8433; (* number of file extends *) GETSPI$_FCPCREATE = 8434; (* number of file creations *) GETSPI$_VOLWAIT = 8435; (* # of times XQP waited for volume lock *) GETSPI$_FCPTURN = 8436; (* number of window turns *) GETSPI$_FCPERASE = 8437; (* number of erase calls *) GETSPI$_OPENS = 8438; (* number of file opens *) GETSPI$_FIDHIT = 8439; (* count of File Id cache hits *) GETSPI$_FIDMISS = 8440; (* count of File Id cache misses *) GETSPI$_FILHDR_HIT = 8441; (* count of File header cache hits *) GETSPI$_DIRFCB_HIT = 8442; (* count of Directory block cache hits *) GETSPI$_DIRFCB_MISS = 8443; (* count of Directory block cache misses *) GETSPI$_DIRDATA_HIT = 8444; (* count of Directory data cache hits *) GETSPI$_EXTHIT = 8445; (* count of Extent cache hits *) GETSPI$_EXTMISS = 8446; (* count of Extent cache misses *) GETSPI$_QUOHIT = 8447; (* count of Quota cache hits *) GETSPI$_QUOMISS = 8448; (* count of Quota cache misses *) GETSPI$_STORAGMAP_HIT = 8449; (* count of storage bitmap cache hits *) GETSPI$_VOLLCK = 8450; (* Volume synch locks *) GETSPI$_SYNCHLCK = 8451; (* directory and file synch locks *) GETSPI$_SYNCHWAIT = 8452; (* # of times XQP waited for a directory or file synch lock *) GETSPI$_ACCLCK = 8453; (* access locks *) GETSPI$_XQPCACHEWAIT = 8454; (* # of times XQP had to wait for free space in a cache *) GETSPI$_RESERVEDEWS1 = 8455; (* Reserved EWS items *) GETSPI$_RESERVEDEWS2 = 8456; (* Reserved EWS items *) GETSPI$_RESERVEDEWS3 = 8457; (* Reserved EWS items *) GETSPI$_RESERVEDEWS4 = 8458; (* Reserved EWS items *) GETSPI$_RESERVEDEWS5 = 8459; (* Reserved EWS items *) GETSPI$_RESERVEDEWS6 = 8460; (* Reserved EWS items *) GETSPI$_RESERVEDEWS7 = 8461; (* Reserved EWS items *) GETSPI$_RESERVEDEWS8 = 8462; (* Reserved EWS items *) GETSPI$_RESERVEDEWS9 = 8463; (* Reserved EWS items *) GETSPI$_RESERVEDEWS10 = 8464; (* Reserved EWS items *) GETSPI$_RESERVEDEWS11 = 8465; (* Reserved EWS items *) GETSPI$_RESERVEDEWS12 = 8466; (* Reserved EWS items *) GETSPI$_RESERVEDEWS13 = 8467; (* Reserved EWS items *) GETSPI$_RESERVEDEWS14 = 8468; (* Reserved EWS items *) GETSPI$_RESERVEDEWS15 = 8469; (* Reserved EWS items *) GETSPI$_RESERVEDEWS16 = 8470; (* Reserved EWS items *) GETSPI$_RESERVEDEWS17 = 8471; (* Reserved EWS items *) GETSPI$_RESERVEDEWS18 = 8472; (* Reserved EWS items *) GETSPI$_RESERVEDEWS19 = 8473; (* Reserved EWS items *) GETSPI$_RESERVEDEWS20 = 8474; (* Reserved EWS items *) GETSPI$_RESERVEDEWS21 = 8475; (* Reserved EWS items *) GETSPI$_RESERVEDEWS22 = 8476; (* Reserved EWS items *) GETSPI$_RESERVEDEWS23 = 8477; (* Reserved EWS items *) GETSPI$_RESERVEDEWS24 = 8478; (* Reserved EWS items *) GETSPI$_RESERVEDEWS25 = 8479; (* Reserved EWS items *) GETSPI$_RESERVEDEWS26 = 8480; (* Reserved EWS items *) GETSPI$_RESERVEDEWS27 = 8481; (* Reserved EWS items *) GETSPI$_RESERVEDEWS28 = 8482; (* Reserved EWS items *) GETSPI$_RESERVEDEWS29 = 8483; (* Reserved EWS items *) GETSPI$_RESERVEDEWS30 = 8484; (* Reserved EWS items *) GETSPI$_RESERVEDEWS31 = 8485; (* Reserved EWS items *) GETSPI$_RESERVEDEWS32 = 8486; (* Reserved EWS items *) GETSPI$_RESERVEDEWS33 = 8487; (* Reserved EWS items *) GETSPI$_RESERVEDEWS34 = 8488; (* Reserved EWS items *) GETSPI$_RESERVEDEWS35 = 8489; (* Reserved EWS items *) GETSPI$_RESERVEDEWS36 = 8490; (* Reserved EWS items *) GETSPI$_RESERVEDEWS37 = 8491; (* Reserved EWS items *) GETSPI$_RESERVEDEWS38 = 8492; (* Reserved EWS items *) GETSPI$_RESERVEDEWS39 = 8493; (* Reserved EWS items *) GETSPI$_RESERVEDEWS40 = 8494; (* Reserved EWS items *) GETSPI$_RESERVEDEWS41 = 8495; (* Reserved EWS items *) GETSPI$_RESERVEDEWS42 = 8496; (* Reserved EWS items *) GETSPI$_RESERVEDEWS43 = 8497; (* Reserved EWS items *) GETSPI$_RESERVEDEWS44 = 8498; (* Reserved EWS items *) GETSPI$_RESERVEDEWS45 = 8499; (* Reserved EWS items *) GETSPI$_RESERVEDEWS46 = 8500; (* Reserved EWS items *) GETSPI$_RESERVEDEWS47 = 8501; (* Reserved EWS items *) GETSPI$_RESERVEDEWS48 = 8502; (* Reserved EWS items *) GETSPI$_RESERVEDEWS49 = 8503; (* Reserved EWS items *) GETSPI$_RESERVEDEWS50 = 8504; (* Reserved EWS items *) GETSPI$_RESERVEDEWS51 = 8505; (* Reserved EWS items *) GETSPI$_RESERVEDEWS52 = 8506; (* Reserved EWS items *) GETSPI$_RESERVEDEWS53 = 8507; (* Reserved EWS items *) GETSPI$_RESERVEDEWS54 = 8508; (* Reserved EWS items *) GETSPI$_RESERVEDEWS55 = 8509; (* Reserved EWS items *) GETSPI$_RESERVEDEWS56 = 8510; (* Reserved EWS items *) GETSPI$_RESERVEDEWS57 = 8511; (* Reserved EWS items *) GETSPI$_RESERVEDEWS58 = 8512; (* Reserved EWS items *) GETSPI$_RESERVEDEWS59 = 8513; (* Reserved EWS items *) GETSPI$_RESERVEDEWS60 = 8514; (* Reserved EWS items *) GETSPI$_RESERVEDEWS61 = 8515; (* Reserved EWS items *) GETSPI$_RESERVEDEWS62 = 8516; (* Reserved EWS items *) GETSPI$_RESERVEDEWS63 = 8517; (* Reserved EWS items *) GETSPI$_RESERVEDEWS64 = 8518; (* Reserved EWS items *) GETSPI$_RESERVEDEWS65 = 8519; (* Reserved EWS items *) GETSPI$_RESERVEDEWS66 = 8520; (* Reserved EWS items *) GETSPI$_RESERVEDEWS67 = 8521; (* Reserved EWS items *) GETSPI$_RESERVEDEWS68 = 8522; (* Reserved EWS items *) GETSPI$_RESERVEDEWS69 = 8523; (* Reserved EWS items *) GETSPI$_RESERVEDEWS70 = 8524; (* Reserved EWS items *) GETSPI$_RESERVEDEWS71 = 8525; (* Reserved EWS items *) GETSPI$_RESERVEDEWS72 = 8526; (* Reserved EWS items *) GETSPI$_RESERVEDEWS73 = 8527; (* Reserved EWS items *) GETSPI$_RESERVEDEWS74 = 8528; (* Reserved EWS items *) GETSPI$_RESERVEDEWS75 = 8529; (* Reserved EWS items *) GETSPI$_RESERVEDEWS76 = 8530; (* Reserved EWS items *) GETSPI$_RESERVEDEWS77 = 8531; (* Reserved EWS items *) GETSPI$_RESERVEDEWS78 = 8532; (* Reserved EWS items *) GETSPI$_RESERVEDEWS79 = 8533; (* Reserved EWS items *) GETSPI$_RESERVEDEWS80 = 8534; (* Reserved EWS items *) GETSPI$_RESERVEDEWS81 = 8535; (* Reserved EWS items *) GETSPI$_RESERVEDEWS82 = 8536; (* Reserved EWS items *) GETSPI$_RESERVEDEWS83 = 8537; (* Reserved EWS items *) GETSPI$_RESERVEDEWS84 = 8538; (* Reserved EWS items *) GETSPI$_RESERVEDEWS85 = 8539; (* Reserved EWS items *) GETSPI$_RESERVEDEWS86 = 8540; (* Reserved EWS items *) GETSPI$_RESERVEDEWS87 = 8541; (* Reserved EWS items *) GETSPI$_RESERVEDEWS88 = 8542; (* Reserved EWS items *) GETSPI$_RESERVEDEWS89 = 8543; (* Reserved EWS items *) GETSPI$_RESERVEDEWS90 = 8544; (* Reserved EWS items *) GETSPI$_RESERVEDEWS91 = 8545; (* Reserved EWS items *) GETSPI$_RESERVEDEWS92 = 8546; (* Reserved EWS items *) GETSPI$_RESERVEDEWS93 = 8547; (* Reserved EWS items *) GETSPI$_RESERVEDEWS94 = 8548; (* Reserved EWS items *) GETSPI$_RESERVEDEWS95 = 8549; (* Reserved EWS items *) GETSPI$_RESERVEDEWS96 = 8550; (* Reserved EWS items *) GETSPI$_RESERVEDEWS97 = 8551; (* Reserved EWS items *) GETSPI$_RESERVEDEWS98 = 8552; (* Reserved EWS items *) GETSPI$_RESERVEDEWS99 = 8553; (* Reserved EWS items *) GETSPI$_RESERVEDEWS100 = 8554; (* Reserved EWS items *) GETSPI$_LASTEWS = 8555; (* Last item in the exec writable table *) (* *) (* Begin monitor specific data items. The items listed below are *) (* NOT collected by the SPI as individual items. Some are NOT collected *) (* at all but are computed by MONITOR. *) (* *) CONST GETSPI$_FIDHITPCNT = 12651; (* percentage of file id cache hits/hits+misses *) GETSPI$_FILHDR_HITPCNT = 12652; (* percentage of file header cache hits/hits+misses *) GETSPI$_DIRFCB_HITPCNT = 12653; (* percentage of directory block cache hits/hits+misses *) GETSPI$_DIRDATA_HITPCNT = 12654; (* percentage of directory data cache hits/hits+misses *) GETSPI$_EXTHITPCNT = 12655; (* percentage of extent cache hits/hits+misses *) GETSPI$_QUOHITPCNT = 12656; (* percentage of quota cache hits/hits+misses *) GETSPI$_STORAGMAP_HITPCNT = 12657; (* percentage of storage map cache hits/hits+misses *) GETSPI$_OPCNT = 12658; (* disk io operation count *) GETSPI$_IOQUELEN = 12659; (* disk io queue length *) GETSPI$_IOAQUELEN = 12660; (* Accurate disk io queue length *) GETSPI$_DISKRESPTIM = 12661; (* disk io response time *) GETSPI$_JNLIOCNT = 12662; (* journaling io operation count (for disks) *) GETSPI$_JDNQLEN = 12663; (* jdevice normal io queue length *) GETSPI$_JDWQLEN = 12664; (* jdevice wait irp queue length *) GETSPI$_JDFQLEN = 12665; (* jdevice force io queue length *) GETSPI$_JDEXCNT = 12666; (* jdevice extend count *) GETSPI$_JNLWRTSS = 12667; (* obsolete *) GETSPI$_JNLBUFWR = 12668; (* obsolete *) GETSPI$_DGSENT = 12669; (* SCS application datagrams sent *) GETSPI$_DGRCVD = 12670; (* SCS application datagrams received *) GETSPI$_DGDISCARD = 12671; (* SCS application datagrams discarded *) GETSPI$_MSGSENT = 12672; (* SCS application messages sent *) GETSPI$_MSGRCVD = 12673; (* SCS application messages received *) GETSPI$_SNDATS = 12674; (* SCS block send datas initiated *) GETSPI$_KBYTSENT = 12675; (* SCS kbytes sent via send datas *) GETSPI$_REQDATS = 12676; (* SCS block request datas initiated *) GETSPI$_KBYTREQD = 12677; (* SCS kbytes received via request datas *) GETSPI$_KBYTMAPD = 12678; (* SCS kbytes mapped for block transfer *) GETSPI$_QCR_CNT = 12679; (* SCS times connection queued for send credit *) GETSPI$_QBDT_CNT = 12680; (* SCS times connection queued for buffer descriptor *) GETSPI$_DIRLOOK = 12681; (* directory lookups *) GETSPI$_DIRINS = 12682; (* directory inserts *) GETSPI$_DIRDEL = 12683; (* directory deletes *) GETSPI$_PACKETS = 12684; (* Ethernet packets/second *) GETSPI$_KBYTES = 12685; (* Kbytes/second *) GETSPI$_PACKETSIZE = 12686; (* Packets size (bytes) *) GETSPI$_MPACKETS = 12687; (* Multicast packets/second *) GETSPI$_MKBYTES = 12688; (* Multicast Kbytes/second *) GETSPI$_MPACKETSIZE = 12689; (* Multicast packet size (bytes) *) GETSPI$_SINGLECOLL = 12690; (* Transmit single collision detected *) GETSPI$_MULTICOLL = 12691; (* Transmit multi collisions detected *) GETSPI$_INITDEFER = 12692; (* Transmit initially deferred *) GETSPI$_INTERNALBUFERR = 12693; (* Receive internal buffer error *) GETSPI$_LOCBUFERR = 12694; (* Receive local buffer error *) GETSPI$_BUFFUNAVAIL = 12695; (* System buffer unavailable *) GETSPI$_FILLER = 12696; (* Dummy pad item *) GETSPI$_RESERVEDMON1 = 12697; (* Reserved MON items *) GETSPI$_RESERVEDMON2 = 12698; (* Reserved MON items *) GETSPI$_RESERVEDMON3 = 12699; (* Reserved MON items *) GETSPI$_RESERVEDMON4 = 12700; (* Reserved MON items *) GETSPI$_RESERVEDMON5 = 12701; (* Reserved MON items *) GETSPI$_RESERVEDMON6 = 12702; (* Reserved MON items *) GETSPI$_RESERVEDMON7 = 12703; (* Reserved MON items *) GETSPI$_RESERVEDMON8 = 12704; (* Reserved MON items *) GETSPI$_RESERVEDMON9 = 12705; (* Reserved MON items *) GETSPI$_RESERVEDMON10 = 12706; (* Reserved MON items *) GETSPI$_RESERVEDMON11 = 12707; (* Reserved MON items *) GETSPI$_RESERVEDMON12 = 12708; (* Reserved MON items *) GETSPI$_RESERVEDMON13 = 12709; (* Reserved MON items *) GETSPI$_RESERVEDMON14 = 12710; (* Reserved MON items *) GETSPI$_RESERVEDMON15 = 12711; (* Reserved MON items *) GETSPI$_RESERVEDMON16 = 12712; (* Reserved MON items *) GETSPI$_RESERVEDMON17 = 12713; (* Reserved MON items *) GETSPI$_RESERVEDMON18 = 12714; (* Reserved MON items *) GETSPI$_RESERVEDMON19 = 12715; (* Reserved MON items *) GETSPI$_RESERVEDMON20 = 12716; (* Reserved MON items *) GETSPI$_RESERVEDMON21 = 12717; (* Reserved MON items *) GETSPI$_RESERVEDMON22 = 12718; (* Reserved MON items *) GETSPI$_RESERVEDMON23 = 12719; (* Reserved MON items *) GETSPI$_RESERVEDMON24 = 12720; (* Reserved MON items *) GETSPI$_RESERVEDMON25 = 12721; (* Reserved MON items *) GETSPI$_RESERVEDMON26 = 12722; (* Reserved MON items *) GETSPI$_RESERVEDMON27 = 12723; (* Reserved MON items *) GETSPI$_RESERVEDMON28 = 12724; (* Reserved MON items *) GETSPI$_RESERVEDMON29 = 12725; (* Reserved MON items *) GETSPI$_RESERVEDMON30 = 12726; (* Reserved MON items *) GETSPI$_RESERVEDMON31 = 12727; (* Reserved MON items *) GETSPI$_RESERVEDMON32 = 12728; (* Reserved MON items *) GETSPI$_RESERVEDMON33 = 12729; (* Reserved MON items *) GETSPI$_RESERVEDMON34 = 12730; (* Reserved MON items *) GETSPI$_RESERVEDMON35 = 12731; (* Reserved MON items *) GETSPI$_RESERVEDMON36 = 12732; (* Reserved MON items *) GETSPI$_RESERVEDMON37 = 12733; (* Reserved MON items *) GETSPI$_RESERVEDMON38 = 12734; (* Reserved MON items *) GETSPI$_RESERVEDMON39 = 12735; (* Reserved MON items *) GETSPI$_RESERVEDMON40 = 12736; (* Reserved MON items *) GETSPI$_RESERVEDMON41 = 12737; (* Reserved MON items *) GETSPI$_RESERVEDMON42 = 12738; (* Reserved MON items *) GETSPI$_RESERVEDMON43 = 12739; (* Reserved MON items *) GETSPI$_RESERVEDMON44 = 12740; (* Reserved MON items *) GETSPI$_RESERVEDMON45 = 12741; (* Reserved MON items *) GETSPI$_RESERVEDMON46 = 12742; (* Reserved MON items *) GETSPI$_RESERVEDMON47 = 12743; (* Reserved MON items *) GETSPI$_RESERVEDMON48 = 12744; (* Reserved MON items *) GETSPI$_RESERVEDMON49 = 12745; (* Reserved MON items *) GETSPI$_RESERVEDMON50 = 12746; (* Reserved MON items *) GETSPI$_RESERVEDMON51 = 12747; (* Reserved MON items *) GETSPI$_RESERVEDMON52 = 12748; (* Reserved MON items *) GETSPI$_RESERVEDMON53 = 12749; (* Reserved MON items *) GETSPI$_RESERVEDMON54 = 12750; (* Reserved MON items *) GETSPI$_RESERVEDMON55 = 12751; (* Reserved MON items *) GETSPI$_RESERVEDMON56 = 12752; (* Reserved MON items *) GETSPI$_RESERVEDMON57 = 12753; (* Reserved MON items *) GETSPI$_RESERVEDMON58 = 12754; (* Reserved MON items *) GETSPI$_RESERVEDMON59 = 12755; (* Reserved MON items *) GETSPI$_RESERVEDMON60 = 12756; (* Reserved MON items *) GETSPI$_RESERVEDMON61 = 12757; (* Reserved MON items *) GETSPI$_RESERVEDMON62 = 12758; (* Reserved MON items *) GETSPI$_RESERVEDMON63 = 12759; (* Reserved MON items *) GETSPI$_RESERVEDMON64 = 12760; (* Reserved MON items *) GETSPI$_RESERVEDMON65 = 12761; (* Reserved MON items *) GETSPI$_RESERVEDMON66 = 12762; (* Reserved MON items *) GETSPI$_RESERVEDMON67 = 12763; (* Reserved MON items *) GETSPI$_RESERVEDMON68 = 12764; (* Reserved MON items *) GETSPI$_RESERVEDMON69 = 12765; (* Reserved MON items *) GETSPI$_RESERVEDMON70 = 12766; (* Reserved MON items *) GETSPI$_RESERVEDMON71 = 12767; (* Reserved MON items *) GETSPI$_RESERVEDMON72 = 12768; (* Reserved MON items *) GETSPI$_RESERVEDMON73 = 12769; (* Reserved MON items *) GETSPI$_RESERVEDMON74 = 12770; (* Reserved MON items *) GETSPI$_RESERVEDMON75 = 12771; (* Reserved MON items *) GETSPI$_RESERVEDMON76 = 12772; (* Reserved MON items *) GETSPI$_RESERVEDMON77 = 12773; (* Reserved MON items *) GETSPI$_RESERVEDMON78 = 12774; (* Reserved MON items *) GETSPI$_RESERVEDMON79 = 12775; (* Reserved MON items *) GETSPI$_RESERVEDMON80 = 12776; (* Reserved MON items *) GETSPI$_RESERVEDMON81 = 12777; (* Reserved MON items *) GETSPI$_RESERVEDMON82 = 12778; (* Reserved MON items *) GETSPI$_RESERVEDMON83 = 12779; (* Reserved MON items *) GETSPI$_RESERVEDMON84 = 12780; (* Reserved MON items *) GETSPI$_RESERVEDMON85 = 12781; (* Reserved MON items *) GETSPI$_RESERVEDMON86 = 12782; (* Reserved MON items *) GETSPI$_RESERVEDMON87 = 12783; (* Reserved MON items *) GETSPI$_RESERVEDMON88 = 12784; (* Reserved MON items *) GETSPI$_RESERVEDMON89 = 12785; (* Reserved MON items *) GETSPI$_RESERVEDMON90 = 12786; (* Reserved MON items *) GETSPI$_RESERVEDMON91 = 12787; (* Reserved MON items *) GETSPI$_RESERVEDMON92 = 12788; (* Reserved MON items *) GETSPI$_RESERVEDMON93 = 12789; (* Reserved MON items *) GETSPI$_RESERVEDMON94 = 12790; (* Reserved MON items *) GETSPI$_RESERVEDMON95 = 12791; (* Reserved MON items *) GETSPI$_RESERVEDMON96 = 12792; (* Reserved MON items *) GETSPI$_RESERVEDMON97 = 12793; (* Reserved MON items *) GETSPI$_RESERVEDMON98 = 12794; (* Reserved MON items *) GETSPI$_RESERVEDMON99 = 12795; (* Reserved MON items *) GETSPI$_RESERVEDMON100 = 12796; (* Reserved MON items *) GETSPI$_LASTMON = 12797; (* Last item in the monitor specific table *) (* *) (* Begin items specific to the Monitor RMS class. These items are maintained *) (* by RMS and collected from a global section with the following naming scheme: *) (* _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the *) (* file being monitored. *) (* *) CONST GETSPI$_RMS_STATS = 16893; (* All of the following rms statistics *) GETSPI$_SEQGETS = 16894; (* Total # of sequential gets *) GETSPI$_KEYGETS = 16895; (* Total # of keyed gets *) GETSPI$_RFAGETS = 16896; (* Total # of gets by RFA *) GETSPI$_GETBYTES = 16897; (* Total size in bytes of all GETS *) GETSPI$_SEQPUTS = 16898; (* Total # of sequential puts *) GETSPI$_KEYPUTS = 16899; (* Total # of puts by key *) GETSPI$_PUTBYTES = 16900; (* Total # of bytes put to file *) GETSPI$_UPDATES = 16901; (* Total # of updates to the file *) GETSPI$_UPDATEBYTES = 16902; (* Total # of bytes updated in file *) GETSPI$_DELETES = 16903; (* Total # of deletes to file *) GETSPI$_TRUNCATES = 16904; (* Total # of times file has been truncated *) GETSPI$_TRUNCBLKS = 16905; (* Total # of blocks file has been truncated *) GETSPI$_SEQFINDS = 16906; (* Total # of sequential finds *) GETSPI$_KEYFINDS = 16907; (* Total # of keyed finds *) GETSPI$_RFAFINDS = 16908; (* Total # of RFA finds *) GETSPI$_READS = 16909; (* Total # of $READS *) GETSPI$_READBYTES = 16910; (* Total # of bytes read from $READS *) GETSPI$_CONNECTS = 16911; (* Total connect requests *) GETSPI$_DISCONNECTS = 16912; (* Total disconnect requests *) GETSPI$_EXTENDS = 16913; (* Total extends *) GETSPI$_EXTBLOCKS = 16914; (* Total number of blocks file has been extended *) GETSPI$_FLUSHES = 16915; (* Total number of calls to flush *) GETSPI$_REWINDS = 16916; (* Total number of calls to REWIND *) GETSPI$_WRITES = 16917; (* Total number of calls to $WRITE *) GETSPI$_WRITEBYTES = 16918; (* Total bytes written using $WRITE *) GETSPI$_FLCKENQS = 16919; (* Total number of file lock ENQ's *) GETSPI$_FLCKDEQS = 16920; (* Total number of file lock DEQ's *) GETSPI$_FLCKCNVS = 16921; (* Total number of file lock conversions *) GETSPI$_LBLCKENQS = 16922; (* Total number of local buffer lock ENQ's *) GETSPI$_LBLCKDEQS = 16923; (* Total number of local buffer lock DEQ's *) GETSPI$_LBLCKCNVS = 16924; (* Total number of local buffer lock conversions *) GETSPI$_GBLCKENQS = 16925; (* Total number of global buffer lock ENQ's *) GETSPI$_GBLCKDEQS = 16926; (* Total number of global buffer lock DEQ's *) GETSPI$_GBLCKCNVS = 16927; (* Total number of global buffer lock conversions *) GETSPI$_GSLCKENQS = 16928; (* Total number of global section lock ENQ's *) GETSPI$_GSLCKDEQS = 16929; (* Total number of global section lock DEQ's *) GETSPI$_GSLCKCNVS = 16930; (* Total number of global section lock conversions *) GETSPI$_RLCKENQS = 16931; (* Total number of record lock ENQ's *) GETSPI$_RLCKDEQS = 16932; (* Total number of record lock DEQ's *) GETSPI$_RLCKCNVS = 16933; (* Total number of record lock conversions *) GETSPI$_APPLCKENQS = 16934; (* Total number of append lock ENQ's *) GETSPI$_APPLCKDEQS = 16935; (* Total number of append lock DEQ's *) GETSPI$_APPLCKCNVS = 16936; (* Total number of append lock conversions *) GETSPI$_FLBLKASTS = 16937; (* Total number of file lock blocking ASTs *) GETSPI$_LBLBLKASTS = 16938; (* Total number of local buffer lock blocking ASTs *) GETSPI$_GBLBLKASTS = 16939; (* Total number of global buffer lock blocking ASTs *) GETSPI$_APPBLKASTS = 16940; (* Total number of shared append lock blocking ASTs *) GETSPI$_LCACHEHITS = 16941; (* Total cache hits on buckets in local buffers *) GETSPI$_LCACHETRIES = 16942; (* Total cache attempts on buckets in local buffers *) GETSPI$_GCACHEHITS = 16943; (* Total cache hits on buckets in global buffers *) GETSPI$_GCACHETRIES = 16944; (* Total cache attempts on buckets in global buffers *) GETSPI$_GBRDIRIOS = 16945; (* Total direct IO's causes by global buffer cache reads *) GETSPI$_GBWDIRIOS = 16946; (* Total direct IO's causes by global buffer cache writes *) GETSPI$_LBRDIRIOS = 16947; (* Total direct IO's causes by local buffer cache reads *) GETSPI$_LBWDIRIOS = 16948; (* Total direct IO's causes by local buffer cache writes *) GETSPI$_BKTSPLT = 16949; (* Total number of 2 bucket splits done for this file *) GETSPI$_MBKTSPLT = 16950; (* Total number of multi-bucket splits done for this file *) GETSPI$_RMSOPENS = 16951; (* Total number of times file has been opened *) GETSPI$_CLOSES = 16952; (* Total number of times file has been closed *) GETSPI$_GSBLKASTS = 16953; (* Global Section Blocking ASTS *) GETSPI$_FLWAITS = 16954; (* File lock ENQs forced to wait *) GETSPI$_LBWAITS = 16955; (* Local buffer ENQs forced to wait *) GETSPI$_GBWAITS = 16956; (* Global buffer ENQs forced to wait *) GETSPI$_GSWAITS = 16957; (* Global section ENQs forced to wait *) GETSPI$_RLWAITS = 16958; (* Record lock ENQs forced to wait *) GETSPI$_APWAITS = 16959; (* Append lock ENQs forced to wait *) GETSPI$_TOTWAITS = 16960; (* Total ENQs forced to wait *) GETSPI$_OUTBUFQUO = 16961; (* Number of times a process runs out of buffer quota *) GETSPI$_RMSDEV1 = 16962; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV2 = 16963; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV3 = 16964; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV4 = 16965; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV5 = 16966; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV6 = 16967; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV7 = 16968; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV8 = 16969; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV9 = 16970; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV10 = 16971; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV11 = 16972; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV12 = 16973; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV13 = 16974; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV14 = 16975; (* Reserved for RMS development private monitoring *) GETSPI$_RMSDEV15 = 16976; (* Reserved for RMS development private monitoring *) GETSPI$_XQPQIOS = 16977; (* Number of XQP operations for this file by RMS *) GETSPI$_LCACHEHITPCNT = 16978; (* Local RMS buffer hit percent *) GETSPI$_GCACHEHITPCNT = 16979; (* Global RMS buffer hit percent *) GETSPI$_TOTALGET = 16980; (* Total $GET call rate *) GETSPI$_TOTALPUT = 16981; (* Total $PUT call rate *) GETSPI$_TOTALFIND = 16982; (* Total $FIND call rate *) GETSPI$_BYTESGET = 16983; (* Bytes per $GET *) GETSPI$_BYTESPUT = 16984; (* Bytes per $PUT *) GETSPI$_BYTESUPDATE = 16985; (* Bytes per $UPDATE *) GETSPI$_BYTESREAD = 16986; (* Bytes per $READ *) GETSPI$_BYTESWRITE = 16987; (* Bytes per $WRITE *) GETSPI$_BLOCKSTRUNCATE = 16988; (* Bytes per $TRUNCATE *) GETSPI$_BLOCKSEXTEND = 16989; (* Bytes per $EXTEND *) GETSPI$_ACTIVE_STREAMS = 16990; (* Active connects to file *) GETSPI$_TOTAL_ENQS = 16991; (* Total new ENQs *) GETSPI$_TOTAL_DEQS = 16992; (* Total DEQs *) GETSPI$_TOTAL_CNVS = 16993; (* Total ENQ conversions *) GETSPI$_TOTAL_BLKAST = 16994; (* Total blocking ASTs *) GETSPI$_RMS_ORG = 16995; (* RMS File org *) GETSPI$_INTCOL_HSHTBL = 16996; (* Interlock collision on global buffer hash table *) GETSPI$_INTCOL_GBH = 16997; (* Interlock Collision on global buffer header *) GETSPI$_INTRES_SETIMR = 16998; (* Interlock Collision resolved by call to $SETIMR *) GETSPI$_INTNOTRES = 16999; (* Interlock collision not resolved by call to $SETIMR *) GETSPI$_RESERVEDRMS5 = 17000; (* Reserved RMS items *) GETSPI$_RESERVEDRMS6 = 17001; (* Reserved RMS items *) GETSPI$_RESERVEDRMS7 = 17002; (* Reserved RMS items *) GETSPI$_RESERVEDRMS8 = 17003; (* Reserved RMS items *) GETSPI$_RESERVEDRMS9 = 17004; (* Reserved RMS items *) GETSPI$_RESERVEDRMS10 = 17005; (* Reserved RMS items *) GETSPI$_RESERVEDRMS11 = 17006; (* Reserved RMS items *) GETSPI$_RESERVEDRMS12 = 17007; (* Reserved RMS items *) GETSPI$_RESERVEDRMS13 = 17008; (* Reserved RMS items *) GETSPI$_RESERVEDRMS14 = 17009; (* Reserved RMS items *) GETSPI$_RESERVEDRMS15 = 17010; (* Reserved RMS items *) GETSPI$_RESERVEDRMS16 = 17011; (* Reserved RMS items *) GETSPI$_RESERVEDRMS17 = 17012; (* Reserved RMS items *) GETSPI$_RESERVEDRMS18 = 17013; (* Reserved RMS items *) GETSPI$_RESERVEDRMS19 = 17014; (* Reserved RMS items *) GETSPI$_RESERVEDRMS20 = 17015; (* Reserved RMS items *) GETSPI$_RESERVEDRMS21 = 17016; (* Reserved RMS items *) GETSPI$_RESERVEDRMS22 = 17017; (* Reserved RMS items *) GETSPI$_RESERVEDRMS23 = 17018; (* Reserved RMS items *) GETSPI$_RESERVEDRMS24 = 17019; (* Reserved RMS items *) GETSPI$_RESERVEDRMS25 = 17020; (* Reserved RMS items *) GETSPI$_RESERVEDRMS26 = 17021; (* Reserved RMS items *) GETSPI$_RESERVEDRMS27 = 17022; (* Reserved RMS items *) GETSPI$_RESERVEDRMS28 = 17023; (* Reserved RMS items *) GETSPI$_RESERVEDRMS29 = 17024; (* Reserved RMS items *) GETSPI$_RESERVEDRMS30 = 17025; (* Reserved RMS items *) GETSPI$_RESERVEDRMS31 = 17026; (* Reserved RMS items *) GETSPI$_RESERVEDRMS32 = 17027; (* Reserved RMS items *) GETSPI$_RESERVEDRMS33 = 17028; (* Reserved RMS items *) GETSPI$_RESERVEDRMS34 = 17029; (* Reserved RMS items *) GETSPI$_RESERVEDRMS35 = 17030; (* Reserved RMS items *) GETSPI$_RESERVEDRMS36 = 17031; (* Reserved RMS items *) GETSPI$_RESERVEDRMS37 = 17032; (* Reserved RMS items *) GETSPI$_RESERVEDRMS38 = 17033; (* Reserved RMS items *) GETSPI$_RESERVEDRMS39 = 17034; (* Reserved RMS items *) GETSPI$_RESERVEDRMS40 = 17035; (* Reserved RMS items *) GETSPI$_RESERVEDRMS41 = 17036; (* Reserved RMS items *) GETSPI$_RESERVEDRMS42 = 17037; (* Reserved RMS items *) GETSPI$_RESERVEDRMS43 = 17038; (* Reserved RMS items *) GETSPI$_RESERVEDRMS44 = 17039; (* Reserved RMS items *) GETSPI$_RESERVEDRMS45 = 17040; (* Reserved RMS items *) GETSPI$_RESERVEDRMS46 = 17041; (* Reserved RMS items *) GETSPI$_RESERVEDRMS47 = 17042; (* Reserved RMS items *) GETSPI$_RESERVEDRMS48 = 17043; (* Reserved RMS items *) GETSPI$_RESERVEDRMS49 = 17044; (* Reserved RMS items *) GETSPI$_RESERVEDRMS50 = 17045; (* Reserved RMS items *) GETSPI$_RESERVEDRMS51 = 17046; (* Reserved RMS items *) GETSPI$_RESERVEDRMS52 = 17047; (* Reserved RMS items *) GETSPI$_RESERVEDRMS53 = 17048; (* Reserved RMS items *) GETSPI$_RESERVEDRMS54 = 17049; (* Reserved RMS items *) GETSPI$_RESERVEDRMS55 = 17050; (* Reserved RMS items *) GETSPI$_RESERVEDRMS56 = 17051; (* Reserved RMS items *) GETSPI$_RESERVEDRMS57 = 17052; (* Reserved RMS items *) GETSPI$_RESERVEDRMS58 = 17053; (* Reserved RMS items *) GETSPI$_RESERVEDRMS59 = 17054; (* Reserved RMS items *) GETSPI$_RESERVEDRMS60 = 17055; (* Reserved RMS items *) GETSPI$_RESERVEDRMS61 = 17056; (* Reserved RMS items *) GETSPI$_RESERVEDRMS62 = 17057; (* Reserved RMS items *) GETSPI$_RESERVEDRMS63 = 17058; (* Reserved RMS items *) GETSPI$_RESERVEDRMS64 = 17059; (* Reserved RMS items *) GETSPI$_RESERVEDRMS65 = 17060; (* Reserved RMS items *) GETSPI$_RESERVEDRMS66 = 17061; (* Reserved RMS items *) GETSPI$_RESERVEDRMS67 = 17062; (* Reserved RMS items *) GETSPI$_RESERVEDRMS68 = 17063; (* Reserved RMS items *) GETSPI$_RESERVEDRMS69 = 17064; (* Reserved RMS items *) GETSPI$_RESERVEDRMS70 = 17065; (* Reserved RMS items *) GETSPI$_RESERVEDRMS71 = 17066; (* Reserved RMS items *) GETSPI$_RESERVEDRMS72 = 17067; (* Reserved RMS items *) GETSPI$_RESERVEDRMS73 = 17068; (* Reserved RMS items *) GETSPI$_RESERVEDRMS74 = 17069; (* Reserved RMS items *) GETSPI$_RESERVEDRMS75 = 17070; (* Reserved RMS items *) GETSPI$_RESERVEDRMS76 = 17071; (* Reserved RMS items *) GETSPI$_RESERVEDRMS77 = 17072; (* Reserved RMS items *) GETSPI$_RESERVEDRMS78 = 17073; (* Reserved RMS items *) GETSPI$_RESERVEDRMS79 = 17074; (* Reserved RMS items *) GETSPI$_RESERVEDRMS80 = 17075; (* Reserved RMS items *) GETSPI$_RESERVEDRMS81 = 17076; (* Reserved RMS items *) GETSPI$_RESERVEDRMS82 = 17077; (* Reserved RMS items *) GETSPI$_RESERVEDRMS83 = 17078; (* Reserved RMS items *) GETSPI$_RESERVEDRMS84 = 17079; (* Reserved RMS items *) GETSPI$_RESERVEDRMS85 = 17080; (* Reserved RMS items *) GETSPI$_RESERVEDRMS86 = 17081; (* Reserved RMS items *) GETSPI$_RESERVEDRMS87 = 17082; (* Reserved RMS items *) GETSPI$_RESERVEDRMS88 = 17083; (* Reserved RMS items *) GETSPI$_RESERVEDRMS89 = 17084; (* Reserved RMS items *) GETSPI$_RESERVEDRMS90 = 17085; (* Reserved RMS items *) GETSPI$_RESERVEDRMS91 = 17086; (* Reserved RMS items *) GETSPI$_RESERVEDRMS92 = 17087; (* Reserved RMS items *) GETSPI$_RESERVEDRMS93 = 17088; (* Reserved RMS items *) GETSPI$_RESERVEDRMS94 = 17089; (* Reserved RMS items *) GETSPI$_RESERVEDRMS95 = 17090; (* Reserved RMS items *) GETSPI$_RESERVEDRMS96 = 17091; (* Reserved RMS items *) GETSPI$_RESERVEDRMS97 = 17092; (* Reserved RMS items *) GETSPI$_RESERVEDRMS98 = 17093; (* Reserved RMS items *) GETSPI$_RESERVEDRMS99 = 17094; (* Reserved RMS items *) GETSPI$_RESERVEDRMS100 = 17095; (* Reserved RMS items *) GETSPI$_LASTRMS = 17096; (* Last item in the monitor specific table *) (* *) (* Add new data items specific to MONITOR (not collected by the SPI on a per *) (* item basis) above this point. *) (* *) CONST GETSPI$_TABLESIZE = 712; TYPE getspi$scs_offsets = RECORD (* SCS class information *) GETSPI$q_scs_nodename : $QUAD; (* System node name *) GETSPI$l_scs_dgsent : INTEGER; (* Application datagrams sent *) GETSPI$l_scs_dgrcvd : INTEGER; (* Application datagrams received *) GETSPI$l_scs_dgdiscard : INTEGER; (* Application datagrams discarded *) GETSPI$l_scs_msgsent : INTEGER; (* Application messages sent *) GETSPI$l_scs_msgrcvd : INTEGER; (* Application messages received *) GETSPI$l_scs_snddats : INTEGER; (* Block send datas initiated *) GETSPI$l_scs_kbytsent : INTEGER; (* Kbytes sent via send datas *) GETSPI$l_scs_reqdats : INTEGER; (* Block request datas initiated *) GETSPI$l_scs_kbytreqd : INTEGER; (* Kbytes received via request datas *) GETSPI$l_scs_kbytmapd : INTEGER; (* Kbytes mapped for block transfers *) GETSPI$l_scs_qcr_cnt : INTEGER; (* Times connection queued for send credit *) GETSPI$l_scs_qbdt_cnt : INTEGER; (* Times connection queued for buffer descriptor *) END; CONST GETSPI$c_scs_minsize = 56; (* Size of one collection block for scs class *) TYPE getspi$disk_offsets = RECORD (* DISK class information for *) (* the current revision level *) GETSPI$w_disk_alloclass : $WORD; (* Allocation class *) GETSPI$l_disk_devname : INTEGER; (* Device name *) GETSPI$w_disk_unitnum : $WORD; (* Unit number *) GETSPI$b_disk_flags : $BYTE; (* Flags byte (low bit indicates served disk *) GETSPI$q_disk_nodename : $QUAD; (* Nodename *) GETSPI$q_disk_volnamel : $QUAD; (* Volume name (low) *) GETSPI$l_disk_volnameh : INTEGER; (* Volume name (high) *) GETSPI$l_disk_optcnt : INTEGER; (* Operation count *) GETSPI$l_disk_qcount : INTEGER; (* Queue length accumulator *) END; CONST GETSPI$c_disk_minsize = 37; (* Size of one block *) TYPE getspi$disk_offsets_rev4 = RECORD (* DISK class information *) (* for "revision level 4" *) GETSPI$b_disk_alloclass_rev4 : $BYTE; (* Allocation class *) GETSPI$l_disk_devname_rev4 : INTEGER; (* Device name *) GETSPI$w_disk_unitnum_rev4 : $WORD; (* Unit number *) GETSPI$b_disk_flags_rev4 : $BYTE; (* Flags byte (low bit indicates served disk *) GETSPI$q_disk_nodename_rev4 : $QUAD; (* Nodename *) GETSPI$q_disk_volnamel_rev4 : $QUAD; (* Volume name (low) *) GETSPI$l_disk_volnameh_rev4 : INTEGER; (* Volume name (high) *) GETSPI$l_disk_optcnt_rev4 : INTEGER; (* Operation count *) GETSPI$l_disk_qcount_rev4 : INTEGER; (* Queue length accumulator *) END; CONST GETSPI$c_disk_minsize_rev4 = 36; (* Size of one block *) TYPE getspi$proc_class = RECORD (* PROCESSES Class Data Block *) GETSPI$l_proc_ipid : INTEGER; (* Internal PID *) GETSPI$l_proc_uic : INTEGER; (* UIC (Member is low-order word) *) GETSPI$w_proc_state : $WORD; (* State value *) GETSPI$b_proc_pri : $BYTE; (* Priority (negative value) *) GETSPI$o_proc_lname : $OCTA; (* Process name (counted string) *) GETSPI$l_proc_gpgcnt : INTEGER; (* Global page count *) GETSPI$l_proc_ppgcnt : INTEGER; (* Process page count *) GETSPI$l_proc_sts : INTEGER; (* PCB Status Vector *) (* (PCB$V_RES bit clear => swapped out) *) GETSPI$l_proc_diocnt : INTEGER; (* Direct I/O count *) GETSPI$l_proc_pageflts : INTEGER; (* Page fault count *) GETSPI$l_proc_cputim : INTEGER; (* Accumulated CPU time (in ticks) *) GETSPI$l_proc_biocnt : INTEGER; (* Buffered I/O count *) GETSPI$l_proc_epid : INTEGER; (* Extended PID *) GETSPI$l_proc_efwm : INTEGER; (* Event flag wait mask (for MWAITs) *) GETSPI$l_proc_rbstran : INTEGER; (* Real balance slot transitions *) (* Size of process data block *) END; CONST GETSPI$c_proc_minsize = 67; (*** MODULE $GLOCKDEF ***) CONST glock$c_nowait = 1; (* $acquire_lock will not auto-wait *) glock$c_nospin = 2; (* $acquire_lock will not spin *) glock$c_nobreak = 4; (* $acquire_lock will not break lock ownership *) glock$c_auto_wait = 8; (* kernel mode code waints an automatic wait *) glock$c_num_nodes = 64; (* max number of gnodes supported *) glcktbl$c_process = 0; (* lock region is mapped in P2 space *) glcktbl$c_system = 1; (* lock region is mapped in S2 space *) glcktbl$c_private = 2; (* lock region is pre-allocated *) TYPE glock_hist$TYPE = RECORD glock_hist$l_pc : INTEGER; glock_hist$q_lock : $UQUAD; END; CONST glock_hist$c_entries = 10; glock$m_owned = 1; glock$m_broken = 2; glock$m_waiters = 4; glock$m_process = 8; glock$m_reserved_4_7 = 240; glock$m_owner_count = 65280; glock$m_node = 16711680; glock$m_node_seq = 0; glock$m_owner = 0; TYPE GLOCK$TYPE = RECORD CASE INTEGER OF 1: (glock$l_flink : UNSIGNED; (* Forward link (lock handle) *) glock$l_spare1 : UNSIGNED; (* not used *) glock$w_size : $UWORD; (* size of structure *) glock$b_type : $UBYTE; (* Structure type *) glock$b_subtype : $UBYTE; (* subtype *) glock$b_ipl : $UBYTE; (* IPL to raise to on acquire *) glock$b_prev_ipl : $UBYTE; (* IPL to lower to on release *) glock$b_rank : $UBYTE; (* Rank of lock *) glock$b_spare2 : $UBYTE; (* not used *) glock$r_fill_6_ : [BYTE(8)] RECORD END; glock$q_thread_id : $UQUAD; (* thread id of lock owner *) glock$q_waiters : $UQUAD; (* bitmask of waiters *) glock$l_timeout : UNSIGNED; (* wait timeout *) glock$t_name : PACKED ARRAY [1..16] OF CHAR; (* lock name *) glock$l_spare4 : UNSIGNED; (* not used *) glock$l_spare5 : UNSIGNED; (* not used *) glock$l_history_idx : UNSIGNED; (* next history longword to be used *) glock$r_history : ARRAY [1..10] OF glock_hist$TYPE; (* acquire - release history *) ); 2: (glock$q_lock : [POS(128)] $UQUAD; (* the lock *) ); 3: (); 4: (glock$b_owner_count : [POS(136)] $BIT8; (* nested owner count *) glock$b_node : [POS(144)] $BIT8; (* node where lock is owned *) glock$w_node_seq : [POS(152)] $BIT16; (* node sequence number *) glock$v_owner : [POS(168)] $BIT24; (* owner EPID or CPU # *) ); 5: (glock$b_flags : [POS(128)] $BIT8; (* lock flags *) ); 6: (); 7: (glock$v_owned : [POS(128)] $BOOL; (* lock is owned *) glock$v_broken : [POS(129)] $BOOL; (* lock ownership is broken *) glock$v_waiters : [POS(130)] $BOOL; (* there are waiters *) glock$v_process : [POS(131)] $BOOL; (* lock is owned in process context *) glock$v_reserved_4_7 : [POS(132)] $BIT4; (* the unused bits *) ) END; CONST glock$c_length = 64; (* Length *) glock$k_length = 64; (* Length *) glock$c_max_length = 192; (* max length *) glock$k_max_length = 192; (* max length *) glock_lock$m_owned = 1; glock_lock$m_broken = 2; glock_lock$m_waiters = 4; glock_lock$m_process = 8; glock_lock$m_reserved_4_7 = 240; glock_lock$m_owner_count = 65280; glock_lock$m_node = 16711680; glock_lock$m_node_seq = 0; glock_lock$m_owner = 0; TYPE glock_lock$TYPE = RECORD CASE INTEGER OF 1: (glock_lock$r_fill_10_ : [BYTE(8)] RECORD END; ); 2: (glock_lock$q_lock : [POS(0)] $UQUAD; (* the lock *) ); 3: (); 4: (glock_lock$b_owner_count : [POS(8)] $BIT8; (* nested owner count *) glock_lock$b_node : [POS(16)] $BIT8; (* node where lock is owned *) glock_lock$w_node_seq : [POS(24)] $BIT16; (* node sequence number *) glock_lock$v_owner : [POS(40)] $BIT24; (* owner EPID or CPU # *) ); 5: (glock_lock$b_flags : [POS(0)] $BIT8; (* lock flags *) ); 6: (); 7: (glock_lock$v_owned : [POS(0)] $BOOL; (* lock is owned *) glock_lock$v_broken : [POS(1)] $BOOL; (* lock ownership is broken *) glock_lock$v_waiters : [POS(2)] $BOOL; (* there are waiters *) glock_lock$v_process : [POS(3)] $BOOL; (* lock is owned in process context *) glock_lock$v_reserved_4_7 : [POS(4)] $BIT4; (* the unused bits *) ) END; CONST glcktbl$m_valid = 1; glcktbl$m_private = 2; glcktbl$m_space = 4; glcktbl$m_reserved_3_7 = 248; TYPE GLCKTBL$TYPE = RECORD CASE INTEGER OF 1: (glcktbl$l_flink : UNSIGNED; (* Forward link (region offset) *) glcktbl$w_lock_size : $UWORD; (* size of locks for the table *) glcktbl$r_fill_14_ : [BYTE(1)] RECORD END; glcktbl$b_accmode : $UBYTE; (* access mode of global section *) glcktbl$q_reg_id : $UQUAD; (* ID of shared memory region *) glcktbl$q_reg_phys_size : $UQUAD; (* physical size of shared memory region *) glcktbl$q_reg_virt_size : $UQUAD; (* virtual size of shared memory region *) glcktbl$q_num_locks : $UQUAD; (* number of locks in the region *) glcktbl$l_free_list : UNSIGNED; (* free glock list *) glcktbl$l_used_list : UNSIGNED; (* used glock list *) glcktbl$q_nodes : $UQUAD; (* bitmask of connected nodes *) glcktbl$q_glock_handle : $UQUAD; (* handle of embedded glock *) glcktbl$b_glock : ARRAY [1..64] OF $BYTE; (* embedded GLOCK *) glcktbl$w_ref_counts : ARRAY [1..64] OF $UWORD; (* per-node ref counters *) ); 2: (glcktbl$b_flags : [POS(48)] $UBYTE; (* lock table flags *) ); 3: (); 4: (glcktbl$v_valid : [POS(48)] $BOOL; (* lock table is valid *) glcktbl$v_private : [POS(49)] $BOOL; (* user allocated lock memory *) glcktbl$v_space : [POS(50)] $BOOL; (* clear for process, set for system *) glcktbl$v_reserved_3_7 : [POS(51)] $BIT5; (* the unused bits *) ) END; CONST glcktbl$c_length = 256; (* Length *) glcktbl$k_length = 256; (* Length *) TYPE glock_nodeb$TYPE = RECORD glock_nodeb$q_lock_handle : $UQUAD; (* lockhandle for ipint *) glock_nodeb$b_spares : ARRAY [1..24] OF $BYTE; (* pad to 32 bytes *) END; CONST glock_nodeb$c_length = 32; (* length *) TYPE gmdb_glock$TYPE = RECORD gmdb_glock$q_nodes : $UQUAD; (* connected nodes *) gmdb_glock$q_max_nodes : $UQUAD; (* max nodes supported *) gmdb_glock$q_flags : $UQUAD; (* flags *) gmdb_glock$q_handle : $UQUAD; (* lock handle *) gmdb_glock$b_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for the locking portion of the GMDB *) gmdb_glock$b_lcktbl : ARRAY [1..256] OF $BYTE; (* embedded GLCKTBL for locks in the GMDB *) gmdb_glock$q_num_tables : ARRAY [1..2] OF $UQUAD; (* number of locktables in the regions *) gmdb_glock$l_free_list : ARRAY [1..2] OF UNSIGNED; (* lists of free lock tables *) gmdb_glock$l_used_list : ARRAY [1..2] OF UNSIGNED; (* lists of used lock tables *) gmdb_glock$q_reg_handle : ARRAY [1..2] OF $UQUAD; (* lock handles for locktable list locks *) gmdb_glock$b_prc_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for process locktable lists *) gmdb_glock$b_sys_lock : ARRAY [1..64] OF $BYTE; (* GLOCK for system locktable lists *) gmdb_glock$r_nodeb : ARRAY [1..64] OF glock_nodeb$TYPE; (* per node cells *) END; CONST gmdb_glock$c_length = 2576; (* Length *) (*** MODULE $HWDEF ***) CONST HW$_VAX = 1; (* VAX architecture *) HW$_ALPHA = 2; (* Alpha architecture *) (*** MODULE $IACDEF ***) (*+ *) (* IMAGE ACTIVATION CONTROL FLAGS *) (*- *) CONST IAC$M_NOACT = 1; IAC$M_WRITABLE = 2; IAC$M_SHAREABLE = 4; IAC$M_PRIVILEGE = 8; IAC$M_MERGE = 16; IAC$M_EXPREG = 32; IAC$M_P1MERGE = 64; IAC$M_PARANOID = 128; IAC$M_LASTCLU = 256; IAC$M_LIM = 512; IAC$M_RETRY = 1024; IAC$M_NOCMKRNL = 2048; IAC$M_SEQDEVLOD = 4096; IAC$M_XLINKER = 8192; IAC$M_KP_RESHDR = 16384; IAC$M_IS_RESHDR = 32768; IAC$M_NOTSHARED = 65536; IAC$M_GBLCLUSTR = 131072; IAC$M_SHMIDENT = 262144; IAC$M_NOCOPY = 524288; IAC$M_P1MERG_P0 = 1048576; IAC$M_SETVECTOR = 2097152; IAC$M_PROTECTED = 4194304; IAC$M_P1DIRECT = 8388608; IAC$M_DEBUG = 16777216; IAC$M_PERMANENT = 33554432; IAC$M_NOTRANS = 67108864; IAC$M_NO_SHARE_LINKAGE = 134217728; IAC$M_PAGE_PROTECT = 268435456; IAC$C_LARGEST = 6; (*LARGEST FLAG CALLER MAY SPECIFY *) TYPE IAC$TYPE = RECORD CASE INTEGER OF 1: (IAC$R_IACDEF_BITS : [BYTE(4)] RECORD END; ); 2: (IAC$V_NOACT : [POS(0)] $BOOL; (*DO NOT ACTIVATE THE IMAGE (FOR INSTALL) *) IAC$V_WRITABLE : [POS(1)] $BOOL; (*MAKE IMAGE FILE WRITABLE *) IAC$V_SHAREABLE : [POS(2)] $BOOL; (*ACT. SHAREABLE IMAGE FOR EXECUTABLE IMG *) IAC$V_PRIVILEGE : [POS(3)] $BOOL; (*ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG *) IAC$V_MERGE : [POS(4)] $BOOL; (*ACT 2ND EXECUTABLE IMG INTO ADR SPACE *) IAC$V_EXPREG : [POS(5)] $BOOL; (*MAP IMAGE INTO NEXT FREE VA SPACE *) IAC$V_P1MERGE : [POS(6)] $BOOL; (*P1 MERGED ACTIVATION (LEGAL INPUT FLAG) *) IAC$V_PARANOID : [POS(7)] $BOOL; (*GO INTO PARANOIA MODE *) IAC$V_LASTCLU : [POS(8)] $BOOL; (*LAST CLUSTER FLAG *) IAC$V_LIM : [POS(9)] $BOOL; (*LINKABLE IMAGE *) IAC$V_RETRY : [POS(10)] $BOOL; (*RETRY IMAGE ACTIVATION *) IAC$V_NOCMKRNL : [POS(11)] $BOOL; (*SHUT OFF CMKRNL,CMEXEC-SYSVER DIFF *) IAC$V_SEQDEVLOD : [POS(12)] $BOOL; (*LOADING FROM SEQUENTIAL DEVICE (NET) *) IAC$V_XLINKER : [POS(13)] $BOOL; (*CROSS LINKER FORMAT *) IAC$V_KP_RESHDR : [POS(14)] $BOOL; (*MAKE IMAGE HEADER RESIDENT *) IAC$V_IS_RESHDR : [POS(15)] $BOOL; (*IMAGE HEADER IS RESIDENT *) IAC$V_NOTSHARED : [POS(16)] $BOOL; (*DO NOT SET IS_SHARED IN KFI ENTRY *) IAC$V_GBLCLUSTR : [POS(17)] $BOOL; (*CURRENTLY PROCESSING GBL ISD CLUSTER *) IAC$V_SHMIDENT : [POS(18)] $BOOL; (*SHARED MEMORY IDENT USED FOR GBL SEC *) IAC$V_NOCOPY : [POS(19)] $BOOL; (*NO PRIVATE COPY OF SECTION IN EXEC IMG *) IAC$V_P1MERG_P0 : [POS(20)] $BOOL; (*P1 MERGED ACTIVATION WITH P0 ADDRESS *) (* RANGE (INTERNAL FLAG ONLY) *) IAC$V_SETVECTOR : [POS(21)] $BOOL; (*SIGNAL ATLERNATE ENTRY TO SET VECTORS *) IAC$V_PROTECTED : [POS(22)] $BOOL; (*REQUIRE SHAREABLES BE /PROTECTED *) IAC$V_P1DIRECT : [POS(23)] $BOOL; (*DIRECT P1 MERGE *) IAC$V_DEBUG : [POS(24)] $BOOL; (*DEBUG SPECIFIED WITH ACTIVATION *) IAC$V_PERMANENT : [POS(25)] $BOOL; (*MAKE P1 IMAGE PERMANENT *) IAC$V_NOTRANS : [POS(26)] $BOOL; (*DO LOOKUP ON UNTRANSLATED IMAGE NAME *) IAC$V_NO_SHARE_LINKAGE : [POS(27)] $BOOL; (*Activate without shared linkage *) IAC$V_PAGE_PROTECT : [POS(28)] $BOOL; (*Protect image pages according to acmode *) ) END; (*** MODULE $ICCDEF IDENT X-4 ***) (* *) (* ICC IOSB data structure for data transfer routines *) (* *) (* Past the 1st longword, the IOC_ICC fields vary depending on the type of *) (* request/operation. The diagram attempts to picture those relationships *) (* below. Longwords 2-5 are done in columns, each column representing the *) (* value of that longword for that type of request/operation. *) (* *) (* +4 +2 +0 *) (* +---------------------------------------------------------+ *) (* L1: | Undefined | Return status code | *) (* |---------------------------------------------------------| *) (* |---------------------------------------------------------| *) (* | | | | | *) (* | RECEIVE | REPLY | TRANSCEIVE | CONNECT | *) (* | | | | | *) (* L2: | rcv_len | replyto_handle| txrcv_len | RemStat | *) (* |---------------|---------------|---------------|---------| *) (* L3: | req_handle | Unused | | Unused | *) (* |---------------|---------------| reply_buffer | | *) (* L4: | reply_len | Unused | | | *) (* |---------------|---------------|---------------| | *) (* L5: | Unused | Unused | txreply_len | | *) (* |---------------+---------------+---------------+---------| *) (* *) TYPE IOS_ICC$TYPE = RECORD CASE INTEGER OF 1: (IOS_ICC$w_status : $UWORD; (* return status *) IOS_ICC$w_reserved : $UWORD; (* reserved *) IOS_ICC$r_parameters : [BYTE(16)] RECORD END; ); 2: (IOS_ICC$r_connect : [POS(32), BYTE(16)] RECORD END; ); 3: (IOS_ICC$l_remstat : [POS(32)] UNSIGNED; (* remote status (returned) *) ); 4: (IOS_ICC$r_receive : [POS(32), BYTE(16)] RECORD END; ); 5: (IOS_ICC$l_rcv_len : [POS(32)] UNSIGNED; (* return len (returned) *) IOS_ICC$l_req_handle : [POS(64)] UNSIGNED; (* request handle (returned) *) IOS_ICC$l_reply_len : [POS(96)] UNSIGNED; (* reply len (returned) *) ); 6: (IOS_ICC$r_reply : [POS(32), BYTE(16)] RECORD END; ); 7: (IOS_ICC$l_replyto_handle : [POS(32)] UNSIGNED; (* request_handle (input) *) ); 8: (IOS_ICC$r_transceive : [POS(32), BYTE(16)] RECORD END; ); 9: (IOS_ICC$l_txrcv_len : [POS(32)] UNSIGNED; (* return length (returned) *) IOS_ICC$A_reply_buffer : [POS(64)] $QUAD; (* 64-bit bfr addr (Alpha) *) IOS_ICC$l_txreply_len : [POS(128)] UNSIGNED; (* reply len (input) *) ) END; CONST ICC$C_receive_len = 16; ICC$C_reply_len = 8; ICC$C_transceive_len = 20; (* *) (* Length constants *) (* *) CONST ICC$C_MAX_ASSOC_LEN = 31; ICC$C_MAX_CONN_DATA_LEN = 1000; (* *) (* Connection flag bit definitions (for connect/accept services) *) (* *) CONST ICC$M_Synch_Mode = 1; TYPE ICC_CONNECTION_FLAGS$TYPE = RECORD ICC$V_Synch_Mode : [POS(0)] $BOOL; (* Set (1) if data transfer routines *) (* are allowed to return SS$_SYNCH *) (* to the user. *) ICC$V_FILL_17_ : [POS(1)] $BIT7; END; (* *) (* ICC event codes (first parameter) for the connect/disconnect routines *) (* *) CONST ICC$C_EV_CONNECT = 0; ICC$C_EV_DISCONNECT = 1; ICC$C_min_event = 0; ICC$C_max_event = 1; (* *) (* Default ICC association handle *) (* *) CONST ICC$C_DFLT_ASSOC_HANDLE = 1; (* *) (* Default flow control value *) (* *) CONST ICC$C_DEFAULT_MAXFLOWBUFCNT = 5; (* Pending inbound msgs *) (*** MODULE $IEEEDEF ***) CONST IEEE$K_VERSION_NUMBER = 2; (* *) (* IEEE Floating Point control definitions. *) (* *) (* *) (* The following values are used to set the precision control and rounding control fields via *) (* SYS$IEEE_SET_PRECISION_MODE and SYS$IEEE_SET_ROUNDING_MODE. (Note that one can not set *) (* precision mode on Alpha). *) (* *) CONST IEEE$C_PM_NO_CHANGE = -1; (* No change. Just get previous value *) IEEE$C_PM_SINGLE = 0; (* Single Precision *) IEEE$C_PM_UNUSED = 1; (* This value has no meaning *) IEEE$C_PM_DOUBLE = 2; (* Double Precision *) IEEE$C_PM_DOUBLE_EXTENDED = 3; (* Double-Extended Precision *) IEEE$C_PM_MAX = 3; (* Maximum legal value *) IEEE$C_RM_NO_CHANGE = -1; (* No change. Just get previous value *) IEEE$C_RM_NEAREST = 0; (* Nearest (or even) *) IEEE$C_RM_DOWN = 1; (* -Infinity (down) *) IEEE$C_RM_UP = 2; (* +Infinity (up) *) IEEE$C_RM_TRUNCATE = 3; (* Zero (truncate/chop) *) IEEE$C_RM_MAX = 3; (* Maximum legal value *) (* *) (* The following structure defines bits for the (software) IEEE Floating Point *) (* control register on Alpha, and for the values passed to SYS$IEEE_SET_FP_CONTROL *) (* on all architectures (except VAX where it does not exist). *) (* *) CONST IEEE$M_TRAP_ENABLE_INV = 2; IEEE$M_TRAP_ENABLE_DZE = 4; IEEE$M_TRAP_ENABLE_OVF = 8; IEEE$M_TRAP_ENABLE_UNF = 16; IEEE$M_TRAP_ENABLE_INE = 32; IEEE$M_TRAP_ENABLE_DNOE = 64; IEEE$M_MAP_DNZ = 8192; IEEE$M_MAP_UMZ = 16384; IEEE$M_INHERIT = 32768; IEEE$M_STATUS_INV = 131072; IEEE$M_STATUS_DZE = 262144; IEEE$M_STATUS_OVF = 524288; IEEE$M_STATUS_UNF = 1048576; IEEE$M_STATUS_INE = 2097152; IEEE$M_STATUS_DNO = 4194304; IEEE$M_PC = 25165824; IEEE$M_RC = 100663296; IEEE$M_WPFP = 134217728; TYPE IEEE$TYPE = RECORD CASE INTEGER OF 1: (IEEE$R_FILL_18_ : [BYTE(8)] RECORD END; ); 2: (IEEE$Q_FLAGS : [POS(0)] $UQUAD; (* Internal flags *) ); 3: (); 4: ( (* Trap enable flags *) IEEE$V_TRAP_ENABLE_INV : [POS(1)] $BOOL; (* invalid operation *) IEEE$V_TRAP_ENABLE_DZE : [POS(2)] $BOOL; (* divide by zero *) IEEE$V_TRAP_ENABLE_OVF : [POS(3)] $BOOL; (* overflow *) IEEE$V_TRAP_ENABLE_UNF : [POS(4)] $BOOL; (* underflow *) IEEE$V_TRAP_ENABLE_INE : [POS(5)] $BOOL; (* inexact *) IEEE$V_TRAP_ENABLE_DNOE : [POS(6)] $BOOL; (* denormal operand exception enable *) IEEE$V_MAP_DNZ : [POS(13)] $BOOL; (* denormal operands mapped to 0.0 *) IEEE$V_MAP_UMZ : [POS(14)] $BOOL; (* underflows mapped to 0.0 *) IEEE$V_INHERIT : [POS(15)] $BOOL; (* inherit FP state on thread create *) IEEE$V_STATUS_INV : [POS(17)] $BOOL; (* invalid operation *) IEEE$V_STATUS_DZE : [POS(18)] $BOOL; (* divide by zero *) IEEE$V_STATUS_OVF : [POS(19)] $BOOL; (* overflow *) IEEE$V_STATUS_UNF : [POS(20)] $BOOL; (* underflow *) IEEE$V_STATUS_INE : [POS(21)] $BOOL; (* inexact *) IEEE$V_STATUS_DNO : [POS(22)] $BOOL; (* denormal operand *) (* Precision, rounding, and WPFP are not currently supported on Alpha. *) IEEE$V_PC : [POS(23)] $BIT2; (* Precision control *) IEEE$V_RC : [POS(25)] $BIT2; (* Rounding control *) IEEE$V_WPFP : [POS(27)] $BOOL; (* Whole program floating point mode *) ) END; (*** MODULE $ILEDEF ***) (*+ *) (* Define the 32-bit Item List Entry 3 structure *) (*- *) TYPE ILE3$TYPE = RECORD ILE3$W_LENGTH : $UWORD; (* Length of buffer in bytes *) ILE3$W_CODE : $UWORD; (* Item code value *) ILE3$PS_BUFADDR : UNSIGNED; (* Buffer address *) ILE3$PS_RETLEN_ADDR : ^$UWORD; (* Address of word for returned length *) END; CONST ILE3$K_LENGTH = 12; (* Length of ILE3 *) ILE3$C_LENGTH = 12; (* Length of ILE3 *) (*+ *) (* Define the 64-Bit Item List Entry B structure. This is the 64-bit *) (* counterpart of the 32-bit item list 3 structure. *) (*- *) TYPE ILEB_64$TYPE = RECORD ILEB_64$W_MBO : $UWORD; (* Must be One field *) ILEB_64$W_CODE : $UWORD; (* Item code value *) ILEB_64$L_MBMO : INTEGER; (* Must be Minus One field *) ILEB_64$Q_LENGTH : $UQUAD; (* Length of buffer in bytes *) ILEB_64$PQ_BUFADDR : $QUAD; (* Buffer address *) ILEB_64$PQ_RETLEN_ADDR : $QUAD; (* Address of quadword for returned length *) END; CONST ILEB_64$K_LENGTH = 32; (* Length of ILEB *) ILEB_64$C_LENGTH = 32; (* Length of ILEB *) (*+ *) (* Define the 32-bit Item List Entry 2 structure *) (*- *) TYPE ILE2$TYPE = RECORD ILE2$W_LENGTH : $UWORD; (* Length of buffer in bytes *) ILE2$W_CODE : $UWORD; (* Item code value *) ILE2$PS_BUFADDR : UNSIGNED; (* Buffer address *) END; CONST ILE2$K_LENGTH = 8; (* Length of ILE2 *) ILE2$C_LENGTH = 8; (* Length of ILE2 *) (*+ *) (* Define the 64-Bit Item List Entry 2 structure. This is the 64-bit *) (* counterpart of the 32-bit item list 2 structure. *) (*- *) TYPE ILEA_64$TYPE = RECORD ILEA_64$W_MBO : $UWORD; (* Must be One field *) ILEA_64$W_CODE : $UWORD; (* Item code value *) ILEA_64$L_MBMO : INTEGER; (* Must be Minus One field *) ILEA_64$Q_LENGTH : $UQUAD; (* Length of buffer in bytes *) ILEA_64$PQ_BUFADDR : $QUAD; (* Buffer address *) END; CONST ILEA_64$K_LENGTH = 24; (* Length of ILEA *) ILEA_64$C_LENGTH = 24; (* Length of ILEA *) (*** MODULE $INDICTDEF ***) (*+ *) (* *) (* Object Indictment Definitions *) (* *) (* This file is in [STARLET] to allow other outside developers call the *) (* sys$indict_object call properly. Today the only group who calls that *) (* object is Compaq Analyze. *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* so that users will not have to relink. *) (* *) (*- *) CONST INDICT$_VERSION = 1; (* Request information version *) INDICT$_OBJTYPE = 2; (* Indictment Object type *) INDICT$_HANDLE = 3; (* Indicted object or failing PFN Page *) INDICT$_COMPONENT_ID = 4; (* Component Handle ID *) INDICT$_COMPONENT_TYPE = 5; (* Component Handle Type *) INDICT$_COMPONENT_SUBTYPE = 6; (* Component Handle Subtype *) INDICT$_MODULE_ID = 7; (* Module Handle Id *) INDICT$_MODULE_TYPE = 8; (* Module Handle Type *) INDICT$_MODULE_SUBTYPE = 9; (* Module Handle Subtype *) INDICT$_URGENCY = 10; (* Urgency of the indictment request *) INDICT$_PROBABILITY = 11; (* Probability of correct fault *) INDICT$_TOTALINDICTMENTS = 12; (* Total number to be indicted *) INDICT$_DESCRIPTION = 13; (* Readable description of the problem *) INDICT$_REPORTHANDLE = 14; (* report_handle program name *) INDICT$_INITIATOR = 15; (* Who called us (e.g. Compaq Analyze). *) (*** MODULE $INITDEF ***) (* *) (* Values for INIT$_DENSITY item code. *) (* *) CONST INIT$K_DENSITY_800_BPI = 1; (* 800 bpi tape *) INIT$K_DENSITY_1600_BPI = 2; (* 1600 bpi tape *) INIT$K_DENSITY_6250_BPI = 3; (* 6250 bpi tape *) INIT$K_DENSITY_SINGLE_DISK = 4; (* Single-density RX02 *) INIT$K_DENSITY_DOUBLE_DISK = 5; (* RX33 or double-density RX02 *) INIT$K_DENSITY_DD_DISK = 6; (* "Double density" (lower than "High Density") *) INIT$K_DENSITY_HD_DISK = 7; (* High density diskette *) INIT$K_DENSITY_COMPACT = 8; (* TA90 with data compaction on *) INIT$K_DENSITY_ED_DISK = 9; (* New density for RX26 *) (* *) (* Values for INIT$_HOMEBLOCKS item code. *) (* *) CONST INIT$K_HOMEBLOCKS_GEOMETRY = 1; (* geometry dependent *) INIT$K_HOMEBLOCKS_FIXED = 2; (* fixed position *) INIT$K_HOMEBLOCKS_CONTIGUOUS = 3; (* contiguous *) (* *) (* Item codes for $INIT_VOL parameters. *) (* *) TYPE BADBLOCKS_LBN_$TYPE = RECORD INIT$L_BADBLOCKS_LBN : UNSIGNED; (* LBN of first block *) INIT$L_BADBLOCKS_LBN_COUNT : UNSIGNED; (* Count of blocks to be marked *) END; BADBLOCKS_SEC_$TYPE = RECORD INIT$L_BADBLOCKS_SECTOR : UNSIGNED; (* Sector of first block *) INIT$L_BADBLOCKS_SEC_COUNT : UNSIGNED; (* Count of blocks to be marked *) INIT$L_BADBLOCKS_TRACK : UNSIGNED; (* Track of first block *) INIT$L_BADBLOCKS_CYLINDER : UNSIGNED; (* Cylinder of first block *) END; (* Define codes as constants *) CONST INIT$_ACCESSED = 1; (* Number of directories in system space *) INIT$_BADBLOCKS_LBN = 2; (* Bad block areas by logical block number *) INIT$_BADBLOCKS_SEC = 3; (* Bad block areas by sector, track, cylinder *) INIT$_CLUSTERSIZE = 4; (* Minimum allocation unit *) INIT$_COMPACTION = 5; (* Data compaction for TA90 *) INIT$_NO_COMPACTION = 6; (* No data compaction *) INIT$_DENSITY = 7; (* Format *) INIT$_DIRECTORIES = 8; (* Preallocated entries for directories *) INIT$_ERASE = 9; (* Destroy data on volume *) INIT$_NO_ERASE = 10; (* Do not destroy data on volume *) INIT$_EXTENSION = 11; (* Default extension size for files *) INIT$_FPROT = 12; (* Default protection for files *) INIT$_HEADERS = 13; (* Number of file headers for index file *) INIT$_HIGHWATER = 14; (* Set the file highwater mark attribute *) INIT$_NO_HIGHWATER = 15; (* Do not set the file highwater mark attribute *) INIT$_INDEX_BEGINNING = 16; (* Place index file at beginning of volume *) INIT$_INDEX_BLOCK = 17; (* LBN for index file *) INIT$_INDEX_END = 18; (* Place index file at end of volume *) INIT$_INDEX_MIDDLE = 19; (* Place index file at middle of volume *) INIT$_INTERCHANGE = 20; (* Do not write VMS-specific information *) INIT$_NO_INTERCHANGE = 21; (* Write VMS-specific information *) INIT$_LABEL_ACCESS = 22; (* Character for ANSI accessability field *) INIT$_LABEL_VOLO = 23; (* Text for ANSI owner ID field *) INIT$_MAXFILES = 24; (* Maximum number of files on volume *) INIT$_OVR_ACCESS = 25; (* Override ANSI accessability field *) INIT$_NO_OVR_ACCESS = 26; (* Do not override ANSI accessability field *) INIT$_OVR_EXP = 27; (* Override expiration date *) INIT$_NO_OVR_EXP = 28; (* Do not override expiration date *) INIT$_OVR_VOLO = 29; (* Override ANSI owner ID field *) INIT$_NO_OVR_VOLO = 30; (* Do not override ANSI owner ID field *) INIT$_OWNER = 31; (* UIC for volume *) INIT$_READCHECK = 32; (* Check all read operations *) INIT$_NO_READCHECK = 33; (* Do not check all read operations *) INIT$_SIZE = 34; (* Size of RAM disk *) INIT$_STRUCTURE_LEVEL_1 = 35; (* Format in Files-11 level 1 *) INIT$_STRUCTURE_LEVEL_2 = 36; (* Format in Files-11 level 2 *) INIT$_STRUCTURE_LEVEL_2_SUB_0 = 37; (* Format in subset of Files-11 level 2 *) INIT$_USER_NAME = 38; (* User name for volume *) INIT$_VERIFIED = 39; (* Use bad block data on volume *) INIT$_NO_VERIFIED = 40; (* Ignore bad block data on volume *) INIT$_VPROT = 41; (* Volume protection *) INIT$_WINDOW = 42; (* Number of mapping pointers for file windows *) INIT$_WRITECHECK = 43; (* Check all write operations *) INIT$_NO_WRITECHECK = 44; (* Do not check all write operations *) INIT$_MIN_CLASS = 45; (* Minimum security classfication *) INIT$_MAX_CLASS = 46; (* Maximum security classfication *) INIT$_NO_PROTECTION = 47; (* No default security classification *) INIT$_HOMEBLOCKS = 48; (* Homeblock placement strategy to use *) INIT$_STRUCTURE_LEVEL_5 = 49; (* Format in Files-11 level 5 *) INIT$_SHADOW = 50; (* Format disks with Shadowing SCBs *) INIT$_HARDLINKS = 51; (* Use a linkcount in creating files (ODS-5 only) *) INIT$_ACCESS_DATES = 52; (* Use access dates for attributes (ODS-5 only) *) INIT$_SPARE = 53; INIT$_VOLUME_LIMIT = 54; (* Maximum logical volume size *) INIT$_GPT = 55; (* Create a GUID Partition Table Structure. *) INIT$_NO_GPT = 56; (* Do not create a GPT *) INIT$_ERASE_ON_DELETE = 57; (* Set HM2$V_ERASE bit *) INIT$_ERASE_ON_INIT = 58; (* Perform DSE erase now *) INIT$_STRUCTURE_LEVEL_6 = 59; (* Format in Files-11 level 6 (CFS container) *) INIT$_LOGSIZE = 60; (* CFS log file size *) INIT$_SPECIAL_FILES = 61; (* Volume supports special files (ODS-5 only) *) INIT$_NO_SPECIAL_FILES = 62; (* Volume does not support special files *) INIT$_LAST_INIT_ITEM = 63; (* Note add all new INIT items before this one. *) INIT$_MAX_ITEM_CODE = 62; (* Maximum item code. *) INIT$S_USER_NAME = 12; (* Max size of user name on volume *) INIT$S_DEVICE_NAME = 64; (* Max size of device names *) INIT$C_MIN_SECURITY_BLKCNT = 6; (* Min size of SECURITY.SYS *) INIT$C_MIN_GPT_BLKCNT = 34; (* Min size of GPT.SYS *) (*** MODULE $IODEF ***) (*+ *) (* I/O FUNCTION CODE DEFINITIONS *) (*- *) (* *) (* *** START PHYSICAL I/O FUNCTION CODES *** *) (* *) CONST IO$_NOP = 0; (*NO OPERATION *) IO$_UNLOAD = 1; (*UNLOAD DRIVE *) IO$_LOADMCODE = 1; (*LOAD MICROCODE *) IO$_START_BUS = 1; (*START LAVC BUS *) IO$_SEEK = 2; (*SEEK CYLINDER *) IO$_SPACEFILE = 2; (*SPACE FILES *) IO$_STARTMPROC = 2; (*START MICROPROCESSOR *) IO$_STOP_BUS = 2; (*STOP LAVC BUS *) IO$_RECAL = 3; (*RECALIBRATE DRIVE *) IO$_DUPLEX = 3; (*ENTER DUPLEX MODE *) IO$_STOP = 3; (*STOP *) IO$_DEF_COMP = 3; (*DEFINE NETWORK COMPONENT *) IO$_DRVCLR = 4; (*DRIVE CLEAR *) IO$_INITIALIZE = 4; (*INITIALIZE *) IO$_MIMIC = 4; (*ENTER MIMIC MODE *) IO$_DEF_COMP_LIST = 4; (*DEFINE NETWORK COMPONENT LIST *) IO$_FLUSH_ERROR = 4; (*FLUSH SCSI ERRORS *) IO$_RELEASE = 5; (*RELEASE PORT *) IO$_SETCLOCKP = 5; (*SET CLOCK (PHYSICAL) *) IO$_START_ANALYSIS = 5; (*START LAVC FAILURE ANALYSIS *) IO$_BIND = 5; (*BIND UNITS INTO A STORAGE POOL *) IO$_PATH_VERIFY = 5; (*VERIFY PATH TO DEVICE *) IO$_OFFSET = 6; (*OFFSET READ HEADS *) IO$_ERASETAPE = 6; (*ERASE TAPE *) IO$_STARTDATAP = 6; (*START DATA TRANSFER (PHYSICAL) *) IO$_STOP_ANALYSIS = 6; (*STOP LAVC FAILURE ANALYSIS *) IO$_UNBIND = 6; (*REMOVE UNITS FROM A STORAGE POOL *) IO$_RETCENTER = 7; (*RETURN TO CENTERLINE *) IO$_QSTOP = 7; (*QUEUE STOP REQUEST *) IO$_START_MONITOR = 7; (*START LAVC CHANNEL MONITOR. *) IO$_CREDISK = 7; (*CREATE A DISK IN A STORAGE POOL *) IO$_LOCAL_DRAIN = 7; (*DRAIN LOCAL IO *) IO$_PACKACK = 8; (*PACK ACKNOWLEDGE *) IO$_STOP_MONITOR = 8; (*STOP LAVC CHANNEL MONITOR. *) IO$_SEARCH = 9; (*SEARCH FOR SECTOR *) IO$_SPACERECORD = 9; (*SPACE RECORDS *) IO$_READRCT = 9; (*READ REPLACEMENT & CACHING TABLE *) IO$_REMDISK = 9; (*REMOVE A DISK FROM A STORAGE POOL *) IO$_WRITECHECK = 10; (*WRITE CHECK DATA *) IO$_EXPORT = 10; (*EXPORT A DISK FROM A STORAGE POOL *) IO$_WRITEPBLK = 11; (*WRITE PHYSICAL BLOCK *) IO$_READPBLK = 12; (*READ PHYSICAL BLOCK *) IO$_WRITEHEAD = 13; (*WRITE HEADER AND DATA *) IO$_RDSTATS = 13; (*READ STATISTICS *) IO$_CRESHAD = 13; (*CREATE A SHADOW SET *) IO$_READHEAD = 14; (*READ HEADER AND DATA *) IO$_ADDSHAD = 14; (*ADD MEMBER TO SHADOW SET *) IO$_WRITETRACKD = 15; (*WRITE TRACK DATA *) IO$_COPYSHAD = 15; (*PERFORM SHADOW SET COPY OPERATIONS *) IO$_READTRACKD = 16; (*READ TRACK DATA *) IO$_REMSHAD = 16; (*REMOVE MEMBER FROM SHADOW SET *) IO$_AVAILABLE = 17; (*AVAILABLE (DISK AND TAPE CLASS) *) IO$_SETPRFPATH = 18; (*SET PREFERRED PATH *) IO$_DISPLAY = 19; (*DISPLAY VOLUME LABEL *) IO$_REMSHADMBR = 20; (*REMOVE MEMBER FROM SHADOW SET *) IO$_DSE = 21; (*DATA SECURITY ERASE (AND REWIND) *) IO$_REREADN = 22; (*REREAD NEXT *) IO$_DISK_COPY_DATA = 22; (*DISK_COPY_DATA *) IO$_MOUNTSHAD = 23; (*CREATE A SHADOW SET *) IO$_REREADP = 23; (*REREAD PREVIOUS *) IO$_WHM = 23; (*WRITE HISTORY MANAGEMENT *) IO$_AS_SETCHAR = 23; (*ASIAN SET CHARACTERISTICS *) IO$_WRITERET = 24; (*WRITE RETRY *) IO$_WRITECHECKH = 24; (*WRITE CHECK HEADER AND DATA *) IO$_AS_SENSECHAR = 24; (*ASIAN SENSE CHARACTERISTICS *) IO$_ADDSHADMBR = 25; (*ADD MEMBER TO SHADOW SET *) IO$_READPRESET = 25; (*READIN PRESET *) IO$_STARTSPNDL = 25; (*START SPINDLE *) IO$_SETCHAR = 26; (*SET CHARACTERISTICS *) IO$_SENSECHAR = 27; (*SENSE TAPE CHARACTERISTICS *) IO$_WRITEMARK = 28; (*WRITE TAPE MARK *) IO$_COPYMEM = 28; (*COPY MEMORY *) IO$_PSXSETCHAR = 28; (*POSIX SET CHARACTERISTICS *) IO$_WRTTMKR = 29; (*WRITE TAPE MARK RETRY *) IO$_DIAGNOSE = 29; (*DIAGNOSE *) IO$_SHADMV = 29; (*PREFORM MOUNT VER. ON SHADOW SET *) IO$_PSXSENSECHAR = 29; (*POSIX SENSE CHARACTERISTICS *) IO$_FORMAT = 30; (*FORMAT *) IO$_CLEAN = 30; (*CLEAN TAPE *) IO$_UPSHAD = 30; (*UPDATE SHADOW SYSDEVICE *) IO$_PHYSICAL = 31; (*HIGHEST PHYSICAL I/O FUNCTION CODE *) (* *) (* *** START LOGICAL I/O FUNCTION CODES *** *) (* *) CONST IO$_WRITELBLK = 32; (*WRITE LOGICAL BLOCK *) IO$_READLBLK = 33; (*READ LOGICAL BLOCK *) IO$_REWINDOFF = 34; (*REWIND AND SET OFFLINE *) IO$_READRCTL = 34; (*READ RCT SECTOR ZERO *) IO$_SETMODE = 35; (*SET MODE *) IO$_REWIND = 36; (*REWIND TAPE *) IO$_SKIPFILE = 37; (*SKIP FILES *) IO$_PSXSETMODE = 37; (*POSIX SET MODE *) IO$_SKIPRECORD = 38; (*SKIP RECORDS *) IO$_PSXSENSEMODE = 38; (*POSIX SENSE MODE *) IO$_SENSEMODE = 39; (*SENSE TAPE MODE *) IO$_WRITEOF = 40; (*WRITE END OF FILE *) IO$_TTY_PORT_BUFIO = 40; (*BUFFERED I/O TERMINAL PORT FDT ROUTINE *) IO$_TTY_PORT = 41; (*TERMINAL PORT FDT ROUTINE *) IO$_FREECAP = 41; (*RETURN FREE CAPACITY *) IO$_FLUSH = 42; (*FLUSH CONTROLLER CACHE *) IO$_AS_SETMODE = 42; (*ASIAN SET MODE *) IO$_READLCHUNK = 43; (*READ LARGE LOGICAL BLOCK *) IO$_AS_SENSEMODE = 43; (*ASIAN SENSE MODE *) IO$_WRITELCHUNK = 44; (*WRITE LARGE LOGICAL BLOCK *) IO$_LOGICAL = 47; (*HIGHEST LOGICAL I/O FUNCTION CODE *) (* *) (* *** START VIRTUAL I/O FUNCTION CODES *) (* *) (* NOTE: *) (* Virtual IO operations to a non-file oriented device require that the process *) (* has READ access priviledges for that device. Specificly, EXE$QIO calls *) (* EXE$CHECK_DEVICE_ACCESS for the following virtual IO function codes to *) (* verify that the the process has read access rights: *) (* READPBLK,READLBLK,READVBLK, READHEAD,READTRACKD,REREADN,REREADP, *) (* READPROMPT,TTYREADALL,TTYREADPALL *) CONST IO$_WRITEVBLK = 48; (*WRITE VIRTUAL BLOCK *) IO$_READVBLK = 49; (*READ VIRTUAL BLOCK *) IO$_ACCESS = 50; (*ACCESS FILE *) IO$_PSXWRITEVBLK = 50; (*POSIX WRITE VIRTUAL *) IO$_CREATE = 51; (*CREATE FILE *) IO$_DEACCESS = 52; (*DEACCESS FILE *) IO$_PSXREADVBLK = 52; (*POSIX READ VIRTUAL *) IO$_DELETE = 53; (*DELETE FILE *) IO$_MODIFY = 54; (*MODIFY FILE *) IO$_NETCONTROL = 54; (*X25 NETWORK CONTROL FUNCTION *) IO$_READPROMPT = 55; (*READ TERMINAL WITH PROMPT *) IO$_SETCLOCK = 55; (*SET CLOCK *) IO$_AUDIO = 55; (*CD-ROM AUDIO *) IO$_ACPCONTROL = 56; (*MISCELLANEOUS ACP CONTROL *) IO$_STARTDATA = 56; (*START DATA *) IO$_IOCTLV = 56; (*GENERIC UNIX IOCTL FUNCTIONS *) IO$_MANAGE = 56; (*MANAGE DEVICE *) IO$_MOUNT = 57; (*MOUNT VOLUME *) IO$_TTYREADALL = 58; (* TERMINAL READ PASSALL *) IO$_DISMOUNT = 58; (* F64 dismount *) IO$_TTYREADPALL = 59; (* TERM READ W/PROMPT PASSALL *) IO$_USBATTR = 59; (* USB device attributes *) IO$_CONINTREAD = 60; (* Connect to interrupt readonly *) IO$_CONINTWRITE = 61; (* Connect to interrupt with write *) IO$_READDIR = 62; (*READ DIRECTORY CONTENTS *) IO$_VIRTUAL = 63; (*HIGHEST VIRTUAL I/O FUNCTION *) (* *) (* FUNCTION MODIFIER BIT DEFINITIONS *) (* *) CONST IO$M_FCODE = 63; IO$M_FMODIFIERS = 65472; IO$M_INHERLOG = 2048; IO$M_ERASE = 1024; IO$M_EXFUNC = 8192; IO$M_DATACHECK = 16384; IO$M_INHRETRY = 32768; IO$M_SYNCSTS = 65536; IO$M_NOVCACHE = 131072; IO$M_BUFOBJ = 262144; IO$M_TRUSTED = 524288; IO$M_FILE_FLUSH = 1048576; IO$M_BARRIER = 2097152; IO$M_RAH_HINT = 4194304; IO$M_INHSEEK = 4096; IO$M_READ_TO_EOF = 2097152; IO$M_REVERSE = 64; IO$M_NOWAIT = 128; IO$M_INHEXTGAP = 4096; IO$M_RETENSION = 8192; IO$M_ALLOWFAST = 16384; IO$M_MT3_DENSITY = 32768; IO$M_MSCPMODIFS = 256; IO$M_SHADOW = 64; IO$M_LOCATE = 128; IO$M_MSCP_FORMAT = 64; IO$M_ALLHOSTS = 64; IO$M_DISSOLVE = 128; IO$M_NOCLEANUP = 256; IO$M_SPINDOWN = 64; IO$M_EST_COM_PATH = 64; IO$M_LCL_SRC_UNIT = 128; IO$M_RTN_COM_PATH = 256; IO$M_DEALC_ALL = 64; IO$M_DEALC_HRN = 128; IO$M_DEALC_ENTLOC = 256; IO$M_DECR_AFC = 512; IO$M_READ_ALL = 1024; IO$M_READ_HRN = 2048; IO$M_BREAK_CONN = 4096; IO$M_STEPOVER = 64; IO$M_COPYOP = 256; IO$M_EXISTS = 64; IO$M_CBS = 128; IO$M_BOOTING = 256; IO$M_REQ_MINICOPY = 512; IO$M_OPT_MINICOPY = 1024; IO$M_NOMINICOPY = 2048; IO$M_EXPECT_MOUNT_DONE = 8192; IO$M_VUEX_FC = 512; IO$M_WRITE_SCB = 512; IO$M_UPD_SCBLBN = 8192; IO$M_FORCEPATH = 64; IO$M_PREFERRED_CPU = 128; IO$M_SYS_ASSIGNABLE = 256; IO$M_COMMOD = 64; IO$M_MOVETRACKD = 128; IO$M_DIAGNOSTIC = 256; IO$M_SKPSECINH = 512; IO$M_DELDATA = 64; IO$M_NOMRSP = 64; IO$M_SWAP = 256; IO$M_OPPOSITE = 512; IO$M_CLSEREXCP = 512; IO$M_CHUNKDIAG = 64; IO$M_TBC = 1024; IO$M_ENAREP = 64; IO$M_ACCESS = 64; IO$M_CREATE = 128; IO$M_DELETE = 256; IO$M_MOUNT = 512; IO$M_DMOUNT = 1024; IO$M_REMOUNT = 2048; IO$M_MOVEFILE = 4096; IO$M_RWSHELVED = 16384; IO$M_SETDIR = 32768; IO$M_BINARY = 64; IO$M_PACKED = 128; IO$M_NOW = 64; IO$M_STREAM = 128; IO$M_READERCHECK = 256; IO$M_WRITERCHECK = 512; IO$M_NORSWAIT = 1024; IO$M_MB_ROOM_NOTIFY = 64; IO$M_READATTN = 128; IO$M_WRTATTN = 256; IO$M_SETPROT = 512; IO$M_READERWAIT = 1024; IO$M_WRITERWAIT = 2048; IO$M_NOECHO = 64; IO$M_TIMED = 128; IO$M_CVTLOW = 256; IO$M_NOFILTR = 512; IO$M_DSABLMBX = 1024; IO$M_PURGE = 2048; IO$M_TRMNOECHO = 4096; IO$M_REFRESH = 8192; IO$M_ESCAPE = 16384; IO$M_EXTEND = 32768; IO$M_CANCTRLO = 64; IO$M_ENABLMBX = 128; IO$M_NOFORMAT = 256; IO$M_BREAKTHRU = 512; IO$M_NEWLINE = 1024; IO$M_TYPEAHDCNT = 64; IO$M_MAINT = 64; IO$M_CTRLYAST = 128; IO$M_CTRLCAST = 256; IO$M_HANGUP = 512; IO$M_OUTBAND = 1024; IO$M_TT_CONNECT = 2048; IO$M_TT_DISCON = 4096; IO$M_TT_PROCESS = 8192; IO$M_BRDCST = 16384; IO$M_LOOP = 128; IO$M_UNLOOP = 256; IO$M_LINE_OFF = 512; IO$M_SET_MODEM = 1024; IO$M_LINE_ON = 2048; IO$M_LOOP_EXT = 4096; IO$M_AUTXOF_ENA = 8192; IO$M_AUTXOF_DIS = 16384; IO$M_INCLUDE = 2048; IO$M_TT_ABORT = 4096; IO$M_POSIXINIT = 64; IO$M_POSIXFLOW = 128; IO$M_SET_POSIX = 128; IO$M_CLEAR_POSIX = 256; IO$M_SET_TERMIOS = 512; IO$M_SET_PTC = 1024; IO$M_CLEAR_PTC = 2048; IO$M_FLUSH_TAB = 4096; IO$M_FLUSH_OUTPUT = 8192; IO$M_UPDATE_PTC = 16384; IO$M_OUT_XOFF = 256; IO$M_OUT_XON = 512; IO$M_IN_XOFF = 1024; IO$M_IN_XON = 2048; IO$M_O_NONBLOCK = 64; IO$M_INTERRUPT = 64; IO$M_MULTIPLE = 128; IO$M_LOCKBUF = 256; IO$M_NOBLOCK = 512; IO$M_ABORT = 256; IO$M_SYNCH = 512; IO$M_RESPONSE = 64; IO$M_STARTUP = 64; IO$M_SHUTDOWN = 128; IO$M_ATTNAST = 256; IO$M_CTRL = 512; IO$M_SET_MAC = 2048; IO$M_UPDATE_MAP = 4096; IO$M_ROUTE = 8192; IO$M_RD_MEM = 64; IO$M_RD_MODEM = 128; IO$M_RD_COUNT = 256; IO$M_CLR_COUNT = 1024; IO$M_SENSE_MAC = 2048; IO$M_SHOW_MAP = 4096; IO$M_SHOW_ROUTE = 8192; IO$K_SRRUNOUT = 0; (* Send or rcv until cnt runout *) IO$K_PTPBSC = 8192; (* Point to point BSC control *) IO$K_LOOPTEST = 57344; (* Loop test *) (* X25 driver WRITEBLK function modifier bits. *) CONST IO$M_MORE = 64; IO$M_QUALIFIED = 128; IO$M_REDIRECT = 64; IO$M_ACCEPT = 128; IO$M_SETEVF = 64; IO$M_WORD = 64; IO$M_SETFNCT = 512; IO$M_DATAPATH = 1024; IO$M_CYCLE = 4096; IO$M_RESET = 8192; IO$M_SETCUADR = 256; IO$M_SETBSIZE = 512; IO$M_SETPOOLSZ = 1024; IO$M_SETENQCNT = 2048; IO$M_CLEAR = 4096; IO$M_LPBEXT = 8192; IO$M_LPBINT = 16384; IO$M_READCSR = 32768; IO$M_NOCTSWAIT = 64; IO$M_SLAVLOOP = 128; IO$M_NODSRWAIT = 256; IO$M_MAINTLOOP = 512; IO$M_LASTBLOCK = 1024; IO$M_INTCLOCK = 4096; IO$M_LT_CONNECT = 64; IO$M_LT_DISCON = 128; IO$M_LT_READPORT = 256; IO$M_LT_MAP_PORT = 512; IO$M_LT_RATING = 1024; IO$M_LT_SOL_INFO = 2048; IO$M_LT_RCV_INFO = 4096; IO$M_LT_SETMODE = 8192; IO$M_LT_SENSEMODE = 16384; IO$M_LT_QUE_CHG_NOTIF = 32768; IO$M_LT_MAP_FILLER = 1; IO$M_LT_MAP_NODNAM = 2; IO$M_LT_MAP_PORNAM = 4; IO$M_LT_MAP_SRVNAM = 8; IO$M_LT_MAP_LNKNAM = 16; IO$M_LT_MAP_NETADR = 32; IO$M_FLUSH = 64; IO$M_WRITE_BARRIER = 128; IO$M_MKFILL1 = 64; IO$M_ALLOWFAST_NEVER = 128; IO$M_ALLOWFAST_PER_IO = 256; IO$M_ALLOWFAST_ALWAYS = 512; IO$M_ADD = 64; IO$M_IDSTRING = 64; IO$M_SERIALNUM = 128; IO$M_BYPASS_VALID_CHK = 128; TYPE IO$TYPE = RECORD CASE INTEGER OF (* Basic I/O function code/modifiers structure *) 1: (IO$R_FCODE_STRUCTURE : [BYTE(2)] RECORD END; ); 2: (IO$V_FCODE : [POS(0)] $BIT6; (* Function Code Field *) IO$V_FMODIFIERS : [POS(6)] $BIT10; (* Function Modifiers Field *) (* Function modifiers common to all drivers which do error logging *) ); 3: (IO$R_ERRLOG_MODIFIERS : [BYTE(2)] RECORD END; ); 4: (IO$V_INHERLOG : [POS(11)] $BOOL; (* Inhibit error logging *) (* General disk and tape function code modifiers *) ); 5: (IO$R_DISK_TAPE_MODIFIERS : [BYTE(3)] RECORD END; ); 6: (IO$V_ERASE : [POS(10)] $BOOL; (* Erase data *) IO$V_EXFUNC : [POS(13)] $BOOL; (* func<31:16> are valid *) IO$V_DATACHECK : [POS(14)] $BOOL; (* Write check data after transfer *) IO$V_INHRETRY : [POS(15)] $BOOL; (* Inhibit error retry *) (* the following are only valid if EXFUNC is set *) IO$V_SYNCSTS : [POS(16)] $BOOL; (* allow synchronous completion *) IO$V_NOVCACHE : [POS(17)] $BOOL; (* do not use VBN cache *) IO$V_BUFOBJ : [POS(18)] $BOOL; (* Buffer object I/O *) IO$V_TRUSTED : [POS(19)] $BOOL; (* I/O from trusted component *) IO$V_FILE_FLUSH : [POS(20)] $BOOL; (* Flush file to disk *) IO$V_BARRIER : [POS(21)] $BOOL; (* Insert a barrier after the write *) IO$V_RAH_HINT : [POS(22)] $BOOL; (* Readahead hint (used by XFC) *) (* General disk function code modifiers *) ); 7: (IO$R_DISK_MODIFIERS : [BYTE(2)] RECORD END; ); 8: (IO$V_INHSEEK : [POS(12)] $BOOL; (* Inhibit implied seek on physical functions *) (* General disk READ function code modifiers *) ); 9: (IO$R_DISK_READ_MODIFIERS : [BYTE(3)] RECORD END; ); 10: ( (* the following are only valid if EXFUNC is set *) IO$V_READ_TO_EOF : [POS(21)] $BOOL; (* Reserved for Internal Use only. *) (* General tape function code modifiers *) ); 11: (IO$R_TAPE_MODIFIERS : [BYTE(2)] RECORD END; ); 12: (IO$V_REVERSE : [POS(6)] $BOOL; (* Reverse operation *) IO$V_NOWAIT : [POS(7)] $BOOL; (* No wait for rewind to complete *) IO$V_INHEXTGAP : [POS(12)] $BOOL; (* Inhibit extended inter-record gap *) IO$V_RETENSION : [POS(13)] $BOOL; (* Traverse the entire tape to uniformly set the tape's tension. *) (* Applies only to IO$_REWIND/REWINDOFF functions *) IO$V_ALLOWFAST : [POS(14)] $BOOL; (* Allow fast skip by filemarks when enabled *) (* Applies only to IO$_SKIPFILE/SPACEFILE functions *) IO$V_MT3_DENSITY : [POS(15)] $BOOL; (* Density Setmode and Sensemode for MTD enhanced tape drivers. *) (* DU & TU, disk & tape class driver transfer function modifier bits *) ); 13: (IO$R_DUTU_XFER_MODIFIERS : [BYTE(2)] RECORD END; ); 14: (IO$V_MSCPMODIFS : [POS(8)] $BOOL; (* Use MSCP modifiers in P5 *) ); 15: (IO$R_DU_SENSE_MODIFIERS : [BYTE(1)] RECORD END; ); 16: (IO$V_SHADOW : [POS(6)] $BOOL; (* Shadowing SENSECHAR *) IO$V_LOCATE : [POS(7)] $BOOL; (* Shadowing Locate function *) ); 17: (IO$R_DU_PACKACK_MODIFIERS : [BYTE(1)] RECORD END; ); 18: (IO$V_MSCP_FORMAT : [POS(6)] $BOOL; (* PACKACK media for formatting *) ); 19: (IO$R_DU_AVAIL_MODIFIERS : [BYTE(2)] RECORD END; ); 20: (IO$V_ALLHOSTS : [POS(6)] $BOOL; (* Do available as for all class drivers *) IO$V_DISSOLVE : [POS(7)] $BOOL; (* Dissolve shadow set *) IO$V_NOCLEANUP : [POS(8)] $BOOL; (* Normal shadow set cleanup not necessary *) ); 21: (IO$R_DU_REMSHAD_MODIFIERS : [BYTE(1)] RECORD END; ); 22: (IO$V_SPINDOWN : [POS(6)] $BOOL; (* Spin down removed member *) ); 23: (IO$R_DU_DCD_MODIFIERS : [BYTE(2)] RECORD END; ); 24: (IO$V_EST_COM_PATH : [POS(6)] $BOOL; (* Establish Communication Path *) IO$V_LCL_SRC_UNIT : [POS(7)] $BOOL; (* Local Source Unit *) IO$V_RTN_COM_PATH : [POS(8)] $BOOL; (* Retain Communication Path *) ); 25: (IO$R_DU_WHM_MODIFIERS : [BYTE(2)] RECORD END; ); 26: (IO$V_DEALC_ALL : [POS(6)] $BOOL; (* Deallocate All *) IO$V_DEALC_HRN : [POS(7)] $BOOL; (* Deallocate by Host Reference Number *) IO$V_DEALC_ENTLOC : [POS(8)] $BOOL; (* Deallocate by Entry Locator *) IO$V_DECR_AFC : [POS(9)] $BOOL; (* Decrement Allocation Failure Count *) IO$V_READ_ALL : [POS(10)] $BOOL; (* Read All *) IO$V_READ_HRN : [POS(11)] $BOOL; (* Read by Host Reference Number *) IO$V_BREAK_CONN : [POS(12)] $BOOL; (* Break Connection *) (* HBS driver transfer function modifier bits *) (* Make sure that IO$V_SHADOW .ne. IO$V_LOCATE .ne. IO$V_COPYOP *) ); 27: (IO$R_HBS_COPYSHAD_MODIFIERS : [BYTE(2)] RECORD END; ); 28: (IO$V_STEPOVER : [POS(6)] $BOOL; (* Stepover SCBLBN. *) IO$V_COPYOP : [POS(8)] $BOOL; (* Shad Server Cpy Operation *) ); 29: (IO$R_HBS_CRESHAD_MODIFIERS : [BYTE(2)] RECORD END; ); 30: (IO$V_EXISTS : [POS(6)] $BOOL; (* VU already exists. *) IO$V_CBS : [POS(7)] $BOOL; (* Controller based shadowing. *) IO$V_BOOTING : [POS(8)] $BOOL; (* Creshad for system disk. *) IO$V_REQ_MINICOPY : [POS(9)] $BOOL; (* MINICOPY required *) IO$V_OPT_MINICOPY : [POS(10)] $BOOL; (* MINICOPY optional *) IO$V_NOMINICOPY : [POS(11)] $BOOL; (* NOMINICOPY *) IO$V_EXPECT_MOUNT_DONE : [POS(13)] $BOOL; (* All SSMs on command line sent to HBVS *) ); 31: (IO$R_HBS_XFER_MODIFIERS : [BYTE(2)] RECORD END; ); 32: (IO$V_VUEX_FC : [POS(9)] $BOOL; (* Exclude Full copy members *) ); 33: (IO$R_HBS_SCB_MODIFIERS : [BYTE(2)] RECORD END; ); 34: (IO$V_WRITE_SCB : [POS(9)] $BOOL; (* Write the SCB *) IO$V_UPD_SCBLBN : [POS(13)] $BOOL; (* Update HVBS on new location of the SCB *) (* Function modifier bits for Set Preferred Path. *) ); 35: (IO$R_PRFPATH_MODIFIERS : [BYTE(2)] RECORD END; ); 36: ( (* No modifiers set, passes in a preferred path (DUDRIVER) *) IO$V_FORCEPATH : [POS(6)] $BOOL; (* Make path change happen (DUDRIVER) *) IO$V_PREFERRED_CPU : [POS(7)] $BOOL; (* Set Fast Path CPU affinity of port (port driver) *) IO$V_SYS_ASSIGNABLE : [POS(8)] $BOOL; (* system assignable port *) (* DR driver function modifier bits. *) ); 37: (IO$R_DR_MODIFIERS : [BYTE(2)] RECORD END; ); 38: (IO$V_COMMOD : [POS(6)] $BOOL; (* Diagnostic command *) IO$V_MOVETRACKD : [POS(7)] $BOOL; (* Move track descriptor *) IO$V_DIAGNOSTIC : [POS(8)] $BOOL; (* Diagnostic function *) IO$V_SKPSECINH : [POS(9)] $BOOL; (* Skip sector inhibit *) (* DY driver function modifier bits. *) ); 39: (IO$R_DY_MODIFIERS : [BYTE(1)] RECORD END; ); 40: (IO$V_DELDATA : [POS(6)] $BOOL; (* Write deleted data mark *) (* DD driver (TU58) function modifier bits. *) ); 41: (IO$R_DD_MODIFIERS : [BYTE(1)] RECORD END; ); 42: (IO$V_NOMRSP : [POS(6)] $BOOL; (* Do not use MRSP for this operation *) (* Magnetic tape I/O function modifier bits for the TS11. *) ); 43: (IO$R_TS11_MODIFIERS : [BYTE(2)] RECORD END; ); 44: (IO$V_SWAP : [POS(8)] $BOOL; (* Swap byte (TS11) *) IO$V_OPPOSITE : [POS(9)] $BOOL; (* Opposite bit for rereads (TS11) *) (* TU driver function modifier bits *) ); 45: (IO$R_TU_MODIFIERS : [BYTE(2)] RECORD END; ); 46: (IO$V_CLSEREXCP : [POS(9)] $BOOL; (* Clear serious exception condition *) (* Tape class driver segmented and large transfer modifier bits *) ); 47: (IO$R_TU_LG_TRANSFER_MODIFIERS : [BYTE(2)] RECORD END; ); 48: (IO$V_CHUNKDIAG : [POS(6)] $BOOL; (* Allow diagnostic buffers *) IO$V_TBC : [POS(10)] $BOOL; (* To be continued modifier *) (* TUDRIVER SETMODE function modifier bits. *) ); 49: (IO$R_TU_SETMODE_MODIFIERS : [BYTE(1)] RECORD END; ); 50: (IO$V_ENAREP : [POS(6)] $BOOL; (* Enable media quality *) (* reporting. *) (* ACP function modifier bits. *) ); 51: (IO$R_ACP_MODIFIERS : [BYTE(2)] RECORD END; ); 52: (IO$V_ACCESS : [POS(6)] $BOOL; (* Access file *) IO$V_CREATE : [POS(7)] $BOOL; (* Create file *) IO$V_DELETE : [POS(8)] $BOOL; (* Delete file *) IO$V_MOUNT : [POS(9)] $BOOL; (* Mount volume *) IO$V_DMOUNT : [POS(10)] $BOOL; (* Dismount volume *) IO$V_REMOUNT : [POS(11)] $BOOL; (* Remount volume *) IO$V_MOVEFILE : [POS(12)] $BOOL; (* Move a file *) IO$V_RWSHELVED : [POS(14)] $BOOL; (* Access shelved files *) IO$V_SETDIR : [POS(15)] $BOOL; (* Set file as a directory *) (* Bit 19 used for TRUSTED *) (* CR (card reader) driver function modifier bits. *) ); 53: (IO$R_CR_MODIFIERS : [BYTE(1)] RECORD END; ); 54: (IO$V_BINARY : [POS(6)] $BOOL; (* Binary read *) IO$V_PACKED : [POS(7)] $BOOL; (* Packed read *) (* MB (mailbox) driver function modifier bits. *) (* The following modifers are for the QIO READ, WRITE and SENSEMODE *) (* functions. *) ); 55: (IO$R_MB_MODIFIERS : [BYTE(2)] RECORD END; ); 56: (IO$V_NOW : [POS(6)] $BOOL; (* Do not wait for operation complete *) IO$V_STREAM : [POS(7)] $BOOL; (* Perform stream mode operation (vs. record mode) *) IO$V_READERCHECK : [POS(8)] $BOOL; (* Perform operation if no read channel is assigned to the mailbox. *) IO$V_WRITERCHECK : [POS(9)] $BOOL; (* Perform operation if no write channel is assigned to the mailbox. *) IO$V_NORSWAIT : [POS(10)] $BOOL; (* Do not allow resource waits *) (* Bit 13 used for EXFUNC *) (* Bit 19 used for TRUSTED *) (* More MB (mailbox) driver function modifier bits. *) (* Mailbox QIO SETMODE function modifiers. *) ); 57: (IO$R_MB_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; ); 58: (IO$V_MB_ROOM_NOTIFY : [POS(6)] $BOOL; (* Notify when some (any) space in the mailbox is available. *) IO$V_READATTN : [POS(7)] $BOOL; (* Request ast on waiting reader *) IO$V_WRTATTN : [POS(8)] $BOOL; (* Request ast on waiting writer *) IO$V_SETPROT : [POS(9)] $BOOL; (* Set volume protection *) IO$V_READERWAIT : [POS(10)] $BOOL; (* Wait for a read channel to be assigned to the mailbox. *) IO$V_WRITERWAIT : [POS(11)] $BOOL; (* Wait for a write channel to be assigned to the mailbox. *) (* TT driver READ function modifier bits. *) ); 59: (IO$R_TT_READ_MODIFIERS : [BYTE(2)] RECORD END; ); 60: (IO$V_NOECHO : [POS(6)] $BOOL; (* Noecho *) IO$V_TIMED : [POS(7)] $BOOL; (* Timed *) IO$V_CVTLOW : [POS(8)] $BOOL; (* Convert lower case *) IO$V_NOFILTR : [POS(9)] $BOOL; (* No filter *) IO$V_DSABLMBX : [POS(10)] $BOOL; (* Disable mailbox *) IO$V_PURGE : [POS(11)] $BOOL; (* Purge typeahead *) IO$V_TRMNOECHO : [POS(12)] $BOOL; (* Terminators are not echoed *) IO$V_REFRESH : [POS(13)] $BOOL; (* Control-R interrupted read *) IO$V_ESCAPE : [POS(14)] $BOOL; (* Terminate read on escape sequence *) IO$V_EXTEND : [POS(15)] $BOOL; (* Used by alternate class drivers *) (* TT driver WRITE function modifier bits. *) ); 61: (IO$R_TT_WRITE_MODIFIERS : [BYTE(2)] RECORD END; ); 62: (IO$V_CANCTRLO : [POS(6)] $BOOL; (* Cancel control O *) IO$V_ENABLMBX : [POS(7)] $BOOL; (* Enable mailbox *) IO$V_NOFORMAT : [POS(8)] $BOOL; (* Do not format output *) IO$V_BREAKTHRU : [POS(9)] $BOOL; (* Broadcast I/O *) IO$V_NEWLINE : [POS(10)] $BOOL; (* Output a newline *) (* TT driver SENSEMODE function modifier bits. *) ); 63: (IO$R_TT_SENSEMODE_MODIFIERS : [BYTE(1)] RECORD END; ); 64: (IO$V_TYPEAHDCNT : [POS(6)] $BOOL; (* Sense typeahead information *) (* TT driver SETMODE subfunction modifier bits. *) ); 65: (IO$R_TT_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; ); 66: (IO$V_MAINT : [POS(6)] $BOOL; (* Enable maint sub modifiers *) IO$V_CTRLYAST : [POS(7)] $BOOL; (* Set control Y AST *) IO$V_CTRLCAST : [POS(8)] $BOOL; (* Set Control C *) IO$V_HANGUP : [POS(9)] $BOOL; (* Set mode and hang up line *) IO$V_OUTBAND : [POS(10)] $BOOL; (* Set out of band AST *) IO$V_TT_CONNECT : [POS(11)] $BOOL; (* Connect to detached terminal *) IO$V_TT_DISCON : [POS(12)] $BOOL; (* Disconnect detached terminal *) IO$V_TT_PROCESS : [POS(13)] $BOOL; (* Define controlling process *) IO$V_BRDCST : [POS(14)] $BOOL; (* Define broadcast mask *) (* TT driver MAINTIANCE subfunction submodifier bits. *) ); 67: (IO$R_TT_MAINT_MODIFIERS : [BYTE(2)] RECORD END; ); 68: (IO$V_LOOP : [POS(7)] $BOOL; (* Diagnostic loopback *) IO$V_UNLOOP : [POS(8)] $BOOL; (* Diagnostic reset loopback *) IO$V_LINE_OFF : [POS(9)] $BOOL; (* Disable line *) IO$V_SET_MODEM : [POS(10)] $BOOL; (* Diagnostic modem control *) IO$V_LINE_ON : [POS(11)] $BOOL; (* Enable line *) IO$V_LOOP_EXT : [POS(12)] $BOOL; (* Diagnostic external loopback *) IO$V_AUTXOF_ENA : [POS(13)] $BOOL; (* Enable auto XOFF *) IO$V_AUTXOF_DIS : [POS(14)] $BOOL; (* Disable auto XOFF *) (* TT driver out-of-band modifier bits. *) ); 69: (IO$R_TT_OUTOFBAND_MODIFIERS : [BYTE(2)] RECORD END; ); 70: (IO$V_INCLUDE : [POS(11)] $BOOL; (* Include character in stream *) IO$V_TT_ABORT : [POS(12)] $BOOL; (* Abort current I/O *) (* Posix terminal driver SETMODE subfunction modifier bits. *) ); 71: (IO$R_TT_PSXSETMODE_MODIFIERS : [BYTE(1)] RECORD END; ); 72: (IO$V_POSIXINIT : [POS(6)] $BOOL; (* Enable initialization subfunctions *) IO$V_POSIXFLOW : [POS(7)] $BOOL; (* Enable flow control subfunctions *) (* Posix terminal driver INIT subfunction submodifier bits. *) ); 73: (IO$R_TT_POSIXINIT_MODIFIERS : [BYTE(2)] RECORD END; ); 74: (IO$V_SET_POSIX : [POS(7)] $BOOL; (* Set TT3$M_POSIX and set up PTC *) IO$V_CLEAR_POSIX : [POS(8)] $BOOL; (* Clear TT3$M_POSIX (opt. delete PTC) *) IO$V_SET_TERMIOS : [POS(9)] $BOOL; (* Set up termios *) IO$V_SET_PTC : [POS(10)] $BOOL; (* Set up all of PTC *) IO$V_CLEAR_PTC : [POS(11)] $BOOL; (* clear PTC *) IO$V_FLUSH_TAB : [POS(12)] $BOOL; (* flush typeahead buffer *) IO$V_FLUSH_OUTPUT : [POS(13)] $BOOL; (* flush outstanding writes *) IO$V_UPDATE_PTC : [POS(14)] $BOOL; (* update PTC *) (* Posix terminal driver FLOW subfunction submodifier bits. *) ); 75: (IO$R_TT_POSIXFLOW_MODIFIERS : [BYTE(2)] RECORD END; ); 76: (IO$V_OUT_XOFF : [POS(8)] $BOOL; (* Simulate output XOFF *) IO$V_OUT_XON : [POS(9)] $BOOL; (* Simulate output XON *) IO$V_IN_XOFF : [POS(10)] $BOOL; (* Simulate input XOFF *) IO$V_IN_XON : [POS(11)] $BOOL; (* Simulate input XON *) (* Posix terminal driver READ function modifier bits. *) ); 77: (IO$R_TT_PSXREAD_MODIFIERS : [BYTE(1)] RECORD END; ); 78: (IO$V_O_NONBLOCK : [POS(6)] $BOOL; (* Nonblock *) (* Network WRITE and READ VIRTUAL function modifier bits. *) ); 79: (IO$R_NET_WRITE_READ_MODIFIERS : [BYTE(2)] RECORD END; ); 80: (IO$V_INTERRUPT : [POS(6)] $BOOL; (* Interrupt message *) IO$V_MULTIPLE : [POS(7)] $BOOL; (* Multiple write/read request *) IO$V_LOCKBUF : [POS(8)] $BOOL; (* Direct I/O request *) IO$V_NOBLOCK : [POS(9)] $BOOL; (* Segment message w/o blocking *) (* Bit 13 used for EXFUNC *) (* Bit 19 used for TRUSTED *) (* Network ACCESS/DEACCESS function modifier bits. *) ); 81: (IO$R_NET_ACCDEA_MODIFIERS : [BYTE(2)] RECORD END; ); 82: (IO$V_ABORT : [POS(8)] $BOOL; (* Disconnect abort/connect reject *) IO$V_SYNCH : [POS(9)] $BOOL; (* Synchronous disconnect *) (* DATALINK driver WRITE subfunction modifier bits. *) ); 83: (IO$R_DLINK_WRITE_MODIFIERS : [BYTE(1)] RECORD END; ); 84: (IO$V_RESPONSE : [POS(6)] $BOOL; (* Transmit this packet as a response *) (* DATALINK driver SETMODE subfunction modifier bits. *) ); 85: (IO$R_DLINK_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; ); 86: (IO$V_STARTUP : [POS(6)] $BOOL; (* Start protocol *) IO$V_SHUTDOWN : [POS(7)] $BOOL; (* Stop protocol *) IO$V_ATTNAST : [POS(8)] $BOOL; (* Attention AST *) IO$V_CTRL : [POS(9)] $BOOL; (* Controller (ie. not station) function *) IO$V_SET_MAC : [POS(11)] $BOOL; (* Set MAC parameters *) IO$V_UPDATE_MAP : [POS(12)] $BOOL; (* Functional Addr Map *) IO$V_ROUTE : [POS(13)] $BOOL; (* Source Routing Ops *) (* DATALINK driver SENSEMODE subfunction modifier bits. *) ); 87: (IO$R_DLINK_SENSEMODE_MODIFIERS : [BYTE(2)] RECORD END; ); 88: (IO$V_RD_MEM : [POS(6)] $BOOL; (* Read device memory *) IO$V_RD_MODEM : [POS(7)] $BOOL; (* Read modem status *) IO$V_RD_COUNT : [POS(8)] $BOOL; (* Read counters *) IO$V_CLR_COUNT : [POS(10)] $BOOL; (* Clear counters *) IO$V_SENSE_MAC : [POS(11)] $BOOL; (* Sense MAC parameters *) IO$V_SHOW_MAP : [POS(12)] $BOOL; (* Functional Addr Map *) IO$V_SHOW_ROUTE : [POS(13)] $BOOL; (* Source Routing Ops *) ); 89: (IO$R_X25_WRITE_MODIFIERS : [BYTE(1)] RECORD END; ); 90: (IO$V_MORE : [POS(6)] $BOOL; (* More data follows (M-bit) *) IO$V_QUALIFIED : [POS(7)] $BOOL; (* Use qualified sub-channel (Q-bit) *) (* X25 driver ACCESS function modifier bits. *) ); 91: (IO$R_X25_ACCESS_MODIFIERS : [BYTE(1)] RECORD END; ); 92: (IO$V_REDIRECT : [POS(6)] $BOOL; (* Redirect virtual call *) IO$V_ACCEPT : [POS(7)] $BOOL; (* Accept virtual call *) (* LPA-11 driver STARTDATA modifier bits. *) ); 93: (IO$R_LPA_START_MODIFIERS : [BYTE(1)] RECORD END; ); 94: (IO$V_SETEVF : [POS(6)] $BOOL; (* Set event flag *) (* XA (DR11-W) driver function modifier bits. *) ); 95: (IO$R_XA_MODIFIERS : [BYTE(2)] RECORD END; ); 96: (IO$V_WORD : [POS(6)] $BOOL; (* Word (interrupt)/block (DMA) mode specifier *) IO$V_SETFNCT : [POS(9)] $BOOL; (* Set "FNCT" bits in device CSR *) IO$V_DATAPATH : [POS(10)] $BOOL; (* Change UBA datapath (direct/buffered) *) IO$V_CYCLE : [POS(12)] $BOOL; (* Set "cycle" bit in device CSR *) IO$V_RESET : [POS(13)] $BOOL; (* Device reset specifier *) (* 3271 driver function modifier bits. *) ); 97: (IO$R_IBM3271_MODIFIERS : [BYTE(2)] RECORD END; ); 98: (IO$V_SETCUADR : [POS(8)] $BOOL; (* Set a new CU address *) IO$V_SETBSIZE : [POS(9)] $BOOL; (* Set a new maximum buffer size *) IO$V_SETPOOLSZ : [POS(10)] $BOOL; (* Set a new pool size *) IO$V_SETENQCNT : [POS(11)] $BOOL; (* Set a new ENQ threshold *) IO$V_CLEAR : [POS(12)] $BOOL; (* Zero status counters *) IO$V_LPBEXT : [POS(13)] $BOOL; (* Loopback is external loopback *) IO$V_LPBINT : [POS(14)] $BOOL; (* Loopback is internal loopback (DUP11) *) IO$V_READCSR : [POS(15)] $BOOL; (* Read CSRs on DUP11 *) (* XW driver function modifier bits. *) ); 99: (IO$R_XW_MODIFIERS : [BYTE(2)] RECORD END; ); 100: (IO$V_NOCTSWAIT : [POS(6)] $BOOL; (* Diagnostic function *) IO$V_SLAVLOOP : [POS(7)] $BOOL; (* Diagnostic function *) IO$V_NODSRWAIT : [POS(8)] $BOOL; (* Do not wait for DSR (diag) *) IO$V_MAINTLOOP : [POS(9)] $BOOL; (* Internal maint loop *) IO$V_LASTBLOCK : [POS(10)] $BOOL; (* Last block of message *) IO$V_INTCLOCK : [POS(12)] $BOOL; (* Internal clock *) (* LAT driver function modifier bits. *) ); 101: (IO$R_LT_MODIFIERS : [BYTE(2)] RECORD END; ); 102: (IO$V_LT_CONNECT : [POS(6)] $BOOL; (* Solicit connection to remote LAT device *) IO$V_LT_DISCON : [POS(7)] $BOOL; (* Disconnect LAT session *) IO$V_LT_READPORT : [POS(8)] $BOOL; (* Read LAT device info *) IO$V_LT_MAP_PORT : [POS(9)] $BOOL; (* Map application port *) IO$V_LT_RATING : [POS(10)] $BOOL; (* Set service rating *) IO$V_LT_SOL_INFO : [POS(11)] $BOOL; (* Request solicit info *) IO$V_LT_RCV_INFO : [POS(12)] $BOOL; (* Setup to recive reply *) IO$V_LT_SETMODE : [POS(13)] $BOOL; (* SETMODE on LTA device *) IO$V_LT_SENSEMODE : [POS(14)] $BOOL; (* SENSEMODE on LTA device *) IO$V_LT_QUE_CHG_NOTIF : [POS(15)] $BOOL; (* Queue change AST *) (* LAT item list definitions for MAP_PORT *) ); 103: (IO$R_LT_MAPITEM : [BYTE(1)] RECORD END; ); 104: (IO$V_LT_MAP_FILLER : [POS(0)] $BOOL; (* Item 0 not used *) IO$V_LT_MAP_NODNAM : [POS(1)] $BOOL; (* Server node name *) IO$V_LT_MAP_PORNAM : [POS(2)] $BOOL; (* Server port name *) IO$V_LT_MAP_SRVNAM : [POS(3)] $BOOL; (* Server service name *) IO$V_LT_MAP_LNKNAM : [POS(4)] $BOOL; (* Link name *) IO$V_LT_MAP_NETADR : [POS(5)] $BOOL; (* Server Ethernet Add. *) (* FSDRIVER function modifiers for Dollar. *) ); 105: (IO$R_FS_MODIFIERS : [BYTE(1)] RECORD END; ); 106: (IO$V_FLUSH : [POS(6)] $BOOL; (* Flush writes *) IO$V_WRITE_BARRIER : [POS(7)] $BOOL; (* Barrier writes to this point *) (* MKDRIVER function modifiers for SETMODE *) ); 107: (IO$R_MK_SETMODE_MODIFIERS : [BYTE(2)] RECORD END; ); 108: (IO$V_MKFILL1 : [POS(6)] $BOOL; (* Filler to not coincide with TU modifier (for safety) *) IO$V_ALLOWFAST_NEVER : [POS(7)] $BOOL; (* Disable all skip by filemarks *) IO$V_ALLOWFAST_PER_IO : [POS(8)] $BOOL; (* Enable skip by filemarks with i/o fcn modifier *) IO$V_ALLOWFAST_ALWAYS : [POS(9)] $BOOL; (* Default all IO$_SKIPFILE to use skip by filemarks *) (* Snapshot-capable disk (SD) driver function modifier bits. *) ); 109: (IO$R_SD_MODIFIERS : [BYTE(1)] RECORD END; ); 110: (IO$V_ADD : [POS(6)] $BOOL; (* Add UNIT to an existing pool *) (* USB usbattr modifiers *) ); 111: (IO$R_USB_USBATTR_MODIFIERS : [BYTE(1)] RECORD END; ); 112: (IO$V_IDSTRING : [POS(6)] $BOOL; (* Request for printer's 1284 device ID string *) IO$V_SERIALNUM : [POS(7)] $BOOL; (* Request for printer's serial number (if supported) *) (* Disk-specific PACKACK modifiers *) ); 113: (IO$R_DISK_PACKACK_MODIFIERS : [BYTE(1)] RECORD END; ); 114: (IO$V_BYPASS_VALID_CHK : [POS(7)] $BOOL; (* Send PACKACK to driver even if UCB$M_VALID is set (LCLDSKVALID) *) ) END; (*** MODULE $IOSADEF ***) (*+ *) (* Define I/O Status Area *) (*- *) CONST IOSA$K_LENGTH = 32; (* Length of IOSA *) IOSA$C_LENGTH = 32; (* Length of IOSA *) IOSA$S_IOSADEF = 32; (* Size of IOSA *) TYPE IOSA$TYPE = RECORD CASE INTEGER OF 1: (IOSA$R_IOSB_OVERLAY : [BYTE(8)] RECORD END; IOSA$R_BYTECOUNT : [BYTE(8)] RECORD END; IOSA$R_CTX : [BYTE(8)] RECORD END; IOSA$R_RESERVED : [BYTE(8)] RECORD END; (* Just in case we need *) ); 2: (IOSA$R_IOSB : [POS(0), BYTE(8)] RECORD END; IOSA$Q_COUNT_Q : [POS(64)] $QUAD; (* Force size *) IOSA$Q_CONTEXT_Q : [POS(128)] $QUAD; (* Force size *) IOSA$L_RESL : [POS(192)] ARRAY [1..2] OF UNSIGNED; (* in the future some *) ); 3: (IOSA$W_IOSB_STATUS : [POS(0)] $UWORD; (* Final I/O status *) IOSA$IH_COUNT : [POS(64)] $QUAD; (* Number of bytes *) IOSA$PH_CONTEXT_P : [POS(128)] $QUAD; (* User context area *) IOSA$Q_RESQ : [POS(192)] $QUAD; (* additional space *) ); 4: (IOSA$IH_CONTEXT : [POS(128)] $QUAD; (* User context area *) IOSA$Q_CONTEXT_ID : [POS(192)] $QUAD; (* User context ID *) ); 5: (IOSA$W_IOSB_BCNT : [POS(16)] $UWORD; (* 16-bit byte count *) IOSA$r_l : [POS(32), BYTE(4)] RECORD END; IOSA$PH_UPDSEC_NOWRT_VA : [POS(128)] $QUAD; (* First VA not written by $UPDSEC_64 *) ); 6: (IOSA$L_IOSB_DEV_DEPEND : [POS(32)] UNSIGNED; (* 32-bit device dependent info *) ); 7: (IOSA$L_IOSB_PID : [POS(32)] UNSIGNED; (* 32-bit pid *) ); 8: (); 9: (IOSA$L_IOSB_BCNT : [POS(16)] UNSIGNED; (* 32-bit byte count (unaligned) *) IOSA$W_IOSB_DEV_DEPEND_HIGH : [POS(48)] $UWORD; (* 16-bit device dependent info *) ); 10: (IOSA$R_STATUSQ : [POS(0), BYTE(8)] RECORD END; ); 11: (IOSA$L_STATUS : [POS(0)] UNSIGNED; (* Status *) IOSA$L_RESD : [POS(32)] UNSIGNED; (* Reserved (driver) *) ) END; (*+ *) (* $IO_SETUP flag bits *) (*- *) CONST FIO$M_EXPEDITE = 1; FIO$M_AST_NOFLOAT = 2; FIO$M_CTX = 4; TYPE SETUP_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (FIO$L_FLAGS_LONGWORD : INTEGER; ); 2: (FIO$R_FLAG_BITS : [BYTE(1)] RECORD END; ); 3: (FIO$V_EXPEDITE : [POS(0)] $BOOL; (* Make this a high-priority I/O *) FIO$V_AST_NOFLOAT : [POS(1)] $BOOL; (* The AST routine does not use f.p. regs *) FIO$V_CTX : [POS(2)] $BOOL; (* Completion notification done via EFN$C_CTX *) ) END; (*** MODULE $IOSBDEF ***) (*+ *) (* Define I/O Status Block *) (*- *) TYPE IOSB$TYPE = RECORD CASE INTEGER OF 1: (IOSB$R_IO_GET : [BYTE(8)] RECORD END; ); 2: (); 3: (IOSB$W_STATUS : [POS(0)] $UWORD; (* Final I/O status *) ); 4: (); 5: (IOSB$W_BCNT : [POS(16)] $UWORD; (* 16-bit byte count *) IOSB$r_l : [POS(32), BYTE(4)] RECORD END; ); 6: (IOSB$L_DEV_DEPEND : [POS(32)] UNSIGNED; (* 32-bit device dependent info *) ); 7: (IOSB$L_PID : [POS(32)] UNSIGNED; (* 32-bit pid *) ); 8: (); 9: (IOSB$L_BCNT : [POS(16)] UNSIGNED; (* 32-bit byte count (unaligned) *) IOSB$W_DEV_DEPEND_HIGH : [POS(48)] $UWORD; (* 16-bit device dependent info *) ); 10: (); 11: (); 12: (IOSB$L_GETXXI_STATUS : [POS(0)] UNSIGNED; (* Final GETxxI status *) ); 13: (IOSB$L_REG_STATUS : [POS(0)] UNSIGNED; (* Final $Registry status *) ) END; CONST IOSB$K_LENGTH = 8; (* Length of IOSB *) IOSB$C_LENGTH = 8; (* Length of IOSB *) (*** MODULE $ISSDEF ***) (*+ *) (* $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codes *) (* These item codes must match the TLV item codes in [LIB]PSBDEF.SDL *) (* *) (*- *) (*+ *) (* At the time of this modules creation there are four CHP$ item codes which *) (* 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 *) (* *) (* This is to preserve backward comptibility with $CREATE_USER_PROFILE. *) (*- *) CONST ISS$_FLAGS = 1; (* 1 Persona flags *) ISS$_ARBFLAGS = 2; (* 2 Unused *) ISS$_WORKPRIV = 3; (* 3 Working privileges *) ISS$_MODE = 4; (* 4 Access mode *) ISS$_WORKCLASS = 5; (* 5 Working classification *) ISS$_RIGHTS = 6; (* 6 Rights *) ISS$_ADD_RIGHTS = 7; (* 7 Add to the Rights *) ISS$_ADD_AUTHRIGHTS = 8; (* 8 Add to the AuthRights *) ISS$_USERNAME = 9; (* 9 Username *) ISS$_ACCOUNT = 10; (* 10 Account *) ISS$_NOAUDIT = 11; (* 11 No Audit setting *) ISS$_AUTHPRIV = 12; (* 12 Authorized privileges *) ISS$_PERMPRIV = 13; (* 13 Permanent privileges *) ISS$_IMAGE_WORKPRIV = 14; (* 14 Image working privileges *) ISS$_ENABLED = 15; (* 15 Rights enabled mask *) ISS$_AUTHRIGHTS = 16; (* 16 Authorized rights *) ISS$_MINCLASS = 17; (* 17 Minimum classification *) ISS$_MAXCLASS = 18; (* 18 Maximum classification *) ISS$_UID = 19; (* 19 UID *) ISS$_PERSONA_ID = 20; (* 20 Persona ID *) ISS$_PRINCIPAL = 21; (* 21 Principal Name *) ISS$_UIC = 22; (* 22 UIC *) ISS$_SWITCH_EXTENSION = 23; (* 23 Switch Extension directive *) ISS$_PRIMARY_EXTENSION = 24; (* 24 PSB Primary Extension *) ISS$_EXTENSION_COUNT = 25; (* 25 Count of valid extensions *) ISS$_EXTENSION_ARRAY = 26; (* 26 Array of valid extension IDs *) ISS$_RIGHTS_INDEX = 27; (* 27 Rights Chain Index - sets the *) (* chain for all rights list *) (* operations. *) CONST ISS$_INPUT_DATA = 28; (* 28 Generic buffer for IN/OUT query *) ISS$_POSIX_UID = 29; (* 29 POSIX User ID *) ISS$_POSIX_GID = 30; (* 30 POSIX Group ID *) ISS$_MIN_ITEM_CODE = 1; ISS$_MAX_ITEM_CODE = 30; (*+ *) (* Bits within item code ISS$_FLAGS *) (*- *) CONST ISS$M_FLAG_PERMANENT = 1; ISS$M_FLAG_SECAUDIT = 2; TYPE ISSFLAGS$TYPE = RECORD CASE INTEGER OF 1: (ISS$R_ISSFLAGS_BITS : [BYTE(4)] RECORD END; ); 2: (ISS$V_FLAG_PERMANENT : [POS(0)] $BOOL; ISS$V_FLAG_SECAUDIT : [POS(1)] $BOOL; ) END; (* Codes that represent common attributes that are normally *) (* present in all persona extensions *) CONST ISS$_COMMON_FLAGS = 1024; (* Flags *) ISS$_COMMON_USERNAME = 1025; (* Username *) ISS$_COMMON_ACCOUNT = 1026; (* Account *) ISS$_DOMAIN = 1027; (* Domain *) ISS$_COMMON_PRINCIPAL = 1028; (* principal *) ISS$_DOI = 1029; ISS$_EXTENSION = 1030; (* Extension name *) ISS$_MAKE_TLV = 1031; (* For NSA$MAKE_TLV *) ISS$_MIN_COMMON_ITEM_CODE = 1024; ISS$_MAX_COMMON_ITEM_CODE = 1031; (* Codes that represent attributes specific to each persona extension. *) (* These codes are shared by all extensions. *) (* NT Persona extension item codes *) CONST ISS$_NT_TOKEN = 8192; (* token *) ISS$_NT_SECURITY_SUBJECT = 8193; (* securtiy context *) ISS$_NT_FLAGS = 8194; ISS$_NT_USER_REFCOUNT = 8195; ISS$_NT_PRINCIPAL = 8196; ISS$_NT_CREDENTIALS = 8197; (* access token + security context *) ISS$_NT_NT_OWF_PASSWORD = 8198; (* *) ISS$_NT_LM_OWF_PASSWORD = 8199; (* *) ISS$_NT_UNPACK_CRED_SIZE = 8200; ISS$_NT_TOKEN_TOKENID = 8201; ISS$_NT_TOKEN_IMPERSONATELEVEL = 8202; ISS$_NT_TOKEN_AUTHENTICATIONID = 8203; ISS$_NT_TOKEN_USERANDGROUPCOUNT = 8204; ISS$_NT_TOKEN_VARIABLELENGTH = 8205; ISS$_NT_TOKEN_USERANDGROUPS = 8206; ISS$_NT_TOKEN_USERANDGROUPS_SID = 8207; ISS$_NT_TOKEN_PRIMARYGROUP = 8208; ISS$_NT_TOKEN_PRIVILEGES = 8209; ISS$_NT_TOKEN_DEFAULTDACL = 8210; ISS$_NT_TOKEN_UNIXUID = 8211; ISS$_NT_TOKEN_UNIXGID = 8212; ISS$_NT_TOKEN_GIDINFO = 8213; ISS$_NT_TOKEN_GIDINFO_GIDS = 8214; ISS$_NT_TOKEN_UNIXNAME = 8215; ISS$_NT_TOKEN_DOMAINNAME = 8216; ISS$_NT_TOKEN_USERNAME = 8217; ISS$_NT_TOKEN_USERSESSIONKEY = 8218; ISS$_NT_TOKEN_LMSESSIONKEY = 8219; ISS$_NT_TOKEN_VARIABLEPART = 8220; ISS$_NT_TOKEN_GROUP_LIST = 8221; ISS$_NT_TOKEN_PRIVILEGES_LIST = 8222; ISS$_NT_SECURITY_SIGNATURE = 8223; ISS$_NT_SECURITY_SMBUID = 8224; ISS$_NT_SECURITY_PROCESSAUDITID = 8225; ISS$_NT_SECURITY_PROCESSID = 8226; ISS$_NT_SECURITY_LOGONID = 8227; ISS$_NT_SECURITY_LOGONTYPE = 8228; ISS$_NT_SECURITY_SUBJECTFLAGS = 8229; ISS$_NT_SECURITY_CONTEXT_OTHER = 8230; ISS$_MIN_NT_ITEM_CODE = 8192; ISS$_MAX_NT_ITEM_CODE = 8230; (*+ *) (* Bits within item code ISS$_ENABLED *) (*- *) CONST ISS$M_ENABLED_PERSONA = 1; ISS$M_ENABLED_SUBSYSTEM = 2; ISS$M_ENABLED_IMAGE = 4; ISS$M_ENABLED_SYSTEM = 8; ISS$M_ENABLED_TEMPORARY = 16; TYPE ISSENABLED$TYPE = RECORD CASE INTEGER OF 1: (ISS$R_ISSENABLED_BITS : [BYTE(4)] RECORD END; ); 2: (ISS$V_ENABLED_PERSONA : [POS(0)] $BOOL; ISS$V_ENABLED_SUBSYSTEM : [POS(1)] $BOOL; ISS$V_ENABLED_IMAGE : [POS(2)] $BOOL; ISS$V_ENABLED_SYSTEM : [POS(3)] $BOOL; ISS$V_ENABLED_TEMPORARY : [POS(4)] $BOOL; ) END; (* ARB_SUPPORT constants *) CONST ISS$C_ARB_UNSPECIFIED = -1; ISS$C_ARB_NONE = 0; ISS$C_ARB_CLEAR = 1; ISS$C_ARB_READ_ONLY = 2; ISS$C_ARB_FULL = 3; ISS$C_ARB_FORCE = 4; (* Ignore multiple usermode persona check *) ISS$C_ARB_MAX_CODE = 4; ISS$C_ARB_MIN_CODE = 0; (* Reserved Persona Ids *) CONST ISS$C_ID_NATURAL = 1; ISS$C_ID_POSIX_REAL = -2; ISS$C_ID_IMAGE_PERSONA = -2; (*+ *) (* Persona services control flags *) (*- *) CONST ISS$M_IMP_FLAGS = 127; ISS$M_ASSUME_NODEREF_OLD = 65536; ISS$M_ASSUME_NOREF_NEW = 131072; ISS$M_CREATE_DEFPRIV = 8; ISS$M_CREATE_DEFCLASS = 16; ISS$M_CREATE_AUTHPRIV = 32; ISS$M_NOACCESS = 1048576; TYPE ISSSRVCFLG$TYPE = RECORD CASE INTEGER OF (* *) (* Common flags *) (* *) 1: (ISS$R_COMMON_FLAGS : [BYTE(4)] RECORD END; ); 2: (ISS$V_IMP_FLAGS : [POS(0)] $BIT7; (* Previously defined IMP flags *) (* *) (* ASSUME service control flags *) (* *) ); 3: (ISS$R_ASSUME_FLAGS : [BYTE(4)] RECORD END; ); 4: (ISS$V_ASSUME_NODEREF_OLD : [POS(16)] $BOOL; (* Do not drop a reference to *) (* the old (pre-ASSUME) persona *) ISS$V_ASSUME_NOREF_NEW : [POS(17)] $BOOL; (* Do not add a reference to *) (* the new (post-ASSUME) persona *) (* *) (* CREATE service control flags *) (* *) ); 5: (ISS$R_CREATE_FLAGS : [BYTE(4)] RECORD END; ); 6: (ISS$V_CREATE_DEFPRIV : [POS(3)] $BOOL; (* Create psb w/ def. privs. *) ISS$V_CREATE_DEFCLASS : [POS(4)] $BOOL; (* Create psb w/ def. class. *) ISS$V_CREATE_AUTHPRIV : [POS(5)] $BOOL; (* Create psb w/ auth. privs. *) (* and the assume flags. *) ISS$V_NOACCESS : [POS(20)] $BOOL; (* When set, do not access *) (* the SYSUAF or RIGHTSLIST. *) (* This is similar to *) (* CREATE_USER_PROFILE. *) ) END; (* NT TLV version number *) CONST ISS$K_NT_VERSION_1 = 1; (*** MODULE $JPIDEF ***) (*+ *) (* *) (* Get Job Process Information Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* (preceeding the ENDlistname item) so that users will not have *) (* to relink. *) (*- *) (* Scheduler policy definitions *) CONST JPI$K_DEFAULT_POLICY = 0; (* Native VMS scheduling policy *) JPI$K_PSX_FIFO_POLICY = 1; (* POSIX fifo policy *) JPI$K_PSX_RR_POLICY = 2; (* POSIX round-robbin policy *) JPI$K_ALL_THREADS = -2147483648; (* policy affectsall kernel threads *) (* DEFINE TABLE NUMBERS *) (* STRUCTURE CODES MUST START AT 1 *) CONST JPI$C_ADRTYPE = 1; (* ITEM IS ADDRESS OF DATA *) JPI$C_CTLTYPE = 2; (* ITEM IS IN CONTROL REGION *) JPI$C_PCBTYPE = 3; (* ITEM IN PCB *) JPI$C_PHDTYPE = 4; (* ITEM IN PHD *) JPI$C_PCBFLDTYPE = 5; (* ITEM IS BIT FIELD *) JPI$C_PHDFLDTYPE = 6; (* ITEM IS BIT FIELD *) JPI$C_JIBTYPE = 7; (* ITEM IN JIB (SUBTYPE) *) (* NOTE: The PSB replaces the ARB within this context! *) CONST JPI$C_PSBTYPE = 8; (* ITEM IN PSB (SUBTYPE) *) JPI$C_KTBTYPE = 9; (* ITEM IN KTB (SUBTYPE) *) JPI$C_MAXSTRUC = 6; (* TOTAL OF 6 TABLES *) JPI$C_LISTEND = 0; (* DEFINE ITMLST TERMINATOR *) JPI$_CHAIN = -1; (* CHAIN INDICATOR *) JPI$_GETJPI_CONTROL_FLAGS = -2; (* SPECIAL CONTROL ITEMS *) JPI$M_NO_TARGET_INSWAP = 1; JPI$M_NO_TARGET_AST = 2; JPI$M_IGNORE_TARGET_STATUS = 4; JPI$M_THREAD = 8; JPI$M_NATURAL_PERSONA = 16; JPI$M_FILL1 = 32736; JPI$M_NEED_THREAD_CAP = 32768; TYPE JPICTL$TYPE = RECORD CASE INTEGER OF 1: (JPI$R_FILL_62_ : [BYTE(4)] RECORD END; ); 2: (); 3: (); 4: (JPI$V_NO_TARGET_INSWAP : [POS(0)] $BOOL; (* Do not inswap the target process, (do deliver ASTs if it is resident) *) JPI$V_NO_TARGET_AST : [POS(1)] $BOOL; (* Do not send AST to target *) JPI$V_IGNORE_TARGET_STATUS : [POS(2)] $BOOL; (* Don't check target state *) JPI$V_THREAD : [POS(3)] $BOOL; (* Return information about each thread for multithreaded processes *) JPI$V_NATURAL_PERSONA : [POS(4)] $BOOL; (* Select natural persona when processing security profile item codes *) JPI$V_FILL1 : [POS(5)] $BIT10; (* Filler so NEED_THREAD_CAP bit is in bit 15 *) (* NOTE: This bit is used internally by $GETJPI in cluster environments. It is not specified by the user. *) JPI$V_NEED_THREAD_CAP : [POS(15)] $BOOL; (* Indicates that target node in a cluster needs to know about kernel *) (* threads *) ) END; (* NOTE: the following constants must match values in $JIBDEF! *) CONST JPI$K_OTHER = 0; (* JPI$_Mode values *) JPI$K_NETWORK = 1; (* JPI$_Mode values *) JPI$K_BATCH = 2; (* JPI$_Mode values *) JPI$K_INTERACTIVE = 3; (* JPI$_Mode values *) JPI$K_DETACHED = 0; (* JPI$_JOBTYPE values *) JPI$K_LOCAL = 3; (* JPI$_JOBTYPE values *) JPI$K_DIALUP = 4; (* JPI$_JOBTYPE values *) JPI$K_REMOTE = 5; (* JPI$_JOBTYPE values *) (* (also BATCH & INTERACTIVE) *) CONST JPI$M_NEW_MAIL_AT_LOGIN = 1; JPI$M_PASSWORD_CHANGED = 2; JPI$M_PASSWORD_EXPIRED = 4; JPI$M_PASSWORD_WARNING = 8; JPI$M_PASSWORD2_CHANGED = 16; JPI$M_PASSWORD2_EXPIRED = 32; JPI$M_PASSWORD2_WARNING = 64; TYPE JPILGI$TYPE = RECORD CASE INTEGER OF 1: (JPI$R_FILL_64_ : [BYTE(4)] RECORD END; ); 2: (); 3: (); 4: (JPI$V_NEW_MAIL_AT_LOGIN : [POS(0)] $BOOL; (* User had new MAIL message(s) *) JPI$V_PASSWORD_CHANGED : [POS(1)] $BOOL; (* Primary password changed *) JPI$V_PASSWORD_EXPIRED : [POS(2)] $BOOL; (* Primary password expired on login *) JPI$V_PASSWORD_WARNING : [POS(3)] $BOOL; (* Primary password expiration imminent *) JPI$V_PASSWORD2_CHANGED : [POS(4)] $BOOL; (* Secondary password changed *) JPI$V_PASSWORD2_EXPIRED : [POS(5)] $BOOL; (* Secondary password expired on login *) JPI$V_PASSWORD2_WARNING : [POS(6)] $BOOL; (* Secondary password expiration imminent *) ) END; (* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *) (* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) CONST JPI$K_SEARCH_SYMLINK_NONE = 1; (* JPI$_SEARCH_SYMLINK_xxx values *) JPI$K_SEARCH_SYMLINK_ALL = 2; (* JPI$_SEARCH_SYMLINK_xxx values *) JPI$K_SEARCH_SYMLINK_NOELLIPS = 3; (* JPI$_SEARCH_SYMLINK_xxx values *) (* ITEM IDENTIFIERS FOR PCB *) CONST JPI$_ASTACT = 768; (* ACCESS MODES WITH ACTIVE ASTS *) JPI$_ASTEN = 769; (* ACCESS MODES WITH ASTS ENABLED *) JPI$_PRI = 770; (* CURRENT PROCESS PRIORITY *) JPI$_OWNER = 771; (* Epid of owner process, if this is a subprocess *) JPI$_UIC = 772; (* UIC OF PROCESS *) JPI$_STS = 773; (* PROCESS STATUS *) JPI$_STATE = 774; (* PROCESS STATE *) JPI$_MEM = 775; (* MEMBER FIELD OF UIC *) JPI$_GRP = 776; (* GROUP FIELD OF UIC *) JPI$_PRIB = 777; (* PROCESS BASE PRIORITY *) JPI$_APTCNT = 778; (* ACTIVE PAGE TABLE COUNT *) JPI$_TMBU = 779; (* TERMINATION MAILBOX UNIT *) JPI$_GPGCNT = 780; (* GLOBAL PAGE COUNT IN WORKING SET *) JPI$_PPGCNT = 781; (* PROCESS PAGE COUNT IN WORKING SET *) JPI$_ASTCNT = 782; (* AST COUNT REMAINING *) JPI$_BIOCNT = 783; (* BUFFERED I/O COUNT REMAINING *) JPI$_BIOLM = 784; (* BUFFERED I/O LIMIT *) JPI$_BYTCNT = 785; (* BYTE COUNT REMAINING FOR BUFFERED I/O *) JPI$_DIOCNT = 786; (* DIRECT I/O COUNT REMAINING *) JPI$_DIOLM = 787; (* DIRECT I/O COUNT LIMIT *) JPI$_FILCNT = 788; (* COUNT REMAINING OF OPEN FILES *) JPI$_TQCNT = 789; (* COUNT REMAINING OF TIMER QUEUE ENTRIES *) JPI$_EFWM = 790; (* EVENT FLAG WAIT MASK *) JPI$_EFCS = 791; (* LOCAL EVENT FLAGS 0-31 *) JPI$_EFCU = 792; (* LOCAL EVENT FLAGS 32-63 *) JPI$_PID = 793; (* PROCESS IDENTIFICATION *) JPI$_BYTLM = 794; (* BUFFERED I/0 BYTE COUNT LIMIT *) JPI$_PRCCNT = 795; (* SUBPROCESS COUNT *) JPI$_PRCNAM = 796; (* PROCESS NAME *) JPI$_TERMINAL = 797; (* LOGIN TERMINAL NAME *) JPI$_JOBPRCCNT = 798; (* TOTAL COUNT OF SUBPROCESSES IN A JOB *) JPI$_ENQCNT = 799; (* ENQUEUE COUNT REMAINING *) JPI$_ENQLM = 800; (* ENQUEUE COUNT LIMIT *) JPI$_SWPFILLOC = 801; (* SWAP FILE BACKING STORE ADDRESS *) JPI$_MODE = 802; (* MODE VALUE (FROM STS) - DEFINED ABOVE *) JPI$_JOBTYPE = 803; (* JOB TYPE CODE *) JPI$_PROC_INDEX = 804; (* PROCESS INDEX *) JPI$_MASTER_PID = 805; (* MASTER PROCESS PID *) JPI$_RIGHTSLIST = 806; (* PSB composite rights *) JPI$_CPU_ID = 807; (* CPU ID *) JPI$_STS2 = 808; (* Second process status longword *) JPI$_NODENAME = 809; (* Name of node on which process is running *) JPI$_NODE_CSID = 810; (* CSID of node on which process is running *) JPI$_NODE_VERSION = 811; (* VMS version of node on which process is running *) JPI$_TT_PHYDEVNAM = 812; (* Physical device name of terminal *) JPI$_TT_ACCPORNAM = 813; (* Access port name of terminal *) JPI$_PROCESS_RIGHTS = 814; (* PSB persona rights *) JPI$_SYSTEM_RIGHTS = 815; (* PSB system rights *) JPI$_IMAGE_RIGHTS = 816; (* PSB protected sub-system rights *) JPI$_RIGHTS_SIZE = 817; (* Approximate size (in bytes) of all PSB rights lists *) JPI$_CLASSIFICATION = 818; (* PSB current MAC classification *) JPI$_SCHED_POLICY = 819; (* Scheduler policy *) JPI$_RMS_FILEPROT = 820; (* Process default file protection for RMS *) JPI$_MULTITHREAD = 821; (* Kernel threads - max thread count *) JPI$_KT_COUNT = 822; (* Kernel threads - thread count *) JPI$_INITIAL_THREAD_PID = 823; (* Kernel threads - initial thread PID *) JPI$_THREAD_INDEX = 824; (* Kernel threads - thread index *) JPI$_CURRENT_USERCAP_MASK = 825; (* KTB current user capabilities mask *) JPI$_PERMANENT_USERCAP_MASK = 826; (* KTB permanent user capabilities mask *) JPI$_CURRENT_AFFINITY_MASK = 827; (* KTB current affinity mask *) JPI$_PERMANENT_AFFINITY_MASK = 828; (* KTB permanent affinity mask *) JPI$_PERSONA_ID = 829; (* Persona (PSB) id *) JPI$_PERSONA_AUTHPRIV = 830; (* PSB authorized privilege mask *) JPI$_PERSONA_PERMPRIV = 831; (* PSB permanent (default) privilege mask *) JPI$_PERSONA_WORKPRIV = 832; (* PSB working (active) privilege mask *) JPI$_IMAGE_WORKPRIV = 833; (* PSB installed image working (active) privilege mask *) JPI$_PERSONA_RIGHTS_SIZE = 834; (* Approximate size (in bytes) of PSB persona rights *) JPI$_PERSONA_RIGHTS = 835; (* PSB persona rights *) JPI$_SUBSYSTEM_RIGHTS_SIZE = 836; (* Approximate size (in bytes) of PSB protected sub-system rights *) JPI$_SUBSYSTEM_RIGHTS = 837; (* PSB protected sub-system rights *) JPI$_INSTALL_RIGHTS_SIZE = 838; (* Approximate size (in bytes) of PSB installed image rights *) JPI$_INSTALL_RIGHTS = 839; (* PSB installed image rights *) JPI$_SYSTEM_RIGHTS_SIZE = 840; (* Approximate size (in bytes) of PSB system rights *) JPI$_CURRENT_CAP_MASK = 841; (* KTB current capabilities mask *) JPI$_PERMANENT_CAP_MASK = 842; (* KTB permanent capabilities mask *) JPI$_SCHED_CLASS_NAME = 843; (* Scheduling class name *) JPI$_HOME_RAD = 844; (* KTB Home RAD *) JPI$_POSIX_SID = 845; (* Session ID for POSIX and COE *) JPI$_POSIX_PGID = 846; (* Process Group ID for POSIX and COE *) JPI$_CREATOR = 847; (* Epid of creator process (Unix-style parent) *) JPI$_KRNLTIM = 848; (* Kernel mode cpu time *) JPI$_EXECTIM = 849; (* Executive mode cpu time *) JPI$_SUPRTIM = 850; (* Supervisor mode cpu time *) JPI$_USERTIM = 851; (* User mode cpu time *) JPI$_ORG_BYTLM = 852; (* Original buffered I/O byte count limit *) JPI$_DEADLOCK_WAIT = 853; (* Per-process sub-second deadlock wait value *) JPI$_KT_LIMIT = 854; (* Per-process multiple kernel threads limit *) (* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTPCB = 855; (* MAX INDEX IN PCB TABLE *) (* ITEM IDENTIFIERS FOR PHD *) CONST JPI$_CURPRIV = 1024; (* CURRENT PROCESS PRIVILEGE MASK *) JPI$_WSAUTH = 1025; (* AUTHORIZED WORKING SET SIZE *) JPI$_WSQUOTA = 1026; (* QUOTA ON WORKING SET SIZE *) JPI$_DFWSCNT = 1027; (* DEFAULT WORKING SET SIZE *) JPI$_FREP0VA = 1028; (* FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE *) JPI$_FREP1VA = 1029; (* FIRST FREE ADDR. AT END OF P1 SPACE *) JPI$_DFPFC = 1030; (* DEFAULT PAGE FAULT CLUSTER *) JPI$_CPUTIM = 1031; (* ACCUMULATED CPU TIME *) JPI$_PRCLM = 1032; (* SUBPROCESS QUOTA *) JPI$_ASTLM = 1033; (* AST LIMIT *) JPI$_PAGEFLTS = 1034; (* COUNT OF PAGE FAULTS *) JPI$_DIRIO = 1035; (* PROCESS DIRECT I/O OPERATIONS *) JPI$_BUFIO = 1036; (* PROCESS BUFFERED I/O OPERATIONS *) JPI$_CPULIM = 1037; (* LIMIT ON CPUTIM FOR PROCESS *) JPI$_PGFLQUOTA = 1038; (* MAX. VIRTUAL PAGE COUNT *) JPI$_FILLM = 1039; (* OPEN FILE LIMIT *) JPI$_TQLM = 1040; (* TIMER QUEUE LIMIT *) JPI$_WSSIZE = 1041; (* CURRENT WORKING SET SIZE *) JPI$_AUTHPRIV = 1042; (* PSB authorized privilege mask *) JPI$_IMAGPRIV = 1043; (* PHD installed image permanent (default) privilege mask *) JPI$_PAGFILCNT = 1044; (* Remaining paging file quota of the process *) JPI$_FREPTECNT = 1045; (* ROOM FOR EXPANSION OF P0 OR P1 SPACE *) JPI$_WSEXTENT = 1046; (* EXTENT OF WORKING SET SIZE *) JPI$_WSAUTHEXT = 1047; (* MAX EXTENT OF WORKING SET SIZE *) JPI$_AUTHPRI = 1048; (* AUTHORIZED PRIORITY FOR $SETPRI *) JPI$_PAGFILLOC = 1049; (* PAGE FILE BACKING STORE ADDRESS *) JPI$_IMAGECOUNT = 1050; (* IMAGE COUNTER (CLOCKED BY RUNDOWN) *) JPI$_PHDFLAGS = 1051; (* PROCESS HEADER FLAGS WORD *) JPI$_VP_CPUTIM = 1052; (* VECTOR CPU TIME *) JPI$_VP_CONSUMER = 1053; (* Flag -- is this process a vector consumer? *) JPI$_P0_FIRST_FREE_VA_64 = 1054; (* First free VA in P0 space *) JPI$_P1_FIRST_FREE_VA_64 = 1055; (* First free VA in P1 space *) JPI$_P2_FIRST_FREE_VA_64 = 1056; (* First free VA in P2 space *) JPI$_IMAGE_AUTHPRIV = 1057; (* PHD installed image authorized privilege mask *) JPI$_IMAGE_PERMPRIV = 1058; (* PHD installed image permanent (default) privilege mask *) (* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTPHD = 1059; (* MAX INDEX IN PROCESS HEADER *) (* ITEM IDENTIFIERS FOR CONTROL REGION *) CONST JPI$_VIRTPEAK = 512; (* PEAK VIRTUAL SIZE *) JPI$_WSPEAK = 513; (* PEAK WORKING SET SIZE *) JPI$_USERNAME = 514; (* PSB username string *) JPI$_ACCOUNT = 515; (* PSB account name string *) JPI$_PROCPRIV = 516; (* PSB permanent (default) privilege mask *) JPI$_VOLUMES = 517; (* VOLUMES MOUNTED *) JPI$_LOGINTIM = 518; (* TIME OF LOGIN OR PROCESS CREATION *) JPI$_IMAGNAME = 519; (* CURRENT IMAGE FILE NAME *) JPI$_SITESPEC = 520; (* PER-PROCESS SITE-SPECIFIC CELL *) JPI$_MSGMASK = 521; (* PROCESS DEFAULT MESSAGE FLAGS *) JPI$_CLINAME = 522; (* COMMAND LANGUAGE INTERPRETER NAME *) JPI$_TABLENAME = 523; (* COMMAND LANGUAGE INTERPRETER TABLE NAME *) JPI$_CREPRC_FLAGS = 524; (* $CREPRC FLAGS USED TO CREATE THIS PROCESS *) JPI$_UAF_FLAGS = 525; (* FLAGS FROM UAF RECORD *) JPI$_MAXDETACH = 526; (* MAXIMUM DETACHED PROCESSES FOR SINGLE USER *) JPI$_MAXJOBS = 527; (* MAXIMUM ACTIVE PROCESSES FOR SINGLE USER *) JPI$_SHRFILLM = 528; (* MAXIMUM OPEN SHARED FILES *) JPI$_FAST_VP_SWITCH = 529; (* NUMBER OF FAST VECTOR CONTEXT SWITCHES *) JPI$_SLOW_VP_SWITCH = 530; (* NUMBER OF SLOW VECTOR CONTEXT SWITCHES *) JPI$_LAST_LOGIN_I = 531; (* Last interactive login *) JPI$_LAST_LOGIN_N = 532; (* Last non-interactive login *) JPI$_LOGIN_FAILURES = 533; (* Number of login failures at login *) JPI$_LOGIN_FLAGS = 534; (* Miscellaneous login flags *) JPI$_RMS_DFMBC = 535; (* RMS default: multi-block count *) JPI$_RMS_DFMBFSDK = 536; (* " " multi-buffer count for disk (SEQ) *) JPI$_RMS_DFMBFSMT = 537; (* " " multi-buffer count for tape *) JPI$_RMS_DFMBFSUR = 538; (* " " multi-buffer count for unit record *) JPI$_RMS_DFMBFREL = 539; (* " " multi-buffer count for REL files *) JPI$_RMS_DFMBFIDX = 540; (* " " multi-buffer count for ISAM files *) JPI$_RMS_PROLOGUE = 541; (* " " prolog *) JPI$_RMS_EXTEND_SIZE = 542; (* " " file extend quantity *) JPI$_RMS_DFNBC = 543; (* " " network block count *) JPI$_RMS_DFLRL = 544; (* " " Heuristic default LRL *) JPI$_RMS_HEURISTIC = 545; (* " " Heuristic enable/disable setting *) JPI$_PARSE_STYLE_PERM = 546; (* Parse style for life of process *) JPI$_PARSE_STYLE_IMAGE = 547; (* Parse style for life of image *) JPI$_RMSD6 = 548; (* RMS dynamic parameter RMSD6 *) JPI$_RMS_QUERY_LOCK = 549; (* RMS QUERY_LOCK enable/disable setting *) JPI$_CASE_LOOKUP_PERM = 550; (* Case lookup mode for life of process *) JPI$_CASE_LOOKUP_IMAGE = 551; (* Case lookup mode for life of image *) JPI$_UNITS = 552; (* Bytes or Blocks *) JPI$_TOKEN = 553; (* Small or Large Token *) JPI$_SEARCH_SYMLINK_PERM = 554; (* Symlink search mode for life of process *) JPI$_SEARCH_SYMLINK_TEMP = 555; (* Symlink search mode for life of image *) (* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTCTL = 556; (* MAX INDEX IN CONTROL REGION *) (* ITEM IDENTIFIERS FOR ADDRESS DATA *) CONST JPI$_EXCVEC = 256; (* ADDRESS OF "EXCEPTION VECTOR" VECTOR *) JPI$_FINALEXC = 257; (* ADDRESS OF LAST CHANCE EXCEPTION VECTORS *) (* ADD NEW ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTADR = 258; (* MAX INDEX IN ADDRESS TABLE *) (* ITEM IDENTIFIERS FOR PCBFLD *) (* ADD ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTPCBFLD = 1280; (* MAX INDEX IN PCBFLD TABLE *) (* ITEM IDENTIFIERS FOR PHDFLD *) (* ADD ITEM-CODES BEFORE THIS COMMENT *) CONST JPI$_LASTPHDFLD = 1536; (* MAX INDEX IN PHDFLD TABLE *) (*** MODULE $JPIFDEF ***) (*+ *) (* *) (* Get Job Process Information "Fast" Data Identifier Definitions *) (* *) (*- *) CONST JPIF$M_UASTACT = 1; JPIF$C_UASTACT = 0; JPIF$M_RMS_DFMBC = 2; JPIF$C_RMS_DFMBC = 1; JPIF$M_PARSE_STYLE_PERM = 4; JPIF$C_PARSE_STYLE_PERM = 2; JPIF$M_PARSE_STYLE_IMAGE = 8; JPIF$C_PARSE_STYLE_IMAGE = 3; JPIF$M_LOGINTIM_L = 16; JPIF$C_LOGINTIM_L = 4; JPIF$M_LOGINTIM_H = 32; JPIF$C_LOGINTIM_H = 5; JPIF$M_CPUTIM = 64; JPIF$C_CPUTIM = 6; TYPE JPIF$TYPE = RECORD CASE INTEGER OF 1: (JPIF$R_FILL_67_ : [BYTE(8)] RECORD END; ); 2: (); 3: (); 4: (JPIF$V_UASTACT : [POS(0)] $BOOL; (* User mode AST active *) JPIF$V_RMS_DFMBC : [POS(1)] $BOOL; (* RMS default multi-block count *) JPIF$V_PARSE_STYLE_PERM : [POS(2)] $BOOL; (* Permanent parse style *) JPIF$V_PARSE_STYLE_IMAGE : [POS(3)] $BOOL; (* Image parse style *) JPIF$V_LOGINTIM_L : [POS(4)] $BOOL; (* Login time - low LW *) JPIF$V_LOGINTIM_H : [POS(5)] $BOOL; (* Login time - high LW *) JPIF$V_CPUTIM : [POS(6)] $BOOL; (* Process accumulated CPU time *) ) END; (*** MODULE $KGBDEF ***) (*++ *) (* Key Grant Block definitions: Format of records in the rights database *) (* file. These records (1) associate identifier codes with names, and *) (* (2) list the holders of all identifiers in the system. *) (*-- *) (* WARNING : If you add attributes, you must change the following modules: *) (* *) (* [AUDSRV]FORMATBL.B32 - add name to id_attr_table *) (* *) (* Changing these modules is necessary so that auditing will reflect the new attr name *) (* *) (* *) (* WARNING : If you add any fields, or change the size of the *) (* NAME, the HOLDER, or the SYS_ID, be sure to update *) (* the contents at the bottom of this file. *) (* *) CONST KGB$M_RESOURCE = 1; KGB$M_DYNAMIC = 2; KGB$M_NOACCESS = 4; KGB$M_SUBSYSTEM = 8; KGB$M_IMPERSONATE = 16; KGB$M_HOLDER_HIDDEN = 32; KGB$M_NAME_HIDDEN = 64; KGB$K_HOLD_RECORD = 16; (* End of holder record *) KGB$K_IDENT_RECORD = 48; (* End of identifier record *) KGB$K_LEVEL1 = 257; (* Version 1 structure level *) KGB$K_MAINT_RECORD = 64; (* End of maintenance record *) KGB$K_NUMBER_OF_ATTRIBUTES = 7; TYPE KGB$TYPE = RECORD CASE INTEGER OF 1: (KGB$L_IDENTIFIER : UNSIGNED; (* Binary identifier code *) KGB$R_FILL_70_ : [BYTE(4)] RECORD END; KGB$Q_HOLDER : $UQUAD; (* Holder identifier *) KGB$T_NAME : PACKED ARRAY [1..32] OF CHAR; (* Identifier name (blank filled string) *) KGB$W_LEVEL : $UWORD; (* File structure level *) KGB$$$_FILL_1 : $WORD; KGB$Q_SYS_ID : $UQUAD; (* System identifier *) KGB$L_NEXT_ID : UNSIGNED; (* Next available identifier *) ); 2: (KGB$L_ATTRIBUTES : [POS(32)] UNSIGNED; (* Attribute bit definitions *) ); 3: (); 4: (KGB$V_RESOURCE : [POS(32)] $BOOL; (* Resource may be charged to identifier *) KGB$V_DYNAMIC : [POS(33)] $BOOL; (* Identifier may be enabled or disabled *) KGB$V_NOACCESS : [POS(34)] $BOOL; (* Identifier will not be used in protection checks *) KGB$V_SUBSYSTEM : [POS(35)] $BOOL; (* Identifier denotes active protected subsystem *) KGB$V_IMPERSONATE : [POS(36)] $BOOL; (* Identifier can be used for impersonation *) KGB$V_HOLDER_HIDDEN : [POS(37)] $BOOL; (* Holder records are restricted *) KGB$V_NAME_HIDDEN : [POS(38)] $BOOL; (* $IDTOASC or $ASCTOID translation is restricted *) ) END; (*++ *) (* Define the environmental rights ID values *) (*-- *) CONST KGB$K_BATCH_ID = -2147483647; (* Batch ID value *) KGB$K_DIALUP_ID = -2147483646; (* Dialup ID value *) KGB$K_INTERACTIVE_ID = -2147483645; (* Interactive ID value *) KGB$K_LOCAL_ID = -2147483644; (* Local ID value *) KGB$K_NETWORK_ID = -2147483643; (* Network ID value *) KGB$K_REMOTE_ID = -2147483642; (* Remote ID value *) KGB$K_DECWINDOWS_ID = -2147483641; (* Decwindows ID value *) KGB$K_BOBUSER_ID = -2147483640; (* Buffer Object User ID value *) KGB$K_MRES_USER_ID = -2147483639; (* Memory Resident Section User ID value *) KGB$K_SAT_ACCESS_ID = -2147483638; (* VMS$SATELLITE_ACCESS id value *) KGB$K_LAST_ENV_ID = -2147483637; (* NOTE: Add all new ones before this *) (* *) (* Define the range of environmental identifiers *) (* *) CONST KGB$K_BASE_ENV_ID = -2147483647; KGB$K_NUMBER_OF_ENV_IDS = 10; (* *) (* Define the restricted range of system identifiers as lowest id (%x800000000) *) (* to %x80010000. *) (* *) CONST KGB$K_RESTRICTED_RANGE = -2147418112; (* *) (* Define the various access class ranges. *) (* *) CONST KGB$K_SEC_LEVEL_BASE = -2147482648; KGB$K_INT_LEVEL_BASE = -2147482392; KGB$K_SEC_CATEGORY_BASE = -2147482136; KGB$K_INT_CATEGORY_BASE = -2147482072; KGB$K_SEC_ACCESS_CLASS_BASE = -2147482648; KGB$K_SEC_ACCESS_CLASS_END = -2147482008; (* *) (* Define the values for the optional $GRANTID/$REVOKID FLAGS argument. *) (* *) CONST KGB$K_PROCESS = 0; (* local rights *) KGB$K_SYSTEM = 1; (* system rights *) KGB$K_EXTENDED = 2; (* local rights (extended) *) KGB$K_IMAGE = 3; (* image (protected subsystem) rights *) KGB$K_MAX_SEG = 4; KGB$K_SUBSYSTEM = 3; (* image (protected subsystem) rights *) KGB$S_NAME = 32; (* Size of KGB Identifier Name *) KGB$S_HOLDER = 8; (* Size of KGB Holder ID value *) KGB$S_SYS_ID = 8; (* Size of KGB System Ident *) KGB$S_KGBDEF = 64; (* Size of KGB structure *) (*** MODULE $LADEF ***) (*+ *) (* *) (* LPA-11 CHARACTERISTICS DEFINITIONS *) (* *) (*- *) (*MICROCODE TYPE VALUES *) CONST LA$K_MRMCODE = 1; (* MULTIREQUEST MICROCODE *) LA$K_ADMCODE = 2; (* DEDICATED A/D MICROCODE *) LA$K_DAMCODE = 3; (* DEDICATED D/A MICROCODE *) LA$M_MCVALID = 1; LA$M_CLOCKA = 8; LA$M_CLOCKB = 16; LA$M_AD1 = 32; LA$M_AD2 = 64; LA$M_DA = 128; LA$M_DIO1 = 256; LA$M_DIO2 = 512; LA$M_DIO3 = 1024; LA$M_DIO4 = 2048; LA$M_DIO5 = 4096; LA$M_BFROVRN = 8388608; TYPE LA$TYPE = RECORD CASE INTEGER OF 1: (LA$R_LADEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (LA$V_MCVALID : [POS(0)] $BOOL; (* MICROCODE VALID *) LA$V_MCTYPE : [POS(1)] $BIT2; (* MICROCODE TYPE *) LA$V_CONFIG : [POS(3)] $BIT10; (* DEVICE CONFIGURATION BITS *) LA$V_RATE : [POS(13)] $BIT3; (* CLOCK RATE *) LA$V_PRESET : [POS(16)] $BIT16; (* CLOCK PRESET *) ); 3: (LA$R_LADEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (LA$V_CLOCKA : [POS(3)] $BOOL; (* CLOCK A *) LA$V_CLOCKB : [POS(4)] $BOOL; (* CLOCK B *) LA$V_AD1 : [POS(5)] $BOOL; (* A/D ! 1 *) LA$V_AD2 : [POS(6)] $BOOL; (* A/D ! 2 *) LA$V_DA : [POS(7)] $BOOL; (* D/A *) LA$V_DIO1 : [POS(8)] $BOOL; (* DIGITAL I/O ! 1 *) LA$V_DIO2 : [POS(9)] $BOOL; (* DIGITAL I/O ! 2 *) LA$V_DIO3 : [POS(10)] $BOOL; (* DIGITAL I/O ! 3 *) LA$V_DIO4 : [POS(11)] $BOOL; (* DIGITAL I/O ! 4 *) LA$V_DIO5 : [POS(12)] $BOOL; (* DIGITAL I/O ! 5 *) ); 5: (LA$R_LADEF_BITS2 : [BYTE(3)] RECORD END; ); 6: (LA$V_BFROVRN : [POS(23)] $BOOL; (* BUFFER OVERRUN NON-FATAL BIT *) ) END; (*** MODULE $latdef ***) CONST LAT$M_ETYPE = 65535; LAT$C_ENT_NODE = 1; LAT$C_ENT_SERVICE = 2; LAT$C_ENT_LINK = 3; LAT$C_ENT_PORT = 4; LAT$C_ENT_CONNECTION = 5; LAT$C_ENT_QUEUE_ENTRY = 6; LAT$C_MAXETYPE = 6; LAT$M_ESTATUS = 15; LAT$C_ENTS_OLD = 0; (* Must already exist *) LAT$C_ENTS_NEW = 1; (* Must NOT exist. Create it. *) LAT$C_ENTS_UNK = 2; (* Create if it does not exist *) LAT$C_ENTS_DEL = 3; (* Must exist. Delete it. *) LAT$M_SENSE_NEXT = 1; LAT$M_SENSE_FULL = 2; LAT$M_READ_HISTORY = 4; TYPE ENTITY$TYPE = RECORD CASE INTEGER OF 1: (LAT$V_ETYPE : [POS(0)] $BIT16; LAT$R_ESTATFLAGS : [BYTE(1)] RECORD END; ); 2: (LAT$V_ESTATUS : [POS(16)] $BIT4; ); 3: (LAT$R_EFLAG : [POS(16), BYTE(1)] RECORD END; ); 4: (LAT$B_EFLAGS : [POS(16)] $UBYTE; (* Flags for SENSEmode *) ); 5: (LAT$R_EFLAGBITS : [POS(16), BYTE(1)] RECORD END; ); 6: (LAT$V_SENSE_NEXT : [POS(16)] $BOOL; (* Wildcard flag *) LAT$V_SENSE_FULL : [POS(17)] $BOOL; (* Full (vs. summary) flag *) LAT$V_READ_HISTORY : [POS(18)] $BOOL; (* Used for history buffer *) ) END; CONST LAT$M_ITEMINDEX = 16383; LAT$M_STRING = 16384; LAT$M_CLEAR = 32768; LAT$_ITM_STATE = 1; (*Entity (node or port) state *) LAT$_ITM_CIRCUIT_TIMER = 2; (*Circuit timer value *) LAT$_ITM_KEEPALIVE_TIMER = 3; (*Keepalive timer value *) LAT$_ITM_MULTICAST_TIMER = 4; (*Multicast timer value *) LAT$_ITM_NODE_LIMIT = 5; (*Maximum number of nodes *) LAT$_ITM_RETRANSMIT_LIMIT = 6; (*Retransmit limit value *) LAT$_ITM_SERVER_MODE = 7; (*Enable LAT master flag *) LAT$_ITM_OUTGOING_SES_LIMIT = 8; (*Outgoing sessions limit *) LAT$_ITM_INCOMING_SES_LIMIT = 9; (*Incoming sessions limit *) LAT$_ITM_CONNECTIONS = 10; (*Enable LAT slave flag *) LAT$_ITM_DECNET_ADDRESS = 11; (*Use DECnet address flag *) LAT$_ITM_RATING = 12; (*Static LAT rating value *) LAT$_ITM_RATING_TYPE = 13; (*Dynamic/static rating flag *) LAT$_ITM_NODE_TYPE = 14; (*Local/remote node type flag *) LAT$_ITM_NODE_STATUS = 15; (*Reachable/unreachable flag *) LAT$_ITM_SERVICE_STATUS = 16; (*Available/unavailable flag *) LAT$_ITM_PORT_TYPE = 17; (*Port type value *) LAT$_ITM_QUEUED = 18; (*Queued/nonqueued access flag *) LAT$_ITM_DISCONNECT_REASON = 19; (*Reason for last disconnect *) LAT$_ITM_CONNECTED_COUNT = 20; (*Number of current sessions *) LAT$_ITM_SERVICE_TYPE = 21; (*Service type value *) LAT$_ITM_CTNOD_SSZ = 22; (*(node) Seconds since zeroed *) LAT$_ITM_CTNOD_MSGR = 23; (*(node) Messages received *) LAT$_ITM_CTNOD_MSGT = 24; (*(node) Messages transmitted *) LAT$_ITM_CTNOD_SLTR = 25; (*(node) Slots received *) LAT$_ITM_CTNOD_SLTT = 26; (*(node) Slots transmitted *) LAT$_ITM_CTNOD_BYTR = 27; (*(node) Bytes received *) LAT$_ITM_CTNOD_BYTT = 28; (*(node) Bytes transmitted *) LAT$_ITM_CTNOD_MNA = 29; (*(node) Multiple node addresses *) LAT$_ITM_CTNOD_DUP = 30; (*(node) Duplicates received *) LAT$_ITM_CTNOD_MRT = 31; (*(node) Messages retransmitted *) LAT$_ITM_CTNOD_ILM = 32; (*(node) Illegal messages received *) LAT$_ITM_CTNOD_ILS = 33; (*(node) Illegal slots received *) LAT$_ITM_CTNOD_SLCA = 34; (*(node) Solicitations accepted *) LAT$_ITM_CTNOD_SLCR = 35; (*(node) Solicitations rejected *) LAT$_ITM_CTNOD_TER = 36; (*(node) Transmit errors *) LAT$_ITM_CTNOD_RES = 37; (*(node) Resource errors *) LAT$_ITM_CTNOD_NTB = 38; (*(node) No transmit buffer *) LAT$_ITM_CTNOD_TMO = 39; (*(node) Virtual circuit timeouts *) LAT$_ITM_CTNOD_DOB = 40; (*(node) Discarded output bytes *) LAT$_ITM_CTNOD_LSTER = 41; (*(node) Last transmit error *) LAT$_ITM_CTNOD_PROTO = 42; (*(node) Protocol error count *) LAT$_ITM_CTPRO_IVM = 43; (*(protocol) Invalid message type received *) LAT$_ITM_CTPRO_ISM = 44; (*(protocol) Invalid start message received *) LAT$_ITM_CTPRO_IVS = 45; (*(protocol) Invalid sequence number *) LAT$_ITM_CTPRO_NIZ = 46; (*(protocol) Zero node index received *) LAT$_ITM_CTPRO_ICI = 47; (*(protocol) Invalid server slot index *) LAT$_ITM_CTPRO_CSI = 48; (*(protocol) Circuit sequence invalid *) LAT$_ITM_CTPRO_NLV = 49; (*(protocol) Circuit index no longer valid *) LAT$_ITM_CTPRO_HALT = 50; (*(protocol) Circuit forced to halt *) LAT$_ITM_CTPRO_MIZ = 51; (*(protocol) Invalid master slot index *) LAT$_ITM_CTPRO_SIZ = 52; (*(protocol) Invalid slave slot index *) LAT$_ITM_CTPRO_CRED = 53; (*(protocol) Invalid credit field *) LAT$_ITM_CTPRO_RCSM = 54; (*(protocol) Repeat master slot create *) LAT$_ITM_CTPRO_RDSM = 55; (*(protocol) Repeat master slot disconnect *) LAT$_ITM_CTSRV_SSZ = 56; (*(service) Seconds since zeroed *) LAT$_ITM_CTSRV_MCNA = 57; (*(service) Connections attempted *) LAT$_ITM_CTSRV_MCNC = 58; (*(service) Connections completed *) LAT$_ITM_CTSRV_SCNA = 59; (*(service) Connections accepted *) LAT$_ITM_CTSRV_SCNR = 60; (*(service) Connections rejected *) LAT$_ITM_CTPRT_SSZ = 61; (*(port) Seconds since zeroed *) LAT$_ITM_CTPRT_RMT = 62; (*(port) Remote accesses *) LAT$_ITM_CTPRT_BYTR = 63; (*(port) Bytes received *) LAT$_ITM_CTPRT_BYTT = 64; (*(port) Bytes transmitted *) LAT$_ITM_MAXIMUM_UNITS = 65; (*Maximum LTA device unit number *) LAT$_ITM_SERVICE_CLASS = 66; (* Port service class item *) LAT$_ITM_DISPLAY_NUMBER = 67; (* X Display Number (Binary) *) LAT$_ITM_CPU_RATING = 68; (* CPU rating *) LAT$_ITM_SERVICE_RESPONDER = 69; (* Service responder *) LAT$_ITM_CTNOD_MCBXMT = 70; (*(node) Multicast bytes xmt *) LAT$_ITM_CTNOD_MCBRCV = 71; (*(node) Multicast bytes rcv *) LAT$_ITM_CTNOD_MCMXMT = 72; (*(node) Multicast msgs xmt *) LAT$_ITM_CTNOD_MCMRCV = 73; (*(node) Multicast msgs rcv *) LAT$_ITM_CTNOD_SOLFAIL = 74; (*(node) Solicit failures *) LAT$_ITM_CTNOD_ATLOS = 75; (*(node) Attention slot lost *) LAT$_ITM_CTNOD_DATLOS = 76; (*(node) User data lost *) LAT$_ITM_CTNOD_NOREJ = 77; (*(node) No reject slot sent *) LAT$_ITM_CTNOD_LOSCT = 78; (*(node) Node counter lost *) LAT$_ITM_CTNOD_LOSSAM = 79; (*(node) s.a.m. lossage *) LAT$_ITM_CTNOD_NOSAM = 80; (*(node) Couldn't send s.a.m. *) LAT$_ITM_CTNOD_NOSTS = 81; (*(node) Lost node status *) LAT$_ITM_CTNOD_NOXMT = 82; (*(node) No link to send on *) LAT$_ITM_HISTORY = 83; (*(node) History buffer enable *) LAT$_ITM_CTNOD_CTLERR = 84; (*(node) Controller errors *) LAT$_ITM_CTNOD_CERRCOD = 85; (*(node) Last controller error *) LAT$_ITM_CTNOD_ISOLA = 86; (*(node) (Incoming) solicits accepted *) LAT$_ITM_CTNOD_ISOLR = 87; (*(node) (Incoming) solicits rejected *) LAT$_ITM_CONNECTED_SESSIONS = 88; (* Connected session count *) LAT$_ITM_CONNECT_TYPE = 89; (* Connection type *) LAT$_ITM_CONNECTION_SESS_LIM = 90; (* Connection session limit *) LAT$_ITM_CTCON_MSGRCV = 91; (*(conn) msgs received *) LAT$_ITM_CTCON_DUPRCV = 92; (*(conn) dup msgs rcvd *) LAT$_ITM_CTCON_MSGXMT = 93; (*(conn) msgs xmtd *) LAT$_ITM_CTCON_MSGILL = 94; (*(conn) illegal msgs rcvd *) LAT$_ITM_CTCON_MSGRXT = 95; (*(conn) msgs retransmitted *) LAT$_ITM_CTCON_SLTILL = 96; (*(conn) ill slots rcvd *) LAT$_ITM_CTCON_DUPNOD = 97; (*(conn) duplicate node *) LAT$_ITM_CTCON_SECZER = 98; (*(conn) seconds since zero *) LAT$_ITM_CTCON_BYTRCV = 99; (*(conn) bytes received *) LAT$_ITM_CTCON_BYTXMT = 100; (*(conn) bytes xmtd *) LAT$_ITM_CTCON_SLTRCV = 101; (*(conn) slots rcvd *) LAT$_ITM_CTCON_SLTXMT = 102; (*(conn) slots transmitted *) LAT$_ITM_CTCON_SOLACP = 103; (*(conn) solicits accepted *) LAT$_ITM_CTCON_SOLREJ = 104; (*(conn) solicits rejected *) LAT$_ITM_CTCON_XERR = 105; (*(conn) last transmit error *) LAT$_ITM_CTCON_XERRCOD = 106; (*(conn) last xmt error code *) LAT$_ITM_CTCON_ATTLOS = 107; (*(conn) attention slot loss *) LAT$_ITM_CTCON_DATLOS = 108; (*(conn) data loss *) LAT$_ITM_CTCON_CANTREJ = 109; (*(conn) reject slot loss *) LAT$_ITM_SESSION_NUMBER = 110; (*(conn) session number for subblock *) LAT$_ITM_FORWARD_SESSION_LIMIT = 111; (*(node) forward session limit *) LAT$_ITM_EXTRA_DATALINK_BUFFERS = 112; (*Extra datalink buffers *) LAT$_ITM_TRANSMIT_BUFFERS_INUSE = 113; (*Transmit buffers in use *) LAT$_ITM_QUE_POS_OBSOLETE = 114; (*Queue position for entry *) (*Obsolete - node queue and *) (*service queue position are *) (*now implemented. *) CONST LAT$_ITM_QUEUE_DEPTH_LIMIT = 115; (*(node) queue depth limit *) LAT$_ITM_DEVICE_SEED = 116; (*(node) device seed *) LAT$_ITM_NODE_QUEUE_POSITION = 117; (*(port) minimum queue position *) LAT$_ITM_SERVICE_QUEUE_POSITION = 118; (*(port) maximum queue position *) LAT$_ITM_DIALUP = 119; (*(port) dialup characteristic *) LAT$_ITM_AUTOPROMPT = 120; (*(port) autoprompt char *) LAT$_ITM_RATING_LOAD_OBSOLETE = 121; (*obsolete - portion of rating for load *) LAT$_ITM_CTPRT_LCL = 122; (*(port) local accesses *) LAT$_ITM_CTPRT_SLCA = 123; (*(port) Solicitations accepted *) LAT$_ITM_CTPRT_SLCR = 124; (*(port) Solicitations rejected *) LAT$_ITM_CTPRT_ISOLA = 125; (*(node) (Incoming) solicits accepted *) LAT$_ITM_CTPRT_ISOLR = 126; (*(node) (Incoming) solicits rejected *) (* *) (* This next item code is only returned (it cannot be supplied as a *) (* SETMODE item). It indicates whether or not a service on the local *) (* node is password protected. *) (* *) CONST LAT$_ITM_PASSWORD = 127; (*(svc) Password enabled/disabled *) LAT$_ITM_HI_CIRCUITS = 128; (*(node) Hi circuit count *) LAT$_ITM_CUR_CIRCUITS = 129; (*(node) Current circuit count *) LAT$_ITM_MAX_CIRCUITS = 130; (*(node) Maximum virtual circuits *) LAT$_ITM_HI_SESSIONS = 131; (*(node) Hi session count *) LAT$_ITM_CUR_SESSIONS = 132; (*(node) Current session count *) LAT$_ITM_MAX_SESSIONS = 133; (*(node) Maximum session count *) LAT$_ITM_HI_OUT_QUEUE = 134; (*(node) Hi outgoing queue entries *) LAT$_ITM_CUR_OUT_QUEUE = 135; (*(node) Current outgoing q entries *) LAT$_ITM_MAX_OUT_QUEUE = 136; (*(node) Maximum outgoing q entries *) LAT$_ITM_HI_IN_QUEUE = 137; (*(node) Hi incoming queue entries *) LAT$_ITM_CUR_IN_QUEUE = 138; (*(node) Current incoming q entries *) LAT$_ITM_MAX_IN_QUEUE = 139; (*(node) Maximum incoming q entries *) LAT$_ITM_HI_SAMS_QUEUED = 140; (*(node) Hi unprocessed SAMs *) LAT$_ITM_CUR_SAMS_QUEUED = 141; (*(node) Current unprocessed SAMs *) LAT$_ITM_MAX_SAMS_QUEUED = 142; (*(node) Maximum unprocessed SAMs *) LAT$_ITM_HI_SOL_QUEUED = 143; (*(node) Hi unprocessed sol infos *) LAT$_ITM_CUR_SOL_QUEUED = 144; (*(node) Current unprocessed sol infos *) LAT$_ITM_MAX_SOL_QUEUED = 145; (*(node) Maximum unprocessed sol infos *) LAT$_ITM_HI_AVAIL_SVCS = 146; (*(node) Hi available services *) LAT$_ITM_CUR_AVAIL_SVCS = 147; (*(node) Current available services *) LAT$_ITM_MAX_AVAIL_SVCS = 148; (*(node) Maximum available services *) LAT$_ITM_HI_REACH_NODES = 149; (*(node) Hi reachable nodes *) LAT$_ITM_CUR_REACH_NODES = 150; (*(node) Current reachable nodes *) LAT$_ITM_MAX_REACH_NODES = 151; (*(node) Maximum reachable nodes *) LAT$_ITM_HI_LCL_SVCS = 152; (*(node) Hi local services *) LAT$_ITM_CUR_LCL_SVCS = 153; (*(node) Current local services *) LAT$_ITM_MAX_LCL_SVCS = 154; (*(node) Maximum local services *) LAT$_ITM_DISCARDED_NODES = 155; (*(node) Discarded nodes *) LAT$_ITM_MAX_DL_BUFFERS = 156; (*(conn) Maximum datalink buffers *) LAT$_ITM_PRODUCT_TYPE = 157; (*(conn) Product type *) LAT$_ITM_REM_PRODUCT_VERSION = 158; (*(conn) Remote product version *) LAT$_ITM_CTPRT_FRAMERR = 159; (*(port) Framing errors *) LAT$_ITM_CTPRT_PARERR = 160; (*(port) Parity errors *) LAT$_ITM_CTPRT_OVERRUN = 161; (*(port) Data overruns *) LAT$_ITM_CTPRO_INVCLASS = 162; (*(protocol) protocol error invalid service class *) LAT$_ITM_CTPRO_EXCSTART = 163; (*(protocol) protocol error (excessive start slots) *) LAT$_ITM_CTNOD_XSTR = 164; (*(node) Remote node too many START slots *) LAT$_ITM_PASSWORD_FAILURES = 165; (*(service,port) Password failures *) LAT$_ITM_CTPRO_ILLSAM = 166; (*(protocol) Illegal SAMs *) LAT$_ITM_TYPEAHEAD = 167; (*(port) 1 = typeahd present *) LAT$_ITM_CTLAT_RMSG = 168; (*(link) LAT msgs rcvd *) LAT$_ITM_CTLAT_RBYT = 169; (*(link) LAT bytes rcvd *) LAT$_ITM_CTLAT_XMSG = 170; (*(link) LAT msgs xmt *) LAT$_ITM_CTLAT_XBYT = 171; (*(link) LAT bytes xmt *) LAT$_ITM_CTLAT_MUL_RMSG = 172; (*(link) LAT multicast msgs rcvd *) LAT$_ITM_CTLAT_MUL_RBYT = 173; (*(link) LAT multicast bytes rcvd *) LAT$_ITM_CTLAT_MUL_XMSG = 174; (*(link) LAT multicast msgs xmt *) LAT$_ITM_CTLAT_MUL_XBYT = 175; (*(link) LAT multicast bytes xmt *) LAT$_ITM_PATH_STATE = 176; (*Datalink path state *) LAT$_ITM_LARGE_BUFFERS = 177; (*Use of large buffers by default *) LAT$_ITM_ANNOUNCEMENTS = 178; (*(node) Transmit service announcements *) LAT$_ITM_PORT_STATE = 179; (*(port) Current state *) LAT$_ITM_CTPRO_BADUID = 180; (*(protocol) Invalid node UID event *) LAT$C_ITM_MAXSCALAR = 180; LAT$_ITM_IDENTIFICATION = 16640; (*Entity (node or service) identification *) LAT$_ITM_SERVICE_NAME = 16641; (*Service name *) LAT$_ITM_NODE_NAME = 16642; (*Node name *) LAT$_ITM_PORT_NAME = 16643; (*Port name *) LAT$_ITM_CONNECTED_SERVICE_NAME = 16644; (*Port's connected service name *) LAT$_ITM_CONNECTED_NODE_NAME = 16645; (*Port's connected node name *) LAT$_ITM_CONNECTED_PORT_NAME = 16646; (*Port's connected port name *) LAT$_ITM_TARGET_SERVICE_NAME = 16647; (*Port's target service name *) LAT$_ITM_TARGET_NODE_NAME = 16648; (*Port's target node name *) LAT$_ITM_TARGET_PORT_NAME = 16649; (*Port's target port name *) LAT$_ITM_SERVICE_GROUPS = 16650; (*Enabled service groups bitmask *) LAT$_ITM_USER_GROUPS = 16651; (*Enabled user groups bitmask *) LAT$_ITM_LINK_NAME = 16652; (*Link name *) LAT$_ITM_SERVICE_PASSWORD = 16653; (*Service password *) LAT$_ITM_DEVICE_NAME = 16654; (*Link's device name *) LAT$_ITM_DATALINK_ADDRESS = 16655; (*6-byte binary Ethernet address *) LAT$_ITM_PROTOCOL_VERSION = 16656; (*LAT protocol version string *) LAT$_ITM_SVC_NODE_BLOCK = 16657; (*Subblock for SENSE SERVICE *) LAT$_ITM_NODE_SVC_BLOCK = 16658; (*Subblock for SENSE NODE *) LAT$_ITM_DED_PORT_BLOCK = 16659; (*Subblock for dedicated ports *) LAT$_ITM_COUNTERS = 16660; (*Subblock for counters *) LAT$_ITM_PROTOCOL_ERRORS = 16661; (*Subblock for protocol errors *) LAT$_ITM_CONNECTED_LINK_NAME = 16662; (*Port's connected link name *) LAT$_ITM_HISTORY_ENTRY = 16663; (*Node history buffer entry *) LAT$_ITM_CONNECT_ID = 16664; (*Connect ID name *) LAT$_ITM_SESSION_BLOCK = 16665; (*Subblock for SENSE CONNECTION *) LAT$_ITM_QUEUED_ENTRY_ID = 16666; (*Queued entry ID string *) LAT$_ITM_LIM_PORT_BLOCK = 16667; (*subblock for limited ports *) LAT$_ITM_SERVICE_CLASSES = 16668; (*service class bitmask for node *) LAT$_ITM_LAT_DEV_CTR_BLOCK = 16669; (*link LAT only counters *) LAT$_ITM_PATH_BLOCK = 16670; (*Datalink path information *) LAT$C_ITM_MAXSTRING = 16670; TYPE ITEM_ENTRY$TYPE = RECORD CASE INTEGER OF 1: (LAT$R_ITM_CODE : [BYTE(2)] RECORD END; LAT$R_ITEM_VALUE : [BYTE(4)] RECORD END; ); 2: (LAT$W_ITEMCODE : [POS(0)] $UWORD; ); 3: (LAT$R_ITM_BITS : [POS(0), BYTE(2)] RECORD END; LAT$B_ITEM_BCNT : [POS(16)] $UBYTE; LAT$T_ITEM_STRING_VALUE : [POS(24)] ARRAY [1..1] OF CHAR; ); 4: (LAT$V_ITEMINDEX : [POS(0)] $BIT14; LAT$V_STRING : [POS(14)] $BOOL; LAT$V_CLEAR : [POS(15)] $BOOL; LAT$L_ITEM_SCALAR_VALUE : [POS(16)] UNSIGNED; ) END; CONST LAT$C_DISABLED = 0; LAT$C_ENABLED = 1; LAT$C_OFF = 0; LAT$C_ON = 1; LAT$C_SHUT = 2; LAT$M_FLUSH_DATA = 1; LAT$C_PT_FORWARD = 0; (*"Forward" connection port *) LAT$C_PT_INTERACTIVE = 1; (*Interactive incoming port *) LAT$C_PT_APPLICATION = 2; (*Application port *) LAT$C_PT_DEDICATED = 3; (*Dedicated port *) LAT$C_PT_LIMITED = 4; (*Limited port *) LAT$C_PT_STATE_INACTIVE = 0; (*Idle, no connection *) LAT$C_PT_STATE_CONNECTING = 1; (*Connection in progress, not done *) LAT$C_PT_STATE_ACTIVE = 2; (*Fully connected *) LAT$C_PT_STATE_DISCONNECTING = 3; (*In the disconnect process *) LAT$C_NT_LOCAL = 0; (*My own node *) LAT$C_NT_REMOTE = 1; (*The other guy *) LAT$C_ST_GENERAL = 0; (*General timesharing service *) LAT$C_ST_APPLICATION = 1; (*Application service *) LAT$C_ST_LIMITED = 2; (*Limited service *) LAT$C_DYNAMIC = 0; (*Dynamic calculation *) LAT$C_STATIC = 1; (*Fixed rating *) LAT$C_PS_WORKING = 0; LAT$C_PS_SUSPECT = 1; LAT$C_PS_FAILED = 2; LAT$C_CN_UNKNOWN = 0; (*Unknown connection type *) LAT$C_CN_INCOMING = 1; (*Slave connection *) LAT$C_CN_OUTGOING = 2; (*Master connection *) LAT$C_UNREACHABLE = 0; (*Known not there *) LAT$C_UNKNOWN = 1; (*Haven't heard in a while *) LAT$C_REACHABLE = 2; (*I heard from him *) LAT$C_UNAVAILABLE = 0; (*Can't get it *) LAT$C_AVAILABLE = 1; (*It IS there *) LAT$C_SERVCLASS_INTERACTIVE = 1; (* SC1 = TTDRIVER *) LAT$C_SERVCLASS_TESTSERVICE = 2; (* SC2 = TEST SERVICE *) LAT$C_SERVCLASS_XTRANSPORT = 3; (* SC3 = X Transport *) LAT$C_SERVCLASS_FONT = 4; (* SC4 = X Fonts *) TYPE LATSETBITS$TYPE = RECORD CASE INTEGER OF 1: (LAT$T_FILLER : RECORD END ; ); 2: (LAT$T_FILLER2 : CHAR; ) END; CONST LAT$C_RATING_VECTOR_LENGTH = 56; (* Size of vector *) TYPE RATING_VEC$TYPE = RECORD LAT$A_CONTROL_INIT_RTN : $DEFPTR; (* Address of controller init *) LAT$A_UNIT_INIT_RTN : $DEFPTR; (* Address of init init *) LAT$A_RATING_INIT_RTN : $DEFPTR; (* Address of initial call from LTDRIVER *) LAT$A_TIMER_RTN : $DEFPTR; (* Routine called each second *) LAT$A_CALC_RATING_RTN : $DEFPTR; (* Routine that calculates rating *) LAT$A_STOP_RTN : $DEFPTR; (* Routine called at LAT shutdown *) LAT$A_SPARE1_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE2_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE3_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE4_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE5_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE6_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE7_RTN : $DEFPTR; (* Expansion placeholder *) LAT$A_SPARE8_RTN : $DEFPTR; (* Expansion placeholder *) END; (*** MODULE $LCKDEF ***) (*+ *) (* LOCK MANAGER DEFINITIONS *) (*- *) CONST LCK$M_VALBLK = 1; LCK$M_CONVERT = 2; LCK$M_NOQUEUE = 4; LCK$M_SYNCSTS = 8; LCK$M_SYSTEM = 16; LCK$M_NOQUOTA = 32; LCK$M_CVTSYS = 64; LCK$M_RECOVER = 128; LCK$M_PROTECT = 256; LCK$M_NODLCKWT = 512; LCK$M_NODLCKBLK = 1024; LCK$M_EXPEDITE = 2048; LCK$M_QUECVT = 4096; LCK$M_BYPASS = 8192; LCK$M_NOIOLOCK8 = 16384; LCK$M_NOFORK = 32768; LCK$M_XVALBLK = 65536; LCK$M_DEQALL = 1; LCK$M_CANCEL = 2; LCK$M_INVVALBLK = 4; LCK$M_RESV_NOIOLOCK8 = 16384; LCK$M_RESV_NOFORK = 32768; LCK$M_RESV_XVALBLK = 65536; LCK$K_NLMODE = 0; (* NULL *) LCK$K_CRMODE = 1; (* CONCURRENT READ *) LCK$K_CWMODE = 2; (* CONCURRENT WRITE *) LCK$K_PRMODE = 3; (* PROTECTED READ *) LCK$K_PWMODE = 4; (* PROTECTED WRITE *) LCK$K_EXMODE = 5; (* EXCLUSIVE *) TYPE LCK$TYPE = RECORD CASE INTEGER OF 1: (LCK$R_LCKDEF_BITS0 : [BYTE(3)] RECORD END; ); 2: (LCK$V_VALBLK : [POS(0)] $BOOL; (* VALUE BLOCK INCLUDED *) LCK$V_CONVERT : [POS(1)] $BOOL; (* CONVERSION REQUEST *) LCK$V_NOQUEUE : [POS(2)] $BOOL; (* DO NOT QUEUE REQUEST *) LCK$V_SYNCSTS : [POS(3)] $BOOL; (* SYNCHRONOUS STATUS REQUESTED *) LCK$V_SYSTEM : [POS(4)] $BOOL; (* SYSTEM LOCK *) LCK$V_NOQUOTA : [POS(5)] $BOOL; (* DON'T CHARGE QUOTA *) LCK$V_CVTSYS : [POS(6)] $BOOL; (* CONVERT TO SYSTEM *) LCK$V_RECOVER : [POS(7)] $BOOL; (* RECOVER LOCK DURING FAILOVER *) LCK$V_PROTECT : [POS(8)] $BOOL; (* PROTECT LOCK DURING FAILOVER *) LCK$V_NODLCKWT : [POS(9)] $BOOL; (* NO DEADLOCK WAITING *) LCK$V_NODLCKBLK : [POS(10)] $BOOL; (* NO DEADLOCK BLOCKING *) LCK$V_EXPEDITE : [POS(11)] $BOOL; (* EXPEDITE NLMODE REQUEST *) LCK$V_QUECVT : [POS(12)] $BOOL; (* FORCE CONVERSION TO QUEUE *) LCK$V_BYPASS : [POS(13)] $BOOL; (* BYPASS WAITING REQUESTS *) LCK$V_NOIOLOCK8 : [POS(14)] $BOOL; (* DO NOT LOCK IOLOCK8 FOR CALLBACK *) LCK$V_NOFORK : [POS(15)] $BOOL; (* SAFE TO PERFORM OPERATION WITHOUT FORK *) LCK$V_XVALBLK : [POS(16)] $BOOL; (* LONG VALUE BLOCK INCLUDED *) (* *) (* IFBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING *) (* *) ); 3: (LCK$R_LCKDEF_BITS1 : [BYTE(3)] RECORD END; ); 4: (LCK$V_DEQALL : [POS(0)] $BOOL; (* DEQUEUE ALL LOCKS *) LCK$V_CANCEL : [POS(1)] $BOOL; (* CANCEL REQUEST *) LCK$V_INVVALBLK : [POS(2)] $BOOL; (* INVALIDATE VALUE BLOCK *) (*LOCK MODES *) ) END; (*** MODULE $LDDEF ***) CONST IO$_LD_CONTROL = 20; LDIO$K_CONNECT = 0; LDIO$K_DISCONNECT = 1; LDIO$K_ENABLE_TRACE = 2; LDIO$K_DISABLE_TRACE = 3; LDIO$K_GET_TRACE = 4; LDIO$K_RESET_TRACE = 5; LDIO$K_GET_CONNECTION = 6; LDIO$K_SET_SEED = 7; LDIO$K_ENABLE_WATCH = 8; LDIO$K_DISABLE_WATCH = 9; LDIO$K_GET_WATCH = 10; LDIO$K_RESUME_WATCH = 11; LDIO$K_GET_SUSPEND_LIST = 12; LDIO$K_ENABLE_PROTECT = 13; LDIO$K_DISABLE_PROTECT = 14; LDIO$K_SET_ALLOCLASS = 15; LDIO$K_GET_TRACE_PARAMETERS = 16; LDIO$K_GET_VERSION = 17; LDIO$M_REPLACE = 256; LDIO$M_ABORT = 512; LDIO$M_INQUIRE = 1024; LDIO$M_NOWAIT = 2048; LDIO$M_RESET = 4096; LDIO$M_SHARE = 8192; LDIO$M_ACCURATE = 16384; LDIO$M_FDTTRACE = 32768; LDIO$M_LBN = 65536; LDIO$M_OVERRIDE = 131072; LDIO$M_LOCK = 262144; LDIO$M_NOFE = 524288; TYPE LDIO$TYPE = RECORD LDIO$V_FUNC : [POS(0)] $BIT8; LDIO$V_REPLACE : [POS(8)] $BOOL; LDIO$V_ABORT : [POS(9)] $BOOL; LDIO$V_INQUIRE : [POS(10)] $BOOL; LDIO$V_NOWAIT : [POS(11)] $BOOL; LDIO$V_RESET : [POS(12)] $BOOL; LDIO$V_SHARE : [POS(13)] $BOOL; LDIO$V_ACCURATE : [POS(14)] $BOOL; LDIO$V_FDTTRACE : [POS(15)] $BOOL; LDIO$V_LBN : [POS(16)] $BOOL; LDIO$V_OVERRIDE : [POS(17)] $BOOL; LDIO$V_LOCK : [POS(18)] $BOOL; LDIO$V_NOFE : [POS(19)] $BOOL; LDIO$V_FILL_77_ : [POS(20)] $BIT4; END; CONST LDRSN$K_NOTSHARED = 1; LDRSN$K_NOSHARE = 2; LDRSN$K_ALLOCLASS = 3; LDRSN$K_UNITNUMBER = 4; LDRSN$K_TRACKS = 5; LDRSN$K_SECTORS = 6; LDRSN$K_CYLINDERS = 7; LDRSN$K_MAXBLOCK = 8; LDRSN$K_NOLBNMAP = 9; LDRSN$K_STARTLBN = 10; LDRSN$K_DEVICENAME = 11; LDRSN$K_NOTREPLACED = 12; LDRSN$K_RANGEINUSE = 13; LDRSN$K_FILEIDINUSE = 14; LDRSN$K_INCMPPROT = 15; LDRSN$K_INCMPDEVTYPE = 16; LDTRC$C_LENGTH = 88; LDTRC$K_LENGTH = 88; TYPE TRACE_ENT$TYPE = RECORD CASE INTEGER OF 1: (LDTRC$L_PID : UNSIGNED; LDTRC$L_LBN : UNSIGNED; LDTRC$L_BCNT : UNSIGNED; LDTRC$W_FUNC : $UWORD; LDTRC$W_RESERVED : $UWORD; LDTRC$L_IOSB : ARRAY [1..2] OF UNSIGNED; LDTRC$R_STIME_UNION : [BYTE(8)] RECORD END; LDTRC$R_ETIME_UNION : [BYTE(8)] RECORD END; LDTRC$Q_START_SCC : $UQUAD; LDTRC$Q_END_SCC : $UQUAD; LDTRC$L_STARTCPU : UNSIGNED; LDTRC$L_ENDCPU : UNSIGNED; LDTRC$R_ELAPSED_UNION : [BYTE(8)] RECORD END; LDTRC$Q_START_USEC : $UQUAD; LDTRC$Q_END_USEC : $UQUAD; ); 2: (LDTRC$Q_START_TIME : [POS(192)] $UQUAD; LDTRC$Q_END_TIME : [POS(256)] $UQUAD; LDTRC$Q_ELAPSED : [POS(512)] $UQUAD; ); 3: (LDTRC$L_START_TIME : [POS(192)] UNSIGNED; LDTRC$L_END_TIME : [POS(256)] UNSIGNED; LDTRC$L_ELAPSED : [POS(512)] UNSIGNED; ) END; CONST LDWTC$M_CHARS = 127; LDWTC$M_NOLBN = 1; LDWTC$M_FILE = 2; LDWTC$M_REMOVE_ALL = 128; LDWTC$C_SUSPEND = 0; LDWTC$C_CRASH = 1; LDWTC$C_ERROR = 2; LDWTC$C_OPCOM = 3; LDWTC$C_MAX = 3; LDWTC$C_LENGTH = 22; LDWTC$K_LENGTH = 22; TYPE WATCHPT$TYPE = RECORD CASE INTEGER OF 1: (LDWTC$L_LBN : UNSIGNED; LDWTC$R_FILL_78_ : [BYTE(2)] RECORD END; LDWTC$W_ACTION : $UWORD; LDWTC$W_FUNC : $UWORD; LDWTC$W_RETCODE : $UWORD; LDWTC$R_SBK_FCB : [BYTE(4)] RECORD END; LDWTC$R_FIDAREA1 : [BYTE(6)] RECORD END; ); 2: (LDWTC$W_FLAGS : [POS(32)] $UWORD; LDWTC$A_SBK : [POS(96)] $DEFPTR; LDWTC$W_FID : [POS(128)] ARRAY [1..3] OF $UWORD; ); 3: (LDWTC$A_FCB : [POS(96)] $DEFPTR; ); 4: (LDWTC$W_FID_NUM : [POS(128)] $UWORD; LDWTC$W_FID_SEQ : [POS(144)] $UWORD; LDWTC$W_FID_RVN : [POS(160)] $UWORD; ); 5: (LDWTC$V_CHARS : [POS(32)] $BIT7; ); 6: (); 7: (LDWTC$V_NOLBN : [POS(32)] $BOOL; LDWTC$V_FILE : [POS(33)] $BOOL; LDWTC$V_RESERVED : [POS(34)] $BIT5; LDWTC$V_REMOVE_ALL : [POS(39)] $BOOL; ) END; CONST LDSUSP$C_LENGTH = 16; LDSUSP$K_LENGTH = 16; TYPE SUSPEND_LIST$TYPE = RECORD LDSUSP$L_PID : UNSIGNED; LDSUSP$L_LBN : UNSIGNED; LDSUSP$W_FLAGS : $UWORD; LDSUSP$W_ACTION : $UWORD; LDSUSP$W_FUNC : $UWORD; LDSUSP$W_RETCODE : $UWORD; END; (*** MODULE $LIBFILDEF ***) (* Interface definitions for LIB$*_FILE *) (* *) (* LIB$FIND_FILE flag definitions *) CONST LIB$M_FIL_NOWILD = 1; (* No wild carding allow *) LIB$M_FIL_MULTIPLE = 2; (* Multiple input files *) (* LIB$RENAME_FILE flag definitions *) CONST LIB$M_FIL_CUR_VER = 1; (* Current version used *) LIB$M_FIL_INH_SECUR = 2; (* Inherit security *) (* LIB$DELETE_FILE & LIB$FIND_FILE & LIB$RENAME_FILE flag definition *) CONST LIB$M_FIL_LONG_NAMES = 4; (* Handle long file names *) LIB$M_FIL_IGNORE_ACCESS = 8; (* Ignore write access on delete *) LIB$M_FIL_OPEN_SPECIAL = 16; (* Correspands to NAML$V_OPEN_SPECIAL *) (* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *) (* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) CONST LIB$M_FIL_SYMLINK_DEFAULT = 0; (* use process default *) LIB$M_FIL_SYMLINK_NONE = 32; (* use no symlinks *) LIB$M_FIL_SYMLINK_ALL = 64; (* use symlinks always *) LIB$M_FIL_SYMLINK_NOELLIPS = 96; (* use symlinks except in ellipsis *) (*** MODULE $LIBFISDEF ***) (* Interface definitions for LIB$FIND_IMAGE_SYMBOL *) (* *) (* LIB$FIND_IMAGE_SYMBOL flag definitions *) CONST LIB$M_FIS_PARANOID = 1; LIB$M_FIS_NOTRANSLOG = 8; LIB$M_FIS_MIXEDCASE = 16; LIB$M_FIS_TV_AV = 32; TYPE LIB$FIS_FLAGS = RECORD LIB$V_FIS_PARANOID : [POS(0)] $BOOL; (* Force paranoid bit on for $IMGACT *) LIB$V_FIS_FILL_2 : [POS(1)] $BIT2; LIB$V_FIS_NOTRANSLOG : [POS(3)] $BOOL; (* $IMGACT lookup on untranslated logical *) LIB$V_FIS_MIXEDCASE : [POS(4)] $BOOL; (* Mixed case symbols *) LIB$V_FIS_TV_AV : [POS(5)] $BOOL; (* Append "_TV_AV" to the image name *) LIB$V_FILL_80_ : [POS(6)] $BIT2; END; (*** MODULE $LIBWAITDEF ***) (* Interface definitions for LIB$WAIT *) (* *) (* LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes) *) CONST LIB$K_VAX_F = 0; (* VAX F Floating point data *) LIB$K_VAX_D = 1; (* VAX D Floating point data *) LIB$K_VAX_G = 2; (* VAX G Floating point data *) LIB$K_VAX_H = 3; (* VAX H Floating point data *) LIB$K_IEEE_S = 4; (* IEEE S Floating point data *) LIB$K_IEEE_T = 5; (* IEEE T Floating point data *) (* LIB$WAIT option definitions *) CONST LIB$K_WAKE = 0; (* WAKE option, interruptable *) LIB$K_NOWAKE = 1; (* NOWAKE option, non-interruptable *) (*** MODULE $LOGTYPDEF ***) (* *) (* Entry type definitions *) (* *) CONST LOGTYP$C_SS_ENTRY = 0; (*Standard service entry *) LOGTYP$C_SS_EXIT = 1; (*Standard service exit *) LOGTYP$C_PS_ENTRY = 2; (*Protected service entry *) LOGTYP$C_PS_EXIT = 3; (*Protected service exit *) LOGTYP$C_STARTUP = 4; (*Startup logging *) LOGTYP$C_STOP = 5; (*Stop logging *) LOGTYP$C_UNLOAD = 6; (*Stop logging and delete buffers *) LOGTYP$C_FILE_OPENED = 7; (*Internal file open kernel mode part *) LOGTYP$C_EOBUF = -1; LOGTYP$M_ARGS = 1; LOGTYP$M_FILE = 2; TYPE logtyp$flags = RECORD LOGTYP$V_ARGS : [POS(0)] $BOOL; LOGTYP$V_FILE : [POS(1)] $BOOL; LOGTYP$v_fill_1 : [POS(2)] $BIT30; END; (*** MODULE $LKIDEF ***) (*+ *) (* *) (* Get Lock Information Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* The LKIDEF structure is defined multiple times to accomidate C! *) (* *) (* New items can not be added to the end of LKIDEF or LKIDEF_BR *) (* since this require all users to re-link. GETLKI can return *) (* multiples of these structures concatenated and thus any *) (* new items returned should really be placed in a new structure. *) (*- *) CONST LKI$K_LENGTH = 24; (*LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO *) LKI$C_LENGTH = 24; (*LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO *) LKI$K_BR_LENGTH = 56; (*LENGTH OF LIST BLOCK WITH BYTE RANGE INFO *) LKI$C_BR_LENGTH = 56; (*LENGTH OF LIST BLOCK WITH BYTE RANGE INFO *) TYPE LKI$TYPE = RECORD CASE INTEGER OF 1: (LKI$R_U1 : [BYTE(4)] RECORD END; LKI$L_PID : UNSIGNED; (*PROCESS ID *) LKI$R_U2 : [BYTE(4)] RECORD END; LKI$B_RQMODE : $UBYTE; (*REQUEST MODE *) LKI$B_GRMODE : $UBYTE; (*GRANTED MODE *) LKI$B_QUEUE : $BYTE; (*LOCK QUEUE *) LKI$$$_SPARE : $BYTE; (*SPARE BYTE *) LKI$R_U3 : [BYTE(4)] RECORD END; LKI$R_U4 : [BYTE(4)] RECORD END; LKI$Q_RQSTART : $UQUAD; (* REQUEST RANGE START *) LKI$Q_RQLENGTH : $UQUAD; (* REQUEST RANGE LENGTH *) LKI$Q_GRSTART : $UQUAD; (* GRANTED RANGE START *) LKI$Q_GRLENGTH : $UQUAD; (* GRANTED RANGE LENGTH *) ); 2: (LKI$L_MSTLKID : [POS(0)] UNSIGNED; (*LOCK ID ON MASTER *) LKI$L_MSTCSID : [POS(64)] UNSIGNED; (*CSID OF MASTER *) LKI$L_LKID : [POS(128)] UNSIGNED; (*LOCK ID ON PROCESS NODE *) LKI$L_CSID : [POS(160)] UNSIGNED; (*CSID OF PROCESS NODE *) ); 3: (LKI$L_LOCKID : [POS(0)] UNSIGNED; (*OLD SYMBOL *) LKI$L_SYSID : [POS(64)] UNSIGNED; (*OLD SYMBOL *) LKI$L_REMLKID : [POS(128)] UNSIGNED; (*OLD SYMBOL *) LKI$L_REMSYSID : [POS(160)] UNSIGNED; (*OLD SYMBOL *) ) END; (* DEFINE NAMSPACE FIELDS *) CONST LKI$M_SYSNAM = -2147483648; TYPE NAMSPACE$TYPE = RECORD CASE INTEGER OF 1: (LKI$R_NAMSPACE_UNION : [BYTE(4)] RECORD END; ); 2: (); 3: (LKI$W_GROUP : [POS(0)] $UWORD; (*GROUP OF OWNER UIC *) LKI$B_RMOD : [POS(16)] $UBYTE; (*ACCESS MODE OF REQUEST *) LKI$B_STATUS : [POS(24)] $UBYTE; (*STATUS OF RESOURCE *) ); 4: (LKI$R_STATUS_BITS : [POS(0), BYTE(4)] RECORD END; ); 5: (LKI$V_SYSNAM : [POS(31)] $BOOL; (* SYSTEM WIDE RSB *) ) END; (* DEFINE STATE FIELDS *) TYPE STATEF$TYPE = RECORD LKI$B_STATE_RQMODE : $UBYTE; (*REQUEST MODE *) LKI$B_STATE_GRMODE : $UBYTE; (*GRANTED MODE *) LKI$B_STATE_QUEUE : $BYTE; (*LOCK STATE CODE *) END; CONST LKIUSR$K_LENGTH = 20; LKIUSR$C_LENGTH = 20; LKIUSR$K_BLOCKER_START = 20; (* OFFSET TO THE START OF THE RETURNED INFORMATION *) TYPE LKIUSR$TYPE = RECORD LKIUSR$Q_START : $UQUAD; (* START OF THE REQUESTED RANGE *) LKIUSR$Q_LENGTH : $UQUAD; (* LENGTH OF THE REQUESTED RANGE *) LKIUSR$B_RQMODE : $UBYTE; (* REQUESTED MODE *) LKIUSR$B_IGNORE_OWN : $UBYTE; (* FLAG TO IGNORE LOCKS OWNED BY THE CALLING PROCESS *) LKI$$_FILL_1 : $WORD; (* reserved *) END; RNG$TYPE = RECORD LKI$_RNG_Q_RQSTART : $UQUAD; (* REQUEST RANGE START *) LKI$_RNG_Q_RQLENGTH : $UQUAD; (* REQUEST RANGE LENGTH *) LKI$_RNG_Q_GRSTART : $UQUAD; (* GRANTED RANGE START *) LKI$_RNG_Q_GRLENGTH : $UQUAD; (* GRANTED RANGE LENGTH *) END; (*LOCK STATE CODE VALUES *) CONST LKI$C_GRANTED = 1; (* GRANTED *) LKI$C_CONVERT = 0; (* CONVERSION *) LKI$C_WAITING = -1; (* WAITING *) LKI$C_RETRY = -2; (* RETRY REQUEST *) LKI$C_SCSWAIT = -3; (* SCS WAIT *) LKI$C_RSPNOTQED = -4; (* RESPONSE NOT QUEUED *) LKI$C_RSPQUEUED = -5; (* RESPONSE QUEUED *) LKI$C_RSPGRANTD = -6; (* RESPONSE GRANTED *) LKI$C_RSPDOLOCL = -7; (* RESPONSE DO LOCALLY *) LKI$C_RSPRESEND = -8; (* RESPONSE RESEND *) (* DEFINE TABLE NUMBERS *) (* STRUCTURE CODES MUST START AT 1 *) CONST LKI$C_LKBTYPE = 1; (* ITEM IN LKB *) LKI$C_RSBTYPE = 2; (* ITEM IN RSB *) LKI$C_LISTEND = 0; (* DEFINE ITMLST TERMINATOR *) (* ITEM IDENTIFIERS FOR LKB *) CONST LKI$_PID = 256; (* PROCESS ID *) LKI$_STATE = 257; (* CURRENT LOCK STATE *) LKI$_PARENT = 258; (* ID OF PARENT LOCK *) LKI$_LCKREFCNT = 259; (* SUB-LOCK REFERENCE COUNT *) LKI$_LOCKID = 260; (* LOCK ID *) LKI$_REMLKID = 261; (* REMOTE LOCK ID *) LKI$_MSTLKID = 262; (* LOCK ID ON RESOURCE MASTER *) LKI$_LKID = 263; (* LOCK ID ON PROCESS NODE *) LKI$_CSID = 264; (* CSID OF PROCESS NODE *) LKI$_BRL = 265; (* IS THE LOCK A BYTE RANGE LOCK *) (** , TSKID /* TASK ID FOR MULTITASK *) CONST LKI$_RANGE = 266; (* Range of request *) LKI$_LASTLKB = 267; (* MAX INDEX IN LKB TABLE *) (* ITEM IDENTIFIERS FOR RSB *) CONST LKI$_NAMSPACE = 512; (* RESOURCE NAME SPACE *) LKI$_RESNAM = 513; (* RESOURCE NAME *) LKI$_RSBREFCNT = 514; (* SUB-RESOURCE REFERENCE COUNT *) LKI$_VALBLK = 515; (* VALUE BLOCK *) LKI$_SYSTEM = 516; (* SYSTEM ID OF SYSTEM WITH RESOURCE *) LKI$_LCKCOUNT = 517; (* COUNT OF LOCKS ON RESOURCE *) LKI$_BLOCKEDBY = 518; (* LIST OF LOCKS BLOCKED BY CURRENT LOCK *) LKI$_BLOCKING = 519; (* LIST OF LOCKS BLOCKING CURRENT LOCK *) LKI$_LOCKS = 520; (* LIST OF ALL LOCKS ON RESOURCE *) LKI$_CVTCOUNT = 521; (* COUNT OF LOCKS ON CONVERSION QUEUE *) LKI$_WAITCOUNT = 522; (* COUNT OF LOCKS ON WAIT QUEUE *) LKI$_GRANTCOUNT = 523; (* COUNT OF LOCKS ON GRANT QUEUE *) LKI$_MSTCSID = 524; (* CSID OF RESOURCE MASTER *) LKI$_VALBLKST = 525; (* VALUE BLOCK STATUS *) LKI$_BLOCKEDBY_BR = 526; (* LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGES *) LKI$_BLOCKING_BR = 527; (* LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGES *) LKI$_LOCKS_BR = 528; (* LIST OF LOCKS ALL LOCKS ON A RESOURCE WITH BYTE RANGES *) LKI$_BLOCKER_BR = 529; (* LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODE *) LKI$_XVALBLK = 530; (* EXTENDED VALUE BLOCK *) LKI$_XVALNOTVALID = 531; (* VALIDITY OF EXTENDED VALUE BLOCK *) LKI$_LASTRSB = 532; (* MAX INDEX IN RSB (MUST BE LAST internal use only) *) LKISND$K_HDRLEN = 16; (*LENGTH OF HEADER *) LKISND$C_HDRLEN = 16; (*LENGTH OF HEADER *) TYPE LKISND$TYPE = RECORD (* Format for local system buffer header when sending an information request *) (* to a remote system. *) LKISND$W_RETSIZE : $UWORD; (* size of return info *) LKISND$W_STATUS : $UWORD; (* status of operation *) LKISND$W_FLAGS : $UWORD; (* flags *) LKISND$W_SEQNUM : $UWORD; (* rebuild seqnm *) LKISND$W_SIZE : $UWORD; (* size of structure *) LKISND$B_TYPE : $UBYTE; (* type of stucture *) LKISND$B_FILL_2 : $UBYTE; (* *) LKISND$B_ITEM_LENGTH : $UBYTE; (* len of item info *) LKISND$B_FILL_3 : $UBYTE; (* *) LKISND$W_FILL_4 : $UWORD; (* *) END; (*** MODULE $LKSBDEF ***) (*+ *) (* Define Lock Status Block *) (*- *) TYPE LKSB$TYPE = RECORD LKSB$W_STATUS : $UWORD; (* Status *) LKSB$W_RESERVED : $UWORD; (* Reserved *) LKSB$L_LKID : UNSIGNED; (* Lock identification *) LKSB$B_VALBLK : ARRAY [1..16] OF $UBYTE; (* Lock value block *) END; CONST LKSB$K_LENGTH = 24; (* Length of LKSB *) LKSB$C_LENGTH = 24; (* Length of LKSB *) TYPE XLKSB$TYPE = RECORD XLKSB$W_STATUS : $UWORD; (* Status *) XLKSB$W_RESERVED : $UWORD; (* Reserved *) XLKSB$L_LKID : UNSIGNED; (* Lock identification *) XLKSB$B_XVALBLK : ARRAY [1..64] OF $UBYTE; (* Lock value block *) END; CONST XLKSB$K_LENGTH = 72; (* Length of XLKSB *) XLKSB$C_LENGTH = 72; (* Length of XLKSB *) (*** MODULE $LMFDEF ***) CONST LMF$_PROD_TOKEN = 1; LMF$_HW_ID = 2; LMF$_PROD_VERSION = 3; LMF$_PROD_DATE = 4; LMF$_CHARGE_TYPE = 5; LMF$_UNITS_IN_USE = 6; LMF$_USERNAME = 7; LMF$_CHECK_TOKEN = 8; LMF$_CHECK_HWID = 9; LMF$_NO_RELEASE = 10; LMF$C_PRDNAMLEN = 24; LMF$K_PRDNAMLEN = 24; LMF$C_PRDUCERLEN = 24; LMF$K_PRDUCERLEN = 24; LMF$C_CONTEXTLEN = 16; LMF$K_CONTEXTLEN = 16; LMF$C_TOKENLEN = 31; LMF$K_TOKENLEN = 31; LMF$C_HW_IDLEN = 31; LMF$K_HW_IDLEN = 31; LMF$C_VERSIONLEN = 4; LMF$K_VERSIONLEN = 4; LMF$K_DATELEN = 8; LMF$C_DATELEN = 8; LMF$M_RETURN_FAILURES = 1; LMF$M_BROADCAST_FAILURES = 2; LMF$M_OUTPUT_FAILURES = 4; LMF$M_KERNEL_GRANT = 8; LMF$M_LOOKUP_LICENSE_SPARE = -16; TYPE dvspm_masks$TYPE = RECORD LMF$V_RETURN_FAILURES : [POS(0)] $BOOL; (* return status .vs. signal *) LMF$V_BROADCAST_FAILURES : [POS(1)] $BOOL; (* do an OPCOM *) LMF$V_OUTPUT_FAILURES : [POS(2)] $BOOL; (* do a PUTMSG *) LMF$V_KERNEL_GRANT : [POS(3)] $BOOL; (* grant in kernel mode *) LMF$V_LOOKUP_LICENSE_SPARE : [POS(4)] $BIT28; (* spare area *) END; (*** MODULE $LNMDEF ***) CONST LNM$M_NO_ALIAS = 1; LNM$M_CONFINE = 2; LNM$M_CRELOG = 4; LNM$M_TABLE = 8; LNM$M_CONCEALED = 256; LNM$M_TERMINAL = 512; LNM$M_EXISTS = 1024; LNM$M_SHAREABLE = 65536; LNM$M_CLUSTERWIDE = 131072; LNM$M_DCL_REQUEST = 262144; LNM$M_CREATE_IF = 16777216; LNM$M_CASE_BLIND = 33554432; LNM$M_INTERLOCKED = 67108864; LNM$M_LOCAL_ACTION = 134217728; TYPE LNM$TYPE = RECORD (* Logical name attributes -- bits 0-7 *) LNM$V_NO_ALIAS : [POS(0)] $BOOL; (* Do not allow outer mode alias *) LNM$V_CONFINE : [POS(1)] $BOOL; (* Do not copy into subprocess *) LNM$V_CRELOG : [POS(2)] $BOOL; (* Created with old $CRELOG service *) LNM$V_TABLE : [POS(3)] $BOOL; (* This is a table name *) LNM$V_FILL_0 : [POS(4)] $BIT4; (* Fill out logical name byte *) (* Logical name translation attributes -- bits 8-15 *) LNM$V_CONCEALED : [POS(8)] $BOOL; (* Do not display result of translation *) LNM$V_TERMINAL : [POS(9)] $BOOL; (* Do not retranslate result of translation *) LNM$V_EXISTS : [POS(10)] $BOOL; (* Translation does exist at this index *) LNM$V_FILL_1 : [POS(11)] $BIT5; (* Fill out translation byte *) (* Logical name table characteristics -- bits 16-23 *) LNM$V_SHAREABLE : [POS(16)] $BOOL; (* Logical name table is shareable (S0 space) *) LNM$V_CLUSTERWIDE : [POS(17)] $BOOL; (* This is a clusterwide table (or name) *) (* Only supported as returned $TRNLNM attribute *) LNM$V_DCL_REQUEST : [POS(18)] $BOOL; (* $CRELNM or $CRELNT request made by DCL *) LNM$V_FILL_2 : [POS(19)] $BOOL; (* Reserved bit numbers 18-19 *) LNM$V_FILL_3 : [POS(20)] $BIT4; (* Fill out table byte *) (* System service options -- bits 24-31 *) LNM$V_CREATE_IF : [POS(24)] $BOOL; (* May map to existing logical name table *) LNM$V_CASE_BLIND : [POS(25)] $BOOL; (* Perform case-insensitive translation *) LNM$V_INTERLOCKED : [POS(26)] $BOOL; (* Translate clusterwide name with LNM$CWLOGICALS locked *) LNM$V_LOCAL_ACTION : [POS(27)] $BOOL; (* A local operation on a clusterwide name *) (* done in response to a request from another node *) (* Only supported from kernel mode *) LNM$V_FILL_4 : [POS(28)] $BIT4; (* Fill out options byte *) END; CONST LNM$C_TABNAMLEN = 31; (* Maximum length of a name contained within a directory table *) LNM$C_NAMLENGTH = 255; (* Maximum logical name / translation length *) LNM$C_MAXDEPTH = 10; (* Maximum logical name recursion depth *) LNM$_INDEX = 1; (* Translation index *) LNM$_STRING = 2; (* Translation string *) LNM$_ATTRIBUTES = 3; (* Attribute bits *) LNM$_TABLE = 4; (* Logical name table name *) LNM$_LENGTH = 5; (* Length of translation string *) LNM$_ACMODE = 6; (* Access mode of name *) LNM$_MAX_INDEX = 7; (* Maximum translation index *) LNM$_PARENT = 8; (* Parent logical name table name *) LNM$_LNMB_ADDR = 9; (* Return LNM block address *) (* internal use by MTL *) (* and mailbox UCB *) CONST LNM$_AGENT_ACMODE = 10; (* Probes to be done at a different access mode *) (* Define item list codes *) CONST LNM$_CHAIN = -1; (* Chain to next list *) (*** MODULE $LPDEF ***) (*+ *) (* LINE PRINTER CHARACTERISTICS DEFINITIONS *) (*- *) CONST LP$M_CR = 1; LP$M_MECHFORM = 2; LP$M_PRINTALL = 4; LP$M_DAVFU = 8; LP$M_WRAP = 16; LP$M_TRUNCATE = 32; LP$M_TAB = 64; LP$M_LOWER = 128; LP$M_PASSALL = 256; LP$M_FALLBACK = 512; LP$M_SIXELS = 1024; LP$M_BITMAPPED = 2048; LP$M_POLLED = 4096; LP$M_BIDIRECTIONAL = 8192; LP$M_PAGE_L = -16777216; LP$_LP11 = 1; LP$_LA11 = 2; LP$_LA180 = 3; LP$_PC_PRINTER = 8; TYPE LP$TYPE = RECORD CASE INTEGER OF 1: (LP$R_LPDEF_BITS : [BYTE(4)] RECORD END; ); 2: (LP$V_CR : [POS(0)] $BOOL; (* CARRIAGE RETURN NEEDED *) LP$V_MECHFORM : [POS(1)] $BOOL; (* MECHANICAL FORM FEED *) LP$V_PRINTALL : [POS(2)] $BOOL; (* NON PRINTABLE CHAR. ACCEPT(DMF-32) *) LP$V_DAVFU : [POS(3)] $BOOL; (* DAVFU AVAIL. *) LP$V_WRAP : [POS(4)] $BOOL; (* CHAR. WRAP MODE *) LP$V_TRUNCATE : [POS(5)] $BOOL; (* TRUNCATE output at carriage width *) LP$V_TAB : [POS(6)] $BOOL; (* TAB needed *) LP$V_LOWER : [POS(7)] $BOOL; (* PRINTER HAS LOWER CASE *) LP$V_PASSALL : [POS(8)] $BOOL; (* PASSALL MODE *) LP$V_FALLBACK : [POS(9)] $BOOL; (* FALLBACK MODE *) LP$V_SIXELS : [POS(10)] $BOOL; (* HANDLES SIXELS *) LP$V_BITMAPPED : [POS(11)] $BOOL; (* HANDLES BIT MAPS *) LP$V_POLLED : [POS(12)] $BOOL; (* Printer will poll device *) LP$V_BIDIRECTIONAL : [POS(13)] $BOOL; (* Bidirectional USB printer *) LP$V_PAGE_L : [POS(24)] $BIT8; (* PAGE LENGTH *) ) END; (* END. *) (* MODULE STARDEFMP ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $MACIDDEF ***) (*+ *) (* *) (* Module $UICDEF defines the rightslist identifier space from %XA0000000 *) (* thru %XA3FFFFFF as being reserved for use by SEVMS. *) (* *) (* This space has been segmented as: *) (* *) (* %XA0000000 thru %XA000FFFF for MAC secrecy level identifiers *) (* %XA0010000 thru %XA001FFFF for MAC secrecy category identifiers *) (* %XA0020000 thru %XA002FFFF for MAC integrity level identifiers *) (* %XA0030000 thru %XA003FFFF for MAC integrity category identifiers *) (* *) (* to provide 64K identifiers within each grouping. This allows for growth *) (* consistent with variable format (i.e. type DYN_CAT) class blocks. *) (* *) (*- *) CONST MACID$M_ID_NUM = 65535; MACID$M_LVL_CAT_SEL = 65536; MACID$K_LVL = 0; (* Level ID sub-group *) MACID$K_CAT = 1; (* Category ID sub-group *) MACID$M_SEC_INT_SEL = 131072; MACID$K_SEC = 0; (* Secrecy ID group *) MACID$K_INT = 1; (* Integrity ID group *) MACID$M_MBZ = 66846720; MACID$M_FMT_SEL = -67108864; MACID$K_SEVMS_ID = 40; (* Format specifier for SEVMS *) (* identifiers as defined by $UICDEF *) (*** MODULE $MAILDEF ***) (* *) (* 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. *) (* We allow 1024 entries in eatch category. *) (* *) (* *) (* Send input codes *) (* *) CONST mail$_send_spare_0 = 1; mail$_send_foreign = 2; (* Send foreign format message *) mail$_send_cc_line = 3; (* CC text specification *) mail$_send_default_name = 4; (* Default file name for send *) mail$_send_default_transport = 5; (* Default transport used for addressees *) mail$_send_error_entry = 6; (* Entry point for send error routine *) mail$_send_filename = 7; (* Specification of file name to send *) mail$_send_from_line = 8; (* From text specification *) mail$_send_no_default_transport = 9; (* Don't use any default transport on send *) mail$_send_pers_name = 10; (* Personal name text for message *) mail$_send_record = 11; (* Record to be sent *) mail$_send_resultspec = 12; (* Resultant filespec bodypart *) mail$_send_server = 13; (* Operate in server mode (signal success) *) mail$_send_subject = 14; (* Subject text specification *) mail$_send_success_entry = 15; (* Entry point for send success routine *) mail$_send_to_line = 16; (* To line text specification *) mail$_send_uflags = 17; (* User flags (for header) to send *) mail$_send_user_data = 18; (* User specified context for action routines *) mail$_send_username = 19; (* Username to add to the "To" list *) mail$_send_username_type = 20; (* Username type - TO or CC *) mail$_send_fid = 21; (* FID of file to send *) mail$_send_no_pers_name = 22; (* Send message without personal name *) mail$_send_sigfile = 23; (* Signature file *) mail$_send_no_sigfile = 24; (* Signature file *) mail$_send_parse_quotes = 25; (* Reply String Parsing Quotes *) (* *) (* Send output codes *) (* *) CONST mail$_send_copy_reply = 26; (* Copy self reply set in profile *) mail$_send_copy_send = 27; (* Copy self send set in profile *) mail$_send_user = 28; (* Username of caller *) mail$_send_copy_forward = 29; (* Copy self forward set in profile *) mail$_send_recip_folder = 30; (* Recipient folder name to send the mail to *) mail$_send_out_spare3 = 31; mail$_send_out_spare4 = 32; mail$_send_out_spare5 = 33; mail$k_send_min_item = 1; mail$k_send_max_item = 33; mail$k_send_items = 33; (* *) (* file input codes *) (* *) CONST mail$_mailfile_spare_0 = 1025; mail$_mailfile_default_name = 1026; (* Default filespec to open *) mail$_mailfile_folder_routine = 1027; (* Entry point of routine to process foldernames *) mail$_mailfile_full_close = 1028; (* Do a PURGE, CONVERT/RECLAIM if necessary on close *) mail$_mailfile_name = 1029; (* File spec to open *) mail$_mailfile_reclaim = 1030; (* Do RECLAIM on PURGE command *) mail$_mailfile_user_data = 1031; (* User specified context for action routines *) mail$_mailfile_wastebasket_name = 1032; (* New wastebasket name for file *) mail$_mailfile_collate_seq = 1033; (* I18N collating sequence *) mail$_mailfile_in_spare2 = 1034; mail$_mailfile_in_spare3 = 1035; mail$_mailfile_in_spare4 = 1036; mail$_mailfile_in_spare5 = 1037; mail$_mailfile_in_spare6 = 1038; mail$_mailfile_in_spare7 = 1039; mail$_mailfile_in_spare8 = 1040; mail$_mailfile_in_spare9 = 1041; mail$_mailfile_in_spare10 = 1042; mail$_mailfile_in_spare11 = 1043; mail$_mailfile_in_spare12 = 1044; mail$_mailfile_in_spare13 = 1045; mail$_mailfile_in_spare14 = 1046; mail$_mailfile_in_spare15 = 1047; mail$_mailfile_in_spare16 = 1048; mail$_mailfile_in_spare17 = 1049; mail$_mailfile_in_spare18 = 1050; mail$_mailfile_in_spare19 = 1051; mail$_mailfile_in_spare20 = 1052; (* *) (* file output codes *) (* *) CONST mail$_mailfile_data_reclaim = 1053; (* Number of data buckets reclaimed *) mail$_mailfile_data_scan = 1054; (* Number of data buckets scanned *) mail$_mailfile_deleted_bytes = 1055; (* Number of free bytes in mail file *) mail$_mailfile_index_reclaim = 1056; (* Number of index buckets reclaimed *) mail$_mailfile_mail_directory = 1057; (* Mail sub-directory specification *) mail$_mailfile_messages_deleted = 1058; (* Number of messages deleted *) mail$_mailfile_resultspec = 1059; (* Resultant file spec *) mail$_mailfile_total_reclaim = 1060; (* Total buckets reclaimed *) mail$_mailfile_wastebasket = 1061; (* Wastebasket name *) mail$_mailfile_indexed = 1062; (* ISAM file *) mail$_mailfile_out_spare2 = 1063; mail$_mailfile_out_spare3 = 1064; mail$_mailfile_out_spare4 = 1065; mail$_mailfile_out_spare5 = 1066; mail$_mailfile_out_spare6 = 1067; mail$_mailfile_out_spare7 = 1068; mail$_mailfile_out_spare8 = 1069; mail$_mailfile_out_spare9 = 1070; mail$_mailfile_out_spare10 = 1071; mail$_mailfile_out_spare11 = 1072; mail$_mailfile_out_spare12 = 1073; mail$_mailfile_out_spare13 = 1074; mail$_mailfile_out_spare14 = 1075; mail$_mailfile_out_spare15 = 1076; mail$_mailfile_out_spare16 = 1077; mail$_mailfile_out_spare17 = 1078; mail$_mailfile_out_spare18 = 1079; mail$_mailfile_out_spare19 = 1080; mail$_mailfile_out_spare20 = 1081; mail$k_mailfile_min_item = 1025; mail$k_mailfile_max_item = 1081; mail$k_mailfile_items = 57; (* *) (* message input codes *) (* *) CONST mail$_message_spare_0 = 2048; mail$_message_back = 2049; (* Get previous message *) mail$_message_before = 2050; (* Select messages BEFORE date *) mail$_message_cc_substring = 2051; (* Select messages containing CC substring *) mail$_message_continue = 2052; (* Read next record *) mail$_message_file_action = 2053; (* File create action routine *) mail$_message_folder_action = 2054; (* Folder create action routine *) mail$_message_default_name = 2055; (* Default file name *) mail$_message_delete = 2056; (* Delete message *) mail$_message_erase = 2057; (* Erase message *) mail$_message_file_ctx = 2058; (* File level context *) mail$_message_filename = 2059; (* File name specification *) mail$_message_flags = 2060; (* Header flags specification *) mail$_message_folder = 2061; (* Folder name specification *) mail$_message_from_substring = 2062; (* Select messages containing FROM substring *) mail$_message_id = 2063; (* ID of message *) mail$_message_next = 2064; (* Retrive NEXT message *) mail$_message_since = 2065; (* Select messages SINCE date *) mail$_message_subj_substring = 2066; (* Select messages containing SUBJ substring *) mail$_message_to_substring = 2067; (* Select messages containing TO substring *) mail$_message_uflags = 2068; (* User flags specification *) mail$_message_auto_newmail = 2069; (* Move newmail to MAIL auto *) mail$_message_user_data = 2070; (* User context for action routines *) mail$_message_flags_mbz = 2071; (* Select messages with these flags set at zero *) mail$_message_min_class = 2072; (* Min access class for message *) mail$_message_max_class = 2073; (* Max access class for message *) mail$_message_in_spare1 = 2074; mail$_message_in_spare2 = 2075; mail$_message_in_spare3 = 2076; mail$_message_in_spare4 = 2077; mail$_message_in_spare5 = 2078; mail$_message_in_spare6 = 2079; mail$_message_in_spare7 = 2080; mail$_message_in_spare8 = 2081; mail$_message_in_spare9 = 2082; mail$_message_in_spare10 = 2083; mail$_message_in_spare11 = 2084; mail$_message_in_spare12 = 2085; mail$_message_in_spare13 = 2086; mail$_message_in_spare14 = 2087; mail$_message_in_spare15 = 2088; mail$_message_in_spare16 = 2089; mail$_message_in_spare17 = 2090; mail$_message_in_spare18 = 2091; mail$_message_in_spare19 = 2092; mail$_message_in_spare20 = 2093; (* *) (* message output codes *) (* *) CONST mail$_message_cc = 2094; (* CC text of message *) mail$_message_current_id = 2095; (* ID of current message *) mail$_message_date = 2096; (* Date of current message *) mail$_message_extid = 2097; (* Filespec of external message *) mail$_message_file_created = 2098; (* Mailfile created... *) mail$_message_folder_created = 2099; (* Folder created... *) mail$_message_from = 2100; (* From text of message *) mail$_message_record = 2101; (* Record from message *) mail$_message_record_type = 2102; (* Type of record, header or text *) mail$_message_reply_path = 2103; (* Reply path of sender *) mail$_message_resultspec = 2104; (* Resultant file spec *) mail$_message_return_flags = 2105; (* Message header system flags *) mail$_message_return_uflags = 2106; (* Message header user flags *) mail$_message_selected = 2107; (* Number of messages selected *) mail$_message_sender = 2108; (* Sender name *) mail$_message_size = 2109; (* Size of the current message *) mail$_message_subject = 2110; (* Subject text of the message *) mail$_message_to = 2111; (* To text of the message *) mail$_message_buffer = 2112; (* Buffer address *) mail$_message_return_class = 2113; (* Class of current message *) mail$_message_binary_date = 2114; (* Binary date/time quadword *) mail$_message_spare4 = 2115; mail$_message_parse_quotes = 2116; (* Reply String Parsing Quotes *) mail$_message_spare6 = 2117; mail$_message_spare7 = 2118; mail$_message_spare8 = 2119; mail$_message_spare9 = 2120; mail$_message_spare10 = 2121; mail$_message_spare11 = 2122; mail$_message_spare12 = 2123; mail$_message_spare13 = 2124; mail$_message_spare14 = 2125; mail$_message_spare15 = 2126; mail$_message_spare16 = 2127; mail$_message_spare17 = 2128; mail$_message_spare18 = 2129; mail$_message_spare19 = 2130; (* *) (* Constants returned *) (* *) CONST mail$_message_null = 2131; (* Null bodypart *) mail$_message_header = 2132; (* Header record returned *) mail$_message_text = 2133; (* Text record returned *) mail$_message_spare20 = 2134; mail$k_message_min_item = 2048; mail$k_message_max_item = 2134; mail$k_message_items = 87; (* *) (* user input codes *) (* *) CONST mail$_user_spare_0 = 3072; mail$_user_first = 3073; (* Retrive first user record *) mail$_user_next = 3074; (* Retrive next user record *) mail$_user_username = 3075; (* Retrive record for username *) mail$_user_set_auto_purge = 3076; (* Set auto-purge *) mail$_user_set_no_auto_purge = 3077; (* Clear auto-purge *) mail$_user_set_sub_directory = 3078; (* Set sub-dir field *) mail$_user_set_no_sub_directory = 3079; (* Clear sub-dir field *) mail$_user_set_forwarding = 3080; (* Set forwarding address *) mail$_user_set_no_forwarding = 3081; (* Clear forwarding address *) mail$_user_set_personal_name = 3082; (* Set personal name *) mail$_user_set_no_personal_name = 3083; (* Clear personal name *) mail$_user_set_copy_send = 3084; (* Set copy-send *) mail$_user_set_no_copy_send = 3085; (* Clear copy send *) mail$_user_set_copy_reply = 3086; (* Set copy reply *) mail$_user_set_no_copy_reply = 3087; (* Clear copy reply *) mail$_user_set_new_messages = 3088; (* Set new message count *) mail$_user_create_if = 3089; (* Create record if does not exist *) mail$_user_set_mailplus = 3090; (* Set M+ *) mail$_user_set_no_mailplus = 3091; (* Clear M+ *) mail$_user_set_transport = 3092; (* Set transport field *) mail$_user_set_no_transport = 3093; (* Clear transport field *) mail$_user_set_editor = 3094; (* Set editor field *) mail$_user_set_no_editor = 3095; (* Clear editor field *) mail$_user_set_queue = 3096; (* Set queue field *) mail$_user_set_no_queue = 3097; (* Clear queue field *) mail$_user_set_user1 = 3098; (* Set user1 field *) mail$_user_set_no_user1 = 3099; (* Clear user1 field *) mail$_user_set_user2 = 3100; (* Set user2 field *) mail$_user_set_no_user2 = 3101; (* Clear user2 field *) mail$_user_set_user3 = 3102; (* Set user3 field *) mail$_user_set_no_user3 = 3103; (* Clear user3 field *) mail$_user_set_form = 3104; (* Set form field *) mail$_user_set_no_form = 3105; (* Clear form field *) mail$_user_set_copy_forward = 3106; (* Set copy self forward *) mail$_user_set_no_copy_forward = 3107; (* Clear copy self forward *) mail$_user_set_cc_prompt = 3108; (* Set CC prompting *) mail$_user_set_no_cc_prompt = 3109; (* Clear CC prompting *) mail$_user_set_sigfile = 3110; (* Set signature file *) mail$_user_set_no_sigfile = 3111; (* Clear signature file *) mail$_user_in_spare1 = 3112; mail$_user_in_spare2 = 3113; mail$_user_in_spare3 = 3114; mail$_user_in_spare4 = 3115; mail$_user_in_spare5 = 3116; mail$_user_in_spare6 = 3117; mail$_user_in_spare7 = 3118; mail$_user_in_spare8 = 3119; mail$_user_in_spare9 = 3120; mail$_user_in_spare10 = 3121; mail$_user_in_spare11 = 3122; mail$_user_in_spare12 = 3123; mail$_user_in_spare13 = 3124; mail$_user_in_spare14 = 3125; mail$_user_in_spare15 = 3126; mail$_user_in_spare16 = 3127; mail$_user_in_spare17 = 3128; mail$_user_in_spare18 = 3129; mail$_user_in_spare19 = 3130; mail$_user_in_spare20 = 3131; (* *) (* Output item parameters *) (* *) CONST mail$_user_mailplus = 3132; (* M+ field *) mail$_user_transport = 3133; (* Transport field *) mail$_user_editor = 3134; (* Editor field *) mail$_user_queue = 3135; (* Queue field *) mail$_user_user1 = 3136; (* User1 field *) mail$_user_user2 = 3137; (* User2 field *) mail$_user_user3 = 3138; (* User3 field *) mail$_user_form = 3139; (* Form field *) mail$_user_copy_forward = 3140; (* Copy forward flag *) mail$_user_sigfile = 3141; (* Signature file *) mail$_user_return_username = 3142; (* Username of current record *) mail$_user_auto_purge = 3143; (* Auto purge flag *) mail$_user_sub_directory = 3144; (* Sub-dir spec *) mail$_user_full_directory = 3145; (* Full directory spec *) mail$_user_new_messages = 3146; (* New message count *) mail$_user_forwarding = 3147; (* Forwarding field *) mail$_user_personal_name = 3148; (* Personal name field *) mail$_user_copy_send = 3149; (* Copy send flag *) mail$_user_copy_reply = 3150; (* Copy reply flag *) mail$_user_captive = 3151; (* User is captive *) mail$_user_cc_prompt = 3152; (* CC prompting flag *) mail$_user_out_spare2 = 3153; mail$_user_out_spare3 = 3154; mail$_user_out_spare4 = 3155; mail$_user_out_spare5 = 3156; mail$_user_out_spare6 = 3157; mail$_user_out_spare7 = 3158; mail$_user_out_spare8 = 3159; mail$_user_out_spare9 = 3160; mail$_user_out_spare10 = 3161; mail$_user_out_spare11 = 3162; mail$_user_out_spare12 = 3163; mail$_user_out_spare13 = 3164; mail$_user_out_spare14 = 3165; mail$_user_out_spare15 = 3166; mail$_user_out_spare16 = 3167; mail$_user_out_spare17 = 3168; mail$_user_out_spare18 = 3169; mail$_user_out_spare19 = 3170; mail$_user_out_spare20 = 3171; mail$k_user_min_item = 3072; mail$k_user_max_item = 3171; mail$k_user_items = 100; (* *) (* Special items *) (* *) CONST mail$_noop = 4097; (* Do nothing - used for testing *) mail$_nosignal = 4098; (* Don't signal errors *) mail$_noprobe = 4099; (* Don't probe the item list buffers *) mail$_tld_input = 4100; (* This item is a tld to be used as input *) mail$_tld_output = 4101; (* This item describes a buffer to fill *) (* *) (* Username types for mail$send_add_address *) (* *) CONST mail$_to = 1; (* Address part of the TO line *) mail$_cc = 2; (* Address part of the CC line *) mail$_spare1 = 3; mail$_spare2 = 4; (* *) (* Define the flag values for mail system flags *) (* *) CONST MAIL$m_newmsg = 1; MAIL$m_replied = 2; MAIL$m_dwmail = 4; MAIL$m_extmsg = 8; MAIL$m_extfnf = 16; MAIL$m_notrans = 32; MAIL$m_extnstd = 64; MAIL$m_marked = 128; MAIL$m_recmode = 256; TYPE flagsdef$TYPE = RECORD CASE INTEGER OF 1: (MAIL$r_fill_2_ : [BYTE(2)] RECORD END; ); 2: (MAIL$w_flags : [POS(0)] $UWORD; (*Flags word *) ); 3: (); 4: (MAIL$v_newmsg : [POS(0)] $BOOL; (*This is a new message *) MAIL$v_replied : [POS(1)] $BOOL; (*This message has been replied to *) MAIL$v_dwmail : [POS(2)] $BOOL; (*DW mail flag *) MAIL$v_extmsg : [POS(3)] $BOOL; (*Message text in external file *) MAIL$v_extfnf : [POS(4)] $BOOL; (*External message file not found *) MAIL$v_notrans : [POS(5)] $BOOL; (*No translator for this message *) MAIL$v_extnstd : [POS(6)] $BOOL; (*External file is not var-seq file *) MAIL$v_marked : [POS(7)] $BOOL; (*This message has been marked *) MAIL$v_recmode : [POS(8)] $BOOL; (*This message should be read in record mode *) ) END; (*** MODULE $MAPPINGDEF IDENT X-2 ***) CONST MAPPING$K_ADD = 1; MAPPING$K_CREATE = 2; MAPPING$K_DEFINE = 3; MAPPING$K_DELETE = 4; MAPPING$K_MODIFY = 5; MAPPING$K_SCAN = 6; MAPPING$K_LOOKUP = 7; MAPPING$K_PERFORMANCE = 8; MAPPING$K_ZERO_PERFORMANCE = 9; MAPPING$K_STOP = 10; MAPPING$K_START = 11; MAPPING$K_MAX_MAPPING_CODE = 12; MAPPING$K_END = 100; MAPPING$K_TYPE = 101; MAPPING$K_REMOTE_AREA = 102; MAPPING$K_REMOTE_NAME = 103; MAPPING$K_LOCAL_NAME = 104; MAPPING$K_FLAGS = 105; MAPPING$K_USER_DATA = 106; MAPPING$K_USER_DATA_LENGTH = 107; MAPPING$K_WILDCARD_MC = 108; MAPPING$K_WILDCARD_SC = 109; MAPPING$K_WILDCARD_TC = 110; MAPPING$K_WILDCARD_TS = 111; MAPPING$K_DEFINE_NAME = 112; MAPPING$K_DEFINE_FLAGS = 113; MAPPING$K_SCAN_BUFFER = 114; MAPPING$K_PROPOSED_NAME = 115; MAPPING$K_WC_RESOLUTION = 116; MAPPING$K_MAX_MAPPING_ITEMS = 117; MAPPING$K_WC_MUST_BE_UNIQUE = 200; MAPPING$K_WC_MATCH_LONGEST = 201; MAPPING$K_WC_MATCH_SHORTEST = 202; MAPPING$K_WC_MATCH_MOST_TERMS = 203; MAPPING$K_WC_MATCH_FEWEST_TERMS = 204; MAPPING$K_WC_MATCH_LEFTMOST = 205; MAPPING$K_WC_MATCH_RIGHTMOST = 206; MAPPING$K_MAX_MAPPING_WC = 207; MAPPING$K_ANY_TYPE = -2147483648; MAPPING$K_TCP_USER = -2147483391; MAPPING$K_TCP_GROUP = -2147483390; MAPPING$K_TCP_PROXY = -2147483389; MAPPING$K_DCE_MAPPING = -2147483135; MAPPING$K_DCE_PROXY = -2147483134; MAPPING$K_PATHWORKS_PROXY = -2147482879; MAPPING$K_DECNET_PROXY = -2147482623; MAPPING$K_KERBEROS_MAPPING = -2147482367; MAPPING$K_PERFORMANCE_LENGTH = 56; TYPE MAPPING$PERFORMANCE = RECORD MAPPING$L_TOTAL_MESSAGES : UNSIGNED; MAPPING$L_TOTAL_EXCEPTIONS : UNSIGNED; MAPPING$L_ADDS : UNSIGNED; MAPPING$L_CREATES : UNSIGNED; MAPPING$L_DEFINESS : UNSIGNED; MAPPING$L_DELETES : UNSIGNED; MAPPING$L_MODIFYS : UNSIGNED; MAPPING$L_SCANS : UNSIGNED; MAPPING$L_LOOKUPS : UNSIGNED; MAPPING$L_PERFORMANCE : UNSIGNED; MAPPING$L_STOPS : UNSIGNED; MAPPING$L_STARTS : UNSIGNED; MAPPING$L_AUDITS : UNSIGNED; MAPPING$L_INVALID_MESSAGES : UNSIGNED; END; CONST MAPPING$M_LOCAL_UNIQUE = 1; MAPPING$M_REMOTE_UNIQUE = 2; MAPPING$M_DEFAULT_IN = 4; MAPPING$M_DEFAULT_OUT = 8; MAPPING$M_NO_DEFAULT_IN = 16; MAPPING$M_NO_DEFAULT_OUT = 32; MAPPING$M_MODIFY = 64; MAPPING$M_DEFINITION = 128; MAPPING$M_CASE_BLIND = 256; MAPPING$M_WILDCARD = 512; MAPPING$M_FIND_LOCAL = 1024; MAPPING$M_FIND_REMOTE = 2048; MAPPING$M_FILL_1 = -4096; MAPPING$K_HEADER_LENGTH = 40; TYPE MAPPING$HEADER = RECORD CASE INTEGER OF 1: (MAPPING$L_LENGTH : UNSIGNED; MAPPING$L_CONTEXT : UNSIGNED; MAPPING$R_FILL_7_ : [BYTE(4)] RECORD END; MAPPING$L_TYPE : UNSIGNED; MAPPING$L_WILDFLAGS : UNSIGNED; MAPPING$L_WILDMULTI : UNSIGNED; MAPPING$L_WILDSINGLE : UNSIGNED; MAPPING$L_WILDTERM : UNSIGNED; MAPPING$L_TERMSEP : UNSIGNED; MAPPING$L_UNUSED : UNSIGNED; ); 2: (MAPPING$L_FLAGS : [POS(64)] UNSIGNED; ); 3: (); 4: (MAPPING$V_LOCAL_UNIQUE : [POS(64)] $BOOL; MAPPING$V_REMOTE_UNIQUE : [POS(65)] $BOOL; MAPPING$V_DEFAULT_IN : [POS(66)] $BOOL; MAPPING$V_DEFAULT_OUT : [POS(67)] $BOOL; MAPPING$V_NO_DEFAULT_IN : [POS(68)] $BOOL; MAPPING$V_NO_DEFAULT_OUT : [POS(69)] $BOOL; MAPPING$V_MODIFY : [POS(70)] $BOOL; MAPPING$V_DEFINITION : [POS(71)] $BOOL; MAPPING$V_CASE_BLIND : [POS(72)] $BOOL; MAPPING$V_WILDCARD : [POS(73)] $BOOL; MAPPING$V_FIND_LOCAL : [POS(74)] $BOOL; MAPPING$V_FIND_REMOTE : [POS(75)] $BOOL; MAPPING$V_FILL_1 : [POS(76)] $BIT20; ) END; MAPPING$GENERIC_DESC1 = RECORD MAPPING$W_DESC_LENGTH : $UWORD; MAPPING$W_FILL1 : $UWORD; MAPPING$T_DESC_DATA : CHAR; END; (*** MODULE MMEDEF IDENT X-3 ***) CONST MME$_UNLOAD = 1; MME$_ALLOC = 2; MME$_BACKUP_FILE = 3; MME$_CLOSE_READ = 4; MME$_CLOSE_WRITE = 5; MME$_CONTINUATION_VOLUME = 6; MME$_DEALLOCATE = 7; MME$_DEVICE_AVAIL = 8; MME$_DEVICE_UNAVAIL = 9; MME$_DISMOUNT = 10; MME$_DISPLAY_MESSAGE = 11; MME$_EOV_READ = 12; MME$_EOV_WRITE = 13; MME$_INITIALIZE = 14; MME$_MOUNT = 15; MME$_MOUNT_REQUEST = 16; MME$_NEWVOL_REQUEST = 17; MME$_NOTIFY_DEVICE = 18; MME$_OPCOM_ACP = 19; MME$_OPCOM_MOUNT = 20; MME$_OPEN_READ = 21; MME$_OPEN_WRITE = 22; MME$_VOLUME_ONLINE = 23; MME$_BACKUP_END = 24; MME$_BACKUP_START = 25; MME$_WRITE_REQUEST = 26; MME$_MOUNT_END = 27; MME$_INIT_END = 28; MME$_NEWVOL_END = 29; MME$_DISMNT_PROC_DEL = 30; MME$S_ACMODE = 4; MME$S_BLOCKSIZE = 4; MME$S_DENSITY = 4; MME$S_DEVICE_CONTEXT = 4; MME$S_DMT_FLAGS = 4; MME$S_ERASE = 4; MME$S_EXPIRATION = 8; MME$S_FILESEQNO = 4; MME$S_FILESECNO = 4; MME$S_IO_FUNCTION = 4; MME$S_LABEL_ACCESS = 1; MME$S_MOUNT_CONTEXT = 4; MME$S_MNT_FLAGS = 8; MME$S_OBJCNT = 4; MME$S_OVR_ACCESS = 4; MME$S_OVR_EXP = 4; MME$S_OVR_VOLO = 4; MME$S_OWNER_UIC = 4; MME$S_PID = 4; MME$S_RECORDSIZ = 4; MME$S_RESPONSEREQ = 4; MME$S_SETNEW1 = 4; MME$S_SETNEW2 = 4; MME$S_VPROT = 4; MME$S_FILE_ID = 6; MME$S_GROUPSIZE = 4; MME$S_PROTECTION = 4; MME$S_STATUS = 4; MME$S_ASSIGNMENT_UNIT = 4; MME$S_CARTRIDGE_SIDE = 4; MME$S_DISPOSITION = 4; MME$S_RECFORMAT = 1; (* MME action routine argument item codes *) CONST MME$_ACMODE = 1; MME$_BLOCKSIZE = 2; MME$_COMMENT = 3; MME$_DENSITY = 4; MME$_DEVICE_CONTEXT = 5; MME$_DMT_FLAGS = 6; MME$_EOF1 = 7; MME$_EOF2 = 8; MME$_EOF3 = 9; MME$_EOF4 = 10; MME$_EOV1 = 11; MME$_EOV2 = 12; MME$_EOV3 = 13; MME$_EOV4 = 14; MME$_ERASE = 15; MME$_FIB = 16; MME$_FILESEQNO = 17; MME$_HDR1 = 18; MME$_HDR2 = 19; MME$_HDR3 = 20; MME$_HDR4 = 21; MME$_IO_FUNCTION = 22; MME$_LABEL_ACCESS = 23; MME$_LABEL_VOLO = 24; MME$_MOUNT_CONTEXT = 25; MME$_MNT_FLAGS = 26; MME$_MSG1 = 27; MME$_MSG2 = 28; MME$_NEWDEVNAM = 29; MME$_NEWMSG1 = 30; MME$_NEWMSG2 = 31; MME$_NEWVOLNAM = 32; MME$_NXTVOL = 33; MME$_OBJCNT = 34; MME$_OVR_ACCESS = 35; MME$_OVR_EXP = 36; MME$_OVR_VOLO = 37; MME$_OWNER_UIC = 38; MME$_PHYDEVNAM = 39; MME$_PID = 40; MME$_PREV_VOL = 41; MME$_PROCESSOR = 42; MME$_RECORDSIZ = 43; MME$_REQDEVNAM = 44; MME$_RESPONSEREQ = 45; MME$_SETNEW1 = 46; MME$_SETNEW2 = 47; MME$_VOL1 = 48; MME$_VOL2 = 49; MME$_VOLNAM = 50; MME$_VPROT = 51; MME$_BACKUP_FILE_FLAGS = 52; MME$_BACKUP_FLAGS = 53; MME$_EXPIRATION = 54; MME$_FILENAME = 55; MME$_FILE_ID = 56; MME$_GROUPSIZE = 57; MME$_IN_SAVE = 58; MME$_IN_SPECIFICATION = 59; MME$_IN_VOLUME = 60; MME$_OUT_SAVE = 61; MME$_PROTECTION = 62; MME$_STATUS = 63; MME$_ASSIGNMENT_UNIT = 64; MME$_CART_MEDIA_NAME = 65; MME$_CARTRIDGE_NAME = 66; MME$_CARTRIDGE_SIDE = 67; MME$_COLLECTION = 68; MME$_DEVICE_TYPE = 69; MME$_DISPOSITION = 70; MME$_LOCATION = 71; MME$_MEDIA_NAME = 72; MME$_LABEL_TYPE = 73; MME$_EXPDATE = 74; MME$_CREDATE = 75; MME$_RECFORMAT = 76; MME$_FILESECNO = 77; MME$_REPLY = 78; MME$M_IMAGE = 1; MME$M_CRC = 2; MME$M_DELETE = 4; MME$M_IGN_INTERLOCK = 8; MME$M_IGN_LABEL = 16; MME$M_IGN_NOBACKUP = 32; MME$M_INTERCHANGE = 64; MME$M_RECORD = 128; MME$M_REWIND = 256; MME$M_VERIFY = 512; MME$M_PHYSICAL = 1024; MME$M_COMPACTION = 2048; TYPE BACKUP_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (MME$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flag mask for MME$_BACKUP_FLAGS *) ); 2: (MME$L_FLAGS_MASK : [POS(0)] UNSIGNED; ); 3: (); 4: (MME$V_IMAGE : [POS(0)] $BOOL; MME$V_CRC : [POS(1)] $BOOL; MME$V_DELETE : [POS(2)] $BOOL; MME$V_IGN_INTERLOCK : [POS(3)] $BOOL; MME$V_IGN_LABEL : [POS(4)] $BOOL; MME$V_IGN_NOBACKUP : [POS(5)] $BOOL; MME$V_INTERCHANGE : [POS(6)] $BOOL; MME$V_RECORD : [POS(7)] $BOOL; MME$V_REWIND : [POS(8)] $BOOL; MME$V_VERIFY : [POS(9)] $BOOL; MME$V_PHYSICAL : [POS(10)] $BOOL; MME$V_COMPACTION : [POS(11)] $BOOL; ) END; CONST MME$M_VERIF_ERR = 1; MME$M_NOBACKUP = 2; MME$M_FILE_OPEN = 4; MME$M_ACC_CONF = 8; TYPE BACKUP_FILE_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (MME$R_FILE_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flag mask for MME$_BACKUP_FLAGS *) ); 2: (MME$L_FILE_FLAGS_MASK : [POS(0)] UNSIGNED; ); 3: (); 4: (MME$V_VERIF_ERR : [POS(0)] $BOOL; MME$V_NOBACKUP : [POS(1)] $BOOL; MME$V_FILE_OPEN : [POS(2)] $BOOL; MME$V_ACC_CONF : [POS(3)] $BOOL; MME$v_fill1 : [POS(4)] $BIT28; ) END; CONST MME$C_ANSI_1 = 1; MME$C_ANSI_2 = 2; MME$C_ANSI_3 = 3; MME$C_ANSI_4 = 4; MME$C_IBM_STD = 5; MME$C_UNLABELLED = 6; MME$C_ODS1 = 7; MME$C_ODS2 = 8; (*** MODULE $MMIDEF IDENT X-1 ***) CONST MMI$_FACILITY = 1; MMI$_MBUNIT = 2; MMI$_PID = 3; MMI$_MBXUCB = 4; MMI$_UNLOAD = 5; MMI$_ALLOC = 6; MMI$_BACKUP_END = 7; MMI$_BACKUP_FILE = 8; MMI$_BACKUP_START = 9; MMI$_CLOSE_READ = 10; MMI$_CLOSE_WRITE = 11; MMI$_CONTINUATION_VOLUME = 12; MMI$_DEALLOCATE = 13; MMI$_DEVICE_AVAIL = 14; MMI$_DEVICE_UNAVAIL = 15; MMI$_DISMOUNT = 16; MMI$_DISPLAY_MESSAGE = 17; MMI$_EOV_READ = 18; MMI$_EOV_WRITE = 19; MMI$_INITIALIZE = 20; MMI$_MOUNT = 21; MMI$_MOUNT_REQUEST = 22; MMI$_NEWVOL_REQUEST = 23; MMI$_NOTIFY_DEVICE = 24; MMI$_OPCOM_ACP = 25; MMI$_OPCOM_MOUNT = 26; MMI$_OPEN_READ = 27; MMI$_OPEN_WRITE = 28; MMI$_VOLUME_ONLINE = 29; MMI$_WRITE_REQUEST = 30; MMI$_MOUNT_END = 31; MMI$_INIT_END = 32; MMI$_NEWVOL_END = 33; (*** MODULE $MNTDEF ***) (*+ *) (* *) (* FLAG BITS FOR THE $MOUNT SYSTEM SERVICE. *) (* *) (*- *) CONST MNT$M_FOREIGN = 1; MNT$M_GROUP = 2; MNT$M_NOASSIST = 4; MNT$M_NODISKQ = 8; MNT$M_NOHDR3 = 16; MNT$M_NOLABEL = 32; MNT$M_NOWRITE = 64; MNT$M_OVR_ACCESS = 128; MNT$M_OVR_EXP = 256; MNT$M_OVR_IDENT = 512; MNT$M_OVR_SETID = 1024; MNT$M_READCHECK = 2048; MNT$M_SHARE = 4096; MNT$M_MESSAGE = 8192; MNT$M_SYSTEM = 16384; MNT$M_WRITECHECK = 32768; MNT$M_WRITETHRU = 65536; MNT$M_NOCACHE = 131072; MNT$M_OVR_LOCK = 262144; MNT$M_NOMNTVER = 524288; MNT$M_NOUNLOAD = 1048576; MNT$M_TAPE_DATA_WRITE = 2097152; MNT$M_NOCOPY = 4194304; MNT$M_NOAUTO = 8388608; MNT$M_INIT_ALL = 16777216; MNT$M_INIT_CONT = 33554432; MNT$M_OVR_VOLO = 67108864; MNT$M_INTERCHG = 134217728; MNT$M_CLUSTER = 268435456; MNT$M_NOREBUILD = 536870912; MNT$M_OVR_SHAMEM = 1073741824; MNT$M_MULTI_VOL = -2147483648; MNT2$M_DISKQ = 1; MNT2$M_COMPACTION = 2; MNT2$M_INCLUDE = 4; MNT2$M_PASS2 = 8; MNT2$M_OVR_NOFE = 16; MNT2$M_SCRATCH = 32; MNT2$M_CDROM = 64; MNT2$M_XAR = 128; MNT2$M_DSI = 256; MNT2$M_SUBSYSTEM = 512; MNT2$M_NOCOMPACTION = 1024; MNT2$M_OVR_SECURITY = 2048; MNT2$M_OVR_LIMITED_SEARCH = 4096; MNT2$M_POOL = 8192; MNT2$M_WLG_ENABLE = 16384; MNT2$M_WLG_DISABLE = 32768; MNT2$M_REQUIRE_MEMBERS = 65536; MNT2$M_VERIFY_LABEL = 131072; MNT2$M_FULL_MERGE = 262144; MNT2$M_WRITE_FIRST = 524288; MNT2$M_DCD = 1048576; MNT2$M_NODCD = 2097152; MNT2$M_LOCAL_HOST = 4194304; MNT2$M_FACTOR = 8388608; MNT2$M_PRIORITY = 16777216; MNT$_DEVNAM = 1; (* DEVICE NAME *) MNT$_VOLNAM = 2; (* VOLUME NAME *) MNT$_LOGNAM = 3; (* LOGICAL NAME *) MNT$_FLAGS = 4; (* MOUNT FLAGS *) MNT$_ACCESSED = 5; (* ACCESSED VALUE *) MNT$_PROCESSOR = 6; (* PROCESSOR NAME *) MNT$_VOLSET = 7; (* VOLUME SET NAME *) MNT$_BLOCKSIZE = 8; (* BLOCKSIZE VALUE *) MNT$_DENSITY = 9; (* TAPE DENSITY VALUE *) MNT$_EXTENT = 10; (* NUMBER OF EXTENT CACHE ENTRIES *) MNT$_FILEID = 11; (* FILE ID CACHE SIZE *) MNT$_LIMIT = 12; (* EXTENT CACHE LIMIT *) MNT$_OWNER = 13; (* VOLUME OWNER UIC *) MNT$_VPROT = 14; (* VOLUME PROTECTION *) MNT$_QUOTA = 15; (* QUOTA CACHE SIZE *) MNT$_RECORDSIZ = 16; (* RECORD SIZE VALUE *) MNT$_WINDOW = 17; (* NUMBER OF WINDOWS *) MNT$_EXTENSION = 18; (* DEFAULT FILE EXTENSION *) MNT$_VISUAL_ID = 19; (* VISUAL IDENTIFICATION *) MNT$_COMMENT = 20; (* USER COMMENT *) MNT$_CLASS = 21; (* SECURITY CLASSFICATION *) MNT$_UNUSED2 = 22; (* SPARE (was used for now obsolete journaling-related items) *) MNT$_ACCPTNAM = 23; (* ACCESS POINT NAME (DECdfs) *) MNT$_SHACOPY_BUF = 24; (* SHADOW COPY BUFFER *) MNT$_SHANAM = 25; (* SHADOW SET VIRTUAL UNIT NAME *) MNT$_SHAMEM = 26; (* SHADOW SET MEMBER UNIT NAME *) MNT$_SHAMEM_MGCOPY = 27; (* SHADOW SET MEMBER UNIT NAME (MERGE COPY) *) MNT$_SHAMEM_COPY = 28; (* SHADOW SET MEMBER UNIT NAME (FULL COPY) *) MNT$_PRFD_PATH = 29; (* PREFERRED DSA PATH *) MNT$_ASSIGNMENT_UNIT = 30; (* Assignment unit (MME) *) MNT$_CART_MEDIA_NAME = 31; (* Cartridge Media Name (MME) *) MNT$_CARTRIDGE_NAME = 32; (* Cartridge Name (MME) *) MNT$_CARTRIDGE_SIDE = 33; (* Cartridge Side (MME) *) MNT$_COLLECTION = 34; (* Collection name (MME) *) MNT$_DEVICE_TYPE = 35; (* Device Selection criteria (MME) *) MNT$_DISPOSITION = 36; (* Dismount Disposition (MME) *) MNT$_LOCATION = 37; (* Cartridge Location (MME) *) MNT$_MEDIA_NAME = 38; (* Media Name (MME) *) MNT$_UNUSED4 = 39; (* SPARE *) MNT$_UNDEFINED_FAT = 40; (* Undefined File Attributes *) MNT$_UCS = 41; (* Universal Character Set string *) MNT$_TAPE_EXPIRATION = 42; (* Date Tape Expires (MME) *) MNT$_PRIORITY = 43; (* SHDRIVER merge priority *) MNT$_FACTOR = 44; (* SHDRIVER IO completion factor for merges *) MNT$_WBM_SIZE = 45; (* MINICOPY size *) MNT$_DATA = 46; (* Enable data (XFC) cache *) MNT$_NODATA = 47; (* Disable data (XFC) cache *) (* *) (* Add new item codes before this line *) (* *) CONST MNT$_LAST_ITEM_CODE = 48; (* last item code plus 1 *) MNT$C_BASE_CARTRIDGE = 1; (* Assign a whole cartridge *) MNT$C_COMPOUND_CARTRIDGE = 2; (* Assign a magazine *) MNT$C_PREASSIGNED_SIDE = 3; (* Assign a pre-assigned cartridge side *) MNT$C_SIDE = 4; (* Assign a single cartridge side *) MNT$C_KEEP = 1; (* Keep the media assigned *) MNT$C_RELEASE = 2; (* Release the media *) TYPE MNT$TYPE = RECORD CASE INTEGER OF 1: (MNT$R_MNTDEF_BITS : [BYTE(8)] RECORD END; ); 2: (MNT$V_FOREIGN : [POS(0)] $BOOL; (* FOREIGN OPTION SELECTED *) MNT$V_GROUP : [POS(1)] $BOOL; (* GROUP OPTION SELECTED *) MNT$V_NOASSIST : [POS(2)] $BOOL; (* NOASSIST OPTION SELECTED *) MNT$V_NODISKQ : [POS(3)] $BOOL; (* NODISKQ OPTION SELECTED *) MNT$V_NOHDR3 : [POS(4)] $BOOL; (* NOHDR3 OPTION SELECTED *) MNT$V_NOLABEL : [POS(5)] $BOOL; (* NOLABEL OPTION SELECTED *) MNT$V_NOWRITE : [POS(6)] $BOOL; (* NOWRITE OPTION SELECTED *) MNT$V_OVR_ACCESS : [POS(7)] $BOOL; (* OVERRIDE ACCESSIBLITY OPTION SELECTED *) MNT$V_OVR_EXP : [POS(8)] $BOOL; (* OVERRIDE EXPIRATON OPTION SELECTED *) MNT$V_OVR_IDENT : [POS(9)] $BOOL; (* OVERRIDE VOLUME LABEL *) MNT$V_OVR_SETID : [POS(10)] $BOOL; (* OVERRIDE VOLUME SET IDENT OPTION SELECTIED *) MNT$V_READCHECK : [POS(11)] $BOOL; (* READCHECK OPTION SELECTED *) MNT$V_SHARE : [POS(12)] $BOOL; (* SHARE OPTION SELECTED *) MNT$V_MESSAGE : [POS(13)] $BOOL; (* ALLOW $MOUNT TO PRINT MESSAGES *) MNT$V_SYSTEM : [POS(14)] $BOOL; (* SYSTEM OPTION SELECTED *) MNT$V_WRITECHECK : [POS(15)] $BOOL; (* WRITECHECK OPTION SELECTED *) MNT$V_WRITETHRU : [POS(16)] $BOOL; (* WRITETHRU OPTION SELECTED *) MNT$V_NOCACHE : [POS(17)] $BOOL; (* TURN OFF ALL CACHING *) MNT$V_OVR_LOCK : [POS(18)] $BOOL; (* OVERRIDE AUTOMATIC WRITE-LOCK *) MNT$V_NOMNTVER : [POS(19)] $BOOL; (* DISABLE MOUNT VERIFICATION *) MNT$V_NOUNLOAD : [POS(20)] $BOOL; (* DO NOT UNLOAD VOLUME AT DISMOUNT *) MNT$V_TAPE_DATA_WRITE : [POS(21)] $BOOL; (* ENABLE WRITE-BACK CACHE ON TAPE *) MNT$V_NOCOPY : [POS(22)] $BOOL; (* DO NOT ALLOW SHADOW COPY OPERATION *) MNT$V_NOAUTO : [POS(23)] $BOOL; (* DO NOT SET THE MTAACP INTO AVR AND AVL MODE *) MNT$V_INIT_ALL : [POS(24)] $BOOL; (* INITIALIZE ALL VOLUMES IN SET BEFORE WRITING *) MNT$V_INIT_CONT : [POS(25)] $BOOL; (* INITIALIZE CONTINUATION VOLUMES BEFORE WRITING *) MNT$V_OVR_VOLO : [POS(26)] $BOOL; (* OVERRIDE VOL1 VOLUME IDENTIFIER FIELD *) MNT$V_INTERCHG : [POS(27)] $BOOL; (* VOL FOR INTERCHG NO VMS SPECIFIC INFO WRITTEN TO TAPE *) MNT$V_CLUSTER : [POS(28)] $BOOL; (* CLUSTER-WIDE MOUNT OPTION SELECTED *) MNT$V_NOREBUILD : [POS(29)] $BOOL; (* DO NOT REBUILD VOLUME *) MNT$V_OVR_SHAMEM : [POS(30)] $BOOL; (* OVERRIDE SHADOW MEMBERSHIP RESTRICTION *) MNT$V_MULTI_VOL : [POS(31)] $BOOL; (* MULTI_VOLUME TAPE SET *) MNT$V_DISKQ : [POS(32)] $BOOL; (* QUOTA EXPLICITLY SELECTED *) MNT$V_COMPACTION : [POS(33)] $BOOL; (* MAGTAPE DATA COMPACTION ON *) MNT$V_INCLUDE : [POS(34)] $BOOL; (* INCLUDE PREVIOUS SHADOWSET MEMBERS *) MNT$V_PASS2 : [POS(35)] $BOOL; (* PASS2 of /INCLUDE/CONFIRM PROCESSING *) MNT$V_OVR_NOFE : [POS(36)] $BOOL; (* /OVERRIDE=NO_FORCED_ERROR *) MNT$V_SCRATCH : [POS(37)] $BOOL; (* Scratch tape requested flag *) MNT$V_CDROM : [POS(38)] $BOOL; (* Force mounting of a Files-11 C/D Volume *) MNT$V_XAR : [POS(39)] $BOOL; (* Enable protection based on XARs *) MNT$V_DSI : [POS(40)] $BOOL; (* Enable protection based on Digital System Id in XARs *) MNT$V_SUBSYSTEM : [POS(41)] $BOOL; (* /SUBSYSTEM *) MNT$V_NOCOMPACTION : [POS(42)] $BOOL; (* MAGTAPE DATA COMPACTION OFF *) MNT$V_OVR_SECURITY : [POS(43)] $BOOL; (* /OVERRIDE=SECURITY *) MNT$V_OVR_LIMITED_SEARCH : [POS(44)] $BOOL; (* /OVERRIDE=LIMITIED_SEARCH *) MNT$V_POOL : [POS(45)] $BOOL; (* /POOL operation for snapshot pool member *) MNT$V_WLG_ENABLE : [POS(46)] $BOOL; (* /POLICY=ENABLE_WLG *) MNT$V_WLG_DISABLE : [POS(47)] $BOOL; (* /POLICY=DISABLE_WLG *) MNT$V_REQUIRE_MEMBERS : [POS(48)] $BOOL; (* /POLICY=REQUIRE_MEMBERS *) MNT$V_VERIFY_LABEL : [POS(49)] $BOOL; (* /VERIFY_LABEL *) MNT$V_FULL_MERGE : [POS(50)] $BOOL; (* /POLICY=MERGE *) MNT$V_WRITE_FIRST : [POS(51)] $BOOL; (* /POLCIY=WRITE_FIRST *) MNT$V_DCD : [POS(52)] $BOOL; (* /POLICY=DCD *) MNT$V_NODCD : [POS(53)] $BOOL; (* /POLICY=NODCD *) MNT$V_LOCAL_HOST : [POS(54)] $BOOL; (* /POLICY=LOCAL_HOST *) MNT$V_FACTOR : [POS(55)] $BOOL; (* /POLICY=FACTOR *) MNT$V_PRIORITY : [POS(56)] $BOOL; (* /POLICY=PRIORITY *) MNT$V_MINICOPY_REQUIRED : [POS(57)] $BOOL; (* /POLICY=MINICOPY=REQ *) MNT$V_MINICOPY_OPTIONAL : [POS(58)] $BOOL; (* /POLICY=MINICOPY=OPT *) MNT$V_NOMINICOPY : [POS(59)] $BOOL; (* /POLICY=NOMINICOPY *) ); 3: (MNT$R_MNT2DEF_BITS : [BYTE(4)] RECORD END; ); 4: (MNT2$V_DISKQ : [POS(0)] $BOOL; (* QUOTA EXPLICITLY SELECTED *) MNT2$V_COMPACTION : [POS(1)] $BOOL; (* MAGTAPE DATA COMPACTION ON *) MNT2$V_INCLUDE : [POS(2)] $BOOL; (* INCLUDE PREVIOUS SHADOWSET MEMBERS *) MNT2$V_PASS2 : [POS(3)] $BOOL; (* PASS2 of /INCLUDE/CONFIRM PROCESSING *) MNT2$V_OVR_NOFE : [POS(4)] $BOOL; (* /OVERRIDE=NO_FORCED_ERROR *) MNT2$V_SCRATCH : [POS(5)] $BOOL; (* Scratch tape requested flag *) MNT2$V_CDROM : [POS(6)] $BOOL; (* Force mounting of a Files-11 C/D Volume *) MNT2$V_XAR : [POS(7)] $BOOL; (* Enable protection based on XARs *) MNT2$V_DSI : [POS(8)] $BOOL; (* Enable protection based on Digital System Id in XARs *) MNT2$V_SUBSYSTEM : [POS(9)] $BOOL; (* /SUBSYSTEM *) MNT2$V_NOCOMPACTION : [POS(10)] $BOOL; (* MAGTAPE DATA COMPACTION OFF *) MNT2$V_OVR_SECURITY : [POS(11)] $BOOL; (* /OVERRIDE=SECURITY *) MNT2$V_OVR_LIMITED_SEARCH : [POS(12)] $BOOL; (* /OVERRIDE=LIMITIED_SEARCH *) MNT2$V_POOL : [POS(13)] $BOOL; (* /POOL operation for snapshot pool member *) MNT2$V_WLG_ENABLE : [POS(14)] $BOOL; (* /POLICY=ENABLE_WLG *) MNT2$V_WLG_DISABLE : [POS(15)] $BOOL; (* /POLICY=DISABLE_WLG *) MNT2$V_REQUIRE_MEMBERS : [POS(16)] $BOOL; (* /POLICY=REQUIRE_MEMBERS *) MNT2$V_VERIFY_LABEL : [POS(17)] $BOOL; (* /VERIFY_LABEL *) MNT2$V_FULL_MERGE : [POS(18)] $BOOL; (* /POLICY=MERGE *) MNT2$V_WRITE_FIRST : [POS(19)] $BOOL; (* /POLCIY=WRITE_FIRST *) MNT2$V_DCD : [POS(20)] $BOOL; (* /POLICY=DCD *) MNT2$V_NODCD : [POS(21)] $BOOL; (* /POLICY=NODCD *) MNT2$V_LOCAL_HOST : [POS(22)] $BOOL; (* /POLICY=LOCAL_HOST *) MNT2$V_FACTOR : [POS(23)] $BOOL; (* /POLICY=FACTOR *) MNT2$V_PRIORITY : [POS(24)] $BOOL; (* /POLICY=PRIORITY *) MNT2$V_MINICOPY : [POS(25)] $BOOL; (* /POLICY=MINICOPY *) MNT2$V_MINICOPY_OPTIONAL : [POS(26)] $BOOL; (* /POLICY=MINICOPY=OPT *) MNT2$V_NOMINICOPY : [POS(27)] $BOOL; (* /POLICY=NOMINICOPY *) (* *) (* Item codes for mount parameters. *) (* *) (* DEFINE CODES AS CONSTANTS *) ) END; (* *) (* Define format of the /UNDEFINED_FAT block *) (* *) TYPE UNINED_FAT$TYPE = RECORD UNFAT$W_MRS : $UWORD; (* FAT Maximum Record Size *) UNFAT$B_RAT : $UBYTE; (* FAT Record Attributes *) UNFAT$B_RFM : $UBYTE; (* FAT Record Format *) END; (*** MODULE $MSGDEF ***) (*+ *) (* *) (* SYSTEM WIDE MAILBOX MESSAGE TYPES *) (* *) (*- *) (* DEFINE CODES AS CONSTANTS *) CONST MSG$_TRMUNSOLIC = 1; (* UNSOLICITED TERMINAL DATA *) MSG$_CRUNSOLIC = 2; (* UNSOLICTED CARD READER DATA *) MSG$_DELPROC = 3; (* DELETE PROCESS *) MSG$_SNDSMB = 4; (* SEND TO SYMBIONT MANAGER *) MSG$_DEVOFFLIN = 5; (* DEVICE OFFLINE *) MSG$_TRMHANGUP = 6; (* TERMINAL HANG UP *) MSG$_DEVONLIN = 7; (* DEVICE ONLINE *) MSG$_OPRQST = 8; (* OPERATOR REQUEST *** OVERLAPPED CODE *** *) MSG$_OPREPLY = 9; (* OPERATOR REPLY *** OVERLAPPED CODE *** *) (* DEFINE SYMBIONT RESPONSE MESSAGES *) CONST MSG$_SMBINI = 8; (* SYMBIONT HAS INITED *) MSG$_SMBDON = 9; (* SYMBIONT FINISHED *) MSG$_SNDACC = 10; (* SEND MESSAGE TO ACCOUNTING MANAGER *) MSG$_PURPROC = 11; (* PURGE PROCESS *** OVERLAPPED CODE *** *) MSG$_DELIMAG = 12; (* DELETE IMAGE *** OVERLAPPED CODE *** *) MSG$_PURIMAG = 13; (* PURGE IMAGE *** OVERLAPPED CODE *** *) MSG$_SYSFUNC = 14; (* SYSTEM FUNCTION *** OVERLAPPED CODE *** *) MSG$_SNDJBC = 15; (* Send message to job controller *) MSG$_GETQUI = 16; (* Get queue information (from job controller) *) (* DEFINE DMC MESSAGES *) CONST MSG$_XM_DATAVL = 11; (* DMC UNSOLICITED DATA *) MSG$_XM_SHUTDN = 12; (* DMC LINE DOWN *) MSG$_XM_ATTN = 13; (* DMC ATTENTION MESSAGE *) (* SYMBIONT COMMAND MESSAGES *) CONST MSG$_INIOPR = 16; (* INITIATE PRINTING A FILE *) MSG$_ABOOPR = 17; (* ABORT PRINTING A FILE *) MSG$_SUSOPR = 18; (* PAUSE PRINTING THE FILE *) MSG$_RESOPR = 19; (* RESUME PRINTING THE FILE *) MSG$_DELSMB = 20; (* SYMBIONT SHOULD DELETE ITSELF *) MSG$_REQUE = 21; (* REQUEUE A FILE FOR PRINTING *) (* *) CONST MSG$_SMBRSP = 32; (* SYMBIONT MANAGER RESPONSE *) MSG$_ACCRSP = 33; (* ACCOUNTING MANAGER RESPONSE *) (* FILE ACP MESSAGES *) CONST MSG$_SCANBAD = 40; (* SCAN FILE FOR BAD BLOCKS *) MSG$_SCANRSP = 41; (* RESPONSE FROM FILE SCANNER *) (* NETWORK ATTENTION CODES *) CONST MSG$_ABORT = 48; (* PARTNER ABORTED LINK *) MSG$_CONFIRM = 49; (* CONNECT CONFIRM *) MSG$_CONNECT = 50; (* INBOUND CONNECT INITIATE *) MSG$_DISCON = 51; (* PARTNER DISCONNECTED - HANGUP *) MSG$_EXIT = 52; (* PARTNER EXITED PREMATURELY *) MSG$_INTMSG = 53; (* INTERRUPT MESSAGE - UNSOLICITED DATA *) MSG$_PATHLOST = 54; (* NFW - PATH LOST TO PARTNER *) MSG$_PROTOCOL = 55; (* PROTOCOL ERROR *) MSG$_REJECT = 56; (* CONNECT REJECT *) MSG$_THIRDPARTY = 57; (* THIRD PARTY DISCONNECT *) MSG$_TIMEOUT = 58; (* CONNECT TIMEOUT *) MSG$_NETSHUT = 59; (* Network shutting down *) MSG$_NODEACC = 60; (* Node has become accessible *) MSG$_NODEINACC = 61; (* Node has become inaccessible *) MSG$_EVTAVL = 62; (* Events are available to EVL *) MSG$_EVTRCVCHG = 63; (* Event receiver database change *) MSG$_INCDAT = 64; (* X25 INCOMING DATA *) MSG$_RESET = 65; (* X25 CIRCUIT RESET *) MSG$_LINUP = 66; (* X25 PVC LINE UP *) MSG$_LINDWN = 67; (* X25 PVC LINE DOWN *) MSG$_EVTXMTCHG = 68; (* Event transmitter database change *) (* MOUNT VERIFICATION MESSAGES *) CONST MSG$_DEVOFFLINX = 80; (* DEVICE OFFLINE *) MSG$_WRONGVOL = 81; (* WRONG VOLUME IN DEVICE *) MSG$_DEVWRTLCK = 82; (* DEVICE HAS BEEN WRITE LOCKED *) MSG$_TRMBRDCST = 83; (* TERMINAL BROADCAST *) MSG$_MVCOMPLETE = 84; (* MOUNT VERIFICATION COMPLETED *) MSG$_MVABORTED = 85; (* MOUNT VERIFICATION ABORTED *) MSG$_DISMOUNTED = 86; (* VOLUME DISMOUNTED *) MSG$_UDA50MVER = 87; (* UDA50 MICORCODE NOT UPTO REV *) MSG$_DUPUNITNO = 88; (* MSCP CONTROLLER - DUPLICATE UNIT ! *) MSG$_CLUMBX = 89; (* CNXMGR to OPCOM messages *) MSG$_TM78MVER = 90; (* TM78 Microcode not up to rev level *) MSG$_SHAMEMFAL = 91; (* Member failed out of shadow set *) MSG$_SHARDUCED = 92; (* Shadow set reduced *) MSG$_RC25MVER = 93; (* RC25 MICORCODE NOT UPTO REV *) MSG$_RDRXMVER = 94; (* RDRX MICORCODE NOT UPTO REV *) MSG$_TU81MVER = 95; (* TU81 MICORCODE NOT UPTO REV *) MSG$_MAYAMVER = 96; (* MAYA MICORCODE NOT UPTO REV *) MSG$_SHACHASTA = 97; (* Shadow set has changed state *) MSG$_SHACOPCOM = 98; (* Shadow copy operation has completed *) MSG$_SHAREDZER = 99; (* Shadow set reduced to zero members *) MSG$_SHAPOSMEM = 100; (* Possible shadow set member *) MSG$_SHAALLCOM = 101; (* All shadow set copy operations completed *) MSG$_SHACOPBEG = 102; (* Shadow copy operation begun *) MSG$_SHAWROMEM = 103; (* Shadow member contains wrong volume *) MSG$_SHAORGMEM = 104; (* Shadow system disk missing VMB R3 member *) MSG$_TRMLOSE_KB = 105; (* terminal lost physical KB *) MSG$_TRMGAIN_KB = 106; (* terminal gained physical KB *) MSG$_TRMSHRINK = 107; (* terminal window shrunk to icon *) MSG$_TRMEXPAND = 108; (* terminal window icon expanded *) MSG$_TRMRESIZE = 109; (* terminal window resized *) MSG$_TRMMOVE = 110; (* terminal window moved *) MSG$_SNDMME = 111; (* message to media management extensions *) MSG$_RETMME = 112; (* message returned from media management software *) MSG$_SHAADPBAD = 113; (* Shadow VMB R3 member not currently connected to original boot adapter type (PA versus PU) *) MSG$_SHAEMUPTH = 114; (* Shadow VMB R3 member not currently connected to original boot adapter - on an emulated path *) MSG$_SHABENODMP = 115; (* Shadow VMB R3 member not on original adapter, current type unknown *) MSG$_SHABNODMP = 116; (* Shadow VMB R3 member not the master of set or not on PATH named to VMB *) MSG$_SHALOCDEV = 117; (* A Satellites shadow master member is now on a local device, no reboot or dumps possible *) MSG$_SHANOBPOK = 118; (* Shadow VMB R3 member is not a member of the set *) MSG$_SHABDMPOK = 119; (* Shadow VMB R3 member is on the original adapter *) MSG$_BOOTDMPOK = 120; (* System dump will has been redirected to the current master member *) MSG$_SHABDBCK = 121; (* Shadow VMB R3 member has returned to the original adapter *) MSG$_SHANODMP = 122; (* Shadow master changed. Dump will NOT be written if system crashes. *) MSG$_SHADMPOK = 123; (* Shadow master changed. Dump WILL be written if system crashes. *) MSG$_OPCFAO = 124; (* Message contains dynamic FAO parameters to format the message *) MSG$_INSAMCVP = 125; (* Shadowing - not all requested bitmaps were converted *) MSG$_HBMMRESET = 126; (* Shadowing - HBMM bitmap was reset *) MSG$_SHADISSOLVED = 127; (* Shadowing -- virtual unit has been vapourized *) MSG$_SHAMEMEXPEL = 128; (* Shadowing -- a member device has been expelled *) MSG$_SHAMEMDMT = 129; (* Shadowing -- a member device has been dismounted from shadow set *) (* DEFINE MESSAGES FOR USE BY QMAN *) CONST MSG$_QMAN_INTERNAL = 200; (* QMAN internal message *) (*** MODULE $MSGHLPDEF IDENT X-4 ***) CONST MSGHLP$M_NOSORT = 1; MSGHLP$M_BRIEF = 2; MSGHLP$M_MACHINE = 4; MSGHLP$M_NOSUBSTRING = 8; TYPE MSGHLP$TYPE = RECORD MSGHLP$V_NOSORT : [POS(0)] $BOOL; (* Do *NOT* sort the output *) MSGHLP$V_BRIEF : [POS(1)] $BOOL; (* Give only the names of the messages *) MSGHLP$V_MACHINE : [POS(2)] $BOOL; (* Return the text in machine-readable format *) MSGHLP$V_NOSUBSTRING : [POS(3)] $BOOL; (* Match only entire words, no abreviations *) MSGHLP$V_FILL_10_ : [POS(4)] $BIT4; MSGHLP$w_unused : $WORD; MSGHLP$B_WORK_FILES : $BYTE; (* How many workfiles for /SORT? *) END; (*** MODULE $MTADEF ***) (*+ *) (* MAGTAPE ACCESSIBILTY ROUTINE CODES *) (*- *) (* DEFINITIONS FOR ACCESS_SPEC *) CONST MTA$K_NOCHAR = 0; (* ACCESS CHAR IS NOVALID *) MTA$K_CHARVALID = 1; (* ACCESS CHAR IS VALID *) (* DEFINITIONS FOR TYPE *) CONST MTA$K_INVOL1 = 0; (* INPUT A VOL1 ACCESS CODE *) MTA$K_INHDR1 = 1; (* INPUT A HDR1 ACCESS CODE *) MTA$K_OUTVOL1 = 2; (* OUTPUT A VOL1 ACCESS CODE *) MTA$K_OUTHDR1 = 3; (* OUTPUT A HDR1 ACCESS CODE *) (*** MODULE $MTDEF ***) (*+ *) (* MAGTAPE STATUS BITS *) (*- *) CONST MT$M_SEREXCP = 1; MT$M_ENAUTOPACK = 2; MT$M_ENSEREXCP = 4; MT$M_PARITY = 8; MT$M_FORMAT = 240; MT$M_DENSITY = 7936; MT$M_FASTSKIP_USED = 8192; MT$M_LOGSOFT = 16384; MT$M_LOGSOFTOG = 32768; MT$M_BOT = 65536; MT$M_EOF = 131072; MT$M_EOT = 262144; MT$M_HWL = 524288; MT$M_LOST = 1048576; MT$M_SUP_NRZI = 2097152; MT$M_SUP_PE = 4194304; MT$M_SUP_GCR = 8388608; MT$M_SPEED = -16777216; MT$K_DEFAULT = 0; (* DEFAULT FORMAT *) MT$K_NORMAL11 = 12; (* PDP-11 NORMAL *) MT$K_CORDMP11 = 13; (* PDP-11 CORE DUMP *) MT$K_NORMAL15 = 14; (* PDP-15 NORMAL *) (* *) CONST MT$K_NRZI_800 = 3; (* NRZI 800 BPI *) MT$K_PE_1600 = 4; (* PE 1600 BPI *) MT$K_GCR_6250 = 5; (* GCR 6250 BPI *) MT$K_WOD_6250 = 8; (* RV80 6250 BPI EQUIVALENT *) MT$K_SCSI_DC1 = 10; (* Data Compaction algorithm 1 *) MT$K_HPC_40K = 12; (* HPC 39872 BPI *) MT$K_HPC_COMP = 13; (* HPC 39872 compacted *) MT$K_XPC_80K = 14; (* *) MT$K_XPC_COMP = 15; (* *) MT$K_BLK_833 = 17; (* BLOCK (TK50) 833 BPI *) MT$K_BLK_1250 = 18; (* BLOCK (TK70) 1250 BPI *) MT$K_BLK_10K = 19; (* BLOCK (TF85) 10625 BPI *) MT$K_BLK_20K = 20; (* BLOCK (TF86) 10626 *) MT$K_BLK_60K = 21; (* BLOCK (Tx87) 62500 *) MT$K_BLK_COMP = 22; (* BLOCK (Tx87) COMPRESSED 62501 *) MT$K_DAT_61K = 24; (* DAT CARTRIDGE 61000 BPI EQUIVALENT *) (* *) CONST MT$K_SPEED_DEF = 0; (* DEFAULT SPEED *) MT$K_SPEED_25 = 25; (* 25 IPS *) MT$K_SPEED_75 = 75; (* 75 IPS *) TYPE MT$TYPE = RECORD CASE INTEGER OF 1: (MT$R_MTDEF_BITS : [BYTE(4)] RECORD END; ); 2: (MT$V_SEREXCP : [POS(0)] $BOOL; (* SERIOUS EXCEPTION PRESENT *) MT$V_ENAUTOPACK : [POS(1)] $BOOL; (* ENABLE AUTO PACKACK *) MT$V_ENSEREXCP : [POS(2)] $BOOL; (* ENABLE SERIOUS EXCEPTION MODE *) MT$V_PARITY : [POS(3)] $BOOL; (* PARITY SELECT (0=ODD, 1=EVEN) *) MT$V_FORMAT : [POS(4)] $BIT4; (* RECORDING FORMAT *) MT$V_DENSITY : [POS(8)] $BIT5; (* RECORDING DENSITY AND METHOD *) MT$V_FASTSKIP_USED : [POS(13)] $BOOL; (* IO$_SKIPFILE USED SKIP BY FILEMARKS *) MT$V_LOGSOFT : [POS(14)] $BOOL; (* LOG SOFT (TU78) ERRORS (0=NO, 1=YES) *) MT$V_LOGSOFTOG : [POS(15)] $BOOL; (* TOGGLE TO REVERSE LOGSOFT STATE BIT *) MT$V_BOT : [POS(16)] $BOOL; (* AT BEGINNING OF TAPE *) MT$V_EOF : [POS(17)] $BOOL; (* AT END OF FILE *) MT$V_EOT : [POS(18)] $BOOL; (* AT END OF TAPE *) MT$V_HWL : [POS(19)] $BOOL; (* TAPE IS HARDWARE WRITELOCKED *) MT$V_LOST : [POS(20)] $BOOL; (* TAPE POSITION LOST *) MT$V_SUP_NRZI : [POS(21)] $BOOL; (* DRIVE SUPPORTS NRZI (800 BPI) *) MT$V_SUP_PE : [POS(22)] $BOOL; (* DRIVE SUPPORTS PE (1600 BPI) *) MT$V_SUP_GCR : [POS(23)] $BOOL; (* DRIVE SUPPORTS GCR (6250 BPI) *) MT$V_SPEED : [POS(24)] $BIT8; (* TAPE SPEED *) (* *) (* 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 *) (* *) (* *) (* DEFAULT,0 /* DEFAULT DENSITY (SAME AS ABOVE) *) (* TAPE SPEED VALUE DEFINITIONS *) (* *) ) END; (*** MODULE $MT2DEF ***) (*+ *) (* EXTENDED MAGTAPE CHARACTERISTICS BITS *) (*- *) CONST MT2$M_SUP_DENS = 65535; MT2$M_WBC_ENABLE = 65536; MT2$M_RDC_DISABLE = 131072; MT2$M_CACHED_DATA = 262144; MT2$M_CD_LOST = 524288; MT2$M_TAPE_MARK = 1048576; MT2$M_COMP_SUP = 2097152; MT2$M_COMP_ENA = 4194304; MT2$M_MT3_SUPPORTED = 8388608; MT2$M_ALLOWFAST_SUP = 16777216; MT2$M_ALLOWFAST_ALWAYS = 33554432; MT2$M_ALLOWFAST_PER_IO = 67108864; MT2$M_ALLOWFAST_NEVER = 134217728; TYPE MT2$TYPE = RECORD CASE INTEGER OF 1: (MT2$R_MT2DEF_BITS : [BYTE(4)] RECORD END; ); 2: (MT2$V_SUP_DENS : [POS(0)] $BIT16; (* SUPPORTED DENSITIES *) MT2$V_WBC_ENABLE : [POS(16)] $BOOL; (* WRITE-BACK CACHING IS ENABLED *) MT2$V_RDC_DISABLE : [POS(17)] $BOOL; (* READ CACHING IS DISABLED *) MT2$V_CACHED_DATA : [POS(18)] $BOOL; (* CLASS DRIVER DETECTED DATA IN CACHE *) MT2$V_CD_LOST : [POS(19)] $BOOL; (* CLASS DRIVER DETECTED CACHED DATA LOST *) MT2$V_TAPE_MARK : [POS(20)] $BOOL; (* TAPE MARK HAS BEEN WRITTEN *) MT2$V_COMP_SUP : [POS(21)] $BOOL; (* COMPACTION supported *) MT2$V_COMP_ENA : [POS(22)] $BOOL; (* COMPACTION enabled *) MT2$V_MT3_SUPPORTED : [POS(23)] $BOOL; (* Driver supports Multiple Tape Densities. *) MT2$V_ALLOWFAST_SUP : [POS(24)] $BOOL; (* SCSI Fast Search supported *) MT2$V_ALLOWFAST_ALWAYS : [POS(25)] $BOOL; (* ALWAYS use Fast Search *) MT2$V_ALLOWFAST_PER_IO : [POS(26)] $BOOL; (* PER_IO use of Fast Search *) MT2$V_ALLOWFAST_NEVER : [POS(27)] $BOOL; (* NEVER use Fast Search *) ) END; (*** MODULE $MT3DEF ***) (*+ *) (* MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS *) (* *) (* These values are used only for MTD enhanced tape drivers *) (* and are not found in MTDEF. *) (* *) CONST MT3$K_DEFAULT = 0; (* DEFAULT DENSITY/COMPRESSION *) MT3$K_NRZI_800 = 257; (* NRZI 800 BPI *) MT3$K_PE_1600 = 258; (* PE 1600 BPI *) MT3$K_GCR_6250 = 260; (* GCR 6250 BPI *) MT3$K_TK50 = 513; (* DLT TK50: 833 BPI *) MT3$K_TK70 = 514; (* DLT TK70: 1250 BPI *) MT3$K_3480 = 769; (* IBM 3480 HPC 39872 BPI *) MT3$K_3490E = 770; (* IBM 3480: compressed *) MT3$K_3480_COMP = 772; (* IBM 3490 density *) MT3$K_3490E_COMP = 776; (* IBM 3490: compressed *) MT3$K_WOD_6250 = 1025; (* RV80 6250 BPI EQUIVALENT *) MT3$K_DAT = 1281; (* DAT - 61000 bpi *) MT3$K_DAT_COMP = 1282; (* DAT Compressed *) (* Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code. *) CONST MT3$K_DENSITY_INVALID = 31; (* Indicates,, DEVDEPEND density is invalid. *) MT3$K_8200 = 1537; (* Exa-Byte 8200 *) MT3$K_8500 = 1538; (* Exa-Byte 8500 *) MT3$K_8500_COMP = 1540; (* Exa-Byte 8500 Compressed *) MT3$K_8200_COMP = 1544; (* Exa-Byte 8200 Compressed *) MT3$K_8900 = 1552; (* Exa-Byte 8900 *) MT3$K_8900_COMP = 1568; (* Exa-Byte 8900 Compressed *) MT3$K_QIC = 1793; (* All QIC drives are drive settable only. *) MT3$K_TK85 = 2052; (* DLT Tx85: 10625 BPI -- Cmpt III *) MT3$K_TK86 = 2056; (* DLT Tx86: 10626 BPI -- Cmpt III *) MT3$K_TK87 = 2064; (* DLT Tx87: 62500 BPI -- Cmpt III *) MT3$K_TK87_COMP = 2080; (* DLT Tx87: Compressed 62501 BPI *) MT3$K_TK89 = 2305; (* DLT Tx89: (Quantum 7000) -- Cmpt IV *) MT3$K_TK89_COMP = 2306; (* DLT Tx89: Compressed -- Cmpt IV *) MT3$K_TK88 = 2368; (* DLT Tx88: (Quantum 4000) -- Cmpt IV *) MT3$K_TK88_COMP = 2432; (* DLT Tx88: Compressed -- Cmpt IV *) MT3$K_DLT8000 = 3588; (* DLT8000 *) MT3$K_DLT8000_COMP = 3592; (* DLT8000 Compressed *) MT3$K_SDLT = 3600; (* Super DLT *) MT3$K_SDLT_COMP = 3616; (* Super DLT Compressed *) MT3$K_SDLT320 = 3648; (* Super DLT320 *) MT3$K_SDLT320_COMP = 3712; (* Super DLT320 Compressed *) MT3$K_AIT1 = 2561; (* Sony Advanced Intelligent Tapes *) MT3$K_AIT1_COMP = 2562; (* Sony Advanced Intelligent Tapes Compressed *) MT3$K_AIT2 = 2564; (* AIT2 *) MT3$K_AIT2_COMP = 2568; (* AIT2 Compressed *) MT3$K_AIT3 = 2576; (* AIT3 *) MT3$K_AIT3_COMP = 2592; (* AIT3 Compressed *) MT3$K_AIT4 = 2624; (* AIT4 *) MT3$K_AIT4_COMP = 2688; (* AIT4 Compressed *) MT3$K_DDS2 = 2817; (* Digital Data Storage 2 *) MT3$K_DDS2_COMP = 2818; (* Digital Data Storage 2 Compressed *) MT3$K_DDS3 = 3073; (* Digital Data Storage 3 *) MT3$K_DDS3_COMP = 3074; (* Digital Data Storage 3 Compressed *) MT3$K_DDS4 = 3329; (* Digital Data Storage 4 *) MT3$K_DDS4_COMP = 3330; (* Digital Data Storage 4 Compressed *) MT3$K_DAT72 = 3332; (* DAT72 *) MT3$K_DAT72_COMP = 3336; (* DAT72 Compressed *) MT3$K_DAT160 = 3344; (* DAT160 *) MT3$K_DAT160_COMP = 3360; (* DAT160 Compressed *) MT3$K_SDLT600 = 3585; (* Super DLT600 *) MT3$K_SDLT600_COMP = 3586; (* Super DLT600 Compressed *) MT3$K_LTO2 = 3841; (* Ultrium460 *) MT3$K_LTO2_COMP = 3842; (* Ultrium460 Compressed *) MT3$K_LTO3 = 3844; (* Ultrium960 *) MT3$K_LTO3_COMP = 3848; (* Ultrium960 Compressed *) MT3$K_LTO4 = 3856; (* Ultrium 1840 *) MT3$K_LTO4_COMP = 3872; (* Ultrium 1840 Compressed *) (* Compression Only codes. *) (* The X%FFxx codes below are layed out so that future compression enhancments *) (* may take advantage of multiple compression types. *) CONST MT3$K_NO_COMP = 65280; (* All Compression OFF *) MT3$K_COMP = 65281; (* Compression ON *) (*** MODULE $NETDEF ***) (*+ *) (* DECnet-VAX definitions *) (*- *) TYPE NET$TYPE = RECORD NET$B_USER_ECO : $UBYTE; (* User ECO of DECnet *) NET$B_DEC_ECO : $UBYTE; (* Digital ECO of DECnet *) NET$B_DEC_VERSION : $UBYTE; (* DECnet Version *) NET$B_RESERVED : $UBYTE; (* Reserved to Digital *) END; (*** MODULE $NSADEF ***) (* *) (* Define the packet header and record types used for security auditing. *) (* *) CONST NSA$C_MSG_SERVER = 1; (* Audit server control message *) NSA$C_MSG_AUDIT = 2; (* Change in auditable events *) NSA$C_MSG_BREAKIN = 3; (* Breakin attempt *) NSA$C_MSG_INSTALL = 4; (* Change to INSTALLed database *) NSA$C_MSG_LOGFAIL = 5; (* Login failure *) NSA$C_MSG_LOGIN = 6; (* Successful login *) NSA$C_MSG_LOGOUT = 7; (* Successful logout *) NSA$C_MSG_MOUNT = 8; (* Volume mount or dismount *) NSA$C_MSG_NETPROXY = 9; (* Network proxy data base change *) NSA$C_MSG_ACCESS = 10; (* Object access *** obsolete *** *) NSA$C_MSG_SYSUAF = 11; (* UAF change *) NSA$C_MSG_RIGHTSDB = 12; (* Rights database change *) NSA$C_MSG_CUSTOMER = 13; (* Customer application event *) NSA$C_MSG_CSS = 14; (* CSS application event *) NSA$C_MSG_LP = 15; (* Layered product event *) NSA$C_MSG_PRVAUD = 16; (* Privilege audit *) NSA$C_MSG_RESERVED_1 = 17; (* Reserved message type code *) NSA$C_MSG_RESERVED_2 = 18; (* Reserved message type code *) NSA$C_MSG_RESERVED_3 = 19; (* Reserved message type code *) NSA$C_MSG_RESERVED_4 = 20; (* Reserved message type code *) NSA$C_MSG_SYSTIME = 21; (* System time modification *) NSA$C_MSG_SYSGEN = 22; (* SYSGEN parameter modification *) NSA$C_MSG_OBJ_CREATE = 23; (* Object creation *) NSA$C_MSG_OBJ_DELETE = 24; (* Object deletion *) NSA$C_MSG_OBJ_DEACCESS = 25; (* Object deaccess *) NSA$C_MSG_OBJ_ACCESS = 26; (* Object access *) NSA$C_MSG_CONNECTION = 27; (* Connection *) NSA$C_MSG_RESERVED_5 = 28; (* Reserved Message type code *) NSA$C_MSG_NCP = 29; (* NCP command line auditing *) NSA$C_MSG_PROCESS = 30; (* Process control auditing *) NSA$C_MSG_OBJECT_SERVICE = 31; (* Cluster visable object processing *) NSA$C_MSG_AUTHENTICATE = 32; (* Distributed authentication *) NSA$C_MSG_PERSONA = 33; (* Persona event *) NSA$C_MSG_MAX_CODE = 34; (* Last type code (plus one) *) NSA$M_MANDATORY = 1; NSA$M_ACL = 2; NSA$M_INTERNAL = 4; NSA$M_ALARM = 8; NSA$M_AUDIT = 16; NSA$M_FOREIGN = 32; NSA$M_FLUSH = 64; NSA$M_SERVER = 128; NSA$M_DEACCESS = 256; NSA$M_SYNCH = 512; NSA$M_IDENTIFIER = 1024; NSA$M_PROCPRIV = 2048; NSA$M_AUTHPRIV = 4096; NSA$M_NOEVTCHECK = 8192; NSA$M_NOFAILAUD = 16384; NSA$M_NOSUCCAUD = 32768; NSA$C_VERSION_1 = 1; (* First version of auditing *) NSA$C_VERSION_2 = 2; (* Second version of auditing *) NSA$C_VERSION_3 = 3; (* Third version of auditing (support facility code) *) NSA$C_V1_MSG_HDR_LENGTH = 12; (* For version 1 messages *) NSA$K_V1_MSG_HDR_LENGTH = 12; NSA$C_MSG_HDR_LENGTH = 20; (* For latest version messages *) NSA$K_MSG_HDR_LENGTH = 20; TYPE NSAMSG$TYPE = RECORD CASE INTEGER OF 1: ( (* Define the packet header *) NSA$W_RECORD_TYPE : $UWORD; (* Audit event type *) NSA$W_RECORD_SUBTYPE : $UWORD; (* Audit event subtype *) NSA$R_FILL_12_ : [BYTE(2)] RECORD END; NSA$W_PACKET_COUNT : $UWORD; (* Number of data packets *) NSA$R_REC_SIZE_OVERLAY : [BYTE(2)] RECORD END; NSA$B_SPARE_3 : $UBYTE; (* Spare *) NSA$B_VERSION : $UBYTE; (* Security auditing version number *) NSA$W_SPARE_4 : ARRAY [1..3] OF $UWORD; (* Spare words *) NSA$W_FACILITY : $UWORD; (* VMS facility code *) NSA$R_PACKET_LIST : $UBYTE; (* Start of packets *) ); 2: (NSA$W_FLAGS : [POS(32)] $UWORD; (* Auditing flags *) NSA$W_REC_SIZE : [POS(64)] $UWORD; ); 3: (NSA$W_RECORD_SIZE : [POS(64)] $UWORD; (* Total size (header + data packets) *) ); 4: (NSA$V_MANDATORY : [POS(32)] $BOOL; (* Event must be logged *) NSA$V_ACL : [POS(33)] $BOOL; (* Event results from ACE *) NSA$V_INTERNAL : [POS(34)] $BOOL; (* Event generated by TCB *) NSA$V_ALARM : [POS(35)] $BOOL; (* Event is an alarm *) NSA$V_AUDIT : [POS(36)] $BOOL; (* Event is an audit *) NSA$V_FOREIGN : [POS(37)] $BOOL; (* Event outside of TCB *) NSA$V_FLUSH : [POS(38)] $BOOL; (* Force audit server buffer flush *) NSA$V_SERVER : [POS(39)] $BOOL; (* Override process no-audit bit *) NSA$V_DEACCESS : [POS(40)] $BOOL; (* Deaccess audit required *) NSA$V_SYNCH : [POS(41)] $BOOL; (* Synchronous return if possible *) NSA$V_IDENTIFIER : [POS(42)] $BOOL; (* Privilege check via identifier *) NSA$V_PROCPRIV : [POS(43)] $BOOL; (* Privilege check against process privileges *) NSA$V_AUTHPRIV : [POS(44)] $BOOL; (* Privilege check against authorized privileges *) NSA$V_NOEVTCHECK : [POS(45)] $BOOL; (* Bypass event check *) NSA$V_NOFAILAUD : [POS(46)] $BOOL; (* Do not audit failed privilege checks *) NSA$V_NOSUCCAUD : [POS(47)] $BOOL; (* Do not audit successful privilege checks *) ) END; (* Server control message types *) CONST NSA$C_SRV_ADD_JOURNAL = 1; (* Add a new audit journal *) NSA$C_SRV_REM_JOURNAL = 2; (* Remove an existing audit journal *) NSA$C_SRV_FLUSH_JOURNAL = 3; (* Flush specified journal *) NSA$C_SRV_FLUSH_ALL_JOURNALS = 4; (* Flush all audit journals *) NSA$C_SRV_FLUSH_INTERVAL = 5; (* Journal flushing time interval *) NSA$C_SRV_ARCHIVE_DEVICE = 6; (* Specify archiving device *) NSA$C_SRV_ARCHIVE_ENABLE = 7; (* Archiving enable flags *) NSA$C_SRV_ARCHIVE_DISABLE = 8; (* Archiving disable flags *) NSA$C_SRV_ARCHIVE_INTERVAL = 9; (* Guaranteed archinving interval *) NSA$C_SRV_BADJNL_INTERVAL = 10; (* Bad journal scan interval *) NSA$C_SRV_BADJNL_LIMIT = 11; (* Maximum number of bad journals to keep track of *) NSA$C_SRV_EXIT = 12; (* Shut down the server *) NSA$C_SRV_CREATE_SYSTEM_LOG = 13; (* Create a new system audit log file *) NSA$C_SRV_AUDIT_CHANGE = 14; (* Change state of system auditing/alarming *) NSA$C_SRV_REDIRECT_SYSTEM_LOG = 15; (* Open the latest version of the system audit log file *) NSA$C_SRV_REM_ENABLE = 16; (* Enable resource monitoring on a journal *) NSA$C_SRV_REM_DISABLE = 17; (* Disable resource monitoring on a journal *) NSA$C_SRV_REM_MONITOR_INTERVAL = 18; (* Resource monitor interval *) NSA$C_SRV_REM_RESUME_INTERVAL = 19; (* Resource resume monitor interval *) NSA$C_SRV_REM_MONITOR_MODE = 20; (* Specify new resource monitor mode *) NSA$C_SRV_REM_FINAL_ACTION = 21; (* Specify final resource exhaustion action *) NSA$C_SRV_REM_WARN_THRESHOLD = 22; (* Resource warning threshold *) NSA$C_SRV_REM_ACTION_THRESHOLD = 23; (* Resource exhaustion action threshold *) NSA$C_SRV_REM_RESUME_THRESHOLD = 24; (* Resource resumption threshold *) NSA$C_SRV_REM_RESUME = 25; (* Force resource re-evaluation *) NSA$C_SRV_REM_ADD_EXCLUDE = 26; (* Add process to exclusion list *) NSA$C_SRV_REM_DEL_EXCLUDE = 27; (* Remove process from exclusion list *) NSA$C_SRV_LISTENER_ENABLE = 28; (* Specify listener device *) NSA$C_SRV_LISTENER_DISABLE = 29; (* Cancel listener device *) NSA$C_SRV_NEW_LOG = 30; (* Create new cluster-wide system audit log file *) NSA$C_SRV_RESTART = 31; (* Restart audit server *) NSA$C_SRV_LOCK_SERVER = 32; (* Lock audit server to prevent change *) NSA$C_SRV_RESERVED_1 = 33; (* Reserved server code *) NSA$C_SRV_RESERVED_2 = 34; (* Reserved server code *) NSA$C_SRV_RESERVED_3 = 35; (* Reserved server code *) NSA$C_SRV_RESERVED_4 = 36; (* Reserved server code *) NSA$C_SRV_FAILURE_MODE = 37; (* Change security auditing failure mode *) NSA$C_SRV_SNAPSHOT = 38; (* System snapshot in progress *) NSA$C_SRV_BACKLOG_TOTAL = 39; (* Flow control total backlog *) NSA$C_SRV_BACKLOG_PROCESS = 40; (* Flow control process backlog *) NSA$C_SRV_INITIATE = 41; (* Initiate event logging *) NSA$C_SRV_RESTART_ALL = 42; (* Restart all audit servers *) NSA$C_SRV_RESTART_OBJECT = 43; (* Restart object server *) NSA$C_SRV_MAX_CODE = 44; (* Last message code (plus one) *) (* Define resource exhaustion monitor modes. *) CONST NSA$C_REM_SPACE = 1; (* # blocks to keep free on volume *) NSA$C_REM_PERCENTAGE = 2; (* % of volume to keep free *) NSA$C_REM_COUNT = 3; (* # msgs to reserve space for *) NSA$C_REM_TIME = 4; (* # secs to reserve ave. msg space for *) NSA$C_REM_MAX_MODE = 5; (* Last resource monitor mode (plus one) *) (* Define final action to take when process buffer space exhausted. *) CONST NSA$C_REM_PURGE_OLD = 1; (* Purge oldest entry from queue *) NSA$C_REM_IGNORE_NEW = 2; (* Ignore newest (current) message *) NSA$C_REM_RESTART = 3; (* Restart server - create process dump *) NSA$C_REM_CRASH = 4; (* Shutdown VMS (BUG_CHECK) *) NSA$C_REM_MAX_FINAL = 5; (* Last final action mode (plus one) *) (* Define security auditing state modification codes. *) CONST NSA$C_AUDIT_DISABLED = 1; NSA$C_AUDIT_ENABLED = 2; NSA$C_AUDIT_TERMINATE = 3; NSA$C_AUDIT_INITIATE = 4; NSA$C_SNAPSHOT_SAVE = 5; (* System snapshot save in progress *) NSA$C_SNAPSHOT_ABORT = 6; (* System snapshot attempt has aborted *) NSA$C_SNAPSHOT_STARTUP = 7; (* System booted from a snapshot file *) NSA$C_SNAPSHOT_ACCESS = 8; (* Snapshot file access/deaccess *) NSA$C_AUDIT_STATE = 9; (* New state of audit flags *) NSA$C_ALARM_STATE = 10; (* New state of alarm flags *) NSA$C_AUDIT_LOG_FINAL = 11; (* Final entry in audit log (forward link) *) NSA$C_AUDIT_LOG_FIRST = 12; (* First entry in audit log (back link) *) NSA$C_AUDIT_BAD_TCB_AUDIT = 13; (* An internal (TCB) audit was ill-formed *) NSA$C_AUDIT_MAX_CODE = 14; (* Define security auditing failure mode codes. *) CONST NSA$C_FAIL_WAIT = 1; (* Wait for resource (if possible) *) NSA$C_FAIL_CRASH = 2; (* Crash system on failure *) NSA$C_FAIL_IGNORE = 3; (* Ignore failing audit *) NSA$C_FAIL_MAX_MODE = 4; (* Last failure mode (plus one) *) (* Define BREAKIN, LOGIN, LOGOUT, and LOGIN failure codes. *) CONST NSA$C_BATCH = 1; NSA$C_DETACHED = 2; NSA$C_DIALUP = 3; NSA$C_LOCAL = 4; NSA$C_NETWORK = 5; NSA$C_REMOTE = 6; NSA$C_SUBPROCESS = 7; NSA$C_SERVER = 8; NSA$C_JOBTYPE_MAX_CODE = 9; (* Define INSTALLed file database state modification codes. *) CONST NSA$C_INSTALL_ADD = 1; NSA$C_INSTALL_REMOVE = 2; NSA$C_INSTALL_MAX_CODE = 3; (* Define INSTALLed file database state modification qualifier codes. Also, the *) (* codes used by the audit message formatting tables. *) CONST NSA$M_INS_SPARE_0 = 1; NSA$M_INS_OPEN = 2; NSA$M_INS_HEADER_RESIDENT = 4; NSA$M_INS_SHARED = 8; NSA$M_INS_EXECUTE_ONLY = 16; NSA$M_INS_WRITEABLE = 32; NSA$M_INS_PRIVILEGED = 64; NSA$M_INS_PROTECTED = 128; NSA$M_INS_NOPURGE = 256; NSA$M_INS_ACCOUNTING = 512; NSA$M_INS_AUTHORIZED = 1024; NSA$M_INS_SIGNAL = 2048; CONST NSA$C_INS_SPARE_0 = 1; NSA$C_INS_OPEN = 2; NSA$C_INS_HEADER_RESIDENT = 3; NSA$C_INS_SHARED = 4; NSA$C_INS_EXECUTE_ONLY = 5; NSA$C_INS_WRITEABLE = 6; NSA$C_INS_PRIVILEGED = 7; NSA$C_INS_PROTECTED = 8; NSA$C_INS_NOPURGE = 9; NSA$C_INS_ACCOUNTING = 10; NSA$C_INS_AUTHORIZED = 11; NSA$C_INS_SIGNAL = 12; NSA$C_INS_MAX_CODE = 13; (* Define volume state modification codes. *) CONST NSA$C_VOL_DISMOUNT = 1; NSA$C_VOL_MOUNT = 2; NSA$C_VOL_MAX_CODE = 3; (* Define volume state modification qualifier codes. *) CONST NSA$M_MNT_FOREIGN = 1; NSA$M_MNT_GROUP = 2; NSA$M_MNT_NOASSIST = 4; NSA$M_MNT_NODISKQ = 8; NSA$M_MNT_NOHDR3 = 16; NSA$M_MNT_NOLABEL = 32; NSA$M_MNT_NOWRITE = 64; NSA$M_MNT_OVR_ACCESS = 128; NSA$M_MNT_OVR_EXP = 256; NSA$M_MNT_OVR_IDENT = 512; NSA$M_MNT_OVR_SETID = 1024; NSA$M_MNT_READCHECK = 2048; NSA$M_MNT_SHARE = 4096; NSA$M_MNT_MESSAGE = 8192; NSA$M_MNT_SYSTEM = 16384; NSA$M_MNT_WRITECHECK = 32768; NSA$M_MNT_WRITETHRU = 65536; NSA$M_MNT_NOCACHE = 131072; NSA$M_MNT_OVR_LOCK = 262144; NSA$M_MNT_NOMNTVER = 524288; NSA$M_MNT_NOUNLOAD = 1048576; NSA$M_MNT_TAPE_DATA_WRITE = 2097152; NSA$M_MNT_NOCOPY = 4194304; NSA$M_MNT_NOAUTO = 8388608; NSA$M_MNT_INIT_ALL = 16777216; NSA$M_MNT_INIT_CONT = 33554432; NSA$M_MNT_OVR_VOLO = 67108864; NSA$M_MNT_INTERCHG = 134217728; NSA$M_MNT_CLUSTER = 268435456; NSA$M_MNT_NOREBUILD = 536870912; NSA$M_MNT_OVR_SHAMEM = 1073741824; NSA$M_MNT_MULTI_VOL = -2147483648; CONST NSA$C_MNT_MAX_CODE = 47; (* # of mount bits (plus one) *) (* Define dismount flags. *) CONST NSA$C_DMT_MAX_CODE = 5; (* # of dismount bits (plus one) *) NSA$M_DMT_NOUNLOAD = 1; NSA$M_DMT_UNIT = 2; NSA$M_DMT_ABORT = 4; NSA$M_DMT_CLUSTER = 8; (* Define network authorization file modification codes. *) CONST NSA$C_NETPROXY_ADD = 1; NSA$C_NETPROXY_DELETE = 2; NSA$C_NETPROXY_MODIFY = 3; NSA$C_NETPROXY_NCP = 4; NSA$C_NETPROXY_SHUTDOWN = 5; NSA$C_NETPROXY_STARTUP = 6; NSA$C_NETPROXY_CREATE = 7; NSA$C_NETPROXY_MAX_CODE = 8; (* Define persona event codes *) CONST NSA$C_PERSONA_CREATE = 1; NSA$C_PERSONA_DELETE = 2; NSA$C_PERSONA_MODIFY = 3; NSA$C_PERSONA_MAX_CODE = 4; (* Define object access codes. This table must parallel the object type codes *) (* defined in $ACEDEF (in STARDEFAE.SDL). Any additional objects must appear *) (* in both places. These same subtype codes are shared for all of the other *) (* object message type codes (CREATE, DELETE, MODIFY, DEACCESS). *) CONST NSA$C_FILE_ACCESS = 1; NSA$C_DEVICE_ACCESS = 2; NSA$C_QUEUE_ACCESS = 3; NSA$C_CEF_ACCESS = 4; NSA$C_LNM_ACCESS = 5; NSA$C_PROCESS_ACCESS = 6; NSA$C_GRPGBL_ACCESS = 7; NSA$C_SYSGBL_ACCESS = 8; NSA$C_CAPABILITY_ACCESS = 9; NSA$C_EVENT_ACCESS = 10; NSA$C_LOCK_ACCESS = 11; NSA$C_VOLUME_ACCESS = 12; NSA$C_OBJECT_MAX_CODE = 13; (* Define system authorization file modification codes. *) CONST NSA$C_SYSUAF_ADD = 1; NSA$C_SYSUAF_COPY = 2; NSA$C_SYSUAF_DELETE = 3; NSA$C_SYSUAF_MODIFY = 4; NSA$C_SYSUAF_RENAME = 5; NSA$C_SYSUAF_MAX_CODE = 6; (* Define rights database modification codes. *) CONST NSA$C_RDB_ADD_ID = 1; NSA$C_RDB_CREATE = 2; NSA$C_RDB_GRANT_ID = 3; NSA$C_RDB_MOD_HOLDER = 4; NSA$C_RDB_MOD_ID = 5; NSA$C_RDB_REM_ID = 6; NSA$C_RDB_REVOKE_ID = 7; NSA$C_RDB_MAX_CODE = 8; (* Define enhanced privilege audit codes. *) CONST NSA$C_PRVAUD_SUCCESS = 1; (* Successful use of privilege *) NSA$C_PRVAUD_FAILURE = 2; (* Event due to privilege failure *) NSA$C_PRVAUD_MAX_CODE = 3; (* Define system time audit codes. *) CONST NSA$C_SYSTIM_SET = 1; (* Explicit setting of time *) NSA$C_SYSTIM_CAL = 2; (* Calibration from todr *) NSA$C_SYSTIM_MAX_CODE = 3; (* Define SYSGEN audit codes. *) CONST NSA$C_SYSGEN_SET = 1; (* Sysgen parameter modification *) NSA$C_SYSGEN_MAX_CODE = 2; (* Define the create object event subtypes. *) CONST NSA$C_OBJ_CREATE = 1; (* Create object *) NSA$C_CREATE_MAX_CODE = 2; (* Define the delete object event subtypes. *) CONST NSA$C_OBJ_DELETE = 1; (* Delete object *) NSA$C_DELETE_MAX_CODE = 2; (* Define the access object event subtypes. *) CONST NSA$C_OBJ_ACCESS = 1; (* Access object *) NSA$C_ACCESS_MAX_CODE = 2; (* Define the deaccess object event subtypes. *) CONST NSA$C_OBJ_DEACCESS = 1; (* Deaccess object *) NSA$C_DEACCESS_MAX_CODE = 2; (* Define connection message event subtypes. *) CONST NSA$C_CNX_REQUEST = 1; (* Connection request *) NSA$C_CNX_ACCEPT = 2; (* Connection accepted *) NSA$C_CNX_REJECT = 3; (* Connection rejected *) NSA$C_CNX_DISCONNECT = 4; (* Connection disconnected *) NSA$C_CNX_ABORT = 5; (* Connection aborted by third-party *) NSA$C_CNX_DECNET_CREATE = 6; (* DECnet logical link created *) NSA$C_CNX_DECNET_DELETE = 7; (* DECnet logical link disconnected *) NSA$C_CNX_IPC_OPEN = 8; (* IPC association opened *) NSA$C_CNX_IPC_CLOSE = 9; (* IPC association closed *) NSA$C_CNX_INC_REQUEST = 10; (* Incomming connection request *) NSA$C_CNX_INC_ACCEPT = 11; (* Connection request accepted *) NSA$C_CNX_INC_REJECT = 12; (* Connection request rejected *) NSA$C_CNX_INC_DISCONNECT = 13; (* Incoming connection disconnected *) NSA$C_CNX_INC_ABORT = 14; (* Incoming connection aborted by third-party *) NSA$C_CNX_MAX_CODE = 15; NSA$C_NCP_COMMAND = 1; (* NCP command issued *) NSA$C_NCP_MAX_CODE = 2; NSA$C_PRC_CREPRC = 1; (* Create process *) NSA$C_PRC_DELPRC = 2; (* Delete process *) NSA$C_PRC_SCHDWK = 3; (* Schedule process wakeup *) NSA$C_PRC_CANWAK = 4; (* Cancel process wakeup *) NSA$C_PRC_WAKE = 5; (* Wake process *) NSA$C_PRC_SUSPND = 6; (* Suspend process *) NSA$C_PRC_RESUME = 7; (* Resume process *) NSA$C_PRC_GRANTID = 8; (* Grant identifier *) NSA$C_PRC_REVOKID = 9; (* Revoke identifier *) NSA$C_PRC_GETJPI = 10; (* Get job or process information *) NSA$C_PRC_FORCEX = 11; (* Force image exit *) NSA$C_PRC_SIGPRC = 12; (* Signal process (undocumented) *) NSA$C_PRC_SETPRI = 13; (* Set process priority *) NSA$C_PRC_PRCTERM = 14; (* Detect process termination (undocumented) *) NSA$C_PRC_CPU_CAPABILITIES = 15; (* Change in CPU capability *) NSA$C_PRC_PROCESS_CAPABILITIES = 16; (* Change in process capability *) NSA$C_PRC_PROCESS_AFFINITY = 17; (* Change in process affinity *) NSA$C_PRC_SET_IMPLICIT_AFFINITY = 18; (* Change in implicit affinity *) NSA$C_PRC_MAX_CODE = 19; NSA$C_INSTANTIATE_ORB = 1; (* Create an instance of an ORB *) (* the profile may, or may not, *) (* present in the database. *) CONST NSA$C_DISTRIBUTE_ORB = 2; (* ORB distribution *) NSA$C_OBJECT_AUDIT_CHANGE = 3; (* Change in audit/alarm vectors *) NSA$C_DISTRIBUTE_NOTICE = 4; (* Notify agents of change *) (* used for objects which *) (* provide permanent storage *) CONST NSA$C_OBJSRV_MAX_CODE = 5; (* Define distributed authentication subtypes here. *) CONST NSA$C_AUTH_NETWORK_LOGIN = 2; (* authenticated network login *) NSA$C_AUTH_RENEW_LOGIN = 3; (* authentication credential renewal *) NSA$C_AUTH_INIT_SEC_CTX = 4; (* initiate security context *) NSA$C_AUTH_ACC_SEC_CTX = 5; (* accept security context *) NSA$C_AUTH_INSTALL_DEF_CRED = 6; (* install application credential handle *) NSA$C_AUTH_ACQUIRE_CRED = 7; (* acquire credential handle *) NSA$C_AUTH_GRANT_CRED = 8; (* grant credential to another process *) NSA$C_AUTH_RELEASE_CRED = 9; (* release credential handle *) NSA$C_AUTH_DEL_SEC_CTX = 10; (* delete security context *) NSA$C_AUTH_PROC_CTX_TOKEN = 11; (* process context token *) NSA$C_AUTH_VERIFY = 12; (* verify signature *) NSA$C_AUTH_SIGN = 13; (* sign a message *) NSA$C_AUTH_SEAL = 14; (* seal a message *) NSA$C_AUTH_UNSEAL = 15; (* unseal a message *) NSA$C_CA_STARTUP = 16; (* the certification authority has been started *) NSA$C_CA_EXIT = 17; (* the certification authority has exited *) NSA$C_CA_ADD_DIRECTORY = 18; (* a name directory has been added *) NSA$C_CA_ADD_PRINCIPAL = 19; (* a principal has been added *) NSA$C_CA_LINK_DIRECTORY = 20; (* two directories have been linked *) NSA$C_CA_CHANGE_LINK = 21; (* a link between two directories has been changed *) NSA$C_CA_CHANGE_PRINCIPAL = 22; (* a principal's keypair/password or duration has been changed *) NSA$C_CA_REMOVE_DIRECTORY = 23; (* a name directory has been removed *) NSA$C_CA_REMOVE_PRINCIPAL = 24; (* a principal has been removed *) NSA$C_CA_CERTIFICATE_DELETED = 25; (* a certificate has been deleted *) NSA$C_CA_REVOKED_CERT_FOUND = 26; (* a revoked certificate has been read from the CSS *) NSA$C_CA_PASSWORD_CHANGE = 27; (* the password to the CA has been changed *) NSA$C_CSS_OBJECT_CREATED = 28; (* a CSS object has been created *) NSA$C_CSS_OBJECT_DELETED = 29; (* a CSS object has been deleted *) NSA$C_CSS_CERTIFICATE_DELETED = 30; (* a certificate has been deleted *) NSA$C_CSS_CREDENTIAL_READ = 31; (* a principal's permanent credential has been read *) NSA$C_CSS_CERTIFICATE_ADDED = 32; (* a certificate has been added to an object *) NSA$C_CSS_CREDENTIAL_WRITTEN = 33; (* an encrypted permanent credential has been added to an object *) NSA$C_CSS_USER_CHANGED_PASSWORD = 34; (* a principal has changed his/her password *) NSA$C_CSS_UPDATED_SECONDARY = 35; (* a CSS secondary has been updated from the local database *) NSA$C_CSS_DATABASE_UPDATED = 36; (* a secondary CSS has updated its database from a primary *) NSA$C_CSS_STARTED = 37; (* the CSS server has been successfully started *) NSA$C_CSS_WINDOW_OPEN = 38; (* the CSS access window has been opened *) NSA$C_CSS_WINDOW_CLOSED = 39; (* the CSS access window has been closed *) NSA$C_CSS_LOCTABLE_UPDATED = 40; (* the CSS location table has been updated *) NSA$C_AUTH_MAX_CODE = 41; (* Define data packet format *) CONST NSA$C_PKT_ACCESS_DESIRED = 1; (* Access requested *) NSA$C_PKT_ACCOUNT = 2; (* Account name *) NSA$C_PKT_ALARM_NAME = 3; (* Alarm journal name *) NSA$C_PKT_APPL_DATA = 4; (* Application supplied data *) NSA$C_PKT_AUDIT_FLAGS = 5; (* Audit flags *) NSA$C_PKT_AUDIT_NAME = 6; (* Audit journal name *) NSA$C_PKT_SYSTEM_NAME = 7; (* SCS system node name *) NSA$C_PKT_SYSTEM_ID = 8; (* SCS system node identification *) NSA$C_PKT_DEVICE_NAME = 9; (* Primary device name on which the volume resides *) NSA$C_PKT_DISMOUNT_FLAGS = 10; (* Volume dismount flags *) NSA$C_PKT_HOLDER_NAME = 11; (* Holder name *) NSA$C_PKT_HOLDER_OWNER = 12; (* Holder owner ID *) NSA$C_PKT_ID_ATTRIBUTES = 13; (* Identifier attributes *) NSA$C_PKT_ID_NAME = 14; (* Identifier name *) NSA$C_PKT_ID_NEW_NAME = 15; (* Identifer new name *) NSA$C_PKT_ID_VALUE = 16; (* Identifier value *) NSA$C_PKT_ID_NEW_VALUE = 17; (* Identifier new value *) NSA$C_PKT_IDENTIFIERS_USED = 18; (* Identifiers used to gain access *) NSA$C_PKT_IMAGE_NAME = 19; (* Name of the image being executed *) NSA$C_PKT_INSTALL_FILE = 20; (* Installed file *) NSA$C_PKT_INSTALL_FLAGS = 21; (* INSTALL flags *) NSA$C_PKT_INSTALL_PRIVS = 22; (* INSTALL privileges *) NSA$C_PKT_LOGICAL_NAME = 23; (* Logical name associated with the device. *) NSA$C_PKT_MOUNT_FLAGS = 24; (* Volume mount flags *) NSA$C_PKT_NEW_DATA = 25; (* Data after modification *) NSA$C_PKT_FILE_ID = 26; (* File identification (FID) *) NSA$C_PKT_OBJECT_MIN_CLASS = 27; (* Minimum object access classification *) NSA$C_PKT_OBJECT_MAX_CLASS = 28; (* Maximum object access classification *) NSA$C_PKT_OBJECT_NAME = 29; (* The object's name *) NSA$C_PKT_OBJECT_NAME_2 = 30; (* Secondary (path) object name *) NSA$C_PKT_OBJECT_OWNER = 31; (* Owner identifier (UIC) of the process *) NSA$C_PKT_OBJECT_PROTECTION = 32; (* UIC based protection of the object *) NSA$C_PKT_OBJECT_TYPE = 33; (* Object's type code *) NSA$C_PKT_ORIGINAL_DATA = 34; (* Data before modification *) NSA$C_PKT_PARENT_ID = 35; (* PID of the parent process *) NSA$C_PKT_PARENT_NAME = 36; (* Parent process name *) NSA$C_PKT_PARENT_OWNER = 37; (* Parent process owner (UIC) *) NSA$C_PKT_PARENT_USERNAME = 38; (* Parent process username *) NSA$C_PKT_PASSWORD = 39; (* Breakin password *) NSA$C_PKT_PRIVS_USED = 40; (* Privileges used to gain access *) NSA$C_PKT_PROCESS_ID = 41; (* Current process PID *) NSA$C_PKT_PROCESS_NAME = 42; (* Current process name *) NSA$C_PKT_REMOTE_NODE_ID = 43; (* Node ID of network source *) NSA$C_PKT_REMOTE_NODENAME = 44; (* Remote nodename *) NSA$C_PKT_REMOTE_USERNAME = 45; (* Remote username *) NSA$C_PKT_SUBJECT_CLASS = 46; (* Process current access class *) NSA$C_PKT_SUBJECT_OWNER = 47; (* Process owner (UIC) *) NSA$C_PKT_FINAL_STATUS = 48; (* Completion status *) NSA$C_PKT_TERMINAL = 49; (* Process terminal name *) NSA$C_PKT_TIME_STAMP = 50; (* When the event took place *) NSA$C_PKT_UAF_ADD = 51; (* UAF record added *) NSA$C_PKT_UAF_DELETE = 52; (* UAF record removed *) NSA$C_PKT_UAF_MODIFY = 53; (* UAF record modified *) NSA$C_PKT_UAF_COPY = 54; (* UAF record copied *) NSA$C_PKT_UAF_FIELDS = 55; (* UAF fields modified *) NSA$C_PKT_USERNAME = 56; (* Requestor username *) NSA$C_PKT_UAF_SOURCE = 57; (* UAF source username *) NSA$C_PKT_UAF_RENAME = 58; (* UAF record renamed *) NSA$C_PKT_VOLUME_NAME = 59; (* Mount/dismount volume name *) NSA$C_PKT_VOLUME_SET_NAME = 60; (* Volume set name *) NSA$C_PKT_SERVER_ACCOUNT = 61; (* Server account *) NSA$C_PKT_SERVER_SYSTEM_ID = 62; (* Server system id *) NSA$C_PKT_SERVER_SYSTEM_NAME = 63; (* Server system name *) NSA$C_PKT_SERVER_FINAL_STATUS = 64; (* Server status *) NSA$C_PKT_SERVER_IMAGE_NAME = 65; (* Server image name *) NSA$C_PKT_SERVER_PARENT_ID = 66; (* Server parent id *) NSA$C_PKT_SERVER_PARENT_OWNER = 67; (* Server parent owner (UIC) *) NSA$C_PKT_SERVER_PARENT_NAME = 68; (* Server parent process name *) NSA$C_PKT_SERVER_PROCESS_ID = 69; (* Server process id *) NSA$C_PKT_SERVER_PROCESS_NAME = 70; (* Server process name *) NSA$C_PKT_SERVER_SUBJECT_CLASS = 71; (* Server classification *) NSA$C_PKT_SERVER_SUBJECT_OWNER = 72; (* Server owner (UIC) *) NSA$C_PKT_SERVER_TERMINAL = 73; (* Server terminal *) NSA$C_PKT_SERVER_TIME_STAMP = 74; (* Server timestamp *) NSA$C_PKT_SERVER_USERNAME = 75; (* Server username *) NSA$C_PKT_AUDIT_DISABLE = 76; (* Audit event disable mask *) NSA$C_PKT_AUDIT_ENABLE = 77; (* Audit event enable mask *) NSA$C_PKT_ALARM_DISABLE = 78; (* Alarm event disable mask *) NSA$C_PKT_ALARM_ENABLE = 79; (* Alarm event enable mask *) NSA$C_PKT_NOP = 80; (* Nop (for static item lists) *) NSA$C_PKT_REPLY_MAILBOX = 81; (* Message acknowledge mailbox *) NSA$C_PKT_DEFAULT_USERNAME = 82; (* NETPROXY default proxy account *) NSA$C_PKT_LOCAL_USERNAME = 83; (* NETPROXY local proxy account *) NSA$C_PKT_FIELD_NAME = 84; (* Name of (NEW_DATA/ORIGINAL_DATA) field *) NSA$C_PKT_LISTENER_DEVICE = 85; (* Listener device name *) NSA$C_PKT_FIELD_TITLE_STR = 86; (* Field title string *) NSA$C_PKT_FIELD_DATA_STR = 87; (* Field data string *) NSA$C_PKT_MESSAGE_TYPE_STR = 88; (* Event message type string *) NSA$C_PKT_EVENT_TYPE = 89; (* Event message type ($AUDIT_EVENT) *) NSA$C_PKT_EVENT_SUBTYPE = 90; (* Event message subtype ($AUDIT_EVENT) *) NSA$C_PKT_EVENT_FACILITY = 91; (* Event facility ($AUDIT_EVENT) *) NSA$C_PKT_DIRECTORY_ENTRY = 92; (* Directory entry associated with XQP operation *) NSA$C_PKT_DIRECTORY_ID = 93; (* Directory file-id *) (* The following three blocks of codes are obsolete with V5.4. With V5.4, one *) (* should use the NSA$W_FACILITY field for layered product and/or customer *) (* audit messages. These symbols must not be reused as versions of SeVMS (and *) (* fiends) depend on their existence. *) CONST NSA$C_PKT_CUSTOMER_1 = 94; (* obsolete codes *) NSA$C_PKT_CUSTOMER_2 = 95; NSA$C_PKT_CUSTOMER_3 = 96; NSA$C_PKT_CUSTOMER_4 = 97; NSA$C_PKT_CUSTOMER_5 = 98; NSA$C_PKT_CUSTOMER_6 = 99; NSA$C_PKT_CUSTOMER_7 = 100; NSA$C_PKT_CUSTOMER_8 = 101; NSA$C_PKT_CSS_1 = 102; (* obsolete codes *) NSA$C_PKT_CSS_2 = 103; NSA$C_PKT_CSS_3 = 104; NSA$C_PKT_CSS_4 = 105; NSA$C_PKT_CSS_5 = 106; NSA$C_PKT_CSS_6 = 107; NSA$C_PKT_CSS_7 = 108; NSA$C_PKT_CSS_8 = 109; NSA$C_PKT_LP_1 = 110; (* obsolete codes *) NSA$C_PKT_LP_2 = 111; NSA$C_PKT_LP_3 = 112; NSA$C_PKT_LP_4 = 113; NSA$C_PKT_LP_5 = 114; NSA$C_PKT_LP_6 = 115; NSA$C_PKT_LP_7 = 116; NSA$C_PKT_LP_8 = 117; (* End of obsolete codes. *) CONST NSA$C_PKT_ALARM_FAILURE = 118; (* Alarm failure mode *) NSA$C_PKT_AUDIT_FAILURE = 119; (* Audit failure mode *) NSA$C_PKT_SEVMS_0 = 120; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_1 = 121; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_2 = 122; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_3 = 123; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_4 = 124; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_5 = 125; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_6 = 126; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_7 = 127; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_8 = 128; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_9 = 129; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_10 = 130; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_11 = 131; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_12 = 132; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_13 = 133; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_14 = 134; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_15 = 135; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_16 = 136; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_17 = 137; (* Reserved for SeVMS *) NSA$C_PKT_SEVMS_18 = 138; (* Reserved for SeVMS *) NSA$C_PKT_SNAPSHOT_TIME = 139; (* Snapshot time *) NSA$C_PKT_TRANSPORT_NAME = 140; (* Transport name (IPC, DECnet, SMI) *) NSA$C_PKT_DECNET_LINK_ID = 141; (* DECnet logical link ID *) NSA$C_PKT_DECNET_OBJECT_NAME = 142; (* DECnet object name *) NSA$C_PKT_DECNET_OBJECT_NUMBER = 143; (* DECnet object number *) NSA$C_PKT_REMOTE_LINK_ID = 144; (* Remote logical link ID *) NSA$C_PKT_COMMAND_LINE = 145; (* Command line *) NSA$C_PKT_ASSOCIATION_NAME = 146; (* IPC association name *) NSA$C_PKT_REM_ASSOCIATION_NAME = 147; (* IPC remote association name *) NSA$C_PKT_CONNECTION_ID = 148; (* IPC connection ID *) NSA$C_PKT_MESSAGE = 149; (* Associated message code *) NSA$C_PKT_MSGFILNAM = 150; (* Associated message file name *) NSA$C_PKT_OBJECT_POINTER = 151; (* Object container (Directory) *) NSA$C_PKT_ID_NEW_ATTRIBUTES = 152; (* Identifier new attributes *) NSA$C_PKT_SYSTIM_NEW = 153; (* New system time *) NSA$C_PKT_SYSTIM_OLD = 154; (* Old system time *) NSA$C_PKT_PARAMS_WRITE = 155; (* SYSGEN filename for WRITE command *) NSA$C_PKT_PARAMS_INUSE = 156; (* SYSGEN parameter set name for USE command *) NSA$C_PKT_MATCHING_ACE = 157; (* ACE granting or denying access *) NSA$C_PKT_SNAPSHOT_SAVE_FILNAM = 158; (* Snapshot save file name *) NSA$C_PKT_MAILBOX_UNIT = 159; (* Mailbox unit number *) NSA$C_PKT_NEW_OWNER = 160; (* New process owner (UIC) *) NSA$C_PKT_NEW_PRIORITY = 161; (* New process priority *) NSA$C_PKT_OLD_PRIORITY = 162; (* Old process priority *) NSA$C_PKT_DIAG_FUNC = 163; (* Diagnostic function *) NSA$C_PKT_RESOURCE_NAME = 164; (* Lock resource name *) NSA$C_PKT_LNM_TABLE_NAME = 165; (* Logical name table name *) NSA$C_PKT_LNM_PARENT_NAME = 166; (* Parent logical name table name *) NSA$C_PKT_EFC_NAME = 167; (* Event Flag Cluster name *) NSA$C_PKT_TARGET_PROCESS_CLASS = 168; (* Target process classification *) NSA$C_PKT_TARGET_PROCESS_ID = 169; (* Target process PID *) NSA$C_PKT_TARGET_PROCESS_NAME = 170; (* Target process name *) NSA$C_PKT_TARGET_PROCESS_OWNER = 171; (* Target process owner (UIC) *) NSA$C_PKT_TARGET_USERNAME = 172; (* Target username *) NSA$C_PKT_NEW_PRIVILEGES = 173; (* New privileges *) NSA$C_PKT_OLD_PRIVILEGES = 174; (* Old privileges *) NSA$C_PKT_REMOTE_NODE_FULLNAME = 175; (* Remote node fullname *) NSA$C_PKT_UID = 176; (* UID of object *) NSA$C_PKT_UNUSED_3 = 177; (* Unused packet *) NSA$C_PKT_UNUSED_4 = 178; (* Unused packet *) NSA$C_PKT_UNUSED_5 = 179; (* Unused packet *) NSA$C_PKT_UNUSED_6 = 180; (* Unused packet *) NSA$C_PKT_UNUSED_7 = 181; (* Unused packet *) NSA$C_PKT_UNUSED_8 = 182; (* Unused packet *) NSA$C_PKT_UNUSED_9 = 183; (* Unused packet *) NSA$C_PKT_UNUSED_10 = 184; (* Unused packet *) NSA$C_PKT_PRIVS_MISSING = 185; (* Privileges missing *) NSA$C_PKT_TARGET_DEVICE_NAME = 186; (* Target device name *) NSA$C_PKT_SECTION_NAME = 187; (* Global section name *) NSA$C_PKT_ID_VALUE_ASCII = 188; (* ID value via $IDTOASC *) NSA$C_PKT_OBJECT_CLASS = 189; (* Object class name *) NSA$C_PKT_SUPPRESS = 190; (* Suppress supplied items *) NSA$C_PKT_SNAPSHOT_BOOTFILE = 191; (* Snapshot boot file name *) NSA$C_PKT_SOURCE_PROCESS_ID = 192; (* Source process ID (impersonation) *) NSA$C_PKT_REQUEST_NUMBER = 193; (* Request number *) NSA$C_PKT_ACCESS_MODE = 194; (* Access mode *) NSA$C_PKT_SYSTEM_SERVICE_NAME = 195; (* System service name *) NSA$C_PKT_NEW_AUTH_PRIVILEGES = 196; (* New authorized privileges *) NSA$C_PKT_OLD_AUTH_PRIVILEGES = 197; (* Old authorized privileges *) NSA$C_PKT_NEW_DEF_PRIVILEGES = 198; (* New default privileges *) NSA$C_PKT_OLD_DEF_PRIVILEGES = 199; (* Old default privileges *) NSA$C_PKT_NEW_PROCESS_ID = 200; (* New process ID *) NSA$C_PKT_NEW_PROCESS_OWNER = 201; (* New process owner (UIC) *) NSA$C_PKT_NEW_PROCESS_NAME = 202; (* New process name *) NSA$C_PKT_NEW_IMAGE_NAME = 203; (* New image name *) NSA$C_PKT_NEW_USERNAME = 204; (* New username *) NSA$C_PKT_DEACCESS_KEY = 205; (* Deaccess audit key *) NSA$C_PKT_OBJECT_RIGHTS_BLOCK = 206; (* Object Rights Block *) NSA$C_PKT_OBJSRV_COMPLETE = 207; (* Object service processing completion routine *) NSA$C_PKT_TLV_ORB = 208; (* Object distribution *) NSA$C_PKT_FILE_NAME = 209; (* File name (volume auditing) *) NSA$C_PKT_DIRECTORY_NAME = 210; (* Directory file name *) NSA$C_PKT_SEQUENCE_KEY = 211; (* Sequence key (XQP auditing) *) (* DAS item codes. *) CONST NSA$C_PKT_PRINCIPAL_FULLNAME = 212; NSA$C_PKT_TARGET_FULLNAME = 213; NSA$C_PKT_SOURCE_FULLNAME = 214; NSA$C_PKT_DESIRED_FULLNAME = 215; NSA$C_PKT_CLAIMED_USERNAME = 216; NSA$C_PKT_CLAIMED_FULLNAME = 217; NSA$C_PKT_CLAIMED_NODENAME = 218; NSA$C_PKT_TIME_REQ = 219; NSA$C_PKT_TIME_REC = 220; NSA$C_PKT_REQ_FLAGS = 221; NSA$C_PKT_RET_FLAGS = 222; NSA$C_PKT_LIFETIME_REQ = 223; NSA$C_PKT_LIFETIME_REC = 224; NSA$C_PKT_CRED_USAGE = 225; NSA$C_PKT_CONTEXT_HANDLE = 226; NSA$C_PKT_QOP_STATE = 227; NSA$C_PKT_CONF_STATE = 228; NSA$C_PKT_DELEG_CRED_HANDLE = 229; NSA$C_PKT_MAJOR_STATUS = 230; NSA$C_PKT_DAS_1 = 231; NSA$C_PKT_DAS_2 = 232; NSA$C_PKT_DAS_3 = 233; NSA$C_PKT_DAS_4 = 234; NSA$C_PKT_DAS_5 = 235; NSA$C_PKT_DAS_6 = 236; NSA$C_PKT_DAS_7 = 237; NSA$C_PKT_DAS_8 = 238; NSA$C_PKT_DAS_9 = 239; NSA$C_PKT_DAS_10 = 240; NSA$C_PKT_STATE_FILE_NAME = 241; NSA$C_PKT_DIRECTORY_FULLNAME = 242; NSA$C_PKT_FROM_DIR_FULLNAME = 243; NSA$C_PKT_TO_DIR_FULLNAME = 244; NSA$C_PKT_ISSUER_FULLNAME = 245; NSA$C_PKT_SUBJECT_FULLNAME = 246; NSA$C_PKT_CERTIF_TYPE = 247; NSA$C_PKT_CSS_SECONDARY_NAME = 248; NSA$C_PKT_CSS_OBJECT_FULLNAME = 249; NSA$C_PKT_CSS_REQUEST_FROM = 250; NSA$C_PKT_CSS_PRIMARY_NAME = 251; NSA$C_PKT_CERTIF_SERIAL_NUMBER = 252; NSA$C_PKT_WINDOW_END_TIME = 253; NSA$C_PKT_LOG_CLOSED = 254; (* log file closed *) NSA$C_PKT_LOG_OPENED = 255; (* log file opened *) NSA$C_PKT_IDENTIFIERS_MISSING = 256; (* identifiers missing *) NSA$C_PKT_SENSITIVE_FIELD_NAME = 257; NSA$C_PKT_SENSITIVE_ORIG_DATA = 258; NSA$C_PKT_SENSITIVE_NEW_DATA = 259; NSA$C_PKT_SENSITIVE_FIELD_TITLE = 260; NSA$C_PKT_SENSITIVE_FIELD_DATA = 261; NSA$C_PKT_INSTALL_AUTHPRIVS = 262; (* installed image authorized privs *) NSA$C_PKT_PERSONA_FLAGS = 263; (* persona flags *) NSA$C_PKT_PERSONA_UID = 264; (* persona UID *) NSA$C_PKT_PERSONA_MODE = 265; (* persona creation mode *) NSA$C_PKT_PERSONA_USERNAME = 266; (* persona username *) NSA$C_PKT_PERSONA_ACCOUNT = 267; (* persona account *) NSA$C_PKT_PERSONA_NOAUDIT = 268; (* persona noaudit counter *) NSA$C_PKT_PERSONA_UIC = 269; (* persona UIC *) NSA$C_PKT_PERSONA_AUTHPRIV = 270; (* persona authorized privs *) NSA$C_PKT_PERSONA_PERMPRIV = 271; (* persona permanent privs *) NSA$C_PKT_PERSONA_WORKPRIV = 272; (* persona working privs *) NSA$C_PKT_PERSONA_ENABLED = 273; (* persona rights enabled flags *) NSA$C_PKT_PERSONA_RIGHTS = 274; (* persona rights *) NSA$C_PKT_PERSONA_MINCLASS = 275; (* persona minimum classification *) NSA$C_PKT_PERSONA_MAXCLASS = 276; (* persona maximum classification *) NSA$C_PKT_PERSONA_WORKCLASS = 277; (* persona working classification *) NSA$C_PKT_PERSONA_ID = 278; (* persona Id *) NSA$C_PKT_PERSONA_POSIX_UID = 279; NSA$C_PKT_PERSONA_POSIX_GID = 280; NSA$C_PKT_PARENT_POSIX_UID = 281; NSA$C_PKT_PARENT_POSIX_GID = 282; NSA$C_PKT_MAX_CODE = 283; (* Must be last *) NSA$C_PKT_HDR_LENGTH = 4; NSA$K_PKT_HDR_LENGTH = 4; NSA$_ACCESS_DESIRED = 1; (* Access requested *) NSA$_ACCOUNT = 2; (* Account name *) NSA$_ALARM_NAME = 3; (* Alarm journal name *) NSA$_APPL_DATA = 4; (* Application supplied data *) NSA$_AUDIT_FLAGS = 5; (* Audit flags *) NSA$_AUDIT_NAME = 6; (* Audit journal name *) NSA$_SYSTEM_NAME = 7; (* SCS system node name *) NSA$_SYSTEM_ID = 8; (* SCS system node identification *) NSA$_DEVICE_NAME = 9; (* Primary device name on which the volume resides *) NSA$_DISMOUNT_FLAGS = 10; (* Volume dismount flags *) NSA$_HOLDER_NAME = 11; (* Holder name *) NSA$_HOLDER_OWNER = 12; (* Holder owner ID *) NSA$_ID_ATTRIBUTES = 13; (* Identifier attributes *) NSA$_ID_NAME = 14; (* Identifier name *) NSA$_ID_NEW_NAME = 15; (* Identifer new name *) NSA$_ID_VALUE = 16; (* Identifier value *) NSA$_ID_NEW_VALUE = 17; (* Identifier new value *) NSA$_IDENTIFIERS_USED = 18; (* Identifiers used to gain access *) NSA$_IMAGE_NAME = 19; (* Name of the image being executed *) NSA$_INSTALL_FILE = 20; (* Installed file *) NSA$_INSTALL_FLAGS = 21; (* INSTALL flags *) NSA$_INSTALL_PRIVS = 22; (* INSTALL privileges *) NSA$_LOGICAL_NAME = 23; (* Logical name associated with the device. *) NSA$_MOUNT_FLAGS = 24; (* Volume mount flags *) NSA$_NEW_DATA = 25; (* Data after modification *) NSA$_FILE_ID = 26; (* File identification (FID) *) NSA$_OBJECT_MIN_CLASS = 27; (* Minimum object access classification *) NSA$_OBJECT_MAX_CLASS = 28; (* Maximum object access classification *) NSA$_OBJECT_NAME = 29; (* The object's name *) NSA$_OBJECT_NAME_2 = 30; (* Secondary (path) object name *) NSA$_OBJECT_OWNER = 31; (* Owner identifier (UIC) of the process *) NSA$_OBJECT_PROTECTION = 32; (* UIC based protection of the object *) NSA$_OBJECT_TYPE = 33; (* Object's type code *) NSA$_ORIGINAL_DATA = 34; (* Data before modification *) NSA$_PARENT_ID = 35; (* PID of the parent process *) NSA$_PARENT_NAME = 36; (* Parent process name *) NSA$_PARENT_OWNER = 37; (* Parent process owner (UIC) *) NSA$_PARENT_USERNAME = 38; (* Parent process username *) NSA$_PASSWORD = 39; (* Breakin password *) NSA$_PRIVS_USED = 40; (* Privileges used to gain access *) NSA$_PROCESS_ID = 41; (* Current process PID *) NSA$_PROCESS_NAME = 42; (* Current process name *) NSA$_REMOTE_NODE_ID = 43; (* Node ID of network source *) NSA$_REMOTE_NODENAME = 44; (* Remote nodename *) NSA$_REMOTE_USERNAME = 45; (* Remote username *) NSA$_SUBJECT_CLASS = 46; (* Process current access class *) NSA$_SUBJECT_OWNER = 47; (* Process owner (UIC) *) NSA$_FINAL_STATUS = 48; (* Completion status *) NSA$_TERMINAL = 49; (* Process terminal name *) NSA$_TIME_STAMP = 50; (* When the event took place *) NSA$_UAF_ADD = 51; (* UAF record added *) NSA$_UAF_DELETE = 52; (* UAF record removed *) NSA$_UAF_MODIFY = 53; (* UAF record modified *) NSA$_UAF_COPY = 54; (* UAF record copied *) NSA$_UAF_FIELDS = 55; (* UAF fields modified *) NSA$_USERNAME = 56; (* Requestor username *) NSA$_UAF_SOURCE = 57; (* Secondary username *) NSA$_UAF_RENAME = 58; (* UAF record renamed *) NSA$_VOLUME_NAME = 59; (* Mount/dismount volume name *) NSA$_VOLUME_SET_NAME = 60; (* Volume set name *) NSA$_SERVER_ACCOUNT = 61; (* Server account *) NSA$_SERVER_SYSTEM_ID = 62; (* Server system id *) NSA$_SERVER_SYSTEM_NAME = 63; (* Server system name *) NSA$_SERVER_FINAL_STATUS = 64; (* Server status *) NSA$_SERVER_IMAGE_NAME = 65; (* Server image name *) NSA$_SERVER_PARENT_ID = 66; (* Server parent id *) NSA$_SERVER_PARENT_OWNER = 67; (* Server parent owner *) NSA$_SERVER_PARENT_NAME = 68; (* Server parent process name *) NSA$_SERVER_PROCESS_ID = 69; (* Server process id *) NSA$_SERVER_PROCESS_NAME = 70; (* Server process name *) NSA$_SERVER_SUBJECT_CLASS = 71; (* Server classification *) NSA$_SERVER_SUBJECT_OWNER = 72; (* Server owner ('UIC') *) NSA$_SERVER_TERMINAL = 73; (* Server terminal *) NSA$_SERVER_TIME_STAMP = 74; (* Server timestamp *) NSA$_SERVER_USERNAME = 75; (* Server username *) NSA$_AUDIT_DISABLE = 76; (* Audit event disable mask *) NSA$_AUDIT_ENABLE = 77; (* Audit event enable mask *) NSA$_ALARM_DISABLE = 78; (* Alarm event disable mask *) NSA$_ALARM_ENABLE = 79; (* Alarm event enable mask *) NSA$_NOP = 80; (* Nop (for static item lists) *) NSA$_REPLY_MAILBOX = 81; (* Message acknowledge mailbox *) NSA$_DEFAULT_USERNAME = 82; (* NETPROXY proxy default account *) NSA$_LOCAL_USERNAME = 83; (* NETPROXY proxy local account *) NSA$_FIELD_NAME = 84; (* Name of (NEW_DATA/ORIGINAL_DATA) field *) NSA$_LISTENER_DEVICE = 85; (* Listener device name *) NSA$_FIELD_TITLE_STR = 86; (* Field title string *) NSA$_FIELD_DATA_STR = 87; (* Field data string *) NSA$_MESSAGE_TYPE_STR = 88; (* Event message type string *) NSA$_EVENT_TYPE = 89; (* Event message type ($AUDIT_EVENT) *) NSA$_EVENT_SUBTYPE = 90; (* Event message subtype ($AUDIT_EVENT) *) NSA$_EVENT_FACILITY = 91; (* Event facility ($AUDIT_EVENT) *) NSA$_DIRECTORY_ENTRY = 92; (* Directory entry associated with XQP operation *) NSA$_DIRECTORY_ID = 93; (* Directory file-id *) NSA$_CUSTOMER_1 = 94; (* obsolete codes *) NSA$_CUSTOMER_2 = 95; NSA$_CUSTOMER_3 = 96; NSA$_CUSTOMER_4 = 97; NSA$_CUSTOMER_5 = 98; NSA$_CUSTOMER_6 = 99; NSA$_CUSTOMER_7 = 100; NSA$_CUSTOMER_8 = 101; NSA$_CSS_1 = 102; (* obsolete codes *) NSA$_CSS_2 = 103; NSA$_CSS_3 = 104; NSA$_CSS_4 = 105; NSA$_CSS_5 = 106; NSA$_CSS_6 = 107; NSA$_CSS_7 = 108; NSA$_CSS_8 = 109; NSA$_LP_1 = 110; (* obsolete codes *) NSA$_LP_2 = 111; NSA$_LP_3 = 112; NSA$_LP_4 = 113; NSA$_LP_5 = 114; NSA$_LP_6 = 115; NSA$_LP_7 = 116; NSA$_LP_8 = 117; NSA$_ALARM_FAILURE = 118; (* Alarm failure mode *) NSA$_AUDIT_FAILURE = 119; (* Audit failure mode *) NSA$_SEVMS_0 = 120; (* Reserved for SeVMS *) NSA$_SEVMS_1 = 121; (* Reserved for SeVMS *) NSA$_SEVMS_2 = 122; (* Reserved for SeVMS *) NSA$_SEVMS_3 = 123; (* Reserved for SeVMS *) NSA$_SEVMS_4 = 124; (* Reserved for SeVMS *) NSA$_SEVMS_5 = 125; (* Reserved for SeVMS *) NSA$_SEVMS_6 = 126; (* Reserved for SeVMS *) NSA$_SEVMS_7 = 127; (* Reserved for SeVMS *) NSA$_SEVMS_8 = 128; (* Reserved for SeVMS *) NSA$_SEVMS_9 = 129; (* Reserved for SeVMS *) NSA$_SEVMS_10 = 130; (* Reserved for SeVMS *) NSA$_SEVMS_11 = 131; (* Reserved for SeVMS *) NSA$_SEVMS_12 = 132; (* Reserved for SeVMS *) NSA$_SEVMS_13 = 133; (* Reserved for SeVMS *) NSA$_SEVMS_14 = 134; (* Reserved for SeVMS *) NSA$_SEVMS_15 = 135; (* Reserved for SeVMS *) NSA$_SEVMS_16 = 136; (* Reserved for SeVMS *) NSA$_SEVMS_17 = 137; (* Reserved for SeVMS *) NSA$_SEVMS_18 = 138; (* Reserved for SeVMS *) NSA$_SNAPSHOT_TIME = 139; (* Snapshot time *) NSA$_TRANSPORT_NAME = 140; (* Transport name (DECwindows) *) NSA$_DECNET_LINK_ID = 141; (* DECnet logical link ID *) NSA$_DECNET_OBJECT_NAME = 142; (* DECnet object name *) NSA$_DECNET_OBJECT_NUMBER = 143; (* DECnet object number *) NSA$_REMOTE_LINK_ID = 144; (* Remote logical link ID *) NSA$_COMMAND_LINE = 145; (* Command line *) NSA$_ASSOCIATION_NAME = 146; (* IPC association name *) NSA$_REM_ASSOCIATION_NAME = 147; (* IPC remote association name *) NSA$_CONNECTION_ID = 148; (* IPC connection ID *) NSA$_MESSAGE = 149; (* Associated message code *) NSA$_MSGFILNAM = 150; (* Associated message file name *) NSA$_OBJECT_POINTER = 151; (* Object container (Directory) *) NSA$_ID_NEW_ATTRIBUTES = 152; (* Identifier new attributes *) NSA$_SYSTIM_NEW = 153; (* New system time *) NSA$_SYSTIM_OLD = 154; (* Old system time *) NSA$_PARAMS_WRITE = 155; NSA$_PARAMS_INUSE = 156; NSA$_MATCHING_ACE = 157; (* ACE granting or denying access *) NSA$_SNAPSHOT_SAVE_FILNAM = 158; (* Snapshot save file name *) NSA$_MAILBOX_UNIT = 159; (* Mailbox unit number *) NSA$_NEW_OWNER = 160; (* New process owner (UIC) *) NSA$_NEW_PRIORITY = 161; (* New process priority *) NSA$_OLD_PRIORITY = 162; (* Old process priority *) NSA$_DIAG_FUNC = 163; (* Diagnostic function *) NSA$_RESOURCE_NAME = 164; (* Lock resource name *) NSA$_LNM_TABLE_NAME = 165; (* Logical name table name *) NSA$_LNM_PARENT_NAME = 166; (* Parent logical name table name *) NSA$_EFC_NAME = 167; (* Event Flag Cluster name *) NSA$_TARGET_PROCESS_CLASS = 168; (* Target process classification *) NSA$_TARGET_PROCESS_ID = 169; (* Target process PID *) NSA$_TARGET_PROCESS_NAME = 170; (* Target process name *) NSA$_TARGET_PROCESS_OWNER = 171; (* Target process owner (UIC) *) NSA$_TARGET_USERNAME = 172; (* Target username *) NSA$_NEW_PRIVILEGES = 173; (* New privileges *) NSA$_OLD_PRIVILEGES = 174; (* Old privileges *) NSA$_REMOTE_NODE_FULLNAME = 175; (* Remote node fullname *) NSA$_UID = 176; (* UID of object *) NSA$_UNUSED_3 = 177; (* Unused item code *) NSA$_UNUSED_4 = 178; (* Unused item code *) NSA$_UNUSED_5 = 179; (* Unused item code *) NSA$_UNUSED_6 = 180; (* Unused item code *) NSA$_UNUSED_7 = 181; (* Unused item code *) NSA$_UNUSED_8 = 182; (* Unused item code *) NSA$_UNUSED_9 = 183; (* Unused item code *) NSA$_UNUSED_10 = 184; (* Unused item code *) NSA$_PRIVS_MISSING = 185; (* Privileges missing *) NSA$_TARGET_DEVICE_NAME = 186; (* Target device name *) NSA$_SECTION_NAME = 187; (* Global section name *) NSA$_ID_VALUE_ASCII = 188; (* ID value via $IDTOASC *) NSA$_OBJECT_CLASS = 189; (* Object class name *) NSA$_SUPPRESS = 190; (* Suppress supplied items *) NSA$_SNAPSHOT_BOOTFILE = 191; (* Snapshot boot file name *) NSA$_SOURCE_PROCESS_ID = 192; (* Source process ID (impersonation) *) NSA$_REQUEST_NUMBER = 193; (* Request number *) NSA$_ACCESS_MODE = 194; (* Access mode *) NSA$_SYSTEM_SERVICE_NAME = 195; (* System service name *) NSA$_NEW_AUTH_PRIVILEGES = 196; (* New authorized privileges *) NSA$_OLD_AUTH_PRIVILEGES = 197; (* Old authorized privileges *) NSA$_NEW_DEF_PRIVILEGES = 198; (* New default privileges *) NSA$_OLD_DEF_PRIVILEGES = 199; (* Old default privileges *) NSA$_NEW_PROCESS_ID = 200; (* New process ID *) NSA$_NEW_PROCESS_OWNER = 201; (* New process owner (UIC) *) NSA$_NEW_PROCESS_NAME = 202; (* New process name *) NSA$_NEW_IMAGE_NAME = 203; (* New image name *) NSA$_NEW_USERNAME = 204; (* New username *) NSA$_DEACCESS_KEY = 205; (* Deaccess audit key *) NSA$_OBJECT_RIGHTS_BLOCK = 206; (* Object Rights Block *) NSA$_OBJSRV_COMPLETE = 207; (* Object service processing completion routine *) NSA$_TLV_ORB = 208; (* Object distribution *) NSA$_FILE_NAME = 209; (* File name (volume auditing) *) NSA$_DIRECTORY_NAME = 210; (* Directory file name *) NSA$_SEQUENCE_KEY = 211; (* Sequence key (XQP auditing) *) (* DAS item codes. *) CONST NSA$_PRINCIPAL_FULLNAME = 212; NSA$_TARGET_FULLNAME = 213; NSA$_SOURCE_FULLNAME = 214; NSA$_DESIRED_FULLNAME = 215; NSA$_CLAIMED_USERNAME = 216; NSA$_CLAIMED_FULLNAME = 217; NSA$_CLAIMED_NODENAME = 218; NSA$_TIME_REQ = 219; NSA$_TIME_REC = 220; NSA$_REQ_FLAGS = 221; NSA$_RET_FLAGS = 222; NSA$_LIFETIME_REQ = 223; NSA$_LIFETIME_REC = 224; NSA$_CRED_USAGE = 225; NSA$_CONTEXT_HANDLE = 226; NSA$_QOP_STATE = 227; NSA$_CONF_STATE = 228; NSA$_DELEG_CRED_HANDLE = 229; NSA$_MAJOR_STATUS = 230; NSA$_DAS_1 = 231; NSA$_DAS_2 = 232; NSA$_DAS_3 = 233; NSA$_DAS_4 = 234; NSA$_DAS_5 = 235; NSA$_DAS_6 = 236; NSA$_DAS_7 = 237; NSA$_DAS_8 = 238; NSA$_DAS_9 = 239; NSA$_DAS_10 = 240; NSA$_STATE_FILE_NAME = 241; NSA$_DIRECTORY_FULLNAME = 242; NSA$_FROM_DIRECTORY_FULLNAME = 243; NSA$_TO_DIRECTORY_FULLNAME = 244; NSA$_ISSUER_FULLNAME = 245; NSA$_SUBJECT_FULLNAME = 246; NSA$_CERTIF_TYPE = 247; NSA$_CSS_SECONDARY_NAME = 248; NSA$_CSS_OBJECT_FULLNAME = 249; NSA$_CSS_REQUEST_FROM = 250; NSA$_CSS_PRIMARY_NAME = 251; NSA$_CERTIF_SERIAL_NUMBER = 252; NSA$_WINDOW_END_TIME = 253; NSA$_LOG_CLOSED = 254; (* log file closed *) NSA$_LOG_OPENED = 255; (* log file opened *) NSA$_IDENTIFIERS_MISSING = 256; (* identifiers missing *) NSA$_SENSITIVE_FIELD_NAME = 257; NSA$_SENSITIVE_ORIG_DATA = 258; NSA$_SENSITIVE_NEW_DATA = 259; NSA$_SENSITIVE_FIELD_TITLE = 260; NSA$_SENSITIVE_FIELD_DATA = 261; NSA$_INSTALL_AUTHPRIVS = 262; (* installed image authorized privs *) NSA$_PERSONA_FLAGS = 263; (* persona flags *) NSA$_PERSONA_UID = 264; (* persona UID *) NSA$_PERSONA_MODE = 265; (* persona creation mode *) NSA$_PERSONA_USERNAME = 266; (* persona username *) NSA$_PERSONA_ACCOUNT = 267; (* persona account *) NSA$_PERSONA_NOAUDIT = 268; (* persona noaudit counter *) NSA$_PERSONA_UIC = 269; (* persona UIC *) NSA$_PERSONA_AUTHPRIV = 270; (* persona authorized privs *) NSA$_PERSONA_PERMPRIV = 271; (* persona permanent privs *) NSA$_PERSONA_WORKPRIV = 272; (* persona working privs *) NSA$_PERSONA_ENABLED = 273; (* persona rights enabled flags *) NSA$_PERSONA_RIGHTS = 274; (* persona rights *) NSA$_PERSONA_MINCLASS = 275; (* persona minimum classification *) NSA$_PERSONA_MAXCLASS = 276; (* persona maximum classification *) NSA$_PERSONA_WORKCLASS = 277; (* persona working classification *) NSA$_PERSONA_ID = 278; (* persona Id *) NSA$_PERSONA_POSIX_UID = 279; NSA$_PERSONA_POSIX_GID = 280; NSA$_PARENT_POSIX_UID = 281; NSA$_PARENT_POSIX_GID = 282; NSA$_MAX_ITM_CODE = 283; (* Must be last *) NSA$_CHAIN = 65535; (* For $AUDIT_EVENT item list chaining *) NSA$_CLIENT_ACCOUNT = 2; NSA$_CLIENT_SYSTEM_ID = 8; NSA$_CLIENT_SYSTEM_NAME = 7; NSA$_CLIENT_FINAL_STATUS = 48; NSA$_CLIENT_IMAGE_NAME = 19; NSA$_CLIENT_PARENT_ID = 35; NSA$_CLIENT_PARENT_OWNER = 37; NSA$_CLIENT_PARENT_NAME = 36; NSA$_CLIENT_PROCESS_ID = 41; NSA$_CLIENT_PROCESS_NAME = 42; NSA$_CLIENT_SUBJECT_CLASS = 46; NSA$_CLIENT_SUBJECT_OWNER = 47; NSA$_CLIENT_TERMINAL = 49; NSA$_CLIENT_TIME_STAMP = 50; NSA$_CLIENT_USERNAME = 56; TYPE NSADATA$TYPE = RECORD NSA$W_PACKET_SIZE : $UWORD; (* Data packet size *) NSA$W_PACKET_TYPE : $UWORD; (* Data packet type *) NSA$R_PACKET_DATA : $UBYTE; (* Start of packet data *) (* Define $AUDIT_EVENT item codes. *) END; (* Define flag masks for NSA$EVENT_AUDIT supplied parameter. *) (* Each bit set tells NSA$EVENT_AUDIT *not* to default that *) (* corresponding packet from the current process. *) CONST NSA$M_ACCOUNT_NAME = 1; NSA$M_SYSTEM_ID = 2; NSA$M_SYSTEM_NAME = 4; NSA$M_FINAL_STATUS = 8; NSA$M_IMAGE_NAME = 16; NSA$M_PARENT_ID = 32; NSA$M_PARENT_OWNER = 64; NSA$M_PARENT_NAME = 128; NSA$M_PROCESS_ID = 256; NSA$M_PROCESS_NAME = 512; NSA$M_SUBJECT_CLASS = 1024; NSA$M_SUBJECT_OWNER = 2048; NSA$M_TERMINAL = 4096; NSA$M_TIME_STAMP = 8192; NSA$M_USERNAME = 16384; NSA$M_PARENT_USERNAME = 32768; NSA$M_POSIX_UID = 65536; NSA$M_POSIX_GID = 131072; NSA$M_PARENT_POSIX_UID = 262144; NSA$M_PARENT_POSIX_GID = 524288; (* Define the format of an audit server reply message. This defines the *) (* format of the message written to any supplied reply mailbox. *) CONST NSA$C_REPLY_LENGTH = 4; NSA$K_REPLY_LENGTH = 4; TYPE NSAREPLY$TYPE = RECORD NSA$L_REPLY_STATUS : UNSIGNED; (* condition status value *) END; (* *) (* Define the structure of a message formating table entry. These entries define *) (* the order in which the data packets are displayed, and the manner in which they *) (* are formatted. *) (* *) CONST NSA$C_FMTINF_NONE = 0; (* No value to format *) NSA$C_FMTINF_LONG_VALUE = 1; (* Value is supplied as a longword *) NSA$C_FMTINF_IDENTIFIER = 2; (* Value supplied is an identifier *) NSA$C_FMTINF_DATE = 3; (* Value supplied is address of quadword date *) NSA$C_FMTINF_STRING = 4; (* String size (count) and address supplied to FAO *) NSA$C_FMTINF_CLASSIFICATION = 5; (* Vector represents a classification *) NSA$C_FMTINF_UID = 6; (* Value supplied is address of UID *) NSA$C_FMTINF_RIGHTS = 7; (* Value supplied is address of rights info *) NSA$C_FMTINF_SPECIAL = 8; (* Special processing required *) NSA$M_FMTINF_CHECK_PREVIOUS = 1; NSA$M_FMTINF_NTH_NEW_LINE = 2; NSA$M_FMTINF_NOFORMAT = 4; NSA$M_FMTINF_SENSITIVE = 8; NSA$K_FMTINF_LENGTH = 28; NSA$C_FMTINF_LENGTH = 28; (* Define the format style codes. *) CONST NSA$C_FORMAT_STYLE_BRIEF = 1; (* Single line briefly formatted message *) NSA$C_FORMAT_STYLE_FULL = 2; (* Fully formatted message *) NSA$C_FORMAT_STYLE_PACKET_TYPE = 3; (* Packet type format *) (* Define classification string format constants *) CONST NSA$C_FMTINF_MAX_SINGLE_SEC_STR = 3895; (* Simple secrecy string *) NSA$C_FMTINF_MAX_SINGLE_INT_STR = 1977; (* Simple integrity string *) NSA$C_FMTINF_MAX_RANGE_SEC_STR = 7801; (* Compound secrecy string *) NSA$C_FMTINF_MAX_RANGE_INT_STR = 3963; (* Compound integrity string *) TYPE FMTTBL$TYPE = RECORD CASE INTEGER OF 1: (NSA$L_FMTINF_PACKET_NAME : INTEGER; (* Address of the packet name descriptor *) NSA$W_FMTINF_PACKET_TYPE : $UWORD; (* Define the type of packet represented by this entry (NSA$C_PKT_xxx) *) NSA$W_FMTINF_OUTPUT_ORDER : $UWORD; (* Define the order in the output buffer *) NSA$L_FMTINF_FAO_CTRSTR : INTEGER; (* Normal FAO control string *) NSA$L_FMTINF_CLIENT_FAO_CTRSTR : INTEGER; (* FAO control string for client/server combination *) NSA$L_FMTINF_NTH_FAO_CTRSTR : INTEGER; (* FAO control string for the Nth packet of the same type *) NSA$B_FMTINF_DATA_TYPE : $UBYTE; (* Type of data to format *) NSA$R_FILL_26_ : [BYTE(1)] RECORD END; NSA$W_FMTINF_SERVER_PKT : $UWORD; (* Associated (server) packet *) NSA$W_FMTINF_INDENT : $UWORD; (* Indent for multi-line packets *) NSA$W_FMTINF_SPARE_1 : $UWORD; (* Unused *) ); 2: (NSA$B_FMTINF_FMT_FLAGS : [POS(168)] $UBYTE; ); 3: (); 4: (NSA$V_FMTINF_CHECK_PREVIOUS : [POS(168)] $BOOL; (* Check adjacency with previous output item *) NSA$V_FMTINF_NTH_NEW_LINE : [POS(169)] $BOOL; (* Force duplicate packets to a new line *) NSA$V_FMTINF_NOFORMAT : [POS(170)] $BOOL; (* Don't format the packet(s) *) NSA$V_FMTINF_SENSITIVE : [POS(171)] $BOOL; (* Packet contains sensitive information *) ) END; (* *) (* Define the structure of the format image callout block. This block is used to determine *) (* which routines should be used to format event messages and event message data packets that *) (* are unknown to the base VMS operating system. *) (* *) CONST NSA$K_IMGXFR_LENGTH = 53; NSA$C_IMGXFR_LENGTH = 53; TYPE FMTCALL$TYPE = RECORD NSA$L_IMGXFR_FLINK : INTEGER; (* Address of next entry (must be first) *) NSA$L_IMGXFR_BLINK : INTEGER; (* Address of previous entry (must be secomd) *) NSA$W_IMGXFR_SIZE : $UWORD; (* Size of entry block *) NSA$W_IMGXFR_FACILITY : $UWORD; (* Facility code for image *) NSA$L_IMGXFR_BASE_ORDER_OFFSET : UNSIGNED; (* Base output order offset *) (* Start of sharable image routine addresses *) NSA$A_IMGXFR_MESSAGE_INFO : $DEFPTR; (* Message information routine *) NSA$A_IMGXFR_VALIDATE_PACKET : $DEFPTR; (* Packet validation routine *) NSA$A_IMGXFR_DISPLAY_INFO : $DEFPTR; (* Packet display information routine *) NSA$A_IMGXFR_LINE_BREAK : $DEFPTR; (* Line break processing routine *) NSA$A_IMGXFR_FORMAT_SPECIAL : $DEFPTR; (* Special packet formatting routine *) NSA$A_IMGXFR_FORMAT_INFO : $DEFPTR; (* Normal packet formatting routine *) NSA$A_IMGXFR_FORMAT_BRIEF : $DEFPTR; (* Brief format routine *) NSA$A_IMGXFR_FORMAT_PACKET_TYPE : $DEFPTR; (* Packet type format routine *) NSA$A_IMGXFR_FORMAT_EVENT_TYPE : $DEFPTR; (* Message type/subtype format routine *) (* End of sharable image routine addresses *) NSA$T_IMGXFR_IMAGE_NAME : ARRAY [1..1] OF CHAR; (* Start of image name *) END; (* The following structure defines the common argument block passed to all the *) (* various formatting routines (which actually format information). *) CONST NSA$M_FMTARG_SENSITIVE = 1; NSA$M_FMTARG_DISPLAY_TITLE = 2; NSA$M_FMTARG_CHECK_PREVIOUS = 1; NSA$M_FMTARG_NTH_NEW_LINE = 2; NSA$M_FMTARG_NOFORMAT = 4; NSA$K_FMTARG_LENGTH = 36; NSA$C_FMTARG_LENGTH = 36; TYPE FMTARG$TYPE = RECORD CASE INTEGER OF 1: (NSA$R_FILL_29_ : [BYTE(8)] RECORD END; NSA$W_FMTARG_BUFFER_OFFSET : $UWORD; (* Current position in output buffer *) NSA$W_FMTARG_BOL_OFFSET : $UWORD; (* Offset to beginning of current line *) NSA$R_FILL_31_ : [BYTE(8)] RECORD END; NSA$W_FMTARG_LINE_WIDTH : $UWORD; (* Output display width *) NSA$W_FMTARG_LINE_INDENT : $UWORD; (* Positions to indent (when needed) *) NSA$A_FMTARG_OUTPUT_ROUTINE : INTEGER; (* Address of an output routine *) NSA$R_FILL_33_ : [BYTE(4)] RECORD END; NSA$L_FMTARG_USER_CONTEXT : UNSIGNED; (* User context cell *) ); 2: (NSA$Q_FMTARG_BUFFER : [POS(0)] $QUAD; NSA$Q_FMTARG_TERMINATOR : [POS(96)] $QUAD; NSA$L_FMTARG_FLAGS : [POS(224)] UNSIGNED; ); 3: (); 4: (NSA$W_FMTARG_BUFFER_SIZE : [POS(0)] $UWORD; (* Output buffer size *) NSA$A_FMTARG_BUFFER_POINTER : [POS(32)] INTEGER; (* Output buffer address *) NSA$W_FMTARG_TERM_SIZE : [POS(96)] $UWORD; (* Size of line terminator *) NSA$A_FMTARG_TERM_TEXT : [POS(128)] INTEGER; (* Address of terminator text *) ); 5: (NSA$W_FMTARG_FLAGS_LOW : [POS(224)] $UWORD; NSA$W_FMTARG_FLAGS_HIGH : [POS(240)] $UWORD; ); 6: (); 7: (NSA$V_FMTARG_SENSITIVE : [POS(224)] $BOOL; (* Packet contains sensitive information *) NSA$V_FMTARG_DISPLAY_TITLE : [POS(225)] $BOOL; (* Display title *) NSA$V_FMTARG_CHECK_PREVIOUS : [POS(240)] $BOOL; (* Check adjacency with previous output item *) NSA$V_FMTARG_NTH_NEW_LINE : [POS(241)] $BOOL; (* Force duplicate packets to a new line *) NSA$V_FMTARG_NOFORMAT : [POS(242)] $BOOL; (* Don't format the packet(s) *) ) END; (* The following structure defines the transfer vector area for the format image. *) CONST NSA$C_IMGXFR_MESSAGE_INFO = 0; (* Message information routine *) NSA$C_IMGXFR_VALIDATE_PACKET = 1; (* Packet validation routine *) NSA$C_IMGXFR_DISPLAY_INFO = 2; (* Packet display information routine *) NSA$C_IMGXFR_LINE_BREAK = 3; (* Line break processing routine *) NSA$C_IMGXFR_FORMAT_SPECIAL = 4; (* Special packet formatting routine *) NSA$C_IMGXFR_FORMAT_INFO = 5; (* Normal packet formatting routine *) NSA$C_IMGXFR_FORMAT_BRIEF = 6; (* Brief format routine *) NSA$C_IMGXFR_FORMAT_PACKET_TYPE = 7; (* Packet type format routine *) NSA$C_IMGXFR_FORMAT_EVENT_TYPE = 8; (* Message type/subtype format routine *) TYPE FMTXFER$TYPE = RECORD NSA$R_IMGXFR_MESSAGE_INFO : $UQUAD; (* Message information routine *) NSA$R_IMGXFR_VALIDATE_PACKET : $UQUAD; (* Packet validation routine *) NSA$R_IMGXFR_DISPLAY_INFO : $UQUAD; (* Packet display information routine *) NSA$R_IMGXFR_LINE_BREAK : $UQUAD; (* Line break processing routine *) NSA$R_IMGXFR_FORMAT_SPECIAL : $UQUAD; (* Special packet formatting routine *) NSA$R_IMGXFR_FORMAT_INFO : $UQUAD; (* Normal packet formatting routine *) NSA$R_IMGXFR_FORMAT_BRIEF : $UQUAD; (* Brief format routine *) NSA$R_IMGXFR_FORMAT_PACKET_TYPE : $UQUAD; (* Packet type format routine *) NSA$R_IMGXFR_FORMAT_EVENT_TYPE : $UQUAD; (* Message type/subtype format routine *) (* 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; (* *) (* Define block to hold access bitname information for a particular object *) (* *) CONST NSA$K_ACCNAM_LENGTH = 139; (* Length of block *) NSA$C_ACCNAM_LENGTH = 139; TYPE FMTACCNAM$TYPE = RECORD NSA$L_ACCNAM_FLINK : INTEGER; (* Address of next entry (must be first) *) NSA$L_ACCNAM_BLINK : INTEGER; (* Address of previous entry (must be secomd) *) NSA$W_ACCNAM_SIZE : $UWORD; (* Size of entry block *) NSA$L_ACCNAM_CODES : ARRAY [1..32] OF INTEGER; (* 32 pointers to access name descriptors *) NSA$T_ACCNAM_OBJECT_TYPE : ARRAY [1..1] OF CHAR; (* Start of object name *) END; (* *) (* Define the format of the message information block. This block defines some general *) (* characteristics of messages for a particular facility. *) (* *) CONST NSA$K_MSGINF_LENGTH = 8; NSA$C_MSGINF_LENGTH = 8; TYPE MSGINFO$TYPE = RECORD NSA$L_MSGINF_MAX_ORDER_OFFSET : UNSIGNED; (* Maximum (output) line index *) NSA$A_MSGINF_BRIEF_TITLE : INTEGER; (* Address of brief format titleline *) END; (* *) (* Define the structure of a formatting table subtype entry. This entry consists of *) (* a description of the subtype as well as the name of the subtype. *) (* *) CONST NSA$K_SUBTBL_LENGTH = 8; NSA$C_SUBTBL_LENGTH = 8; TYPE SUBFMTTBL$TYPE = RECORD CASE INTEGER OF 1: (NSA$R_SUBTBL_OVERLAY_3 : [BYTE(4)] RECORD END; NSA$L_SUBTBL_MNEMONIC : UNSIGNED; (* Mnemonic name for the entry *) ); 2: (NSA$L_SUBTBL_DESCRIPTION : [POS(0)] INTEGER; (* Address of the description string *) ); 3: (NSA$L_SUBTBL_TABLE_SIZE : [POS(0)] UNSIGNED; (* Number of entries in the subtable *) ) END; (* Define obsolete message types and subtypes here. *) CONST NSA$C_MSG_NETUAF = 9; NSA$C_MSG_PRIV_AUDIT = 16; NSA$C_PRIV_AUDIT = 1; NSA$C_JOBCTL_QUEUE_ACCESS = 3; NSA$C_NETUAF_ADD = 1; NSA$C_NETUAF_DELETE = 2; NSA$C_NETUAF_MODIFY = 3; NSA$C_NETUAF_NCP = 4; NSA$C_NETUAF_MAX_CODE = 8; (* Define obsolete packet types and item code equivalents here. *) CONST NSA$C_PKT_OBJECT_ID = 26; NSA$_OBJECT_ID = 26; (* Define packet pseudonyms here. *) CONST NSA$C_PKT_PRIV_MASK = 22; NSA$_PRIV_MASK = 22; NSA$C_PKT_PRIVILEGES = 22; NSA$_PRIVILEGES = 22; NSA$C_PKT_SNAPSHOT_FILNAM = 158; NSA$_SNAPSHOT_FILNAM = 158; NSA$C_PKT_PERFORMANCE_NOP = 80; NSA$_PERFORMANCE_NOP = 80; NSA$C_PKT_SUPPLIED_FLAGS = 190; NSA$_SUPPLIED_FLAGS = 190; (*** MODULE $NSARECDEF ***) (*+ *) (* Security Auditing record definitions *) (*- *) CONST NSA$C_REC_MAXLENGTH = 1024; (* Maximum record size *) NSA$K_REC_MAXLENGTH = 1024; (* Maximum record size *) NSA$S_REC_MAXLENGTH = 1024; (* Maximum record size *) (*+ *) (* Audit record type definitions *) (*- *) CONST NSA$K_RECTYP_FIL = 1; (* File access *) NSA$K_RECTYP_SYSUAF = 2; (* System UAF *) NSA$K_RECTYP_NETUAF = 3; (* Network UAF *) NSA$K_RECTYP_LOGB = 4; (* Login breakin detection *) NSA$K_RECTYP_LOGI = 5; (* Successful login *) NSA$K_RECTYP_LOGF = 6; (* Login failure *) NSA$K_RECTYP_LOGO = 7; (* Logout *) NSA$K_RECTYP_VOL = 8; (* Volume operations *) NSA$K_RECTYP_GBL = 9; (* Global section access *) NSA$K_RECTYP_INSTAL = 10; (* INSTALL operations *) NSA$K_RECTYP_RIGHTS = 11; (* Rights database operations *) NSA$K_RECTYP_AUDIT = 12; (* SET AUDIT operations *) NSA$K_RECTYPNUM = 12; (*+ *) (* Audit record subtype and ID definitions *) (*- *) (* File access *) CONST NSA$K_RECTYP_FIL_SUCC = 1; (* Successful file access *) NSA$K_RECTYP_FIL_FAIL = 2; (* File access failure *) NSA$K_RECTYPNUM_FIL = 2; NSA$K_RECID_FIL_SUCC = 65537; NSA$K_RECID_FIL_FAIL = 131073; (* Global section access *) CONST NSA$K_RECTYP_GBL_SUCC = 1; (* Successful Global section access *) NSA$K_RECTYP_GBL_FAIL = 2; (* Global section access failure *) NSA$K_RECTYPNUM_GBL = 2; NSA$K_RECID_GBL_SUCC = 65545; NSA$K_RECID_GBL_FAIL = 131081; (* System UAF *) CONST NSA$K_RECTYP_SYSUAF_ADD = 1; (* System UAF record addition *) NSA$K_RECTYP_SYSUAF_DEL = 2; (* System UAF record deletion *) NSA$K_RECTYP_SYSUAF_MOD = 3; (* System UAF record modification *) NSA$K_RECTYP_SYSUAF_COP = 4; (* System UAF record copied *) NSA$K_RECTYP_SYSUAF_REN = 5; (* System UAF record renamed *) NSA$K_RECTYPNUM_SYSUAF = 5; NSA$K_RECID_SYSUAF_ADD = 65538; NSA$K_RECID_SYSUAF_DEL = 131074; NSA$K_RECID_SYSUAF_MOD = 196610; NSA$K_RECID_SYSUAF_COP = 262146; NSA$K_RECID_SYSUAF_REN = 327682; (* Network UAF *) CONST NSA$K_RECTYP_NETUAF_ADD = 1; (* Network UAF record addition *) NSA$K_RECTYP_NETUAF_DEL = 2; (* Network UAF record deletion *) NSA$K_RECTYP_NETUAF_MOD = 3; (* Network UAF record modification *) NSA$K_RECTYPNUM_NETUAF = 3; NSA$K_RECID_NETUAF_ADD = 65539; NSA$K_RECID_NETUAF_DEL = 131075; NSA$K_RECID_NETUAF_MOD = 196611; (* Login breakin detection *) CONST NSA$K_RECTYP_LOGB_DIA = 1; (* Dialup interactive breakin detection *) NSA$K_RECTYP_LOGB_LOC = 2; (* Local interactive breakin detection *) NSA$K_RECTYP_LOGB_REM = 3; (* Remote interactive breakin detection *) NSA$K_RECTYP_LOGB_NET = 4; (* Network breakin detection *) NSA$K_RECTYP_LOGB_DET = 5; (* Detached process breakin detection *) NSA$K_RECTYPNUM_LOGB = 5; NSA$K_RECID_LOGB_DIA = 65540; NSA$K_RECID_LOGB_LOC = 131076; NSA$K_RECID_LOGB_REM = 196612; NSA$K_RECID_LOGB_NET = 262148; NSA$K_RECID_LOGB_DET = 327684; (* Successful login *) CONST NSA$K_RECTYP_LOGI_BAT = 1; (* Batch process login *) NSA$K_RECTYP_LOGI_DIA = 2; (* Dialup interactive login *) NSA$K_RECTYP_LOGI_LOC = 3; (* Local interactive login *) NSA$K_RECTYP_LOGI_REM = 4; (* Remote interactive login *) NSA$K_RECTYP_LOGI_NET = 5; (* Network login *) NSA$K_RECTYP_LOGI_SUB = 6; (* Subprocess login *) NSA$K_RECTYP_LOGI_DET = 7; (* Detached process login *) NSA$K_RECTYPNUM_LOGI = 7; NSA$K_RECID_LOGI_BAT = 65541; NSA$K_RECID_LOGI_DIA = 131077; NSA$K_RECID_LOGI_LOC = 196613; NSA$K_RECID_LOGI_REM = 262149; NSA$K_RECID_LOGI_NET = 327685; NSA$K_RECID_LOGI_SUB = 393221; NSA$K_RECID_LOGI_DET = 458757; (* Login failure *) CONST NSA$K_RECTYP_LOGF_BAT = 1; (* Batch process login failure *) NSA$K_RECTYP_LOGF_DIA = 2; (* Dialup interactive login failure *) NSA$K_RECTYP_LOGF_LOC = 3; (* Local interactive login failure *) NSA$K_RECTYP_LOGF_REM = 4; (* Remote interactive login failure *) NSA$K_RECTYP_LOGF_NET = 5; (* Network login failure *) NSA$K_RECTYP_LOGF_SUB = 6; (* Subprocess login failure *) NSA$K_RECTYP_LOGF_DET = 7; (* Detached process login failure *) NSA$K_RECTYPNUM_LOGF = 7; NSA$K_RECID_LOGF_BAT = 65542; NSA$K_RECID_LOGF_DIA = 131078; NSA$K_RECID_LOGF_LOC = 196614; NSA$K_RECID_LOGF_REM = 262150; NSA$K_RECID_LOGF_NET = 327686; NSA$K_RECID_LOGF_SUB = 393222; NSA$K_RECID_LOGF_DET = 458758; (* Logout *) CONST NSA$K_RECTYP_LOGO_BAT = 1; (* Batch process logout *) NSA$K_RECTYP_LOGO_DIA = 2; (* Dialup interactive logout *) NSA$K_RECTYP_LOGO_LOC = 3; (* Local interactive logout *) NSA$K_RECTYP_LOGO_REM = 4; (* Remote interactive logout *) NSA$K_RECTYP_LOGO_NET = 5; (* Network logout *) NSA$K_RECTYP_LOGO_SUB = 6; (* Subprocess logout *) NSA$K_RECTYP_LOGO_DET = 7; (* Detached process logout *) NSA$K_RECTYPNUM_LOGO = 7; NSA$K_RECID_LOGO_BAT = 65543; NSA$K_RECID_LOGO_DIA = 131079; NSA$K_RECID_LOGO_LOC = 196615; NSA$K_RECID_LOGO_REM = 262151; NSA$K_RECID_LOGO_NET = 327687; NSA$K_RECID_LOGO_SUB = 393223; NSA$K_RECID_LOGO_DET = 458759; (* Volume operations *) CONST NSA$K_RECTYP_VOL_MOU = 1; (* Volume mounts *) NSA$K_RECTYP_VOL_DMOU = 2; (* Volume dismounts *) NSA$K_RECTYPNUM_VOL = 2; NSA$K_RECID_VOL_MOU = 65544; NSA$K_RECID_VOL_DMOU = 131080; (* INSTALL operations *) CONST NSA$K_RECTYP_INSTAL_ADD = 1; (* Add known file *) NSA$K_RECTYP_INSTAL_REM = 2; (* Remove known file *) NSA$K_RECTYPNUM_INSTAL = 2; (* Rights database operations *) CONST NSA$K_RECTYP_RIGHTS_CRE = 1; (* Create rights database *) NSA$K_RECTYP_RIGHTS_ADD = 2; (* Add identifier *) NSA$K_RECTYP_RIGHTS_REM = 3; (* Remove identifier *) NSA$K_RECTYP_RIGHTS_MOD_ID = 4; (* Modify identifier *) NSA$K_RECTYP_RIGHTS_MOD_HO = 5; (* Modify identifier holder *) NSA$K_RECTYP_RIGHTS_GRANT = 6; (* Grant identifier *) NSA$K_RECTYP_RIGHTS_REVOK = 7; (* Revoke identifier *) NSA$K_RECTYPNUM_RIGHTS = 7; (* SET AUDIT operations *) CONST NSA$K_RECTYP_AUDIT_ENA_AL = 1; (* Enable alarm *) NSA$K_RECTYP_AUDIT_DIS_AL = 2; (* Disable alarm *) NSA$K_RECTYP_AUDIT_ENA_JL = 3; (* Enable journal *) NSA$K_RECTYP_AUDIT_DIS_JL = 4; (* Disable journal *) NSA$K_RECTYPNUM_AUDIT = 4; (*+ *) (* SYSUAFF stuff *) (*- *) TYPE sysuaff_bits$TYPE = RECORD CASE INTEGER OF 1: (nsa$r_fill_41_ : [BYTE(8)] RECORD END; ); 2: (nsa$q_sysuaff : [POS(0)] $UQUAD; (* SYSUAFF flags: *) ); 3: (); 4: (nsa$v_access : [POS(0)] $BOOL; (* ACCESS modified *) nsa$v_account : [POS(1)] $BOOL; (* ACCOUNT modified *) nsa$v_astlm : [POS(2)] $BOOL; (* ASTLM modified *) nsa$v_batch : [POS(3)] $BOOL; (* BATCH modified *) nsa$v_biolm : [POS(4)] $BOOL; (* BIOLM modified *) nsa$v_bytlm : [POS(5)] $BOOL; (* BYTLM modified *) nsa$v_cli : [POS(6)] $BOOL; (* CLI modified *) nsa$v_clitables : [POS(7)] $BOOL; (* CLITABLES modified *) nsa$v_cputime : [POS(8)] $BOOL; (* CPUTIME modified *) nsa$v_defprivileges : [POS(9)] $BOOL; (* DEFPRIVILEGES modified *) nsa$v_device : [POS(10)] $BOOL; (* DEVICE modified *) nsa$v_dialup : [POS(11)] $BOOL; (* DIALUP modified *) nsa$v_diolm : [POS(12)] $BOOL; (* DIOLM modified *) nsa$v_directory : [POS(13)] $BOOL; (* DIRECTORY modified *) nsa$v_enqlm : [POS(14)] $BOOL; (* ENQLM modified *) nsa$v_expiration : [POS(15)] $BOOL; (* EXPIRATION modified *) nsa$v_fillm : [POS(16)] $BOOL; (* FILLM modified *) nsa$v_flags : [POS(17)] $BOOL; (* FLAGS modified *) nsa$v_interactive : [POS(18)] $BOOL; (* INTERACTIVE modified *) nsa$v_jtquota : [POS(19)] $BOOL; (* JTQUOTA modified *) nsa$v_lgicmd : [POS(20)] $BOOL; (* LGICMD modified *) nsa$v_local : [POS(21)] $BOOL; (* LOCAL modified *) nsa$v_maxdetach : [POS(22)] $BOOL; (* MAXDETACH modified *) nsa$v_maxjobs : [POS(23)] $BOOL; (* MAXJOBS modified *) nsa$v_maxacctjobs : [POS(24)] $BOOL; (* MAXACCTJOBS modified *) nsa$v_network : [POS(25)] $BOOL; (* NETWORK modified *) nsa$v_owner : [POS(26)] $BOOL; (* OWNER modified *) nsa$v_password : [POS(27)] $BOOL; (* PASSWORD modified *) nsa$v_pbytlm : [POS(28)] $BOOL; (* PBYTLM modified *) nsa$v_pflags : [POS(29)] $BOOL; (* PFLAGS modified *) nsa$v_p_restrict : [POS(30)] $BOOL; (* P_RESTRICT modified *) nsa$v_pgflquota : [POS(31)] $BOOL; (* PGFLQUOTA modified *) nsa$v_prclm : [POS(32)] $BOOL; (* PRCLM modified *) nsa$v_primedays : [POS(33)] $BOOL; (* PRIMEDAYS modified *) nsa$v_priority : [POS(34)] $BOOL; (* PRIORITY modified *) nsa$v_privileges : [POS(35)] $BOOL; (* PRIVILEGES modified *) nsa$v_pwdlifetime : [POS(36)] $BOOL; (* PWDLIFETIME modified *) nsa$v_pwdminimum : [POS(37)] $BOOL; (* PWDMINIMUM modified *) nsa$v_quepriority : [POS(38)] $BOOL; (* QUEPRIORITY modified *) nsa$v_remote : [POS(39)] $BOOL; (* REMOTE modified *) nsa$v_sflags : [POS(40)] $BOOL; (* SFLAGS modified *) nsa$v_s_restrict : [POS(41)] $BOOL; (* S_RESTRICT modified *) nsa$v_shrfillm : [POS(42)] $BOOL; (* SHRFILLM modified *) nsa$v_tqelm : [POS(43)] $BOOL; (* TQELM modified *) nsa$v_uic : [POS(44)] $BOOL; (* UIC modified *) nsa$v_wsdefault : [POS(45)] $BOOL; (* WSDEFAULT modified *) nsa$v_wsextent : [POS(46)] $BOOL; (* WSEXTENT modified *) nsa$v_wsquota : [POS(47)] $BOOL; (* WSQUOTA modified *) ) END; (*+ *) (* Record header offset definitions *) (*- *) CONST NSA$M_REC_FLAGS_PKTCON = 1; NSA$C_RECHDR_LENGTH = 76; NSA$K_RECHDR_LENGTH = 76; TYPE NSARECHDR$TYPE = RECORD CASE INTEGER OF 1: (NSA$R_REC_ID_OVERLAY : [BYTE(4)] RECORD END; NSA$B_REC_SEQNUM : $UBYTE; (* This records sequence number *) NSA$B_REC_SEQLAST : $UBYTE; (* Last records sequence number *) NSA$R_REC_FLAGS_OVERLAY : [BYTE(1)] RECORD END; NSA$B_REC_PKTNUM : $UBYTE; (* Number of data packets in record *) NSA$W_REC_PKTOFF : $UWORD; (* Offset to first packet *) NSA$W_REC_PKTHDRSIZ : $UWORD; (* Data packet header size *) NSA$L_REC_EPID : UNSIGNED; (* Extended PID *) NSA$Q_REC_TIME : $UQUAD; (* Event time (EXE$GQ_SYSTIME) *) NSA$T_REC_CLUSNAM : PACKED ARRAY [1..16] OF CHAR; (* Cluster node name *) NSA$T_REC_PROCNAM : PACKED ARRAY [1..16] OF CHAR; (* Process name *) NSA$T_REC_USERNAM : PACKED ARRAY [1..12] OF CHAR; (* username *) NSA$T_REC_ACCTNAM : PACKED ARRAY [1..8] OF CHAR; (* Account name *) ); 2: (NSA$L_REC_ID : [POS(0)] UNSIGNED; (* Record identification longword *) NSA$B_REC_FLAGS : [POS(48)] $UBYTE; (* Record flags byte *) ); 3: (); 4: (NSA$W_REC_TYPE : [POS(0)] $UWORD; (* Record type *) NSA$W_REC_SUBTYPE : [POS(16)] $UWORD; (* Record subtype *) NSA$V_REC_FLAGS_PKTCON : [POS(48)] $BOOL; (* Last packet in record is *) (* continued in next record *) ) END; (*+ *) (* Data packet type definitions *) (*- *) CONST NSA$K_PKTTYP_IMGNAM = 1; (* Image name packet *) NSA$K_PKTTYP_FACMOD = 2; (* File access mode *) NSA$K_PKTTYP_PRIVUSED = 3; (* Privilege used to access file *) NSA$K_PKTTYP_FILNAM = 4; (* File name *) NSA$K_PKTTYP_DEVNAM = 5; (* Device name *) NSA$K_PKTTYP_LOGNAM = 6; (* Logical name *) NSA$K_PKTTYP_VOLNAM = 7; (* Volume name *) NSA$K_PKTTYP_VOLSNAM = 8; (* Volume set name *) NSA$K_PKTTYP_NODENAM = 9; (* Node name *) NSA$K_PKTTYP_USERNAM = 10; (* User name *) NSA$K_PKTTYP_PASSWORD = 11; (* Password *) NSA$K_PKTTYP_UIC = 12; (* User identification code *) NSA$K_PKTTYP_VOLPRO = 13; (* Volume protection *) NSA$K_PKTTYP_MOUFLG = 14; (* Mount flags *) NSA$K_PKTTYP_DMOUFLG = 15; (* Dismount flags *) NSA$K_PKTTYP_NODEID = 16; (* Node ID *) NSA$K_PKTTYP_EPID = 17; (* Extended PID *) NSA$K_PKTTYP_SYSUAFF = 18; (* System UAF record fields *) NSA$K_PKTTYP_STATUS = 19; (* Status longword *) NSA$K_PKTTYP_SECNAM = 20; (* Global section name *) NSA$K_PKTTYP_PRIVS = 21; (* Full privilege mask *) NSA$K_PKTTYP_INSFLG = 22; (* Install flags *) NSA$K_PKTTYP_IDNAME = 23; (* Identifier name *) NSA$K_PKTTYP_IDVAL = 24; (* Identifier value *) NSA$K_PKTTYP_IDATTR = 25; (* Identifier attributes *) NSA$K_PKTTYP_HOLDER = 26; (* Identifier holder *) NSA$K_PKTTYP_AUDIT = 27; (* Audit item *) NSA$K_PKTTYP_DEFUSERNAM = 28; (* Default proxy name *) NSA$K_PKTTYP_OLDUSERNAM = 29; (* Old proxy name *) NSA$K_PKTTYP_OLDDEFUNAM = 30; (* Old default local proxy name *) NSA$K_PKTTYP_OLDNODENAM = 31; (* Old remote node name *) NSA$K_PKTTYPNUM = 31; (*+ *) (* Data packet offset definitions *) (*- *) CONST NSA$C_PKTHDR_LENGTH = 4; NSA$K_PKTHDR_LENGTH = 4; NSA$M_PKT_INS_OPEN = 2; NSA$M_PKT_INS_HDR = 4; NSA$M_PKT_INS_SHARE = 8; NSA$M_PKT_INS_EXEC = 16; NSA$M_PKT_INS_WRITE = 32; NSA$M_PKT_INS_PRIV = 64; NSA$M_PKT_INS_PROT = 128; NSA$M_PKT_INS_NOPRG = 256; NSA$M_PKT_INS_ACC = 512; NSA$M_PKT_INS_RESIDENT = 1024; TYPE NSAPKT$TYPE = RECORD (* WARNING: aggregate has origin of -4 *) CASE INTEGER OF 1: (NSA$W_PKT_TYPE : $UWORD; (* Packet data type *) NSA$W_PKT_SIZE : $UWORD; (* Packet size *) NSA$T_PKT_DATA : RECORD END ; NSA$R_PKT_DATA_OVERLAY : [BYTE(444)] RECORD END; ); 2: (NSA$T_PKT_IMGNAM : [POS(32)] PACKED ARRAY [1..444] OF CHAR; (* Image name *) ); 3: (NSA$L_PKT_FACMOD : [POS(32)] UNSIGNED; (* File access mode *) ); 4: (NSA$L_PKT_PRIVUSED : [POS(32)] UNSIGNED; (* Privilege used to access file *) ); 5: (NSA$T_PKT_FILNAM : [POS(32)] PACKED ARRAY [1..444] OF CHAR; (* File name *) ); 6: (NSA$T_PKT_DEVNAM : [POS(32)] PACKED ARRAY [1..64] OF CHAR; (* Device and access port name *) ); 7: (NSA$T_PKT_LOGNAM : [POS(32)] PACKED ARRAY [1..255] OF CHAR; (* Logical name *) ); 8: (NSA$T_PKT_VOLNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume name *) ); 9: (NSA$T_PKT_VOLSNAM : [POS(32)] PACKED ARRAY [1..12] OF CHAR; (* Volume set name *) ); 10: (NSA$T_PKT_NODENAM : [POS(32)] PACKED ARRAY [1..6] OF CHAR; (* Node name *) ); 11: (NSA$T_PKT_USERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* User name *) ); 12: (NSA$T_PKT_PASSWORD : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Password *) ); 13: (NSA$L_PKT_UIC : [POS(32)] UNSIGNED; (* Volume UIC *) ); 14: (NSA$W_PKT_VOLPRO : [POS(32)] $UWORD; (* Volume protection *) ); 15: (NSA$L_PKT_MOUFLG : [POS(32)] UNSIGNED; (* Mount flags *) ); 16: (NSA$W_PKT_DMOUFLG : [POS(32)] $UWORD; (* Dismount flags *) ); 17: (NSA$Q_PKT_NODEID : [POS(32)] $UQUAD; (* Node ID *) ); 18: (NSA$L_PKT_EPID : [POS(32)] UNSIGNED; (* Extended PID *) ); 19: (NSA$Q_PKT_SYSUAFF : [POS(32)] $UQUAD; (* System UAF record fields *) ); 20: (NSA$L_PKT_STATUS : [POS(32)] UNSIGNED; (* Status longword *) ); 21: (NSA$T_PKT_SECNAM : [POS(32)] PACKED ARRAY [1..54] OF CHAR; (* Global section name *) ); 22: (NSA$Q_PKT_PRIVS : [POS(32)] $UQUAD; (* Full privilege mask *) ); 23: (); 24: (NSA$L_PKT_INSFLG : [POS(32)] UNSIGNED; (* Install flags *) ); 25: (); 26: (NSA$V_PKT_INS_OPEN : [POS(33)] $BOOL; (* /OPEN *) NSA$V_PKT_INS_HDR : [POS(34)] $BOOL; (* /HEADER_RESIDENT *) NSA$V_PKT_INS_SHARE : [POS(35)] $BOOL; (* /SHARE *) NSA$V_PKT_INS_EXEC : [POS(36)] $BOOL; (* /EXECUTE *) NSA$V_PKT_INS_WRITE : [POS(37)] $BOOL; (* /WRITE *) NSA$V_PKT_INS_PRIV : [POS(38)] $BOOL; (* /PRIVILEGE *) NSA$V_PKT_INS_PROT : [POS(39)] $BOOL; (* /PROTECTED *) NSA$V_PKT_INS_NOPRG : [POS(40)] $BOOL; (* /NOPURGE *) NSA$V_PKT_INS_ACC : [POS(41)] $BOOL; (* /ACCOUNTING *) NSA$V_PKT_INS_RESIDENT : [POS(42)] $BOOL; (* /RESIDENT *) ); 27: (NSA$T_PKT_IDNAME : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Identifier name *) ); 28: (NSA$L_PKT_IDVAL : [POS(32)] UNSIGNED; (* Identifier value *) ); 29: (NSA$L_PKT_IDATTR : [POS(32)] UNSIGNED; (* Identifier attributes *) ); 30: (NSA$Q_PKT_HOLDER : [POS(32)] $UQUAD; (* Identifier holder *) ); 31: (NSA$R_PKT_AUDIT : [POS(32)] RECORD END ; (* Audit item (not used) *) ); 32: (NSA$T_PKT_DEFUSERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Default proxy name *) ); 33: (NSA$T_PKT_OLDUSERNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Old proxy name *) ); 34: (NSA$T_PKT_OLDDEFUNAM : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* Old default local proxy name *) ); 35: (NSA$T_PKT_OLDNODENAM : [POS(32)] PACKED ARRAY [1..6] OF CHAR; (* Old remote node name *) ) END; (*** MODULE $OPRDEF ***) (*+ *) (* OPERATOR COMMUNICATIONS MESSAGE TYPES AND VALUES These are now obsolete. *) (*- *) (* OPERATOR MESSAGE TYPES *) CONST OPR$_TERMENABL = 1; (* ENABLE TERMINAL *) OPR$_LOGINIT = 2; (* INITIALIZE THE LOG *) OPR$_OPRQST = 3; (* OPERATOR REQUEST *) OPR$_OPREPLY = 4; (* OPERATOR REPLY *) OPR$M_CENTRAL = 1; OPR$M_PRINTER = 2; OPR$M_TAPES = 4; OPR$M_DISKS = 8; OPR$M_DEVICES = 16; OPR$M_USER1 = 131040; OPR$M_USER2 = 131072; OPR$M_USER3 = 262144; OPR$M_USER4 = 524288; OPR$M_USER5 = 1048576; OPR$M_USER6 = 2097152; OPR$M_USER7 = 4194304; OPR$M_USER8 = 8388608; OPR$M_USER9 = 16777216; OPR$M_USER10 = 33554432; OPR$M_USER11 = 67108864; OPR$M_USER12 = 134217728; TYPE OPR$TYPE = RECORD CASE INTEGER OF (* Obsolete. *) 1: (OPR$R_OPRDEF_BITS : [BYTE(4)] RECORD END; (* Obsolete. *) ); 2: (OPR$V_CENTRAL : [POS(0)] $BOOL; (* Obsolete. *) OPR$V_PRINTER : [POS(1)] $BOOL; (* Obsolete. *) OPR$V_TAPES : [POS(2)] $BOOL; (* Obsolete. *) OPR$V_DISKS : [POS(3)] $BOOL; (* Obsolete. *) OPR$V_DEVICES : [POS(4)] $BOOL; (* Obsolete. *) OPR$V_USER1 : [POS(5)] $BIT12; (* Obsolete. *) OPR$V_USER2 : [POS(17)] $BOOL; (* Obsolete. *) OPR$V_USER3 : [POS(18)] $BOOL; (* Obsolete. *) OPR$V_USER4 : [POS(19)] $BOOL; (* Obsolete. *) OPR$V_USER5 : [POS(20)] $BOOL; (* Obsolete. *) OPR$V_USER6 : [POS(21)] $BOOL; (* Obsolete. *) OPR$V_USER7 : [POS(22)] $BOOL; (* Obsolete. *) OPR$V_USER8 : [POS(23)] $BOOL; (* Obsolete. *) OPR$V_USER9 : [POS(24)] $BOOL; (* Obsolete. *) OPR$V_USER10 : [POS(25)] $BOOL; (* Obsolete. *) OPR$V_USER11 : [POS(26)] $BOOL; (* Obsolete. *) OPR$V_USER12 : [POS(27)] $BOOL; (* Obsolete. *) ) END; (*** MODULE $OSSDEF ***) (*+ *) (* Object Security Service processing flag *) (* and itemcode definitions. *) (*- *) CONST OSS$M_WLOCK = 1; OSS$M_RELCTX = 2; OSS$M_LOCAL = 4; TYPE OSS$TYPE = RECORD CASE INTEGER OF 1: (OSS$R_FLAGS_BITS : [BYTE(1)] RECORD END; ); 2: (OSS$V_WLOCK : [POS(0)] $BOOL; (* Maintain Write lock *) OSS$V_RELCTX : [POS(1)] $BOOL; (* Release context *) OSS$V_LOCAL : [POS(2)] $BOOL; (* update local profile only *) ) END; CONST OSS$_ACCESS_NAMES = 1; (* *) OSS$_ACCESS_NAMES_LENGTH = 2; (* *) OSS$_ACL_ADD_ENTRY = 3; (* *) OSS$_ACL_DELETE_ENTRY = 4; (* *) OSS$_ACL_DELETE = 5; (* *) OSS$_ACL_DELETE_ALL = 6; (* *) OSS$_ACL_FIND_ENTRY = 7; (* *) OSS$_ACL_FIND_NEXT = 8; (* *) OSS$_ACL_FIND_TYPE = 9; (* *) OSS$_ACL_GRANT_ACE = 10; (* *) OSS$_ACL_LENGTH = 11; (* *) OSS$_ACL_MODIFY_ENTRY = 12; (* *) OSS$_ACL_POSITION = 13; (* *) OSS$_ACL_POSITION_TOP = 14; (* *) OSS$_ACL_POSITION_BOTTOM = 15; (* *) OSS$_ACL_READ_ENTRY = 16; (* *) OSS$_ACL_READ = 17; (* *) OSS$_MAX_CLASS = 18; (* *) OSS$_MIN_CLASS = 19; (* *) OSS$_NEXT_OBJECT = 20; (* *) OSS$_OWNER = 21; (* *) OSS$_PROTECTION = 22; (* *) OSS$_SYS_PROT = 23; (* *) OSS$_OWN_PROT = 24; (* *) OSS$_GRP_PROT = 25; (* *) OSS$_WOR_PROT = 26; (* *) OSS$_CLASS_NAME = 27; (* *) OSS$_FIRST_TEMPLATE = 28; (* *) OSS$_NEXT_TEMPLATE = 29; (* *) OSS$_OBJECT_NAME = 30; (* *) OSS$_ACCESS_CLASS_NAME = 31; (* *) OSS$_DAMAGED_ACL = 32; (* *) OSS$_IN_TRANSITION = 33; (* *) OSS$_TRANQUILITY_COUNT = 34; OSS$_POSIX_GID = 35; (* Posix Group ID *) OSS$_POSIX_GRP_MODE = 36; (* Posix Group Mode Permission *) OSS$_POSIX_MODE = 37; (* Posix Mode Permissions (all) *) OSS$_POSIX_SGID = 38; (* Posix SETGID Effective Group ID *) OSS$_POSIX_SUID = 39; (* Posix SETUID Effective User ID *) OSS$_ACCESS_BITNAMES = 1; OSS$_ACCESS_BITNAMES_LENGTH = 2; OSS$_ACL_ADDACE = 3; OSS$_ACL_DELACE = 4; OSS$_ACL_FNDACE = 7; OSS$_ACL_FNDNXT = 8; OSS$_ACL_FNDTYP = 9; OSS$_ACL_MODACE = 12; OSS$_ACL_READACE = 16; (*** MODULE PAGEDEF ***) CONST MMG$C_VAX_PAGE_SIZE = 512; (* SIZE OF VAX PAGE *) MMG$C_ALPHA_MAX_PAGE_SIZE = 65536; (* MAX. PAGE SIZE *) IOC$C_DISK_BLKSIZ = 512; (* STANDARD DISK BLOCK SIZE *) IOC$C_CD_DVD_BLKSIZ = 2048; (* Typical CD and DVD sector size *) IOC$M_BLOCK_BYTEMASK = 511; IOC$M_BLOCK_BLKNUM = -512; TYPE BLOCK$TYPE = RECORD CASE INTEGER OF 1: (IOC$R_BLOCKDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (IOC$V_BLOCK_BYTEMASK : [POS(0)] $BIT9; (*BYTE VIELD *) IOC$V_BLOCK_BLKNUM : [POS(9)] $BIT23; (*BLOCK NUMBER *) ) END; CONST IOC$M_DVDBLK_BYTEMASK = 2047; IOC$M_DVDBLK_BLKNUM = -2048; TYPE DVDBLK$TYPE = RECORD CASE INTEGER OF 1: (IOC$R_DVDBLKDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (IOC$V_DVDBLK_BYTEMASK : [POS(0)] $BIT11; (* CD/DVD Vield *) IOC$V_DVDBLK_BLKNUM : [POS(11)] $BIT21; (* CD/DVD Block Number *) ) END; (*** MODULE $PCCDEF ***) (*+ *) (* PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS *) (*-- *) CONST PCC$M_CHAR = 31; PCC$M_EIGHTBIT = 64; PCC$M_SINGLE = 128; PCC$M_LINECNT = 127; PCC$_FTN_SINGLE = 32; (* SINGLE SPACE *) PCC$_FTN_DOUBLE = 48; (* DOUBLE SPACE *) PCC$_FTN_PAGE = 49; (* PAGE SPACE *) PCC$_FTN_OVRPRT = 43; (* OVER PRINT *) PCC$_FTN_PROMPT = 36; (* PROMPT *) TYPE PCC$TYPE = RECORD CASE INTEGER OF 1: (PCC$W_FORTRAN : $UWORD; (* FORTRAN FIELD *) PCC$R_PREFIX_OVERLAY : [BYTE(1)] RECORD END; (* PREFIX FIELD *) PCC$R_POSTFIX_OVERLAY : [BYTE(1)] RECORD END; ); 2: (PCC$B_PREFIX : [POS(16)] $UBYTE; PCC$B_POSTFIX : [POS(24)] $UBYTE; (* POSTFIX FIELD *) ); 3: (); 4: (PCC$V_CHAR : [POS(24)] $BIT5; (* CHARACTER FIELD *) PCC$V_EIGHTBIT : [POS(30)] $BOOL; (* EIGHTBIT CHARACTER SET *) PCC$V_SINGLE : [POS(31)] $BOOL; (* SINGLE CHARACTER *) ); 5: (); 6: (PCC$V_LINECNT : [POS(24)] $BIT7; (* LINE COUNT FOR NEWLINES *) (* FORTRAN CONSTANTS *) ) END; (*** MODULE $PDSCDEF ***) (* *) (* Procedure descriptor offset definitions for the Alpha-32 calling standard. *) (* This definition includes the offsets and fields for stack frame (SF) and *) (* register frame (RF) procedure descriptors. *) (* *) CONST PDSC$K_KIND_BOUND = 0; (* bound procedure *) PDSC$K_KIND_NULL = 8; (* null procedure *) PDSC$K_KIND_FP_STACK = 9; (* SF procedure *) PDSC$K_KIND_FP_REGISTER = 10; (* RF procedure *) PDSC$M_HANDLER_VALID = 16; PDSC$M_HANDLER_REINVOKABLE = 32; PDSC$M_HANDLER_DATA_VALID = 64; PDSC$M_BASE_REG_IS_FP = 128; PDSC$M_REI_RETURN = 256; PDSC$M_STACK_RETURN_VALUE = 512; PDSC$M_BASE_FRAME = 1024; PDSC$M_TARGET_INVO = 2048; PDSC$M_NATIVE = 4096; PDSC$M_NO_JACKET = 8192; PDSC$M_TIE_FRAME = 16384; PDSC$M_FUNC_RETURN = 15; PDSC$M_EXCEPTION_MODE = 112; PDSC$K_EXC_MODE_SIGNAL = 0; (* signal *) PDSC$K_EXC_MODE_SIGNAL_ALL = 1; (* signal all *) PDSC$K_EXC_MODE_SIGNAL_SILENT = 2; (* signal silent *) PDSC$K_EXC_MODE_FULL_IEEE = 3; (* signal full ieee *) PDSC$K_EXC_MODE_CALLER = 4; (* use caller's mode *) PDSC$K_NULL_SIZE = 16; (* length of NULL descriptor *) PDSC$K_BOUND_SIZE = 24; (* length of the basic bound precedure descriptor *) PDSC$K_MIN_BOUND_SIZE = 24; (* minimum size of the basic bound procedure descriptor *) PDSC$K_MIN_LENGTH_SF = 32; (* length of required portion of SF descriptor *) PDSC$K_MIN_STACK_SIZE = 32; (* min size of SF descriptor *) PDSC$K_MAX_STACK_SIZE = 48; (* max size of SF descriptor *) PDSC$K_MIN_LENGTH_RF = 24; (* length of required portion of RF descriptor *) PDSC$K_MIN_REGISTER_SIZE = 24; (* min size of RF descriptor *) PDSC$K_MAX_REGISTER_SIZE = 40; (* max size of RF descriptor *) PDSC$K_BOUND_ENVIRONMENT_SIZE = 32; (* length of the bound precedure descriptor with environment *) TYPE PDSC$TYPE = RECORD CASE INTEGER OF 1: (PDSC$R_FILL_52_ : [BYTE(2)] RECORD END; PDSC$R_RSA_OFFSET_OVERLAY : [BYTE(2)] RECORD END; PDSC$B_ENTRY_RA : $BYTE; (* register in which return address is passed *) PDSC$R_MORE_FLAGS_STRUCT : [BYTE(1)] RECORD END; PDSC$W_SIGNATURE_OFFSET : $WORD; (* offset from procedure descriptor to signature *) PDSC$R_FILL_54_ : [BYTE(8)] RECORD END; PDSC$R_SIZE_OVERLAY : [BYTE(8)] RECORD END; (* *) PDSC$R_KIND_SPECIFIC : [BYTE(24)] RECORD END; ); 2: (PDSC$W_FLAGS : [POS(0)] $UWORD; (* flags including procedure kind bitfield *) PDSC$W_RSA_OFFSET : [POS(16)] $WORD; (* offset to register save area from base (SF only) *) PDSC$V_FUNC_RETURN : [POS(40)] $BIT4; (* register specificatons for function value return *) PDSC$V_EXCEPTION_MODE : [POS(44)] $BIT3; (* the caller's desired exception reporting behavior *) PDSC$Q_ENTRY : [POS(64)] $QUAD; (* address of start of procedure code *) PDSC$L_SIZE : [POS(128)] UNSIGNED; (* size of fixed portion of stack *) ); 3: (PDSC$L_IREG_MASK : [POS(192)] UNSIGNED; (* integer register save mask *) PDSC$L_FREG_MASK : [POS(224)] UNSIGNED; (* floating register save mask *) PDSC$Q_STACK_HANDLER : [POS(256)] $QUAD; (* absolute pointer to procedure descriptor (opt) *) PDSC$Q_STACK_HANDLER_DATA : [POS(320)] $QUAD; (* data for stack handler (opt) *) ); 4: (PDSC$V_KIND : [POS(0)] $BIT4; (* kind of procedure *) PDSC$V_HANDLER_VALID : [POS(4)] $BOOL; (* optional STACK_HANDLER or REG_HANDLER is present and valid *) PDSC$V_HANDLER_REINVOKABLE : [POS(5)] $BOOL; (* exception handler is reinvokable *) PDSC$V_HANDLER_DATA_VALID : [POS(6)] $BOOL; (* optional STACK_HANDLER_DATA or REG_HANDLER_DATA is present and valid *) PDSC$V_BASE_REG_IS_FP : [POS(7)] $BOOL; (* FP is also base register (vs. SP) *) PDSC$V_REI_RETURN : [POS(8)] $BOOL; (* exit from procedure via REI *) PDSC$V_STACK_RETURN_VALUE : [POS(9)] $BOOL; (* function value returned on stack *) PDSC$V_BASE_FRAME : [POS(10)] $BOOL; (* base frame indicator *) PDSC$V_TARGET_INVO : [POS(11)] $BOOL; (* unwind target invo handler to be called *) PDSC$V_NATIVE : [POS(12)] $BOOL; (* set to 1 for compiled code *) PDSC$V_NO_JACKET : [POS(13)] $BOOL; (* set to 1 for compiled code *) PDSC$V_TIE_FRAME : [POS(14)] $BOOL; (* must be 0 for compiled code *) PDSC$B_SAVE_FP : [POS(16)] $UBYTE; (* register number for saved FP (RF only) *) PDSC$B_SAVE_RA : [POS(24)] $UBYTE; (* register number for saved return address (RF only) *) PDSC$L_ENTRY : [POS(64)] INTEGER; (* first longword is sign extended to quadword *) PDSC$Q_PROC_VALUE : [POS(128)] $QUAD; (* for bound procedure descriptor, *) ); 5: (PDSC$Q_REG_HANDLER : [POS(192)] $QUAD; (* absolute pointer to procedure descriptor (opt) *) PDSC$Q_REG_HANDLER_DATA : [POS(256)] $QUAD; (* data for handler (opt) *) ); 6: (PDSC$L_PROC_VALUE : [POS(128)] INTEGER; (* this value is a procedure descriptor. *) ); 7: (PDSC$L_ENVIRONMENT : [POS(192)] INTEGER; ); 8: (PDSC$Q_ENVIRONMENT : [POS(192)] $QUAD; ) END; CONST PDSC$K_LKP_LENGTH = 16; (* Linkage pair size *) TYPE PDSC_LKP$TYPE = RECORD CASE INTEGER OF (* Linkage pair def *) 1: (PDSC$R_FILL_58_ : [BYTE(8)] RECORD END; PDSC$R_FILL_60_ : [BYTE(8)] RECORD END; ); 2: (PDSC$Q_LKP_ENTRY : [POS(0)] $QUAD; (* Entry point addr *) PDSC$Q_LKP_PROC_VALUE : [POS(64)] $QUAD; (* Proc desc addr *) ); 3: (); 4: (PDSC$PS_LKP_ENTRY : [POS(0)] UNSIGNED; PDSC$PS_LKP_PROC_VALUE : [POS(64)] UNSIGNED; ) END; CONST LKP$K_SIZE = 16; (* Linkage pair size *) TYPE LKP$TYPE = RECORD CASE INTEGER OF (* Linkage pair def *) 1: (LKP$R_ENTRY_UNION : [BYTE(8)] RECORD END; (* Entry point addr *) LKP$R_PROC_VALUE_UNION : [BYTE(8)] RECORD END; (* Proc desc addr *) ); 2: (LKP$Q_ENTRY : [POS(0)] $QUAD; LKP$Q_PROC_VALUE : [POS(64)] $QUAD; ); 3: (LKP$PS_ENTRY : [POS(0)] UNSIGNED; LKP$PS_PROC_VALUE : [POS(64)] UNSIGNED; ) END; (*** MODULE $PMMDEF ***) (*+ *) (* PFN memory data structure definition. This structure is used to access the *) (* fields within the PFN memory map returned by $GETSYI. $GETSYI copies the *) (* contents of the pool packet stored at MMG$GL_SYI_PFN_MEMORY_MAP to a *) (* user-supplied buffer. *) (*- *) CONST PMM$m_console = 1; PMM$m_openvms = 2; PMM$m_available = 4; PMM$m_base = 8; PMM$m_galaxy_shared = 16; PMM$m_undefined_5_15 = 65504; PMM$C_LENGTH = 12; (* Length of structure *) PMM$K_LENGTH = 12; (* Length of structure *) TYPE PMM$TYPE = RECORD CASE INTEGER OF 1: (PMM$W_LENGTH : $WORD; (* Size of a PMM structure *) PMM$r_fill_62_ : [BYTE(2)] RECORD END; PMM$l_start_pfn : UNSIGNED; (* First PFN in this cluster *) PMM$l_pfn_count : UNSIGNED; (* Number of PFNs in this cluster *) ); 2: (PMM$w_flags : [POS(16)] $UWORD; ); 3: (); 4: (PMM$v_console : [POS(16)] $BOOL; (* Used by Console *) PMM$v_openvms : [POS(17)] $BOOL; (* Used by OpenVMS *) PMM$v_available : [POS(18)] $BOOL; (* Available for Other Uses *) PMM$v_base : [POS(19)] $BOOL; (* Galaxy base memory segment *) PMM$v_galaxy_shared : [POS(20)] $BOOL; (* Galaxy shared memory *) PMM$v_undefined_5_15 : [POS(21)] $BIT11; (* Undefined bits should be zero *) ) END; (* Expanded version for larger PFNs *) CONST PMM64$m_console = 1; PMM64$m_openvms = 2; PMM64$m_available = 4; PMM64$m_base = 8; PMM64$m_galaxy_shared = 16; PMM64$m_undefined_5_15 = 65504; PMM64$C_LENGTH = 24; (* Length of structure *) PMM64$K_LENGTH = 24; (* Length of structure *) TYPE PMM64$TYPE = RECORD CASE INTEGER OF 1: (PMM64$W_LENGTH : $WORD; (* Size of a PMM structure *) PMM64$r_fill_64_ : [BYTE(2)] RECORD END; PMM64$l_reserved : UNSIGNED; (* padding *) PMM64$q_start_pfn : $UQUAD; (* First PFN in this cluster *) PMM64$q_pfn_count : $UQUAD; (* Number of PFNs in this cluster *) ); 2: (PMM64$w_flags : [POS(16)] $UWORD; ); 3: (); 4: (PMM64$v_console : [POS(16)] $BOOL; (* Used by Console *) PMM64$v_openvms : [POS(17)] $BOOL; (* Used by OpenVMS *) PMM64$v_available : [POS(18)] $BOOL; (* Available for Other Uses *) PMM64$v_base : [POS(19)] $BOOL; (* Galaxy base memory segment *) PMM64$v_galaxy_shared : [POS(20)] $BOOL; (* Galaxy shared memory *) PMM64$v_undefined_5_15 : [POS(21)] $BIT11; (* Undefined bits should be zero *) ) END; (*** MODULE $POSIX_SERVICEDEF ***) (* The following definitions are passed in the ctrl parameter. *) CONST POSIX$C_BLOCK_FORK = 1; (* block fork execution *) POSIX$C_UNBLOCK_FORK = 2; (* unblock fork execution *) POSIX$C_DISABLE_FORK = 3; (* disable fork *) POSIX$C_SETUP_CALLBACK = 4; (* setup image callback *) POSIX$C_SYSTEM_CALLBACK = 5; (* setup system callback *) POSIX$C_PROCESS_CALLBACK = 6; (* setup process permanent callback *) POSIX$C_CANCEL_CALLBACK = 7; (* cancel a callback *) POSIX$C_CONTINUE = 8; (* continue callbacks *) POSIX$C_TEST_CALLS = 9; (* temporary value for testing *) POSIX$C_MAX_CNTRL = 9; POSIX$K_MAX_CNTRL = 9; (* *) (* The following definitions are for the 'when' mask. They define when *) (* callbacks are to be made. *) (* *) CONST POSIX$V_CALL_BEFORE_COPY = 0; POSIX$V_CALL_IN_CHILD = 1; POSIX$V_CALL_AFTER_CHILD = 2; POSIX$V_CALL_ON_FAILURE = 3; POSIX$V_CALL_BEFORE_COPY_FAIL = 4; POSIX$V_CALL_IN_CHILD_FAIL = 5; POSIX$V_CALL_AFTER_CHILD_FAIL = 6; POSIX$M_CALL_BEFORE_COPY = 1; POSIX$M_CALL_IN_CHILD = 2; POSIX$M_CALL_AFTER_CHILD = 4; POSIX$M_CALL_ON_FAILURE = 8; POSIX$M_CALL_BEFORE_COPY_FAIL = 16; POSIX$M_CALL_IN_CHILD_FAIL = 32; POSIX$M_CALL_AFTER_CHILD_FAIL = 64; (*** MODULE $POWERDEF ***) (*+ *) (* *) (* Power Control Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* (preceeding the ENDlistname item) so that users will not have *) (* to recompile. *) (*- *) CONST POWER$C_HIGH_PERF = 0; POWER$C_LOW_POWER = 1; POWER$C_EFFICIENCY = 2; POWER$C_OS_CONTROL = 3; (* Only works from kernel mode *) POWER$M_OS_CONTROL_OFF = 4; (* OR with the above. Only works from kernel mode *) (*** MODULE $PPROPDEF ***) (*+ *) (* *) (* Set Process Properties Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* (preceeding the ENDlistname item) so that users will not have *) (* to relink. *) (*- *) (* Property definitions *) CONST PPROP$C_PARSE_STYLE_TEMP = 0; (* Change the parse style for the life of an image *) PPROP$C_PARSE_STYLE_PERM = 1; (* Change the parse style for the life of the process *) PPROP$C_HOME_RAD = 2; (* Change the home rad of the thread *) PPROP$C_CASE_LOOKUP_TEMP = 3; (* Change the case lookup mode for the life of an image *) PPROP$C_CASE_LOOKUP_PERM = 4; (* Change the case lookup mode for the life of the process *) PPROP$C_MEDDLE_ENABLE = 5; (* Record the fact of alterations to process logical *) (* names or symbols *) CONST PPROP$C_MEDDLE = 6; (* Process logical names or symbols have been altered *) PPROP$C_UNITS = 7; (* Change the units for the life of the process (blocks/bytes) *) PPROP$C_SS_LOG_ENABLE = 8; (* Enable system service logging for the process *) PPROP$C_SS_LOG_DISABLE = 9; (* Disable system service logging for the process *) PPROP$C_SS_LOG_UNLOAD = 10; (* Stop system service logging & delete buffers *) PPROP$C_TOKEN = 11; (* Change the DCL token size for the life of the process *) PPROP$C_DEADLOCK_WAIT = 12; (* Change per-process deadlock wait (in 10msec units) *) PPROP$C_SEARCH_SYMLINK_TEMP = 13; (* Change the symlink search mode for the life of an image *) PPROP$C_SEARCH_SYMLINK_PERM = 14; (* Change the symlink search mode for the life of the process *) PPROP$C_KERNEL_THREAD_LIMIT = 15; (* Change per-process kernel thread limit *) (* Parse style definitions *) CONST PARSE_STYLE$C_ODS2 = 0; (* Values for the above properties (old name) *) PARSE_STYLE$C_ODS5 = 1; (* Values for the above properties (old name) *) PARSE_STYLE$C_TRADITIONAL = 0; (* Values for the above properties (new name) *) PARSE_STYLE$C_EXTENDED = 1; (* Values for the above properties (new name) *) (* case lookup definitions *) CONST PPROP$K_CASE_BLIND = 0; (* case blind operation *) PPROP$K_CASE_SENSITIVE = 1; (* case sensitive operation *) (* symlink search mode definitions *) (* NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF, *) (* $LIBFILDEF, $PPROPDEF, and $NAMLDEF. *) CONST PPROP$K_SEARCH_SYMLINK_NONE = 1; (* use no symlinks *) PPROP$K_SEARCH_SYMLINK_ALL = 2; (* use symlinks always *) PPROP$K_SEARCH_SYMLINK_NOELLIPS = 3; (* use symlinks except in ellipsis *) (*** MODULE $PQLDEF ***) (*+ *) (* PROCESS QUOTA LIST CODES *) (*- *) CONST PQL$_LISTEND = 0; (*LIST END CODE (MUST BE FIRST) *) PQL$_ASTLM = 1; (*AST LIMIT *) PQL$_BIOLM = 2; (*BUFFERED I/O LIMIT *) PQL$_BYTLM = 3; (*BYTE LIMIT FOR BUFFERED I/O *) PQL$_CPULM = 4; (*CPU TIME LIMIT *) PQL$_DIOLM = 5; (*DIRECT I/O LIMIT *) PQL$_FILLM = 6; (*OPEN FILE LIMIT *) PQL$_PGFLQUOTA = 7; (*PAGING FILE QUOTA *) PQL$_PRCLM = 8; (*SUB-PROCESS LIMIT *) PQL$_TQELM = 9; (*TIMER QUEUE ENTRY LIMIT *) PQL$_WSQUOTA = 10; (*WORKING SET QUOTA *) PQL$_WSDEFAULT = 11; (*WORKING SET DEFAULT *) PQL$_ENQLM = 12; (*ENQUEUE LIMIT *) PQL$_WSEXTENT = 13; (*WORKING SET EXTENT LIMIT *) PQL$_JTQUOTA = 14; (*JOB-WIDE LOGICAL NAME TABLE CREATION QUOTA *) PQL$_LENGTH = 15; (*NUMBER OF QUOTAS (MUST BE LAST) *) (*** MODULE $PRCDEF ***) (*+ *) (* $CREPRC STATUS FLAGS AND ITEM CODES *) (*- *) CONST PRC$M_SSRWAIT = 1; PRC$M_SSFEXCU = 2; PRC$M_PSWAPM = 4; PRC$M_NOACNT = 8; PRC$M_BATCH = 16; PRC$M_HIBER = 32; PRC$M_NOUAF = 64; PRC$M_NETWRK = 128; PRC$M_DISAWS = 256; PRC$M_DETACH = 512; PRC$M_INTER = 1024; PRC$M_IMGDMP = 2048; PRC$M_CLISPEC = 4096; PRC$M_NOPASSWORD = 8192; PRC$M_DEBUG = 16384; PRC$M_DBGTRU = 32768; PRC$M_SUBSYSTEM = 65536; PRC$M_TCB = 131072; PRC$M_NO_IMAGE_PRIVS = 262144; PRC$M_PERM_SUBSYSTEM = 524288; PRC$M_PARSE_EXTENDED = 1048576; PRC$M_INHERIT_PERSONA = 2097152; PRC$M_HOME_RAD = 4194304; PRC$M_CASE_SENSITIVE = 8388608; PRC$M_SPAWN_DETACHED = 16777216; PRC$M_SSLOG_ENABLE = 33554432; PRC$M_KT_LIMIT = 67108864; PRC$M_LOGIN = 64; TYPE PRC$TYPE = RECORD CASE INTEGER OF 1: (PRC$R_PRCDEF_BITS : [BYTE(4)] RECORD END; ); 2: (PRC$V_SSRWAIT : [POS(0)] $BOOL; (* RESOURCE WAIT DISABLE *) PRC$V_SSFEXCU : [POS(1)] $BOOL; (* SYSTEM SERVICE FAIL EXCEPTION MODE *) PRC$V_PSWAPM : [POS(2)] $BOOL; (* PROCESS SWAP MODE *) PRC$V_NOACNT : [POS(3)] $BOOL; (* ACCOUNTING MESSAGE DISABLE *) PRC$V_BATCH : [POS(4)] $BOOL; (* BATCH INDICATOR *) PRC$V_HIBER : [POS(5)] $BOOL; (* HIBERNATE BEFORE CALLING INITIAL IMAGE *) PRC$V_NOUAF : [POS(6)] $BOOL; (* BYPASS LOGIN VERIFICATION FOR DETACHED PROC. *) PRC$V_NETWRK : [POS(7)] $BOOL; (* NETWORK INDICATOR *) PRC$V_DISAWS : [POS(8)] $BOOL; (* DISABLE WORKING SET ADJUST *) PRC$V_DETACH : [POS(9)] $BOOL; (* DETACHED PROCESS *) PRC$V_INTER : [POS(10)] $BOOL; (* INTERACTIVE INDICATOR *) PRC$V_IMGDMP : [POS(11)] $BOOL; (* IMAGE DUMP REQUESTED *) PRC$V_CLISPEC : [POS(12)] $BOOL; (* PASS CLI SPECIFICATIONS *) PRC$V_NOPASSWORD : [POS(13)] $BOOL; (* DON'T PROMPT FOR USERNAME AND PASSWORD *) PRC$V_DEBUG : [POS(14)] $BOOL; (* /DEBUG desired *) PRC$V_DBGTRU : [POS(15)] $BOOL; (* debugger present *) PRC$V_SUBSYSTEM : [POS(16)] $BOOL; (* inherit protected subsystem identifiers *) PRC$V_TCB : [POS(17)] $BOOL; (* process is part of TCB *) PRC$V_NO_IMAGE_PRIVS : [POS(18)] $BOOL; (* image privileges not to be propagated *) PRC$V_PERM_SUBSYSTEM : [POS(19)] $BOOL; (* make subsystem rights permanent *) PRC$V_PARSE_EXTENDED : [POS(20)] $BOOL; (* make new process have parse_style extended *) PRC$V_INHERIT_PERSONA : [POS(21)] $BOOL; (* process gets persona of caller *) PRC$V_HOME_RAD : [POS(22)] $BOOL; (* Home RAD specified by creator *) PRC$V_CASE_SENSITIVE : [POS(23)] $BOOL; (* Use CASE_LOOKUP = SENSITIVE *) PRC$V_SPAWN_DETACHED : [POS(24)] $BOOL; (* Spawn a detached process *) PRC$V_SSLOG_ENABLE : [POS(25)] $BOOL; (* Enable system service logging *) PRC$V_KT_LIMIT : [POS(26)] $BOOL; (* Kernel thread limit specified by creator *) ); 3: (PRC$R_PRCDEF_OBSOLETE : [BYTE(1)] RECORD END; ); 4: (PRC$V_LOGIN : [POS(6)] $BOOL; (* BYPASS LOGIN VERIFICATION FOR DETACHED PROC. *) ) END; CONST PRC$M_IMPERSONATE = 512; (* Impersonate other - synonym for DETACH - 0x200 *) (*+ *) (* *) (* Create Process Item List Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added at the END of the list so that *) (* users will not have to relink or reassemble. *) (* *) (*- *) CONST PRC$_LISTEND = 0; (* End of list (must be first code) *) PRC$_PGFLCHAR = 1; (* Page file characteristics *) PRC$_PGFLINDEX = 2; (* Page file index *) PRC$_INPUT_ATT = 3; (* SYS$INPUT attributes *) PRC$_OUTPUT_ATT = 4; (* SYS$OUTPUT attributes *) PRC$_ERROR_ATT = 5; (* SYS$ERROR attributes *) PRC$_CLASS = 6; (* Process classification *) PRC$_SSLOG_FLAGS = 7; (* System service logging flags *) PRC$_SSLOG_BUFSIZE = 8; (* System service logging buffer size *) PRC$_SSLOG_BUFCNT = 9; (* System service logging buffer count *) (*** MODULE $PRDEF ***) (*+ *) (* PROCESSOR REGISTER DEFINITIONS *) (* *) (* The following IPR symbols are provided for the convenience *) (* of common Macro-32 code using the VAX MFPR/MTPR instructions *) (* to operate against IPRs that exist in both architectures *) (* architectures. Even Alpha-specific Macro-32 code would benefit *) (* since the compiler can calculate register live-ness around the *) (* VAX MFPR/MTPR instructions. *) (* *) (* The assigned values for the PR$_ipr symbols match the VAX *) (* IPR numbers themselves wherever possible. VAX IPR numbers that *) (* are extremely unlikely ever to be encountered are otherwise used. *) (* The compiler uses the VAX values to validate the invocation of *) (* MTPR/MFPR instructions. *) (*- *) CONST PR$_ESP = 1; (* Executive Stack Pointer *) PR$_SSP = 2; (* Supervisor Stack Pointer *) PR$_USP = 3; (* User Stack Pointer *) PR$_ASN = 6; (* Address Space Number *) PR$_ASTEN = 48; (* AST Enabled Register (MFPR only) *) PR$_ASTSR = 49; (* AST Summary Register (MFPR only) *) PR$_DATFX = 23; (* Data Alignment Trap Fixup in PALcode Enable *) PR$_IPIR = 22; (* Interprocess Interrupt Request *) PR$_IPL = 18; (* Interrupt Priority Level *) PR$_MCES = 38; (* Machine Check Error Summary *) PR$_PCBB = 16; (* Privileged Context Block Base *) PR$_PME = 61; (* Performance Monitor Enable *) PR$_PRBR = 15; (* Processor Base Register *) PR$_SCBB = 17; (* System Control Block Base *) PR$_SIRR = 20; (* Software Interrupt Request *) PR$_SISR = 21; (* Software Interrupt Summary *) PR$_TBIA = 57; (* Translation Buffer Invalidate All *) PR$_TBIAP = 50; (* Translation Buffer Invalidate All Process *) PR$_TBIS = 58; (* Translation Buffer Invalidate Single - 32 bit VA *) PR$_TBIS_64 = 60; (* Translation Buffer Invalidate Single - 64 bit VA *) PR$_TBISD = 59; (* Translation Buffer Invalidate Single - 64 bit VA - D-stream only *) PR$_TBISI = 47; (* Translation Buffer Invalidate Single - 64 bit VA - I-stream only *) PR$_VPTB = 12; (* Virtual Page Table Base Register *) (*+ *) (* PROCESSOR REGISTER FIELD DEFINITIONS *) (*- *) CONST PR$_SID_TYP780 = 1; (* VAX 11/780 *) PR$_SID_TYP750 = 2; (* VAX 11/750 *) PR$_SID_TYP730 = 3; (* VAX 11/730 *) PR$_SID_TYP790 = 4; (* VAX 11/790 *) PR$_SID_TYP8SS = 5; (* Scorpio for now *) PR$_SID_TYP8NN = 6; (* Nautilus for now *) PR$_SID_TYPUV1 = 7; (* MicroVAX I *) PR$_SID_TYPUV2 = 8; (* MicroVAX II *) PR$_SID_TYP410 = 8; (* VAXstar *) PR$_SID_TYP009 = 9; (* Virtual VAX *) PR$_SID_TYP420 = 10; (* PVAX *) PR$_SID_TYP520 = 10; (* Cirrus I *) PR$_SID_TYP650 = 10; (* Mayfair *) PR$_SID_TYP9CC = 10; (* Calypso/XCP *) PR$_SID_TYP9CI = 10; PR$_SID_TYP60 = 10; (* Firefox *) PR$_SID_TYP670 = 11; (* KA670 (Pele) *) PR$_SID_TYP9RR = 11; (* XRP *) PR$_SID_TYP43 = 11; (* KA43 (RigelMAX) *) PR$_SID_TYP9AQ = 14; (* Aquarius *) PR$_SID_TYP8PS = 17; (* Polarstar *) PR$_SID_TYP1202 = 18; (* Mariah/XMP *) PR$_SID_TYP46 = 18; (* PV-Mariah *) PR$_SID_TYP600 = 19; PR$_SID_TYP690 = 19; PR$_SID_TYP700 = 19; PR$_SID_TYP1302 = 19; PR$_SID_TYP49 = 19; PR$_SID_TYP1303 = 19; PR$_SID_TYP660 = 20; (* KA660 (Spitfire) *) PR$_SID_TYP440 = 20; (* PVAX2 *) PR$_SID_TYP4A = 20; (* PCVAX *) PR$_SID_TYP550 = 20; (* Cirrus II *) PR$_SID_TYP1701 = 23; (* Laser/Neon *) PR$_SID_TYPMAX = 23; (* MAX LEGAL CPU TYPE *) PR$_SID_TYP_NOTAVAX = 128; (* Not a VAX (i.e. Alpha or some such) *) (*Chip CPU types *) CONST PR$_SID_TYPUV = 8; (* MicroVAX chip *) (*MicroVAX chip CPU Subtypes *) CONST PR$_XSID_UV_UV = 0; (* Generic MicroVAX (unused subtype) *) PR$_XSID_UV_UV2 = 1; (* MicroVAX II *) PR$_XSID_UV_410 = 4; (* VAXstar *) PR$_SID_TYPCV = 10; (* CVAX chip *) (*CVAX chip CPU Subtypes *) CONST PR$_XSID_CV_CV = 0; (* Generic CVAX (unused subtype) *) PR$_XSID_CV_650 = 1; (* Mayfair *) PR$_XSID_CV_9CC = 2; (* Calypso/XCP *) PR$_XSID_CV_60 = 3; (* Firefox *) PR$_XSID_CV_420 = 4; (* PVAX *) PR$_XSID_CV_9CI = 5; PR$_XSID_CV_520 = 7; (* CIRRUS I *) PR$_SID_TYPRV = 11; (* Rigel chip *) (* Rigel chip CPU Subtypes *) CONST PR$_XSID_RV_RV = 0; (* Generic Rigel (unused subtype) *) PR$_XSID_RV_670 = 1; (* KA670 (Pele) *) PR$_XSID_RV_9RR = 2; (* Calypso/XRP *) PR$_XSID_RV_43 = 4; (* KA43 (RigelMAX) *) PR$_SID_TYPV12 = 18; (* Mariah chip set *) (* Mariah chip CPU Subtypes *) CONST PR$_XSID_V12_V12 = 0; (* Generic Mariah (unused subtype) *) PR$_XSID_V12_1202 = 2; (* MARIAH/XMP *) PR$_XSID_V12_46 = 4; (* PVAX- mariah subtype *) PR$_SID_TYPV13 = 19; PR$_XSID_V13_V13 = 0; PR$_XSID_V13_690 = 1; PR$_XSID_V13_1302 = 2; PR$_XSID_V13_1303 = 3; PR$_XSID_V13_49 = 4; PR$_XSID_V13_700 = 5; PR$_XSID_V13_600 = 6; PR$_SID_TYPV14 = 20; (* SOC Chip SID *) (* SOC chip CPU subtypes *) CONST PR$_XSID_V14_V14 = 0; (* unused subtype *) PR$_XSID_V14_660 = 1; (* KA660 (Spitfire) *) PR$_XSID_V14_440 = 4; (* PVAX2 subtype *) PR$_XSID_V14_4A = 5; (* PCVAX subtype *) PR$_XSID_V14_550 = 7; (* CIRRUS II *) PR$_SID_TYPV17 = 23; (* NVAX+ Chip SID *) (* NVAX+ chip CPU subtypes *) CONST PR$_XSID_V17_V17 = 0; (* unused subtype *) PR$_XSID_V17_1701 = 1; (* Laser/Neon *) (*Nautilus CPU Subtypes *) CONST PR$_XSID_N8800 = 0; (* VAX 8800 *) PR$_XSID_N8700 = 1; (* VAX 8700 *) PR$_XSID_N2 = 2; (* Undefined Nautilus CPU *) PR$_XSID_N3 = 3; (* Undefined Nautilus CPU *) PR$_XSID_N4 = 4; (* Undefined Nautilus CPU *) PR$_XSID_N5 = 5; (* Undefined Nautilus CPU *) PR$_XSID_N8550 = 6; (* VAX 8550 *) PR$_XSID_N8500 = 7; (* VAX 8500 *) PR$_XSID_N8NNN = -1; (* Unknown Nautilus CPU *) (*------------------------------------------------------------------- *) CONST PR$M_ASTEN = 15; PR$M_ASTEN_KEN = 1; PR$M_ASTEN_EEN = 2; PR$M_ASTEN_SEN = 4; PR$M_ASTEN_UEN = 8; PR$M_ASTEN_DSBL_ALL = 0; (* Disable all ASTs *) PR$M_ASTEN_ENBL_ALL = 255; (* Enable all ASTs *) PR$M_ASTEN_ENBL_K = 17; (* Enable kernel ASTs *) PR$M_ASTEN_ENBL_E = 34; (* Enable executive ASTs *) PR$M_ASTEN_ENBL_S = 68; (* Enable supervisor ASTs *) PR$M_ASTEN_ENBL_U = 136; (* Enable user ASTs *) PR$M_ASTEN_PRSRV_ALL = 15; (* Preserve all enable/disable states *) PR$M_ASTEN_PRSRV_K = 1; (* Preserve kernel enable/disable *) PR$M_ASTEN_PRSRV_E = 2; (* Preserve executive enable/disable *) PR$M_ASTEN_PRSRV_S = 4; (* Preserve supervisor enable/disable *) PR$M_ASTEN_PRSRV_U = 8; (* Preserve user enable/disable *) (*------------------------------------------------------------------- *) CONST PR$M_ASTSR = 15; PR$M_ASTSR_KPD = 1; PR$M_ASTSR_EPD = 2; PR$M_ASTSR_SPD = 4; PR$M_ASTSR_UPD = 8; PR$M_ASTSR_CLR_ALL = 0; (* Clear pending ASTs *) PR$M_ASTSR_SET_ALL = 255; (* Set all ASTs pending *) PR$M_ASTSR_SET_K = 17; (* Set kernel AST pending *) PR$M_ASTSR_SET_E = 34; (* Set executive AST pending *) PR$M_ASTSR_SET_S = 68; (* Set supervisor AST pending *) PR$M_ASTSR_SET_U = 136; (* Set user AST pending *) PR$M_ASTSR_PRSRV_ALL = 15; (* Preserve all pending bits *) PR$M_ASTSR_PRSRV_K = 1; (* Preserve kernel pending *) PR$M_ASTSR_PRSRV_E = 2; (* Preserve executive pending *) PR$M_ASTSR_PRSRV_S = 4; (* Preserve supervisor pending *) PR$M_ASTSR_PRSRV_U = 8; (* Preserve user pending *) (*------------------------------------------------------------------- *) CONST PR$M_FEN_FEN = 1; PR$M_DATFX_DATFX = 1; PR$M_IPL_IPL = 31; PR$M_MCES_MCK = 1; PR$M_MCES_SCE = 2; PR$M_MCES_PCE = 4; PR$M_MCES_DPC = 8; PR$M_MCES_DSC = 16; PR$V_PCBB_PA = 0; (* HWPCB Physical Address *) PR$S_PCBB_PA = 48; (* HWPCB Physical Address *) (*------------------------------------------------------------------- *) CONST PR$M_PS_SW = 3; PR$M_PS_PRVMOD = 3; PR$M_PS_SYSSTATE = 4; PR$M_PS_CURMOD = 24; PR$M_PS_VMM = 128; PR$M_PS_IPL = 7936; PR$M_PS_SP_ALIGN = 0; PR$M_PS_MBZ_62 = 0; PR$M_PS_MBZ_63 = 0; PR$V_PS_MAX_PS_REG_BIT = 13; (* *) CONST PR$C_PS_KERNEL = 0; (* Kernel Mode *) PR$C_PS_EXEC = 1; (* Executive Mode *) PR$C_PS_SUPER = 2; (* Supervisor Mode *) PR$C_PS_USER = 3; (* User Mode *) (*------------------------------------------------------------------- *) CONST PR$M_PTBR_PFN = -1; PR$M_SCBB_PFN = -1; PR$M_SIRR_LVL = 15; PR$M_SISR_SUMMARY = 65535; PR$M_SISR_RAZ = 1; PR$M_SISR_IR1 = 2; PR$M_SISR_IR2 = 4; PR$M_SISR_IR3 = 8; PR$M_SISR_IR4 = 16; PR$M_SISR_IR5 = 32; PR$M_SISR_IR6 = 64; PR$M_SISR_IR7 = 128; PR$M_SISR_IR8 = 256; PR$M_SISR_IR9 = 512; PR$M_SISR_IR10 = 1024; PR$M_SISR_IR11 = 2048; PR$M_SISR_IR12 = 4096; PR$M_SISR_IR13 = 8192; PR$M_SISR_IR14 = 16384; PR$M_SISR_IR15 = 32768; PR$M_TBCHK_VA_PRESENT = 1; PR$M_IEEE_DNOD = 0; PR$M_IEEE_DNZ = 0; PR$M_IEEE_INVD = 0; PR$M_IEEE_DZED = 0; PR$M_IEEE_OVFD = 0; PR$M_IEEE_INV = 0; PR$M_IEEE_DZE = 0; PR$M_IEEE_OVF = 0; PR$M_IEEE_UNF = 0; PR$M_IEEE_INE = 0; PR$M_IEEE_IOV = 0; PR$M_IEEE_UNDZ = 0; PR$M_IEEE_UNFD = 0; PR$M_IEEE_INED = 0; PR$M_IEEE_SUMMARY = 0; TYPE PR$TYPE = RECORD CASE INTEGER OF 1: (PR$Q_QUAD_ACCESS : $UQUAD; (* Access to register as a quadword *) ); 2: (PR$L_LONG_ACCESS : ARRAY [1..2] OF UNSIGNED; (* Access to register as a quadword *) ); 3: (PR$R_PRDEF_BITS : [BYTE(4)] RECORD END; ); 4: (PR$V_SID_SN : [POS(0)] $BIT12; (* SERIAL NUMBER FIELD *) PR$V_SID_PL : [POS(12)] $BIT3; (* PLANT ID *) PR$V_SID_ECO : [POS(15)] $BIT9; (* ECO LEVEL *) PR$V_SID_TYPE : [POS(24)] $BIT8; (* CPU TYPE CODE *) ); 5: (PR$R_PRDEF_XBITS : [BYTE(4)] RECORD END; ); 6: (PR$V_XSID_TYPE : [POS(24)] $BIT8; (* CPU SUBTYPE CODE *) (* SYSTEM ID REGISTER CPU TYPES *) (* Number assignments are *) (* based upon the jumpers *) (* read by the console from *) (* the MPS backplane *) (* ASTEN - AST Enabled Register *) (* *) (* NOTE WELL: These bit symbols are to be used only when interfacing to the *) (* ASTEN internal processor register. They are NOT to be used when *) (* interfacing to the copy of ASTEN which is stored in the Hardware *) (* Privileged Context Block (HWPCB). See the HWPCB-specific symbols *) (* for how to refer to the ASTEN field in the HWPCB. *) (* *) ); 7: (PR$R_ASTEN_DEF : [BYTE(1)] RECORD END; ); 8: (PR$V_ASTEN : [POS(0)] $BIT4; (* Enabled AST mask *) ); 9: (); 10: (PR$V_ASTEN_KEN : [POS(0)] $BOOL; (* Kernel AST Enabled *) PR$V_ASTEN_EEN : [POS(1)] $BOOL; (* Executive AST Enabled *) PR$V_ASTEN_SEN : [POS(2)] $BOOL; (* Supervisor AST Enabled *) PR$V_ASTEN_UEN : [POS(3)] $BOOL; (* User AST Enabled *) (* ASTSR - AST Summary Register *) (* *) (* NOTE WELL: These bit symbols are to be used only when interfacing to the *) (* ASTSR internal processor register. They are NOT to be used when *) (* interfacing to the copy of ASTSR which is stored in the Hardware *) (* Privileged Context Block (HWPCB). See the HWPCB-specific symbols *) (* for how to refer to the ASTSR field in the HWPCB. *) (* *) ); 11: (PR$R_ASTSR_DEF : [BYTE(1)] RECORD END; ); 12: (PR$V_ASTSR : [POS(0)] $BIT4; (* AST pending summary mask *) ); 13: (); 14: (PR$V_ASTSR_KPD : [POS(0)] $BOOL; (* Kernel AST Pending *) PR$V_ASTSR_EPD : [POS(1)] $BOOL; (* Executive AST Pending *) PR$V_ASTSR_SPD : [POS(2)] $BOOL; (* Supervisor AST Pending *) PR$V_ASTSR_UPD : [POS(3)] $BOOL; (* User AST Pending *) (* FEN - Floating Point Enable *) (* *) (* NOTE WELL: These bit symbols are to be used only when interfacing to the *) (* FEN internal processor register. They are NOT to be used when *) (* interfacing to the copy of FEN which is stored in the Hardware *) (* Privileged Context Block (HWPCB). See the HWPCB-specific symbols *) (* for how to refer to the FEN field in the HWPCB. *) (* *) ); 15: (PR$V_FEN_FEN : [POS(0)] $BOOL; (* Floating point enabled = 1 *) (*------------------------------------------------------------------- *) (* DATFX - Data Alignment Trap Fixup *) (* *) ); 16: (PR$V_DATFX_DATFX : [POS(0)] $BOOL; (* Data Alignment Trap Fixup *) (*------------------------------------------------------------------- *) (* IPL - Interrupt Priority Level *) (* *) ); 17: (PR$V_IPL_IPL : [POS(0)] $BIT5; (* Interrupt Priority Level *) (*------------------------------------------------------------------- *) (* MCES - Machine Check Error Summary Register *) (* *) ); 18: (PR$R_MCES_OVERLAY : [BYTE(1)] RECORD END; ); 19: (PR$V_MCES_MCK : [POS(0)] $BOOL; (* Machine Check (W1C) *) PR$V_MCES_SCE : [POS(1)] $BOOL; (* System Correctable Error (W1C) *) PR$V_MCES_PCE : [POS(2)] $BOOL; (* Processor Correctable Error (W1C) *) PR$V_MCES_DPC : [POS(3)] $BOOL; (* Disable Processor Correctable Error report *) PR$V_MCES_DSC : [POS(4)] $BOOL; (* Disable System Correctable Error report *) (*------------------------------------------------------------------- *) (* PCBB - Privileged Context Block Base *) (* *) (* PS - Processor Status *) (* *) (* The PS is not an IPR in the sense that it isn't read/written using *) (* the MxPR operators. However, the bitfields of the PS are defined *) (* here since this is the repository for bitfields of architected IPRs, *) (* hence it's convenient to define them here. *) (* *) (* Although the 'software' field of the PS is not privileged state and *) (* may be used by users as they see fit in User mode, VMS imposes a *) (* privileged interpretation on the bits when used in any of the three *) (* inner processor modes (Kernel, Executive, Supervisor). There are *) (* consequences of this: *) (* *) (* 1) Should User mode code be using the software field bits, it *) (* must be assumed that the User mode setting of these *) (* bits are entirely ignored by inner mode software. *) (* *) (* 2) VMS reserves the right to redefine its privileged (inner *) (* mode) interpretation of these bits at any time. *) (* *) ); 20: (PR$R_PS_SWDEF_BITS : [BYTE(1)] RECORD END; ); 21: (PR$V_PS_SW : [POS(0)] $BIT2; (* Software Bits *) ); 22: (PR$R_PSDEF_BITS : [BYTE(8)] RECORD END; ); 23: (PR$V_PS_PRVMOD : [POS(0)] $BIT2; (* Previous Processor Mode *) PR$V_PS_SYSSTATE : [POS(2)] $BOOL; (* System State Indicator *) PR$V_PS_CURMOD : [POS(3)] $BIT2; (* Current Processor Mode *) PR$V_PS_VMM : [POS(7)] $BOOL; (* Virtual Machine Monitor *) PR$V_PS_IPL : [POS(8)] $BIT5; (* Interrupt Priority Level *) PR$V_PS_SP_ALIGN : [POS(56)] $BIT6; (* Stack Pointer Alignment *) PR$V_PS_MBZ_62 : [POS(62)] $BOOL; (* Reserved bit above SP alignment *) PR$V_PS_MBZ_63 : [POS(63)] $BOOL; (* Reserved bit above SP alignment *) (* *) (* Maximum bit number used in the PS register *) (* *) (* MODE SYMBOL DEFINITIONS *) (* *) (* PTBR - Page Table Base Register *) (* *) ); 24: (PR$V_PTBR_PFN : [POS(0)] $BIT32; (* PFN of current L1PT *) (*------------------------------------------------------------------- *) (* SCBB - System Control Block Base *) (* *) ); 25: (PR$V_SCBB_PFN : [POS(0)] $BIT32; (* PFN of SCB *) (*------------------------------------------------------------------- *) (* SIRR - Software Interrupt Request Register *) (* *) ); 26: (PR$V_SIRR_LVL : [POS(0)] $BIT4; (* Software Interrupt Request Level *) (*------------------------------------------------------------------- *) (* SISR - Software Interrupt Summary Register *) (* *) ); 27: (PR$R_SISR_FIELDS : [BYTE(2)] RECORD END; ); 28: (PR$V_SISR_SUMMARY : [POS(0)] $BIT16; (* Sofware Interrupt Summary *) ); 29: (); 30: (PR$V_SISR_IR1 : [POS(1)] $BOOL; (* Softint 1 pending *) PR$V_SISR_IR2 : [POS(2)] $BOOL; (* Softint 2 pending *) PR$V_SISR_IR3 : [POS(3)] $BOOL; (* Softint 3 pending *) PR$V_SISR_IR4 : [POS(4)] $BOOL; (* Softint 4 pending *) PR$V_SISR_IR5 : [POS(5)] $BOOL; (* Softint 5 pending *) PR$V_SISR_IR6 : [POS(6)] $BOOL; (* Softint 6 pending *) PR$V_SISR_IR7 : [POS(7)] $BOOL; (* Softint 7 pending *) PR$V_SISR_IR8 : [POS(8)] $BOOL; (* Softint 8 pending *) PR$V_SISR_IR9 : [POS(9)] $BOOL; (* Softint 9 pending *) PR$V_SISR_IR10 : [POS(10)] $BOOL; (* Softint 10 pending *) PR$V_SISR_IR11 : [POS(11)] $BOOL; (* Softint 11 pending *) PR$V_SISR_IR12 : [POS(12)] $BOOL; (* Softint 12 pending *) PR$V_SISR_IR13 : [POS(13)] $BOOL; (* Softint 13 pending *) PR$V_SISR_IR14 : [POS(14)] $BOOL; (* Softint 14 pending *) PR$V_SISR_IR15 : [POS(15)] $BOOL; (* Softint 15 pending *) (*------------------------------------------------------------------- *) (* TBCHK - Translation Buffer Check *) (* *) (* This IPR may always be referenced with MFPR without causing an error *) (* to occur (unlike VAX), but the feature provided by TBCHK may or may *) (* not be implemented. If not, then =1 and *) (* should be ignored. If TBCHK's function IS implemented, then *) (* =0 and returns the desired data. *) (* *) ); 31: (PR$R_TBCHK_BITS : [BYTE(8)] RECORD END; ); 32: (PR$V_TBCHK_VA_PRESENT : [POS(0)] $BOOL; (* VA in TB = 1 *) PR$V_TBCHK_NO_TBCHK : [POS(63)] $BOOL; (* Not implemented = 1 *) (*------------------------------------------------------------------- *) (* FPCR - Floating Point Control Register *) (* *) (* NOTE WELL: These bit symbols are to be used only when interfacing to the *) (* hardware FPCR internal processor register. They are NOT to be used when *) (* interfacing to the software floating point control register pointed to *) (* by CTL$GQ_IEEE_FP_CONTROL/PKTA$Q_IEEE_FP_CONTROL. *) (* *) (* The hardware FPCR should only be manipulated via the system service, *) (* SYS$IEEE_FP_CONTROL, rather than directly. *) (* *) ); 33: (PR$R_FPCR_BITS : [BYTE(8)] RECORD END; ); 34: (PR$V_IEEE_DNOD : [POS(47)] $BOOL; (* Denormal operand exception disable *) PR$V_IEEE_DNZ : [POS(48)] $BOOL; (* Denormal operands to 0.0 *) PR$V_IEEE_INVD : [POS(49)] $BOOL; (* Invalid operation disable *) PR$V_IEEE_DZED : [POS(50)] $BOOL; (* Division by zero disable *) PR$V_IEEE_OVFD : [POS(51)] $BOOL; (* Overflow disable *) PR$V_IEEE_INV : [POS(52)] $BOOL; (* Invalid operation. *) PR$V_IEEE_DZE : [POS(53)] $BOOL; (* Division by zero occured. *) PR$V_IEEE_OVF : [POS(54)] $BOOL; (* Overflow occured. *) PR$V_IEEE_UNF : [POS(55)] $BOOL; (* Underflow occured. *) PR$V_IEEE_INE : [POS(56)] $BOOL; (* Inexact result occured. *) PR$V_IEEE_IOV : [POS(57)] $BOOL; (* Integer overflow occured *) PR$V_IEEE_DYN_RND : [POS(58)] $BIT2; (* Dynamic Rounding mode *) PR$V_IEEE_UNDZ : [POS(60)] $BOOL; (* Underflow to zero *) PR$V_IEEE_UNFD : [POS(61)] $BOOL; (* Underflow disable *) PR$V_IEEE_INED : [POS(62)] $BOOL; (* Inexact disable *) PR$V_IEEE_SUMMARY : [POS(63)] $BOOL; (* Bitwise OR of FPCR exception bits *) ) END; (*** MODULE $PRTDEF ***) (*+ *) (* Protection field definitions *) (*- *) CONST PRT$C_NA = 0; (* No Access *) PRT$C_KR = 3; (* Kernel Read only *) PRT$C_KW = 2; (* Kernel Write *) PRT$C_ER = 7; (* Exec Read only *) PRT$C_EW = 5; (* Exec Write *) PRT$C_SR = 11; (* Super Read only *) PRT$C_SW = 8; (* Super Write *) PRT$C_UR = 15; (* User Read only *) PRT$C_UW = 4; (* User Write *) PRT$C_ERKW = 6; (* Exec Read Kernel Write *) PRT$C_SRKW = 10; (* Super Read Kernel Write *) PRT$C_SREW = 9; (* Super Read Exec Write *) PRT$C_URKW = 14; (* User Read Kernel Write *) PRT$C_UREW = 13; (* User Read Exec Write *) PRT$C_URSW = 12; (* User Read Super Write *) PRT$C_RESERVED = 1; (* Reserved *) (*** MODULE $PRVDEF ***) (* *) (* PRIVILEGE BIT DEFINITIONS *) (* *) CONST PRV$M_CMKRNL = 1; PRV$M_CMEXEC = 2; PRV$M_SYSNAM = 4; PRV$M_GRPNAM = 8; PRV$M_ALLSPOOL = 16; PRV$M_IMPERSONATE = 32; PRV$M_DIAGNOSE = 64; PRV$M_LOG_IO = 128; PRV$M_GROUP = 256; PRV$M_NOACNT = 512; PRV$M_PRMCEB = 1024; PRV$M_PRMMBX = 2048; PRV$M_PSWAPM = 4096; PRV$M_SETPRI = 8192; PRV$M_SETPRV = 16384; PRV$M_TMPMBX = 32768; PRV$M_WORLD = 65536; PRV$M_MOUNT = 131072; PRV$M_OPER = 262144; PRV$M_EXQUOTA = 524288; PRV$M_NETMBX = 1048576; PRV$M_VOLPRO = 2097152; PRV$M_PHY_IO = 4194304; PRV$M_BUGCHK = 8388608; PRV$M_PRMGBL = 16777216; PRV$M_SYSGBL = 33554432; PRV$M_PFNMAP = 67108864; PRV$M_SHMEM = 134217728; PRV$M_SYSPRV = 268435456; PRV$M_BYPASS = 536870912; PRV$M_SYSLCK = 1073741824; PRV$M_SHARE = -2147483648; PRV$M_UPGRADE = 0; PRV$M_DOWNGRADE = 0; PRV$M_GRPPRV = 0; PRV$M_READALL = 0; PRV$M_IMPORT = 0; PRV$M_AUDIT = 0; PRV$M_SECURITY = 0; PRV$K_NUMBER_OF_PRIVS = 39; (* Total number of privilege bits. *) PRV$M_ACNT = 512; PRV$M_ALTPRI = 8192; PRV$M_DETACH = 32; TYPE PRV$TYPE = RECORD CASE INTEGER OF 1: (PRV$R_PRVDEF_BITS0 : [BYTE(8)] RECORD END; ); 2: (PRV$V_CMKRNL : [POS(0)] $BOOL; (* MAY CHANGE MODE TO KERNEL *) PRV$V_CMEXEC : [POS(1)] $BOOL; (* MAY CHANGE MODE TO EXEC *) PRV$V_SYSNAM : [POS(2)] $BOOL; (* MAY INSERT IN SYSTEM LOGICAL NAME TABLE *) PRV$V_GRPNAM : [POS(3)] $BOOL; (* MAY INSERT IN GROUP LOGICAL NAME TABLE *) PRV$V_ALLSPOOL : [POS(4)] $BOOL; (* MAY ALLOCATE SPOOLED DEVICE *) PRV$V_IMPERSONATE : [POS(5)] $BOOL; (* Replacement name for DETACH (synonyms) *) PRV$V_DIAGNOSE : [POS(6)] $BOOL; (* MAY DIAGNOSE DEVICES *) PRV$V_LOG_IO : [POS(7)] $BOOL; (* MAY DO LOGICAL I/O *) PRV$V_GROUP : [POS(8)] $BOOL; (* MAY AFFECT OTHER PROCESSES IN SAME GROUP *) PRV$V_NOACNT : [POS(9)] $BOOL; (* MAY SUPPRESS ACCOUNTING MESSAGE *) PRV$V_PRMCEB : [POS(10)] $BOOL; (* MAY CREATE PERMANENT COMMON EVENT CLUSTERS *) PRV$V_PRMMBX : [POS(11)] $BOOL; (* MAY CREATE PERMANENT MAILBOX *) PRV$V_PSWAPM : [POS(12)] $BOOL; (* MAY CHANGE PROCESS SWAP MODE *) PRV$V_SETPRI : [POS(13)] $BOOL; (* MAY SET ANY PRIORITY VALUE *) PRV$V_SETPRV : [POS(14)] $BOOL; (* MAY SET ANY PRIVILEGE BIT *) PRV$V_TMPMBX : [POS(15)] $BOOL; (* MAY CREATE TEMPORARY MAILBOX *) PRV$V_WORLD : [POS(16)] $BOOL; (* MAY AFFECT OTHER PROCESSES IN THE WORLD *) PRV$V_MOUNT : [POS(17)] $BOOL; (* MAY EXECUTE MOUNT ACP FUNCTIONS *) PRV$V_OPER : [POS(18)] $BOOL; (* OPERATOR PRIVILEGE *) PRV$V_EXQUOTA : [POS(19)] $BOOL; (* MAY EXCEED QUOTAS *) PRV$V_NETMBX : [POS(20)] $BOOL; (* MAY CREATE NETWORK DEVICE *) PRV$V_VOLPRO : [POS(21)] $BOOL; (* MAY OVERRIDE VOLUME PROTECTION *) PRV$V_PHY_IO : [POS(22)] $BOOL; (* MAY DO PHYSICAL I/O *) PRV$V_BUGCHK : [POS(23)] $BOOL; (* MAY MAKE BUG CHECK ERROR LOG ENTRIES *) PRV$V_PRMGBL : [POS(24)] $BOOL; (* MAY CREATE PERMANENT GLOBAL SECTIONS *) PRV$V_SYSGBL : [POS(25)] $BOOL; (* MAY CREATE SYSTEM WIDE GLOBAL SECTIONS *) PRV$V_PFNMAP : [POS(26)] $BOOL; (* MAY MAP TO SECTION BY PFN *) PRV$V_SHMEM : [POS(27)] $BOOL; (* MAY ALLOCATE STRUCTURES IN SHARED MEMORY *) PRV$V_SYSPRV : [POS(28)] $BOOL; (* ELIGIBLE FOR SYSTEM PROTECTION FIELD *) PRV$V_BYPASS : [POS(29)] $BOOL; (* MAY BYPASS UIC BASED PROTECTION *) PRV$V_SYSLCK : [POS(30)] $BOOL; (* MAY CREATE SYSTEM WIDE LOCKS *) PRV$V_SHARE : [POS(31)] $BOOL; (* MAY ASSIGN CHANNEL TO NON-SHARED DEVICE *) PRV$V_UPGRADE : [POS(32)] $BOOL; (* May upgrade object integrity *) PRV$V_DOWNGRADE : [POS(33)] $BOOL; (* May downgrade object secrecy *) PRV$V_GRPPRV : [POS(34)] $BOOL; (* May access group objects via system protection field *) PRV$V_READALL : [POS(35)] $BOOL; (* May read any object *) PRV$V_IMPORT : [POS(36)] $BOOL; (* May set classification for unlabeled object *) PRV$V_AUDIT : [POS(37)] $BOOL; (* May direct audit to system security audit log *) PRV$V_SECURITY : [POS(38)] $BOOL; (* May perform security functions *) (* XXXXXX bitfield mask; /* Reserved for SEVMS *) ); 3: (PRV$R_PRVDEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (PRV$V_ACNT : [POS(9)] $BOOL; (* MAY SUPPRESS ACCOUNTING MESSAGES (NOACNT) *) PRV$V_ALTPRI : [POS(13)] $BOOL; (* MAY SET ANY PRIORITY VALE (SETPRI) *) ); 5: (PRV$R_PRVDEF_BITS2 : [BYTE(8)] RECORD END; ); 6: (PRV$L_L1_BITS : [POS(0)] UNSIGNED; (* Bits in first longword *) PRV$L_L2_BITS : [POS(32)] UNSIGNED; (* Bits in second longword *) ); 7: (PRV$R_PRVDEF_BITS3 : [BYTE(1)] RECORD END; ); 8: (PRV$V_DETACH : [POS(5)] $BOOL; (* MAY CREATE DETACHED PROCESSES *) ) END; CONST PRV$M_SORTED = 1; PRV$M_BRIEF = 2; PRV$M_FILLED = 4; TYPE PRVDSP_BITS$TYPE = RECORD PRV$V_SORTED : [POS(0)] $BOOL; (* sort privilege list *) PRV$V_BRIEF : [POS(1)] $BOOL; (* display only privilege names *) PRV$V_FILLED : [POS(2)] $BOOL; (* display names in columns *) PRV$V_FILL_74_ : [POS(3)] $BIT5; END; CONST PRV$K_PRVMASK_WORKING = 0; (* Working (Temporary) privs to be modified *) PRV$K_PRVMASK_PERMANENT = 1; (* Permanent privs to be modified *) PRV$K_PRVMASK_IMAGE = 2; (* Image privs to be modified *) (*** MODULE $PRXDEF IDENT X-9 ***) CONST PRX$K_ADD = 1; PRX$K_DELETE = 2; PRX$K_SHOW = 3; PRX$K_VERIFY = 4; PRX$K_PERFORMANCE = 5; PRX$K_ZERO_PERFORMANCE = 6; PRX$K_CREATE = 7; PRX$K_STOP = 8; PRX$K_START = 9; PRX$K_MAX_PROXY_CODE = 10; PRX$K_PERFORMANCE_LENGTH = 48; TYPE PRX$PERFORMANCE = RECORD PRX$L_TOTAL_MESSAGES : UNSIGNED; PRX$L_TOTAL_EXCEPTIONS : UNSIGNED; PRX$L_SHOWS : UNSIGNED; PRX$L_ADDS : UNSIGNED; PRX$L_DELETES : UNSIGNED; PRX$L_VERIFYS : UNSIGNED; PRX$L_PERFORMANCE : UNSIGNED; PRX$L_CREATES : UNSIGNED; PRX$L_STOPS : UNSIGNED; PRX$L_STARTS : UNSIGNED; PRX$L_AUDITS : UNSIGNED; PRX$L_INVALID_MESSAGES : UNSIGNED; END; CONST PRX$M_IGNORE_RETURN = 1; PRX$M_BYPASS_EXPAND = 2; PRX$M_RESERVE_1 = 252; PRX$M_DEFAULT = 256; PRX$M_EXACT = 512; PRX$M_DELETE_ALLOWED = 1024; PRX$M_FILL_1 = -2048; PRX$K_HEADER_LENGTH = 8; TYPE PRX$HEADER = RECORD CASE INTEGER OF 1: (PRX$L_CONTEXT : UNSIGNED; PRX$R_FILL_77_ : [BYTE(4)] RECORD END; ); 2: (PRX$L_FLAGS : [POS(32)] UNSIGNED; ); 3: (); 4: (PRX$V_IGNORE_RETURN : [POS(32)] $BOOL; PRX$V_BYPASS_EXPAND : [POS(33)] $BOOL; PRX$V_DEFAULT : [POS(40)] $BOOL; PRX$V_EXACT : [POS(41)] $BOOL; PRX$V_DELETE_ALLOWED : [POS(42)] $BOOL; PRX$V_FILL_1 : [POS(43)] $BIT21; ) END; PRX$GENERIC_DESC1 = RECORD PRX$W_DESC_LENGTH : $UWORD; PRX$W_FILL1 : $UWORD; PRX$T_DESC_DATA : CHAR; END; CONST PRX$K_USER_NAME_LENGTH = 32; PRX$K_REMOTE_NODE_NAME_LENGTH = 1024; PRX$K_MAX_LOCAL_USERS = 16; PRX$K_LOCAL_USER_ENTRY = 36; TYPE DATA$TYPE = RECORD PRX$W_LOCAL_USER_LENGTH : $UWORD; PRX$W_UNUSED_3 : $UWORD; PRX$T_LOCAL_USER_NAME : PACKED ARRAY [1..32] OF CHAR; PRX$W_REMOTE_USER_LENGTH : $UWORD; PRX$W_UNUSED_4 : $UWORD; PRX$T_REMOTE_USER_NAME : PACKED ARRAY [1..32] OF CHAR; PRX$W_REMOTE_NODE_LENGTH : $UWORD; PRX$W_UNUSED_5 : $UWORD; PRX$T_REMOTE_NODE_NAME : PACKED ARRAY [1..1024] OF CHAR; END; CONST PRX$K_DATA_LENGTH = 1100; TYPE BUFSIZ_SUMMARY$TYPE = RECORD PRX$W_BUFSIZ_USER : $UWORD; (* proxy user length *) PRX$W_BUFSIZ_NODE : $UWORD; (* proxy node length *) PRX$W_BUFSIZ_LOCAL_COUNT : $UWORD; (* number of local users *) PRX$W_BUFSIZ_DEF_USER : $UWORD; (* length of default user *) END; CONST PRX$K_MAX_REPLY = 1692; TYPE REPLY_UNION$TYPE = RECORD CASE INTEGER OF 1: (PRX$R_GENERIC_REPLY : [BYTE(4)] RECORD END; ); 2: (PRX$L_REPLY_STATUS : [POS(0)] UNSIGNED; (* status of request *) ); 3: (PRX$R_VERIFY_REPLY : [BYTE(40)] RECORD END; ); 4: (PRX$W_VALID_USER : [POS(32)] $UWORD; (* length of proxy user_name *) PRX$T_VALID_USER : [POS(64)] ARRAY [1..32] OF CHAR; (* proxy usernname *) ); 5: (PRX$R_SHOW_REPLY : [BYTE(88)] RECORD END; ); 6: (PRX$L_SHOW_CONTEXT : [POS(32)] UNSIGNED; (* returned context *) PRX$W_SHOW_DEF_USER : [POS(64)] $UWORD; (* length of default user_name *) PRX$T_SHOW_DEF_USER : [POS(96)] ARRAY [1..32] OF CHAR; (* default user_name *) PRX$W_SHOW_REM_USER : [POS(352)] $UWORD; (* length of remote user_name *) PRX$T_SHOW_REM_USER : [POS(384)] ARRAY [1..32] OF CHAR; (* remote user_name *) PRX$W_SHOW_LOCAL_COUNT : [POS(640)] $UWORD; (* count of local user_names *) PRX$W_SHOW_LOCAL_SIZE : [POS(656)] $UWORD; (* size of local user_name (bytes) *) PRX$R_SHOW_LOCAL_DATA : [POS(672), BYTE(4)] RECORD END; (* start of local user_names *) ); 7: () END; CONST PRX$K_MAX_LENGTH = 1108; (*** MODULE $PSCANDEF ***) (*+ *) (* *) (* Process_Scan item code definitions *) (* *) (*- *) (* Item code definitions *) CONST pscan$_BEGIN = 0; pscan$_ACCOUNT = 1; (* Match on account name *) pscan$_AUTHPRI = 2; (* Match on authorized priority *) pscan$_CURPRIV = 3; (* Match on current privs *) pscan$_GRP = 4; (* Match on GRP field *) pscan$_HW_MODEL = 5; (* Match on system's HW_MODEL *) pscan$_HW_NAME = 6; (* Match on system's HW_NAME *) pscan$_JOBPRCCNT = 7; (* Match on job subprocess count *) pscan$_JOBTYPE = 8; (* Match on job origin type field *) pscan$_MASTER_PID = 9; (* Match on PID of master process *) pscan$_MEM = 10; (* Match on MEM field *) pscan$_MODE = 11; (* Match on process mode *) pscan$_NODE_CSID = 12; (* Match on system's CSID *) pscan$_NODENAME = 13; (* Match on system's nodename *) pscan$_OWNER = 14; (* Match on PID of owner *) pscan$_PRCCNT = 15; (* Match on subprocess count *) pscan$_PRCNAM = 16; (* Match on process name *) pscan$_PRI = 17; (* Match on current priority *) pscan$_PRIB = 18; (* Match on base priority *) pscan$_STATE = 19; (* Match on process state *) pscan$_STS = 20; (* Match on process status *) pscan$_TERMINAL = 21; (* Match on terminal name *) pscan$_UIC = 22; (* Match on UIC field *) pscan$_USERNAME = 23; (* Match on username *) pscan$_GETJPI_BUFFER_SIZE = 24; (* Buffer for blocking *) pscan$_PSCAN_CONTROL_FLAGS = 25; (* Control Flags *) pscan$_KT_COUNT = 26; (* Current count of kernel threads *) pscan$_MULTITHREAD = 27; (* Maximum number of kernel threads *) pscan$_SCHED_CLASS_NAME = 28; (* Match on name of process' scheduling class *) pscan$_END = 29; pscan$k_type = 129; PSCAN$M_THREAD = 1; TYPE PSCANCTL$TYPE = RECORD CASE INTEGER OF 1: (PSCAN$R_FILL_79_ : [BYTE(4)] RECORD END; ); 2: (); 3: (); 4: (PSCAN$V_THREAD : [POS(0)] $BOOL; (* Return information about each thread for multithreaded processes *) ) END; CONST pscan$M_OR = 1; pscan$M_BIT_ALL = 2; pscan$M_BIT_ANY = 4; pscan$M_GEQ = 8; pscan$M_GTR = 16; pscan$M_LEQ = 32; pscan$M_LSS = 64; pscan$M_PREFIX_MATCH = 128; pscan$M_WILDCARD = 256; pscan$M_CASE_BLIND = 512; pscan$M_EQL = 1024; pscan$M_NEQ = 2048; TYPE item_specific_flags$TYPE = RECORD pscan$V_OR : [POS(0)] $BOOL; (* Logical OR of items *) pscan$V_BIT_ALL : [POS(1)] $BOOL; (* All bits set in pattern *) pscan$V_BIT_ANY : [POS(2)] $BOOL; (* Any bit set in pattern *) pscan$V_GEQ : [POS(3)] $BOOL; pscan$V_GTR : [POS(4)] $BOOL; pscan$V_LEQ : [POS(5)] $BOOL; pscan$V_LSS : [POS(6)] $BOOL; pscan$V_PREFIX_MATCH : [POS(7)] $BOOL; (* Match on leading substring *) pscan$V_WILDCARD : [POS(8)] $BOOL; (* Wildcard pattern *) pscan$V_CASE_BLIND : [POS(9)] $BOOL; (* Ignore case of text strings *) pscan$V_EQL : [POS(10)] $BOOL; pscan$V_NEQ : [POS(11)] $BOOL; pscan$v_fill_82_ : [POS(12)] $BIT4; END; (*** MODULE $PSIGDEF ***) (* *) (* Signature block offset definitions for the Alpha/IA64 calling standard. *) (* *) CONST PSIG$K_FR_I64 = 0; (* 64 bit in R0 *) (* or - No function result provided *) CONST PSIG$K_FR_D64 = 1; (* 32 bit low in R0, 32 bit high in r1 - sign extended *) PSIG$K_FR_I32 = 2; (* 32 bit sign extended in R0 *) PSIG$K_FR_U32 = 3; (* 32 bit unsigned in R0 *) PSIG$K_FR_FF = 4; (* F floating in F0 *) PSIG$K_FR_FD = 5; (* D floating in F0 *) PSIG$K_FR_FG = 6; (* G floating in F0 *) PSIG$K_FR_FS = 7; (* S floating in F0 *) PSIG$K_FR_FT = 8; (* T floating in F0 *) PSIG$K_FR_FFC = 11; (* F floating complex in F0 and F1 *) PSIG$K_FR_FDC = 12; (* D floating complex in F0 and F1 *) PSIG$K_FR_FGC = 13; (* G floating complex in F0 and F1 *) PSIG$K_FR_FSC = 14; (* S floating complex in F0 and F1 *) PSIG$K_FR_FTC = 15; (* T floating complex in F0 and F1 *) (* *) CONST PSIG$M_FUNC_RETURN = 15; PSIG$M_REG_ARG_INFO = 268435440; PSIG$M_SU_VLIST = 1073741824; PSIG$K_MIN_LENGTH = 8; (* Minimum length *) PSIG$K_MAX_LENGTH = 72; (* Maximum length *) PSIG$K_MIN_SIZE = 8; (* Minimum size *) PSIG$K_MAX_SIZE = 72; (* Maximum size *) TYPE PSIG$TYPE = RECORD CASE INTEGER OF 1: ( (* or - First parameter mechanism used *) (* First longword of signature block *) (* *) PSIG$R_REGISTER_INFO_OVERLAY : [BYTE(4)] RECORD END; (* *) (* Second longword of signature block *) (* *) PSIG$B_ARG_COUNT : $UBYTE; (* Argument count *) PSIG$V_MEMORY_ARG_INFO : [POS(40)] $BIT24; (* Minimum length for memory argument information *) ); 2: (); 3: (PSIG$L_REGISTER_INFO : [POS(0)] UNSIGNED; ); 4: (); 5: (PSIG$V_FUNC_RETURN : [POS(0)] $BIT4; (* Function return signature encoding *) PSIG$V_REG_ARG_INFO : [POS(4)] $BIT24; (* Register argument signature encodings *) PSIG$V_SUMMARY : [POS(28)] $BIT4; (* Entire summary field *) (* *) (* Summary bits which are contained in the high bits of the first longword *) (* *) ); 6: (); 7: (PSIG$L_SUMMARY_INFO : [POS(0)] UNSIGNED; ); 8: (); 9: (PSIG$V_FILL : [POS(0)] $BIT28; PSIG$V_SU_ASUM : [POS(28)] $BIT2; (* Summary of arguments 7 through arg_count *) PSIG$V_SU_VLIST : [POS(30)] $BOOL; (* VAX style argument list expected *) PSIG$V_UNUSED : [POS(31)] $BOOL; ) END; CONST RASE$M_SIG_ENC = 15; RASE$K_RA_I64 = 0; (* (obsolete) *) RASE$K_RA_NOARG = 0; (* Argument is not present *) RASE$K_RA_Q = 1; (* 64 bit in Rxx *) RASE$K_RA_I32 = 2; (* 32 bit sign extended in Rxx *) RASE$K_RA_U32 = 3; (* 32 bit unsigned in Rxx *) RASE$K_RA_FF = 4; (* F floating passed in Fxx *) RASE$K_RA_FD = 5; (* D floating passed in Fxx *) RASE$K_RA_FG = 6; (* G floating passed in Fxx *) RASE$K_RA_FS = 7; (* S floating passed in Fxx *) RASE$K_RA_FT = 8; (* T floating passed in Fxx *) TYPE RASE$TYPE = RECORD RASE$V_SIG_ENC : [POS(0)] $BIT4; (* per register signature encoding *) RASE$V_FILL_87_ : [POS(4)] $BIT4; END; CONST MASE$K_MA_I64 = 0; (* (obsolete) *) MASE$K_MA_Q = 0; (* 64 bit argument *) MASE$K_MA_I32 = 2; (* 32 bit signed argument *) TYPE MASE$TYPE = RECORD MASE$V_SIG_ENC : [POS(0)] $BIT2; (* per memory location signature encoding *) MASE$V_FILL_88_ : [POS(2)] $BIT6; END; (* *) (* Argument Information structure definition for the Alpha/IA64 calling standard. *) (* *) CONST AI$K_AR_I64 = 0; (* Integer argument *) AI$K_AR_FF = 1; (* VAX F float argument *) AI$K_AR_FD = 2; (* VAX D float argument *) AI$K_AR_FG = 3; (* VAX G float argument *) AI$K_AR_FS = 4; (* IEEE S float argument *) AI$K_AR_FT = 5; (* IEEE T float argument *) AI$K_AR_RESERVED_6 = 6; (* Reserved value 6 *) AI$K_AR_RESERVED_7 = 7; (* Reserved value 7 *) AI$M_ARG_REG_INFO = 1792; AI$K_AI_SIZE = 8; (* Minimum length *) AI$K_REGNO = 25; (* The AI register number *) TYPE AI$TYPE = RECORD AI$B_ARG_COUNT : $UBYTE; AI$V_ARG_REG_INFO : [POS(8),BIT(18)] PACKED ARRAY [1..6] OF $BIT3; (* per arg type info for up to 6 arguments *) AI$V_ARG_MBZ1 : [POS(26)] $BIT6; (* must be zero *) AI$V_ARG_MBZ2 : [POS(32)] $BIT32; (* must be zero *) END; (*** MODULE $PSLDEF ***) (*+ *) (* PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS *) (* *) (* This definition file provides PSL$xxxx symbols *) (* strictly for the purpose of providing compatibility *) (* for code being ported from VAX which refers to the *) (* fields of the PSL. Only those fields that exist in *) (* both architectures are defined. *) (* *) (* The preferred approach for code that DOES NOT run *) (* on VAX is to use the symbols defined by the $PRDEF *) (* macro instead. *) (*- *) CONST PSL$M_PRVMOD = 3; PSL$M_CURMOD = 24; PSL$M_IPL = 7936; PSL$V_MAX_PS_REG_BIT = 13; (* *) CONST PSL$C_KERNEL = 0; (* Kernel Mode *) PSL$C_EXEC = 1; (* Executive Mode *) PSL$C_SUPER = 2; (* Supervisor Mode *) PSL$C_USER = 3; (* User Mode *) TYPE PSL$TYPE = RECORD CASE INTEGER OF 1: (PSL$R_PSLDEF_BITS : [BYTE(2)] RECORD END; ); 2: (PSL$V_PRVMOD : [POS(0)] $BIT2; (* Previous Processor Mode *) PSL$V_CURMOD : [POS(3)] $BIT2; (* Current Processor Mode *) PSL$V_IPL : [POS(8)] $BIT5; (* Interrupt Priority Level *) (* *) (* Maximum bit number used in the PS register *) (* *) (* MODE SYMBOL DEFINITIONS *) (* *) ) END; (*** MODULE $PTDDEF ***) (*+ *) (* *) (* Pseudo terminal driver notification AST type definitions. *) (* *) (* N.B. *) (* These definitions are in a specific order and must not be changed *) (* without matching changes to FTUCBDEF, and FTDRIVER. *) (* *) (*- *) CONST PTD$C_SEND_XON = 0; (* Enable or disable XON AST *) PTD$C_SEND_BELL = 1; (* Enable or disable BELL AST *) PTD$C_SEND_XOFF = 2; (* Enable or disable XOFF AST *) PTD$C_STOP_OUTPUT = 3; (* Enable or disable stop output AST *) PTD$C_RESUME_OUTPUT = 4; (* Enable or disable resume output AST *) PTD$C_CHAR_CHANGED = 5; (* Enable or disable characteristics change AST *) PTD$C_ABORT_OUTPUT = 6; (* Enable or disable abort output AST *) PTD$C_START_READ = 7; (* Enable or disable start read AST *) PTD$C_MIDDLE_READ = 8; (* Enable or disable middle read AST *) PTD$C_END_READ = 9; (* Enable or disable end read AST *) PTD$C_ENABLE_READ = 10; (* Enable read ASTs *) PTD$C_DISABLE_READ = 11; (* Disable read ASTs *) PTD$C_MAX_EVENTS = 12; (* END. *) (* MODULE STARDEFQZ ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $QUIDEF ***) (* *) (* Get Queue Information Service ($GETQUI) definitions. *) (* *) (* NOTE: New items must always be added at the end so users will not have to relink. *) (* *) (* NOTE: Update [VMSLIB.SRC]QUITABLE.MAR to reflect changes in $QUIDEF. *) (* *) (* *) (* Function codes *) (* *) CONST QUI$_CANCEL_OPERATION = 1; (* Cancel a wildcard operation *) QUI$_DISPLAY_CHARACTERISTIC = 2; (* Return characteristic attributes *) QUI$_DISPLAY_FILE = 3; (* Return file attributes *) QUI$_DISPLAY_FORM = 4; (* Return form attributes *) QUI$_DISPLAY_JOB = 5; (* Return job attributes *) QUI$_DISPLAY_QUEUE = 6; (* Return queue attributes *) QUI$_TRANSLATE_QUEUE = 7; (* Validate and translate queue name *) QUI$_DISPLAY_ENTRY = 8; (* Return entry (job) attributes (without first having to establish queue context) *) QUI$_DISPLAY_QMAN = 9; (* Reserved for Digital (used by job control to get qman information) *) QUI$_DISPLAY_MANAGER = 10; (* Return queue manager attributes *) QUI$K_MIN_FUNC = 1; (* Minimum GETQUI function code *) QUI$K_MAX_FUNC = 10; (* Maximum GETQUI function code *) (* *) (* Item codes *) (* *) CONST QUI$_ACCOUNT_NAME = 1; (* Job: Submitter's account name *) QUI$_AFTER_TIME = 2; (* Job: /AFTER=time *) QUI$_ASSIGNED_QUEUE_NAME = 3; (* Queue: ASSIGN/QUEUE target *) QUI$_BASE_PRIORITY = 4; (* Queue: /BASE_PRIORITY=n *) QUI$_CHARACTERISTIC_NAME = 5; (* Characteristic: Name *) QUI$_CHARACTERISTIC_NUMBER = 6; (* Characteristic: Number *) QUI$_CHARACTERISTICS = 7; (* Job, queue: /CHARACTERISTICS=(c,...) *) QUI$_CHECKPOINT_DATA = 8; (* Job: Checkpoint data *) QUI$_CLI = 9; (* Job: /CLI=filename *) QUI$_COMPLETED_BLOCKS = 10; (* Job: Completed blocks including checkpoint *) QUI$_CONDITION_VECTOR = 11; (* Job: Completion status *) QUI$_CPU_DEFAULT = 12; (* Queue: /CPUDEFAULT=t *) QUI$_CPU_LIMIT = 13; (* Job, queue: /CPUMAXIMUM=t *) QUI$_DEVICE_NAME = 14; (* Queue: /ON=device *) QUI$_ENTRY_NUMBER = 15; (* Job: Entry number *) QUI$_FILE_COPIES = 16; (* File: /COPIES=n *) QUI$_FILE_COPIES_CHKPT = 17; (* File: File copies checkpoint (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_FILE_COPIES_DONE = 18; (* File: File copies completed *) QUI$_FILE_FLAGS = 19; (* File: Boolean information *) QUI$_FILE_SETUP_MODULES = 20; (* File: /SETUP=(module,...) *) QUI$_FILE_SPECIFICATION = 21; (* File: Full file specification *) QUI$_FILE_STATUS = 22; (* File: Status information *) QUI$_FIRST_PAGE = 23; (* File: /PAGES=(n,"") *) QUI$_FORM_DESCRIPTION = 24; (* Form: /DESCRIPTION=string *) QUI$_FORM_FLAGS = 25; (* Form: Boolean information *) QUI$_FORM_LENGTH = 26; (* Form: /LENGTH=n *) QUI$_FORM_MARGIN_BOTTOM = 27; (* Form: /MARGIN=BOTTOM=n *) QUI$_FORM_MARGIN_LEFT = 28; (* Form: /MARGIN=LEFT=n *) QUI$_FORM_MARGIN_RIGHT = 29; (* Form: /MARGIN=RIGHT=n *) QUI$_FORM_MARGIN_TOP = 30; (* Form: /MARGIN=TOP=n *) QUI$_FORM_NAME = 31; (* Form, job, queue: Form name *) QUI$_FORM_NUMBER = 32; (* Form: Number *) QUI$_FORM_SETUP_MODULES = 33; (* Form: /SETUP=(module,...) *) QUI$_FORM_STOCK = 34; (* Form: /STOCK=stock-name *) QUI$_FORM_WIDTH = 35; (* Form: /WIDTH=n *) QUI$_GENERIC_TARGET = 36; (* Queue: /GENERIC=(queue-name,...) *) QUI$_INTERVENING_BLOCKS = 37; (* Job: Intervening pending blocks *) QUI$_INTERVENING_JOBS = 38; (* Job: Intervening pending jobs *) QUI$_JOB_COPIES = 39; (* Job: /JOB_COUNT=n *) QUI$_JOB_COPIES_CHKPT = 40; (* Job: Job copies checkpoint (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_JOB_COPIES_DONE = 41; (* Job: Job copies completed *) QUI$_JOB_FLAGS = 42; (* Job: Boolean information *) QUI$_JOB_LIMIT = 43; (* Queue: /JOB_LIMIT=n *) QUI$_JOB_NAME = 44; (* Job: Name *) QUI$_JOB_RESET_MODULES = 45; (* Queue: /SEPARATE=RESET=(module,...) *) QUI$_JOB_SIZE = 46; (* Job: Total blocks in job *) QUI$_JOB_SIZE_MAXIMUM = 47; (* Queue: /BLOCK_LIMIT=n *) QUI$_JOB_SIZE_MINIMUM = 48; (* Queue: /BLOCK_LIMIT=(n,"") *) QUI$_JOB_STATUS = 49; (* Job: Status information *) QUI$_LAST_PAGE = 50; (* File: /PAGES=n *) QUI$_LIBRARY_SPECIFICATION = 51; (* Queue: /LIBRARY=file-specification *) QUI$_LOG_QUEUE = 52; (* Job: /PRINTER=queue-name *) QUI$_LOG_SPECIFICATION = 53; (* Job: /LOG_FILE=file-specification *) QUI$_NOTE = 54; (* Job: /NOTE=string *) QUI$_OPERATOR_REQUEST = 55; (* Job: /OPERATOR=string *) QUI$_OWNER_UIC = 56; (* Queue: /OWNER=uic *) QUI$_PAGE_SETUP_MODULES = 57; (* Form: /PAGE_SETUP=(module,...) *) QUI$_PARAMETER_1 = 58; (* Job: /PARAMETER=string *) QUI$_PARAMETER_2 = 59; QUI$_PARAMETER_3 = 60; QUI$_PARAMETER_4 = 61; QUI$_PARAMETER_5 = 62; QUI$_PARAMETER_6 = 63; QUI$_PARAMETER_7 = 64; QUI$_PARAMETER_8 = 65; QUI$_PRIORITY = 66; (* Job: /PRIORITY=n *) QUI$_PROCESSOR = 67; (* Queue: /PROCESSOR=filename *) QUI$_PROTECTION = 68; (* Queue: /PROTECTION=mask *) QUI$_QUEUE_FLAGS = 69; (* Queue: Boolean information *) QUI$_QUEUE_NAME = 70; (* Job, queue: Queue name *) QUI$_QUEUE_STATUS = 71; (* Queue: Status information *) QUI$_REFUSAL_REASON = 72; (* Job: Reason symbiont refused job (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_REQUEUE_PRIORITY = 73; (* Job: Priority after requeue (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_REQUEUE_QUEUE_NAME = 74; (* Job: Queue after requeue *) QUI$_SCSNODE_NAME = 75; (* Queue: /ON=node:: *) QUI$_SEARCH_FLAGS = 76; (* Flags to control search *) QUI$_SEARCH_NAME = 77; (* Object name to search for *) QUI$_SEARCH_NUMBER = 78; (* Object number to search for *) QUI$_SUBMISSION_TIME = 79; (* Job: Submission time *) QUI$_UIC = 80; (* Job: Submitter's UIC *) QUI$_USERNAME = 81; (* Job: Submitter's username *) QUI$_WSDEFAULT = 82; (* Job, queue: /WSDEFAULT=n *) QUI$_WSEXTENT = 83; (* Job, queue: /WSEXTENT=n *) QUI$_WSQUOTA = 84; (* Job, queue: /WSQUOTA=n *) QUI$_RAD = 85; (* RAD assigned to queue or batch job *) QUI$_RESERVED_OUTPUT_86 = 86; (* Reserved for Digital use (name may change) *) QUI$_JOB_CONTROL_GQC = 87; (* Reserved for Digital (Use to send GQC to job control process) *) QUI$_SEARCH_USERNAME = 88; (* Username of owner of job to modify search *) QUI$_DEFAULT_FORM_NAME = 89; (* Default form name on queue *) QUI$_DEFAULT_FORM_NUMBER = 90; (* Default form number on queue *) QUI$_DEFAULT_FORM_STOCK = 91; (* Stock name for default form *) QUI$_JOB_PID = 92; (* Pid of batch job *) QUI$_FILE_IDENTIFICATION = 93; (* File identification (From RMS NAM block) *) QUI$_PENDING_JOB_BLOCK_COUNT = 94; (* Total number of blocks for all pending jobs *) QUI$_JOB_RETENTION_TIME = 95; (* The amount of time the job should be retained (may be delta or absolute) *) QUI$_JOB_COMPLETION_TIME = 96; (* The time the job completed execution *) QUI$_JOB_COMPLETION_QUEUE = 97; (* The name of the queue the job completed execution on *) QUI$_RESERVED_OUTPUT_98 = 98; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_99 = 99; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_100 = 100; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_101 = 101; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_102 = 102; (* Reserved for Digital use (name may change) *) QUI$_SEARCH_BATCH_EPID = 103; (* Batch job EPID to search for *) QUI$_SEARCH_JOB_NAME = 104; (* Job name to search for *) QUI$_RESERVED_INPUT_105 = 105; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_106 = 106; (* Reserved for Digital use (name may change) *) QUI$_EXECUTING_JOB_COUNT = 107; (* Number of jobs that are executing *) QUI$_HOLDING_JOB_COUNT = 108; (* Number of holding jobs *) QUI$_TIMED_RELEASE_JOB_COUNT = 109; (* Number of jobs specified with /AFTER_TIME *) QUI$_PENDING_JOB_REASON = 110; (* Secondary status describing why job is pending *) QUI$_ORB = 111; (* ORB data in TLV format *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_QUEUE_DESCRIPTION = 112; (* Queue: /DESCRIPTION *) QUI$_SYMBIONT_FLAGS = 113; (* Symbiont options (requests) passed to job controller *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_JOB_ACCESS_CLASS = 114; (* Job access class information (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_ORB_LOCK_KEY = 115; (* Key value for locking of in-memory ORB data structure (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST QUI$_CHECKPOINT_FREQUENCY = 116; (* Number of pages in interval at which symbiont takes chkpts *) QUI$_PENDING_JOB_COUNT = 117; (* Number of pending jobs *) QUI$_RETAINED_JOB_COUNT = 118; (* Number of retained jobs *) QUI$_RESTART_QUEUE_NAME = 119; (* Name of queue into which a job would be restarted, if appropriate *) QUI$_FILE_COUNT = 120; (* Count of files in job *) QUI$_ATTRIBUTES = 121; (* Keywds and values of extens attribs associated with queue, job, or file *) QUI$_ATTRIBUTES_SIZE = 122; (* Length of list of extens attribs associated with queue, job, or file *) QUI$_QUEUE_SUPPORT = 123; (* Queue Support Images defined on this queue *) QUI$_QUEUE_ATTRIBUTES = 124; (* Valid keywords for operations that alter the queue *) QUI$_QUEUE_ATTRIBUTES_SIZE = 125; (* Length of list of keywords for queue-oriented extens attribs *) QUI$_JOB_ATTRIBUTES = 126; (* Valid keywords for operations that create or alter jobs *) QUI$_JOB_ATTRIBUTES_SIZE = 127; (* Length of list of keywords for job-oriented extens attribs *) QUI$_FILE_ATTRIBUTES = 128; (* Valid keywords for file submissions or alter_file's *) QUI$_FILE_ATTRIBUTES_SIZE = 129; (* Length of list of keywords for file-oriented extens attribs *) QUI$_AUTOSTART_ON = 130; (* Node(s) (and for print queues, device(s)) on which queue can be auto started *) QUI$_AGENT_PROFILE = 131; (* Security information *) QUI$_MANAGER_NAME = 132; (* Queue manager name *) QUI$_MANAGER_STATUS = 133; (* Queue manager state and status information *) QUI$_RESERVED_OUTPUT_134 = 134; (* Reserved for Digital use (name may change) *) QUI$_MANAGER_NODES = 135; (* Preferred node listed specified on start queue manager *) QUI$_MANAGER_AUTOSTART = 136; (* List of nodes that are autostart enabled *) QUI$_QUEUE_DIRECTORY = 137; (* Directory specification provided when queue manager was started *) QUI$_RESERVED_OUTPUT_138 = 138; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_139 = 139; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_140 = 140; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_141 = 141; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_142 = 142; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_143 = 143; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_144 = 144; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_145 = 145; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_146 = 146; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_147 = 147; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_148 = 148; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_149 = 149; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_150 = 150; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_151 = 151; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_152 = 152; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_153 = 153; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_154 = 154; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_155 = 155; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_156 = 156; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_157 = 157; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_158 = 158; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_OUTPUT_159 = 159; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_160 = 160; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_161 = 161; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_162 = 162; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_163 = 163; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_164 = 164; (* Reserved for Digital use (name may change) *) QUI$_RESERVED_INPUT_165 = 165; (* Reserved for Digital use (name may change) *) QUI$K_MIN_ITEM = 1; (* Minimum GETQUI item code *) QUI$K_MAX_ITEM = 165; (* Maximum GETQUI item code *) QUI$_CHARGE_CODE = 1; (* synonym for QUI$_ACCOUNT_NAME *) (* *) (* Subfields of FILE_FLAGS item code. *) (* *) CONST QUI$M_FILE_BURST = 1; QUI$M_FILE_BURST_EXP = 2; QUI$M_FILE_DELETE = 4; QUI$M_FILE_DOUBLE_SPACE = 8; QUI$M_FILE_FLAG = 16; QUI$M_FILE_FLAG_EXP = 32; QUI$M_FILE_TRAILER = 64; QUI$M_FILE_TRAILER_EXP = 128; QUI$M_FILE_PAGE_HEADER = 256; QUI$M_FILE_PAGINATE = 512; QUI$M_FILE_PASSALL = 1024; QUI$M_FILE_PAGINATE_EXP = 2048; QUI$M_FILE_DELETE_ALWAYS = 4096; TYPE FILE_FLAGS$TYPE = RECORD QUI$V_FILE_BURST : [POS(0)] $BOOL; (* /BURST *) QUI$V_FILE_BURST_EXP : [POS(1)] $BOOL; (* /[NO]BURST explicit (intentionally not documented) *) QUI$V_FILE_DELETE : [POS(2)] $BOOL; (* /DELETE *) QUI$V_FILE_DOUBLE_SPACE : [POS(3)] $BOOL; (* /SPACE *) QUI$V_FILE_FLAG : [POS(4)] $BOOL; (* /FLAG *) QUI$V_FILE_FLAG_EXP : [POS(5)] $BOOL; (* /[NO]FLAG explicit (intentionally not documented) *) QUI$V_FILE_TRAILER : [POS(6)] $BOOL; (* /TRAILER *) QUI$V_FILE_TRAILER_EXP : [POS(7)] $BOOL; (* /[NO]TRAILER explicit (intentionally not documented) *) QUI$V_FILE_PAGE_HEADER : [POS(8)] $BOOL; (* /HEADER *) QUI$V_FILE_PAGINATE : [POS(9)] $BOOL; (* /FEED *) QUI$V_FILE_PASSALL : [POS(10)] $BOOL; (* /PASSALL *) QUI$V_FILE_PAGINATE_EXP : [POS(11)] $BOOL; (* /[NO]FEED explicit (intentionally not documented) *) QUI$V_FILE_DELETE_ALWAYS : [POS(12)] $BOOL; (* /DELETE_ALWAYS *) QUI$v_filler : [POS(13)] $BIT19; END; (* *) (* Subfields of FILE_STATUS item code. *) (* *) CONST QUI$M_FILE_CHECKPOINTED = 1; QUI$M_FILE_EXECUTING = 2; TYPE FILE_STATUS$TYPE = RECORD QUI$V_FILE_CHECKPOINTED : [POS(0)] $BOOL; (* File checkpointed *) QUI$V_FILE_EXECUTING : [POS(1)] $BOOL; (* File currently executing *) QUI$v_filler : [POS(2)] $BIT30; END; (* *) (* Subfields of FORM_FLAGS item code. *) (* *) CONST QUI$M_FORM_SHEET_FEED = 1; QUI$M_FORM_TRUNCATE = 2; QUI$M_FORM_WRAP = 4; TYPE FORM_FLAGS$TYPE = RECORD QUI$V_FORM_SHEET_FEED : [POS(0)] $BOOL; (* /SHEET_FEED *) QUI$V_FORM_TRUNCATE : [POS(1)] $BOOL; (* /TRUNCATE *) QUI$V_FORM_WRAP : [POS(2)] $BOOL; (* /WRAP *) QUI$v_filler : [POS(3)] $BIT29; END; (* *) (* Subfields of JOB_FLAGS item code. *) (* *) CONST QUI$M_JOB_CPU_LIMIT = 1; QUI$M_JOB_FILE_BURST = 2; QUI$M_JOB_FILE_BURST_ONE = 4; QUI$M_JOB_FILE_BURST_EXP = 8; QUI$M_JOB_FILE_FLAG = 16; QUI$M_JOB_FILE_FLAG_ONE = 32; QUI$M_JOB_FILE_FLAG_EXP = 64; QUI$M_JOB_FILE_TRAILER = 128; QUI$M_JOB_FILE_TRAILER_ONE = 256; QUI$M_JOB_FILE_TRAILER_EXP = 512; QUI$M_JOB_LOG_DELETE = 1024; QUI$M_JOB_LOG_NULL = 2048; QUI$M_JOB_LOG_SPOOL = 4096; QUI$M_JOB_LOWERCASE = 8192; QUI$M_JOB_NOTIFY = 16384; QUI$M_JOB_RESTART = 32768; QUI$M_JOB_WSDEFAULT = 65536; QUI$M_JOB_WSEXTENT = 131072; QUI$M_JOB_WSQUOTA = 262144; QUI$M_JOB_FILE_PAGINATE = 524288; QUI$M_JOB_FILE_PAGINATE_EXP = 1048576; QUI$M_JOB_RETENTION = 2097152; QUI$M_JOB_ERROR_RETENTION = 4194304; QUI$M_JOB_RAD = 8388608; TYPE JOB_FLAGS$TYPE = RECORD QUI$V_JOB_CPU_LIMIT : [POS(0)] $BOOL; (* /CPUTIME explicit *) QUI$V_JOB_FILE_BURST : [POS(1)] $BOOL; (* /BURST=ALL *) QUI$V_JOB_FILE_BURST_ONE : [POS(2)] $BOOL; (* /BURST=ONE *) QUI$V_JOB_FILE_BURST_EXP : [POS(3)] $BOOL; (* /[NO]BURST explicit (intentionally not documented) *) QUI$V_JOB_FILE_FLAG : [POS(4)] $BOOL; (* /FLAG=ALL *) QUI$V_JOB_FILE_FLAG_ONE : [POS(5)] $BOOL; (* /FLAG=ONE *) QUI$V_JOB_FILE_FLAG_EXP : [POS(6)] $BOOL; (* /[NO]FLAG explicit (intentionally not documented) *) QUI$V_JOB_FILE_TRAILER : [POS(7)] $BOOL; (* /TRAILER=ALL *) QUI$V_JOB_FILE_TRAILER_ONE : [POS(8)] $BOOL; (* /TRAILER=ONE *) QUI$V_JOB_FILE_TRAILER_EXP : [POS(9)] $BOOL; (* /[NO]TRAILER explicit (intentionally not documented) *) QUI$V_JOB_LOG_DELETE : [POS(10)] $BOOL; (* /NOKEEP *) QUI$V_JOB_LOG_NULL : [POS(11)] $BOOL; (* /NOLOG_FILE *) QUI$V_JOB_LOG_SPOOL : [POS(12)] $BOOL; (* /PRINTER *) QUI$V_JOB_LOWERCASE : [POS(13)] $BOOL; (* /LOWERCASE *) QUI$V_JOB_NOTIFY : [POS(14)] $BOOL; (* /NOTIFY *) QUI$V_JOB_RESTART : [POS(15)] $BOOL; (* /RESTART *) QUI$V_JOB_WSDEFAULT : [POS(16)] $BOOL; (* /WSDEFAULT explicit *) QUI$V_JOB_WSEXTENT : [POS(17)] $BOOL; (* /WSEXTENT explicit *) QUI$V_JOB_WSQUOTA : [POS(18)] $BOOL; (* /WSQUOTA explicit *) QUI$V_JOB_FILE_PAGINATE : [POS(19)] $BOOL; (* /FEED *) QUI$V_JOB_FILE_PAGINATE_EXP : [POS(20)] $BOOL; (* /[NO]FEED explicit (intentionally not documented) *) QUI$V_JOB_RETENTION : [POS(21)] $BOOL; (* /RETAIN=ALWAYS *) QUI$V_JOB_ERROR_RETENTION : [POS(22)] $BOOL; (* /RETAIN=ERROR *) QUI$V_JOB_RAD : [POS(23)] $BOOL; (* /RAD explicit *) QUI$v_filler : [POS(24)] $BIT8; END; (* *) (* Subfields of JOB_STATUS item code. *) (* *) CONST QUI$M_JOB_ABORTING = 1; QUI$M_JOB_EXECUTING = 2; QUI$M_JOB_HOLDING = 4; QUI$M_JOB_INACCESSIBLE = 8; QUI$M_JOB_REFUSED = 16; QUI$M_JOB_REQUEUE = 32; QUI$M_JOB_RESTARTING = 64; QUI$M_JOB_RETAINED = 128; QUI$M_JOB_STARTING = 256; QUI$M_JOB_TIMED_RELEASE = 512; QUI$M_JOB_SUSPENDED = 1024; QUI$M_JOB_PENDING = 2048; QUI$M_JOB_UNDEFINED = 4096; QUI$M_JOB_STALLED = 8192; QUI$M_JOB_INCOMPLETE = 16384; QUI$M_JOB_COMPLETING = 32768; TYPE JOB_STATUS$TYPE = RECORD QUI$V_JOB_ABORTING : [POS(0)] $BOOL; (* Job is aborting *) QUI$V_JOB_EXECUTING : [POS(1)] $BOOL; (* Job is executing *) QUI$V_JOB_HOLDING : [POS(2)] $BOOL; (* Job is holding for /HOLD *) QUI$V_JOB_INACCESSIBLE : [POS(3)] $BOOL; (* Job is inaccessible *) QUI$V_JOB_REFUSED : [POS(4)] $BOOL; (* Job was refused by symbiont *) QUI$V_JOB_REQUEUE : [POS(5)] $BOOL; (* Job will requeue after abort (intentionally not documented) *) QUI$V_JOB_RESTARTING : [POS(6)] $BOOL; (* Job started execution at least once (intentionally not documented) *) QUI$V_JOB_RETAINED : [POS(7)] $BOOL; (* Job was retained by /RETAIN *) QUI$V_JOB_STARTING : [POS(8)] $BOOL; (* Job is starting *) QUI$V_JOB_TIMED_RELEASE : [POS(9)] $BOOL; (* Job is holding for /AFTER *) QUI$V_JOB_SUSPENDED : [POS(10)] $BOOL; (* Job is suspended by STOP/QUEUE command *) QUI$V_JOB_PENDING : [POS(11)] $BOOL; (* Job is pending (see QUI$_JOB_PENDING_REASON for more information) *) QUI$V_JOB_UNDEFINED : [POS(12)] $BOOL; (* Job does not yet exist in db or is being removed from db *) QUI$V_JOB_STALLED : [POS(13)] $BOOL; (* Current job on stalled queue *) QUI$V_JOB_INCOMPLETE : [POS(14)] $BOOL; (* Job was processed by the symbiont but further processing is necessary *) QUI$V_JOB_COMPLETING : [POS(15)] $BOOL; (* Job has been completely processed *) QUI$v_filler : [POS(16)] $BIT16; END; CONST QUI$V_JOB_TIMED = 9; (* Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibility *) 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 execution *) (* queues that is the target of the generic queue in which a job resides. *) (* *) CONST QUI$M_PEND_CHAR_MISMATCH = 1; QUI$M_PEND_JOB_SIZE_MAX = 2; QUI$M_PEND_JOB_SIZE_MIN = 4; QUI$M_PEND_LOWERCASE_MISMATCH = 8; QUI$M_PEND_NO_ACCESS = 16; QUI$M_PEND_QUEUE_BUSY = 32; QUI$M_PEND_QUEUE_STATE = 64; QUI$M_PEND_STOCK_MISMATCH = 128; TYPE PENDING_JOB_REASON$TYPE = RECORD QUI$V_PEND_CHAR_MISMATCH : [POS(0)] $BOOL; (* Queue's characteristics do not match job's requirements *) QUI$V_PEND_JOB_SIZE_MAX : [POS(1)] $BOOL; (* Print job's block size is too large to execute on queue (print job only) *) QUI$V_PEND_JOB_SIZE_MIN : [POS(2)] $BOOL; (* Print job's block size is too small to execute on queue (print job only) *) QUI$V_PEND_LOWERCASE_MISMATCH : [POS(3)] $BOOL; (* Queue's lowercase attribute does not match job's requirements (print job only) *) QUI$V_PEND_NO_ACCESS : [POS(4)] $BOOL; (* User does not have access to queue *) QUI$V_PEND_QUEUE_BUSY : [POS(5)] $BOOL; (* Job is ready to execute but must wait until other jobs ahead of it in the queue *) (* complete execution (this is a normal state that requires no user intervention) *) QUI$V_PEND_QUEUE_STATE : [POS(6)] $BOOL; (* Queue state prevents job from executing (see QUI$_QUEUE_STATUS for more info) *) QUI$V_PEND_STOCK_MISMATCH : [POS(7)] $BOOL; (* Stock type of mounted form on output execution queue does not match *) (* stock stock type required by form associated with job (print job only) *) QUI$v_filler : [POS(8)] $BIT24; END; (* *) (* Subfields of QUEUE_FLAGS item code. *) (* *) CONST QUI$M_QUEUE_BATCH = 1; QUI$M_QUEUE_CPU_DEFAULT = 2; QUI$M_QUEUE_CPU_LIMIT = 4; QUI$M_QUEUE_FILE_BURST = 8; QUI$M_QUEUE_FILE_BURST_ONE = 16; QUI$M_QUEUE_FILE_FLAG = 32; QUI$M_QUEUE_FILE_FLAG_ONE = 64; QUI$M_QUEUE_FILE_TRAILER = 128; QUI$M_QUEUE_FILE_TRAILER_ONE = 256; QUI$M_QUEUE_GENERIC = 512; QUI$M_QUEUE_GENERIC_SELECTION = 1024; QUI$M_QUEUE_JOB_BURST = 2048; QUI$M_QUEUE_JOB_FLAG = 4096; QUI$M_QUEUE_JOB_SIZE_SCHED = 8192; QUI$M_QUEUE_JOB_TRAILER = 16384; QUI$M_QUEUE_RETAIN_ALL = 32768; QUI$M_QUEUE_RETAIN_ERROR = 65536; QUI$M_QUEUE_SWAP = 131072; QUI$M_QUEUE_TERMINAL = 262144; QUI$M_QUEUE_WSDEFAULT = 524288; QUI$M_QUEUE_WSEXTENT = 1048576; QUI$M_QUEUE_WSQUOTA = 2097152; QUI$M_QUEUE_FILE_PAGINATE = 4194304; QUI$M_QUEUE_RECORD_BLOCKING = 8388608; QUI$M_QUEUE_PRINTER = 16777216; QUI$M_QUEUE_ACL_SPECIFIED = 33554432; QUI$M_QUEUE_NOTIFY_ON_INTERRUPT = 67108864; QUI$M_QUEUE_CHECKPOINT_FREQ = 134217728; QUI$M_QUEUE_AUTOSTART = 268435456; QUI$M_SECURITY_INACCESSIBLE = 536870912; QUI$M_QUEUE_NO_INITIAL_FF = 1073741824; QUI$M_QUEUE_RAD = -2147483648; TYPE QUEUE_FLAGS$TYPE = RECORD QUI$V_QUEUE_BATCH : [POS(0)] $BOOL; (* /BATCH *) QUI$V_QUEUE_CPU_DEFAULT : [POS(1)] $BOOL; (* /CPUDEFAULT specified *) QUI$V_QUEUE_CPU_LIMIT : [POS(2)] $BOOL; (* /CPUMAXIMUM specified *) QUI$V_QUEUE_FILE_BURST : [POS(3)] $BOOL; (* /DEFAULT=BURST=ALL *) QUI$V_QUEUE_FILE_BURST_ONE : [POS(4)] $BOOL; (* /DEFAULT=BURST=ONE *) QUI$V_QUEUE_FILE_FLAG : [POS(5)] $BOOL; (* /DEFAULT=FLAG=ALL *) QUI$V_QUEUE_FILE_FLAG_ONE : [POS(6)] $BOOL; (* /DEFAULT=FLAG=ONE *) QUI$V_QUEUE_FILE_TRAILER : [POS(7)] $BOOL; (* /DEFAULT=TRAILER=ALL *) QUI$V_QUEUE_FILE_TRAILER_ONE : [POS(8)] $BOOL; (* /DEFAULT=TRAILER=ONE *) QUI$V_QUEUE_GENERIC : [POS(9)] $BOOL; (* /GENERIC *) QUI$V_QUEUE_GENERIC_SELECTION : [POS(10)] $BOOL; (* /ENABLE_GENERIC *) QUI$V_QUEUE_JOB_BURST : [POS(11)] $BOOL; (* /SEPARATE=BURST *) QUI$V_QUEUE_JOB_FLAG : [POS(12)] $BOOL; (* /SEPARATE=FLAG *) QUI$V_QUEUE_JOB_SIZE_SCHED : [POS(13)] $BOOL; (* /SCHEDULE=SIZE *) QUI$V_QUEUE_JOB_TRAILER : [POS(14)] $BOOL; (* /SEPARATE=TRAILER *) QUI$V_QUEUE_RETAIN_ALL : [POS(15)] $BOOL; (* /RETAIN=ALL *) QUI$V_QUEUE_RETAIN_ERROR : [POS(16)] $BOOL; (* /RETAIN=ERROR *) QUI$V_QUEUE_SWAP : [POS(17)] $BOOL; (* /NODISABLE_SWAPPING *) QUI$V_QUEUE_TERMINAL : [POS(18)] $BOOL; (* /DEVICE=TERMINAL or terminal device type reported by symbiont *) QUI$V_QUEUE_WSDEFAULT : [POS(19)] $BOOL; (* /WSDEFAULT specified *) QUI$V_QUEUE_WSEXTENT : [POS(20)] $BOOL; (* /WSEXTENT specified *) QUI$V_QUEUE_WSQUOTA : [POS(21)] $BOOL; (* /WSQUOTA specified *) QUI$V_QUEUE_FILE_PAGINATE : [POS(22)] $BOOL; (* /DEFAULT=FEED *) QUI$V_QUEUE_RECORD_BLOCKING : [POS(23)] $BOOL; (* /RECORD_BLOCKING *) QUI$V_QUEUE_PRINTER : [POS(24)] $BOOL; (* /DEVICE=PRINTER or printer device type reported by symbiont *) QUI$V_QUEUE_ACL_SPECIFIED : [POS(25)] $BOOL; (* ACL has been specified for queue *) QUI$V_QUEUE_NOTIFY_ON_INTERRUPT : [POS(26)] $BOOL; (* /NOTIFY=INTERRUPTION *) QUI$V_QUEUE_CHECKPOINT_FREQ : [POS(27)] $BOOL; (* /CHECKPOINT_FREQUENCY specified *) QUI$V_QUEUE_AUTOSTART : [POS(28)] $BOOL; (* /AUTOSTART_ON specified *) QUI$V_SECURITY_INACCESSIBLE : [POS(29)] $BOOL; (* Requestor does not have access to security information *) QUI$V_QUEUE_NO_INITIAL_FF : [POS(30)] $BOOL; (* /NO_INITIAL_FF *) QUI$V_QUEUE_RAD : [POS(31)] $BOOL; (* /RAD specified *) END; (* *) (* Subfields of QUEUE_STATUS item code. *) (* *) CONST QUI$M_QUEUE_ALIGNING = 1; QUI$M_QUEUE_IDLE = 2; QUI$M_QUEUE_LOWERCASE = 4; QUI$M_QUEUE_OPERATOR_REQUEST = 8; QUI$M_QUEUE_PAUSED = 16; QUI$M_QUEUE_PAUSING = 32; QUI$M_QUEUE_REMOTE = 64; QUI$M_QUEUE_RESETTING = 128; QUI$M_QUEUE_RESUMING = 256; QUI$M_QUEUE_SERVER = 512; QUI$M_QUEUE_STALLED = 1024; QUI$M_QUEUE_STARTING = 2048; QUI$M_QUEUE_STOPPED = 4096; QUI$M_QUEUE_STOPPING = 8192; QUI$M_QUEUE_UNAVAILABLE = 16384; QUI$M_QUEUE_CLOSED = 32768; QUI$M_QUEUE_BUSY = 65536; QUI$M_QUEUE_UNDEFINED = 131072; QUI$M_QUEUE_AVAILABLE = 262144; QUI$M_QUEUE_DISABLED = 524288; QUI$M_QUEUE_AUTOSTART_INACTIVE = 1048576; QUI$M_QUEUE_STOP_PENDING = 2097152; TYPE QUEUE_STATUS$TYPE = RECORD QUI$V_QUEUE_ALIGNING : [POS(0)] $BOOL; (* Queue is aligning *) QUI$V_QUEUE_IDLE : [POS(1)] $BOOL; (* Queue is idle: no jobs executing and none available for execution *) QUI$V_QUEUE_LOWERCASE : [POS(2)] $BOOL; (* Lowercase device *) QUI$V_QUEUE_OPERATOR_REQUEST : [POS(3)] $BOOL; (* Queue is doing /OPERATOR (intentionally not documented) *) QUI$V_QUEUE_PAUSED : [POS(4)] $BOOL; (* Queue is paused *) QUI$V_QUEUE_PAUSING : [POS(5)] $BOOL; (* Queue is pausing *) QUI$V_QUEUE_REMOTE : [POS(6)] $BOOL; (* Remote device *) QUI$V_QUEUE_RESETTING : [POS(7)] $BOOL; (* Incomplete remote request to reset (OBSOLETE) *) QUI$V_QUEUE_RESUMING : [POS(8)] $BOOL; (* Queue is resuming from paused state *) QUI$V_QUEUE_SERVER : [POS(9)] $BOOL; (* /DEVICE=SERVER or reported to be a served queue by the symbiont *) QUI$V_QUEUE_STALLED : [POS(10)] $BOOL; (* Device is stalled *) QUI$V_QUEUE_STARTING : [POS(11)] $BOOL; (* Queue is starting *) QUI$V_QUEUE_STOPPED : [POS(12)] $BOOL; (* Queue is stopped *) QUI$V_QUEUE_STOPPING : [POS(13)] $BOOL; (* Queue is stopping *) QUI$V_QUEUE_UNAVAILABLE : [POS(14)] $BOOL; (* Device is unavailable *) QUI$V_QUEUE_CLOSED : [POS(15)] $BOOL; (* Queue is closed *) QUI$V_QUEUE_BUSY : [POS(16)] $BOOL; (* Queue is executing as many jobs as it is capable of executing *) QUI$V_QUEUE_UNDEFINED : [POS(17)] $BOOL; (* Queue does not yet exist in db or is being removed from db *) QUI$V_QUEUE_AVAILABLE : [POS(18)] $BOOL; (* At least one job is executing, but the queue is capable of executing more *) QUI$V_QUEUE_DISABLED : [POS(19)] $BOOL; (* Queue is not able to accept or process jobs; its QSIs are inactive *) QUI$V_QUEUE_AUTOSTART_INACTIVE : [POS(20)] $BOOL; (* AUTOSTART queue explicitly stopped *) QUI$V_QUEUE_STOP_PENDING : [POS(21)] $BOOL; (* Queue will be stopped when work currently in progress has completed *) QUI$v_filler : [POS(22)] $BIT10; END; (* *) (* Subfields of SEARCH_FLAGS item code. *) (* *) CONST QUI$M_SEARCH_ALL_JOBS = 1; QUI$M_SEARCH_WILDCARD = 2; QUI$M_SEARCH_BATCH = 4; QUI$M_SEARCH_SYMBIONT = 8; QUI$M_SEARCH_THIS_JOB = 16; QUI$M_SEARCH_PRINTER = 32; QUI$M_SEARCH_SERVER = 64; QUI$M_SEARCH_TERMINAL = 128; QUI$M_SEARCH_GENERIC = 256; QUI$M_SEARCH_GENERIC_TARGET = 512; QUI$M_SEARCH_PENDING_JOBS = 1024; QUI$M_SEARCH_EXECUTING_JOBS = 2048; QUI$M_SEARCH_TIMED_RELEASE_JOBS = 4096; QUI$M_SEARCH_HOLDING_JOBS = 8192; QUI$M_SEARCH_RETAINED_JOBS = 16384; QUI$M_SEARCH_FREEZE_CONTEXT = 32768; QUI$M_SEARCH_OPEN_JOBS = 65536; QUI$M_SEARCH_RESERVED_BIT1 = 131072; QUI$M_SEARCH_RESERVED_BIT2 = 262144; TYPE SEARCH_FLAGS$TYPE = RECORD QUI$V_SEARCH_ALL_JOBS : [POS(0)] $BOOL; (* Select all jobs (else only those with same username as caller) *) QUI$V_SEARCH_WILDCARD : [POS(1)] $BOOL; (* Force a wildcard operation *) QUI$V_SEARCH_BATCH : [POS(2)] $BOOL; (* Select batch queues *) QUI$V_SEARCH_SYMBIONT : [POS(3)] $BOOL; (* Select symbiont (output) queues (note that QUI$V_SEARCH_SYMBIONT is equivalent *) (* to setting QUI$V_SEARCH_PRINTER, QUI$V_SEARCH_SERVER, and QUI$V_SEARCH_TERMINAL) *) QUI$V_SEARCH_THIS_JOB : [POS(4)] $BOOL; (* Select only caller's batch job (forcing new context) *) QUI$V_SEARCH_PRINTER : [POS(5)] $BOOL; (* Select printer queues *) QUI$V_SEARCH_SERVER : [POS(6)] $BOOL; (* Select server queues *) QUI$V_SEARCH_TERMINAL : [POS(7)] $BOOL; (* Select terminal queues *) QUI$V_SEARCH_GENERIC : [POS(8)] $BOOL; (* Select generic queues *) QUI$V_SEARCH_GENERIC_TARGET : [POS(9)] $BOOL; (* Select generic target queues after selecting generic queue (for internal use) *) (* (note this option is NOT supported; it is intentionally not documented and *) (* reserved for Digital use) *) QUI$V_SEARCH_PENDING_JOBS : [POS(10)] $BOOL; (* Select only pending jobs *) QUI$V_SEARCH_EXECUTING_JOBS : [POS(11)] $BOOL; (* Select only executing jobs *) QUI$V_SEARCH_TIMED_RELEASE_JOBS : [POS(12)] $BOOL; (* Select only timed release jobs *) QUI$V_SEARCH_HOLDING_JOBS : [POS(13)] $BOOL; (* Select only holding jobs *) QUI$V_SEARCH_RETAINED_JOBS : [POS(14)] $BOOL; (* Select only retained jobs *) QUI$V_SEARCH_FREEZE_CONTEXT : [POS(15)] $BOOL; (* Do not advance wildcard context to next object in list at end of operation *) QUI$V_SEARCH_OPEN_JOBS : [POS(16)] $BOOL; (* Select only open jobs *) QUI$V_SEARCH_RESERVED_BIT1 : [POS(17)] $BOOL; (* Reserved to Compaq *) QUI$V_SEARCH_RESERVED_BIT2 : [POS(18)] $BOOL; (* Reserved to Compaq *) QUI$v_filler : [POS(19)] $BIT13; END; (* *) (* Subfields of SYMBIONT_FLAGS item code. *) (* *) (* Note: this item code is intentionally not documented and reserved for Digital use. *) (* *) CONST QUI$M_SYM_NOTIFIES = 1; QUI$M_SYM_REQUESTS_OPER = 2; QUI$M_SYM_COPIES_FILE = 4; QUI$M_SYM_COPIES_JOB = 8; QUI$M_SYM_ACCEPTS_ALL_FORMS = 16; QUI$M_SYM_NO_JOB_CHECKPOINT = 32; TYPE SYMBIONT_FLAGS$TYPE = RECORD QUI$V_SYM_NOTIFIES : [POS(0)] $BOOL; (* Symbiont notifies for job completions *) QUI$V_SYM_REQUESTS_OPER : [POS(1)] $BOOL; (* Symbiont generates operator messages *) QUI$V_SYM_COPIES_FILE : [POS(2)] $BOOL; (* Symbiont generates multiple file copies *) QUI$V_SYM_COPIES_JOB : [POS(3)] $BOOL; (* Symbiont generates multiple job copies *) QUI$V_SYM_ACCEPTS_ALL_FORMS : [POS(4)] $BOOL; (* Symbiont processes all form types *) QUI$V_SYM_NO_JOB_CHECKPOINT : [POS(5)] $BOOL; (* Always reprocess full job on a restart *) QUI$v_filler : [POS(6)] $BIT26; END; (* *) (* Subfields of MANAGER_STATUS item code. *) (* *) CONST QUI$M_MANAGER_START_PENDING = 1; QUI$M_MANAGER_STARTING = 2; QUI$M_MANAGER_RUNNING = 4; QUI$M_MANAGER_FAILOVER = 8; QUI$M_MANAGER_STOPPING = 16; QUI$M_MANAGER_STOPPED = 32; TYPE MANAGER_STATUS$TYPE = RECORD QUI$V_MANAGER_START_PENDING : [POS(0)] $BOOL; (* Queue manager will start when a node is available *) QUI$V_MANAGER_STARTING : [POS(1)] $BOOL; (* Queue manager is starting *) QUI$V_MANAGER_RUNNING : [POS(2)] $BOOL; (* Queue manager is processing work *) QUI$V_MANAGER_FAILOVER : [POS(3)] $BOOL; (* Queue manager is failing over to pick up new startup values *) QUI$V_MANAGER_STOPPING : [POS(4)] $BOOL; (* Queue manager is shutting down *) QUI$V_MANAGER_STOPPED : [POS(5)] $BOOL; (* Queue manager is stopped *) QUI$v_filler : [POS(6)] $BIT26; END; (*** MODULE $QSRVDEF IDENT X-9 ***) (* *) (* QIOserver Control and Information ($QIOSERVER) definitions. *) (* *) (* NOTE: New items must always be added at the end so users will not have to relink. *) (* *) (* *) (* Function codes *) (* *) CONST QSRV$_CANCEL_OPERATION = 1; (* Cancel a wildcard operation *) QSRV$_COMMIT_VOLATILE = 2; (* Commit the volatile configuration to permanent *) QSRV$_SET_CLIENT = 3; (* Set client configuration controls *) QSRV$_SET_DEVICE = 4; (* Set device configuration controls *) QSRV$_SET_LOGGING = 5; (* Set logging *) QSRV$_SET_SERVER = 6; (* Set server configuration controls *) QSRV$_SET_SERVICE = 7; (* Set client-server path service *) QSRV$_SHOW_CLIENT = 8; (* Show client configuration and operational data *) QSRV$_SHOW_DEVICE = 9; (* Show device configuration *) QSRV$_SHOW_LOGGING = 10; (* Show logging *) QSRV$_SHOW_SERVER = 11; (* Show server configuration and operational data *) QSRV$_SHOW_SERVICE = 12; (* Show client-server path service *) QSRV$K_MIN_FUNC = 1; (* Minimum QIOSERVER function code *) QSRV$K_MAX_FUNC = 12; (* Maximum QIOSERVER function code *) (* *) (* Item codes *) (* *) (* Item codes are limited to a byte value for use with the context block validation *) (* *) CONST QSRV$_ADD_FILTER = 1; (* Add message event filter 3 tuple *) QSRV$_ADD_POOL = 2; (* Add a block of memory for server I/O use *) QSRV$_AUTO_ADD_NPP = 3; (* T/F auto add NPP for server I/O *) QSRV$_CLEAR_FILTERS = 4; (* Clear all message event filters *) QSRV$_CLIENT_NAME = 5; (* Client SCSNODE name - SYSGEN SCSNODE *) QSRV$_CLIENT_SCSSYSTEMID = 6; (* Client SCS system id - SYSGEN SCSSYSTEMID *) QSRV$_DEFAULT_PRIORITY = 7; (* The default path priority *) QSRV$_DELETE_POOL_BLOCK = 8; (* Remove an allocated pool block *) QSRV$_DEVICE_NAME = 9; (* Full device name *) QSRV$_FLAGS = 10; (* System service control flags *) QSRV$_KCC_COUNTERS = 11; (* KClient connection counter data *) QSRV$_KCD_COUNTERS = 12; (* KClient device counter data *) QSRV$_KCR_COUNTERS = 13; (* KClient root counter data *) QSRV$_KSC_COUNTERS = 14; (* KServer connection counter data *) QSRV$_KSD_COUNTERS = 15; (* KServer device counter data *) QSRV$_KSR_COUNTERS = 16; (* KServer root counter data *) QSRV$_KSR_FUNCTION_HISTOGRAM = 17; (* KServer function code histogram *) QSRV$_KSR_IO_BUFFER_HISTOGRAM = 18; (* KServer histogram of I/O buffer sizes *) QSRV$_LIST_FILTERS = 19; (* List all message event filters *) QSRV$_LIST_POOL_BLOCKS = 20; (* Display server I/O pool blocks *) QSRV$_LIST_POOL_STATS = 21; (* Display server I/O pool statistics *) QSRV$_LOG_MODE = 22; (* Logging modes *) QSRV$_LOG_NODE = 23; (* Logging SCSNODE name *) QSRV$_LOG_RESTART = 24; (* Restart data logging *) QSRV$_NBR_ALTERNATE_PATHS = 25; (* Number of client resident alternate paths *) QSRV$_NBR_CLIENTS = 26; (* Number of clients seen by server *) QSRV$_NBR_CLIENT_THREADS = 27; (* Number of client configure threads *) QSRV$_NBR_CREDITS = 28; (* Number of SCS credits *) QSRV$_NBR_DEVICES = 29; (* Number of devices seen and available *) QSRV$_NBR_FILTERS = 30; (* Number of message event filters in list *) QSRV$_NBR_IO_FRAGMENTS = 31; (* Max number of I/O fragments per transfer *) QSRV$_NBR_SERVERS = 32; (* Number of servers seen by client *) QSRV$_NBR_SERVER_THREADS = 33; (* Number of server configure threads *) QSRV$_PATH_STATE = 34; (* Path state *) QSRV$_POOL_WAIT_TMO = 35; (* Number of seconds KServer Pool hold *) QSRV$_QSLUN_AUTO = 36; (* T/F KClient to get QSLUN automatically *) QSRV$_QSRV_COMPONENT = 37; (* Component of the QIOserver sub-system *) QSRV$_REMOVE_FILTER = 38; (* Remove message event filter 3 tuple *) QSRV$_SEARCH_NAME = 39; (* Node or device name for wildcard search *) QSRV$_SEQUENTIAL_ORDER = 40; (* T/F Order IRPs by sequence #, def - priority *) QSRV$_SERVER_NAME = 41; (* Server SCS node name - SYSGEN SCSNODE *) QSRV$_SERVER_SCSSYSTEMID = 42; (* Server SCS system id - SYSGEN SCSSYSTEMID *) QSRV$_SERVICE_STATE = 43; (* Device serve/noserve state *) QSRV$_UCC_COUNTERS = 44; (* UClient connection counter data *) QSRV$_UCR_COUNTERS = 45; (* UClient root counter data *) QSRV$_USC_COUNTERS = 46; (* UServer connection counter data *) QSRV$_USR_COUNTERS = 47; (* UServer root counter data *) QSRV$K_MIN_ITEM = 1; (* Minimum documented item code *) QSRV$K_MAX_ITEM = 47; (* Maximum documented item code *) (* *) (* The following structure defines the bit masks for the QSRV$_FLAGS item code. *) (* *) CONST QSRV$M_PERMANENT = 1; QSRV$M_VOLATILE = 2; QSRV$M_ADD = 4; QSRV$M_CLIENT_CONFIG = 65536; QSRV$M_SERVER_CONFIG = 131072; QSRV$M_CLIENT_SEARCH = 262144; QSRV$M_DEVICE_SEARCH = 524288; QSRV$M_SERVER_SEARCH = 1048576; QSRV$M_SEARCH_DONE = 2097152; QSRV$M_CTX_ALLOCATED = 4194304; TYPE QSRV_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (QSRV$L_FLAGS : UNSIGNED; ); 2: (QSRV$R_FLAG_BITS : [BYTE(4)] RECORD END; ); 3: (QSRV$V_PERMANENT : [POS(0)] $BOOL; (* Applies to permanent database *) QSRV$V_VOLATILE : [POS(1)] $BOOL; (* Applies to volatile database *) QSRV$V_ADD : [POS(2)] $BOOL; (* Allow volatile database structure creation *) (* The following flags are reserved for Compaq internal use. *) QSRV$V_CLIENT_CONFIG : [POS(16)] $BOOL; (* Use the client configuration *) QSRV$V_SERVER_CONFIG : [POS(17)] $BOOL; (* Use the server configuration *) QSRV$V_CLIENT_SEARCH : [POS(18)] $BOOL; (* Search name is for clients *) QSRV$V_DEVICE_SEARCH : [POS(19)] $BOOL; (* Search name is for devices *) QSRV$V_SERVER_SEARCH : [POS(20)] $BOOL; (* Search name is for servers *) QSRV$V_SEARCH_DONE : [POS(21)] $BOOL; (* Search is done *) QSRV$V_CTX_ALLOCATED : [POS(22)] $BOOL; (* Allocated context block *) ) END; CONST QSRV_FLAGS$C_LENGTH = 4; QSRV_FLAGS$K_LENGTH = 4; (* *) (* The following structure defines the bit masks for the QSRV$_LOG_MODE item code. *) (* *) CONST QSRV_LOG$M_ACTIV_UCLOG = 65536; QSRV_LOG$M_ACTIV_USLOG = 131072; QSRV_LOG$M_ACTIV_KCLOG = 262144; QSRV_LOG$M_ACTIV_KSLOG = 524288; QSRV_LOG$M_ACTIV_MSG = 1048576; QSRV_LOG$M_ACTIV_EVT = 2097152; QSRV_LOG$M_ACTIV_CNT = 4194304; QSRV_LOG$M_ACTIV_HST = 8388608; QSRV_LOG$M_ACTIV_VBS = 16777216; TYPE QSRV_LOG$TYPE = RECORD CASE INTEGER OF 1: (QSRV_LOG$L_FLAGS : UNSIGNED; ); 2: (QSRV_LOG$R_BITS : [BYTE(4)] RECORD END; ); 3: (QSRV_LOG$v_filler1 : [POS(0)] $BIT16; (* Reserved Compaq internal use *) QSRV_LOG$V_ACTIV_UCLOG : [POS(16)] $BOOL; (* Turn on Uclient logging *) QSRV_LOG$V_ACTIV_USLOG : [POS(17)] $BOOL; (* Turn on Userver logging *) QSRV_LOG$V_ACTIV_KCLOG : [POS(18)] $BOOL; (* Turn on Kclient logging *) QSRV_LOG$V_ACTIV_KSLOG : [POS(19)] $BOOL; (* Turn on Kserver logging *) QSRV_LOG$V_ACTIV_MSG : [POS(20)] $BOOL; (* Turn on message logging *) QSRV_LOG$V_ACTIV_EVT : [POS(21)] $BOOL; (* Turn on event logging *) QSRV_LOG$V_ACTIV_CNT : [POS(22)] $BOOL; (* Turn on counter logging *) QSRV_LOG$V_ACTIV_HST : [POS(23)] $BOOL; (* Turn on histogram logging *) QSRV_LOG$V_ACTIV_VBS : [POS(24)] $BOOL; (* Turn on QIO$CONFIGURE verbose *) QSRV_LOG$v_filler2 : [POS(25)] $BIT7; (* Reserved Compaq internal use *) ) END; CONST QSRV_LOG$C_LENGTH = 4; QSRV_LOG$K_LENGTH = 4; (* *) (* Message logging type codes *) (* *) CONST QSRV$K_MSG_SCS = 1; (* SCS messages *) QSRV$K_MSG_QSP = 2; (* QSP messages *) QSRV$K_MSG_ICC_CONN = 3; (* ICC messages - connection management *) QSRV$K_MSG_ICC_DATA = 4; (* ICC messages - data transfer *) QSRV$K_MIN_MSG = 1; (* Minimum documented message filter type code *) QSRV$K_MAX_MSG = 4; (* Minimum documented message filter type code *) (* *) (* The following structure defines the data required to specify or receive *) (* a logging data filter tuple. Associated with QSRV$_ADD_FILTER, *) (* QSV$_LIST_FILTERS, and QSRV$_REMOVE_FILTER item codes. *) (* *) TYPE QSRV_FILTER$TYPE = RECORD QSRV_FILTER$t_node : PACKED ARRAY [1..16] OF CHAR; (* Message source node *) QSRV_FILTER$l_type : UNSIGNED; (* Message source type *) QSRV_FILTER$t_device : PACKED ARRAY [1..64] OF CHAR; (* Message source device *) END; CONST QSRV_FILTER$C_LENGTH = 84; QSRV_FILTER$K_LENGTH = 84; (* *) (* The following structure is used to receive histogram data *) (* with QSRV$_KSR_FUNCTION_HISTOGRAM and QSRV$_KSR_IO_BUFFER_HISTOGRAM *) (* item codes. *) (* *) (* The bucket_count is within the range 1 to 64. data[1] to data[64] *) (* will hold the in range histogram data. data[0] will hold the *) (* underflow data and data[65] will hold the overflow data. This *) (* structure is for reporting predefined histograms via item code. The *) (* low value is in bucket_base and the high value is bucket_base plus *) (* bucket_range. *) (* *) TYPE QSRV_HISTOGRAM$TYPE = RECORD QSRV_HISTOGRAM$L_BUCKET_COUNT : UNSIGNED; (* Number of buckets - 2 *) QSRV_HISTOGRAM$B_FILL_0_ : ARRAY [0..3] OF $BYTE; QSRV_HISTOGRAM$Q_BUCKET_BASE : $UQUAD; (* Base value *) QSRV_HISTOGRAM$Q_BUCKET_RANGE : $UQUAD; (* Value range *) QSRV_HISTOGRAM$Q_DATA : ARRAY [1..66] OF $UQUAD; (* Histogram data *) END; CONST QSRV_HISTOGRAM$C_UNDERFLOW = 0; QSRV_HISTOGRAM$C_OVERFLOW = 65; QSRV_HISTOGRAM$C_LENGTH = 552; QSRV_HISTOGRAM$K_LENGTH = 552; (* *) (* The following structure is used for the IOSB declaration. The IOSB is a *) (* 2 longword structure which is initialized to zero by the QIOSERVER system *) (* service as part of request initialization. The first longword will receive *) (* the final condition code for the request as determined by QIO$CONFIGURE. *) (* *) TYPE QSRV_IOSB$TYPE = RECORD QSRV_IOSB$l_pri_status : UNSIGNED; (* Primary request status *) QSRV_IOSB$l_sec_status : UNSIGNED; (* Secondary request status *) END; CONST QSRV_IOSB$C_LENGTH = 8; QSRV_IOSB$K_LENGTH = 8; (* *) (* The following structure defines the bit masks for the QSRV$_DEFAULT_PRIORITY *) (* and QSRV$_PATH_STATE item codes. *) (* *) (* For the QSRV$_DEFAULT_PRIORITY item code only the priority mask is valid. *) (* *) (* For the QSRV$_PATH_STATE item code an array of two of these structures is *) (* used. The first entry contains a mask of the associated bits in the value *) (* component (second entry) which are valid for the operation during a SET *) (* function. Only the value component is filled for a SHOW function. *) (* *) CONST QSRV_PATH$M_PRIORITY = 255; QSRV_PATH$M_LOCAL2SERVER = 67108864; QSRV_PATH$M_QVALID = 134217728; QSRV_PATH$M_VALID = 268435456; QSRV_PATH$M_SERVED = 536870912; QSRV_PATH$M_EXCLUSIVE = 1073741824; QSRV_PATH$M_CURRENT = -2147483648; QSRV_PATH$m_filler2 = 67108863; QSRV_PATH$M_USEABLE_PATH = 1006632960; QSRV_PATH$m_filler3 = -1073741824; TYPE QSRV_PATH$TYPE = RECORD CASE INTEGER OF 1: (QSRV_PATH$L_PATH_STATE : UNSIGNED; (* Path state *) ); 2: (QSRV_PATH$R_PATH_STATE_BITS : [BYTE(4)] RECORD END; ); 3: (QSRV_PATH$V_PRIORITY : [POS(0)] $BIT8; (* Path priority *) QSRV_PATH$V_LOCAL2SERVER : [POS(26)] $BOOL; (* Device is local to the server *) QSRV_PATH$V_QVALID : [POS(27)] $BOOL; (* Path QSLUN is valid *) QSRV_PATH$V_VALID : [POS(28)] $BOOL; (* Path is valid *) QSRV_PATH$V_SERVED : [POS(29)] $BOOL; (* Path is served *) QSRV_PATH$V_EXCLUSIVE : [POS(30)] $BOOL; (* Path exclusivity *) QSRV_PATH$V_CURRENT : [POS(31)] $BOOL; (* This path is the current path *) ); 4: (QSRV_PATH$R_PATH_USEABLE_BITS : [BYTE(4)] RECORD END; ); 5: (QSRV_PATH$v_filler2 : [POS(0)] $BIT26; QSRV_PATH$V_USEABLE_PATH : [POS(26)] $BIT4; (* Mask for Qvalid,valid,and served *) QSRV_PATH$v_filler3 : [POS(30)] $BIT2; ) END; CONST QSRV_PATH$C_LENGTH = 4; QSRV_PATH$K_LENGTH = 4; (* *) (* The following structure defines bit masks for the QSRV$_ADD_POOL item *) (* code and a structure for the QSRV$_DELETE_POOL_BLOCK item code. *) (* *) CONST QSRV_POOL$M_SIZE = 2147483647; QSRV_POOL$M_NPP = -2147483648; TYPE QSRV_POOL$TYPE = RECORD CASE INTEGER OF 1: (QSRV_POOL$L_BLOCK_ID : UNSIGNED; (* ID of pool block to delete *) ); 2: (QSRV_POOL$R_ADD_BLOCK_BITS : [BYTE(4)] RECORD END; (* Add to pool *) ); 3: (QSRV_POOL$V_SIZE : [POS(0)] $BIT31; (* Number of bytes *) QSRV_POOL$V_NPP : [POS(31)] $BOOL; (* From non-paged pool and *) (* from S2 space if not set *) ); 4: (QSRV_POOL$L_MODIFY : UNSIGNED; (* Change to pool *) ) END; CONST QSRV_POOL$C_LENGTH = 4; QSRV_POOL$K_LENGTH = 4; (* *) (* The following structure defines the data for the QSRV$_LIST_POOL_STATS *) (* item code. *) (* *) TYPE QSRV_PLST$TYPE = RECORD CASE INTEGER OF 1: (QSRV_PLST$R_POOL_STAT : [BYTE(56)] RECORD END; ); 2: (QSRV_PLST$L_TOT_SIZE : [POS(0)] UNSIGNED; (* Total number of bytes for type *) QSRV_PLST$L_FREE_SIZE : [POS(32)] UNSIGNED; (* Amount of free space in bytes *) QSRV_PLST$L_NBR_BLOCKs : [POS(64)] UNSIGNED; (* Number of active additions *) QSRV_PLST$L_NBR_FRAGMENTS : [POS(96)] UNSIGNED; (* Total number of fragments *) QSRV_PLST$L_MAX_FRAG_SIZE : [POS(128)] UNSIGNED; (* Size in bytes of largest fragment *) QSRV_PLST$L_NPP_ADD_REQS : [POS(160)] UNSIGNED; (* Count of requests to add NPP *) QSRV_PLST$L_MAX_NPP_ADD_REQ : [POS(192)] UNSIGNED; (* Max NPP request size *) ) END; (* *) (* The following constants may be used to reference the pool statistics *) (* data defined previously. *) (* *) CONST QSRV_PLST$K_S2 = 0; (* S2 Space pool *) QSRV_PLST$K_NPP = 1; (* Non-paged pool *) QSRV_PLST$C_LENGTH = 56; QSRV_PLST$K_LENGTH = 56; (* *) (* The following structure defines the data for the QSRV$_LIST_POOL_BLOCKS *) (* item code. *) (* *) CONST QSRV_PLBLK$M_SIZE = 2147483647; QSRV_PLBLK$M_NPP = -2147483648; TYPE QSRV_PLBLK$TYPE = RECORD CASE INTEGER OF 1: (QSRV_PLBLK$L_BLOCK_ID : UNSIGNED; (* Block identifier *) QSRV_PLBLK$R_BLOCK_DESC : [BYTE(4)] RECORD END; QSRV_PLBLK$L_FREE_SIZE : UNSIGNED; (* Amount of free space in bytes *) QSRV_PLBLK$L_NBR_FRAGMENTS : UNSIGNED; (* Total number of fragments *) QSRV_PLBLK$L_MAX_FRAG_SIZE : UNSIGNED; (* Size in bytes of largest fragment *) ); 2: (QSRV_PLBLK$L_BLOCK_SIZE_TYPE : [POS(32)] UNSIGNED; ); 3: (); 4: (QSRV_PLBLK$V_SIZE : [POS(32)] $BIT31; (* Number of bytes in block *) QSRV_PLBLK$V_NPP : [POS(63)] $BOOL; (* From non-paged pool if set *) ) END; CONST QSRV_PLBLK$C_LENGTH = 20; QSRV_PLBLK$K_LENGTH = 20; (* *) (* The following structure defines the data for the QSRV$_KCR_COUNTERS *) (* item code. It will receive QIOServer Client root data. *) (* *) TYPE QSRV_KCRC$TYPE = RECORD QSRV_KCRC$L_DRIVERS : UNSIGNED; (* Number of drivers configured *) QSRV_KCRC$L_DEVICES : UNSIGNED; (* Number of devices configured *) QSRV_KCRC$L_ACT_SERVER_CONNS : UNSIGNED; (* Number of active server connections *) QSRV_KCRC$L_TOT_SERVERS_SEEN : UNSIGNED; (* Total number of servers ever seen *) QSRV_KCRC$Q_CYCLES_PER_SEC : $UQUAD; (* Number of cycle ticks per second *) QSRV_KCRC$Q_TOT_SIO_TICS : $UQUAD; (* Accumulated CPU time per simple I/O *) QSRV_KCRC$Q_TOT_SIO : $UQUAD; (* Total simple I/Os *) END; CONST QSRV_KCRC$C_LENGTH = 40; QSRV_KCRC$K_LENGTH = 40; (* *) (* The following structure defines the data for the QSRV$_KCC_COUNTERS *) (* item code. It will receive QIOServer Client connection event data. *) (* *) (* QSRV_KCRC$L_SERVERS indicates the number of active connections. *) (* *) TYPE QSRV_KCCC$TYPE = RECORD QSRV_KCCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of server for this connection *) QSRV_KCCC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations on this connection *) QSRV_KCCC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations on this connection *) QSRV_KCCC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations on this connection *) QSRV_KCCC$Q_NBR_CONN : $UQUAD; (* Number of times a connection has been made to this server *) QSRV_KCCC$Q_CONN_TIME : $UQUAD; (* Time of last connection *) QSRV_KCCC$Q_NBR_DEVICES : $UQUAD; (* Number of devices using this connection as current path *) QSRV_KCCC$L_OPS_STALLED : UNSIGNED; (* Total operations stalled in Kclient for this connection *) QSRV_KCCC$W_CREDIT_WAIT : $UWORD; (* SCS credit waits for this connection from the CDT *) QSRV_KCCC$w_reserved_1 : $UWORD; (* Reserved for alignment *) END; CONST QSRV_KCCC$C_LENGTH = 64; QSRV_KCCC$K_LENGTH = 64; (* *) (* 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. *) (* *) TYPE QSRV_KCDC$TYPE = RECORD CASE INTEGER OF 1: (QSRV_KCDC$r_name_overlay : [BYTE(16)] RECORD END; QSRV_KCDC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations to this device *) QSRV_KCDC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations to this device *) QSRV_KCDC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations to this device *) QSRV_KCDC$Q_RT_TIME : $UQUAD; (* Overall round-trip time *) QSRV_KCDC$L_OPS_IN_SERVER : UNSIGNED; (* Current operations in server for this device *) QSRV_KCDC$L_OPS_STALLED : UNSIGNED; (* Total operations stalled in Kclient for this device *) QSRV_KCDC$L_PATHS : UNSIGNED; (* Total paths configured for this device *) QSRV_KCDC$l_reserved : UNSIGNED; ); 2: (QSRV_KCDC$T_NAME : [POS(0)] PACKED ARRAY [1..16] OF CHAR; (* Device name in ASCIC form *) ); 3: (); 4: (QSRV_KCDC$T_NAME_STR : [POS(8)] PACKED ARRAY [1..15] OF CHAR; (* Character string *) ); 5: (QSRV_KCDC$B_NAME_LEN : [POS(0)] $UBYTE; ); 6: (); 7: (QSRV_KCDC$IB_NAME_LEN : [POS(0)] $UBYTE; (* Character count *) ) END; CONST QSRV_KCDC$C_LENGTH = 64; QSRV_KCDC$K_LENGTH = 64; (* *) (* The following structure defines the data for the QSRV$_KSR_COUNTERS *) (* item code. It will receive QIOServer Server root data. *) (* *) TYPE QSRV_KSRC$TYPE = RECORD QSRV_KSRC$L_DEVICES : UNSIGNED; (* Number of devices configured *) QSRV_KSRC$L_ACT_CLIENT_CONNS : UNSIGNED; (* Number of active connections with clients *) QSRV_KSRC$L_TOT_CLIENTS_SEEN : UNSIGNED; (* Total number of clients ever seen *) QSRV_KSRC$B_FILL_3_ : ARRAY [0..3] OF $BYTE; QSRV_KSRC$Q_CYCLES_PER_SEC : $UQUAD; (* Number of cycle ticks per second *) QSRV_KSRC$Q_PEAK_BUFFER : $UQUAD; (* Peak buffer pool usage in KB *) QSRV_KSRC$Q_BUFFER_WAIT : $UQUAD; (* Number of times I/Os waited for buffer space *) QSRV_KSRC$Q_FRAGMENTS : $UQUAD; (* Number of I/O fragments performed *) QSRV_KSRC$Q_FRAG_IO : $UQUAD; (* Number of I/O operations fragmented *) QSRV_KSRC$Q_QSMQE_EXP : $UQUAD; (* Number of times Kserver expanded QSMQE list *) QSRV_KSRC$Q_PEAK_QSMQE : $UQUAD; (* Max number of QSMQEs ever allocated *) QSRV_KSRC$Q_TOT_SIO_TICS : $UQUAD; (* Accumulated CPU time per simple I/O *) QSRV_KSRC$Q_TOT_SIO : $UQUAD; (* Total simple I/O operations *) END; CONST QSRV_KSRC$C_LENGTH = 88; QSRV_KSRC$K_LENGTH = 88; (* *) (* The following structure defines the data for the QSRV$_KSC_COUNTERS *) (* item code. It will receive QIOServer Server connection event data. *) (* *) (* QSRV_KSRC$L_CLIENTS indicates the number of connections. *) (* *) TYPE QSRV_KSCC$TYPE = RECORD QSRV_KSCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of client for this connection *) QSRV_KSCC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations on this connection *) QSRV_KSCC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations on this connection *) QSRV_KSCC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations on this connection *) QSRV_KSCC$Q_NBR_CONN : $UQUAD; (* Number of times a connection has been made to this client *) QSRV_KSCC$Q_CONN_TIME : $UQUAD; (* Time of last connection *) QSRV_KSCC$Q_BAD_MSGS : $UQUAD; (* Number of bad messages received on this connection *) QSRV_KSCC$W_CREDIT_WAIT : $UWORD; (* SCS credit waits for this connection *) QSRV_KSCC$W_BDLT_WAIT : $UWORD; (* SCS BDLT waits for this connection *) QSRV_KSCC$l_reserved : UNSIGNED; END; CONST QSRV_KSCC$C_LENGTH = 64; QSRV_KSCC$K_LENGTH = 64; (* *) (* 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. *) (* *) TYPE QSRV_KSDC$TYPE = RECORD CASE INTEGER OF 1: (QSRV_KSDC$r_name_overlay : [BYTE(16)] RECORD END; QSRV_KSDC$Q_IO_COUNT : $UQUAD; (* Overall I/O operations to this device *) QSRV_KSDC$Q_COMPLEX_COUNT : $UQUAD; (* Total complex I/O operations to this device *) QSRV_KSDC$Q_CONTROL_COUNT : $UQUAD; (* Total control I/O operations to this device *) QSRV_KSDC$Q_SIO_DEV_TIME : $UQUAD; (* Total time spent in the device for simple I/O operations *) QSRV_KSDC$L_QUEUE_LENGTH : UNSIGNED; (* Number of operations in the device now from Kserver *) QSRV_KSDC$L_OPS_STALLED : UNSIGNED; (* Number of operations stalled *) ); 2: (QSRV_KSDC$T_NAME : [POS(0)] PACKED ARRAY [1..16] OF CHAR; (* Device name in ASCIC form *) ); 3: (); 4: (QSRV_KSDC$T_NAME_STR : [POS(8)] PACKED ARRAY [1..15] OF CHAR; (* Character string *) ); 5: (QSRV_KSDC$B_NAME_LEN : [POS(0)] $UBYTE; ); 6: (); 7: (QSRV_KSDC$IB_NAME_LEN : [POS(0)] $UBYTE; (* Character count *) ) END; CONST QSRV_KSDC$C_LENGTH = 56; QSRV_KSDC$K_LENGTH = 56; (* *) (* The following structure defines the data for the QSRV$_UCR_COUNTERS *) (* item code. It will receive QIO$CONFIGURE Client root data. *) (* *) TYPE QSRV_UCRC$TYPE = RECORD QSRV_UCRC$L_DEVICES : UNSIGNED; (* Number of configured devices *) QSRV_UCRC$L_PATHS : UNSIGNED; (* Total number of configured paths *) QSRV_UCRC$L_SERVERS : UNSIGNED; (* Total number of configured servers *) QSRV_UCRC$L_PK_DC_THREADS : UNSIGNED; (* Peak device configuration threads *) QSRV_UCRC$L_PK_SRV_THREAD : UNSIGNED; (* Peak servers per thread *) QSRV_UCRC$B_FILL_6_ : ARRAY [0..3] OF $BYTE; QSRV_UCRC$Q_SYSMGT_RQSTS : $UQUAD; (* Total system management requests *) QSRV_UCRC$Q_UBUF_WAITS : $UQUAD; (* Total waits for Ubuf/Uapibuf *) END; CONST QSRV_UCRC$C_LENGTH = 40; QSRV_UCRC$K_LENGTH = 40; (* *) (* The following structure defines the data for the QSRV$_UCC_COUNTERS *) (* item code. It will receive QIO$CONFIGURE Client connection event data. *) (* *) (* QSRV_UCRC$L_SERVERS indicates the number of connections. *) (* *) (* Note that Uclient does not maintain an active connection to a server; *) (* it establishes a connection only when Uclient wants something. These *) (* counters count all events since Uclient discovered the server. *) (* *) TYPE QSRV_UCCC$TYPE = RECORD QSRV_UCCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of this server *) QSRV_UCCC$Q_CONNECTIONS : $UQUAD; (* Number of ICC connections made to a server *) QSRV_UCCC$Q_CONN_TIME : $UQUAD; (* Time of last ICC connection *) QSRV_UCCC$Q_DC_MSGS : $UQUAD; (* Number of device config messages *) QSRV_UCCC$Q_CM_MSGS : $UQUAD; (* Number of connection management messages *) END; CONST QSRV_UCCC$C_LENGTH = 40; QSRV_UCCC$K_LENGTH = 40; (* *) (* The following structure defines the data for the QSRV$_USR_COUNTERS *) (* item code. It will receive QIO$CONFIGURE Server root data. *) (* *) TYPE QSRV_USRC$TYPE = RECORD QSRV_USRC$L_DEVICES : UNSIGNED; (* Number of configured devices *) QSRV_USRC$L_CLIENTS : UNSIGNED; (* Total number of configured servers *) QSRV_USRC$L_PK_DC_THREADS : UNSIGNED; (* Peak device configuration threads *) QSRV_USRC$L_PK_CLT_THREAD : UNSIGNED; (* Peak clients per thread *) QSRV_USRC$Q_SYSMGT_RQSTS : $UQUAD; (* Total system management requests *) QSRV_USRC$Q_UBUF_WAITS : $UQUAD; (* Total waits for Ubuf/Uapibuf *) END; CONST QSRV_USRC$C_LENGTH = 32; QSRV_USRC$K_LENGTH = 32; (* *) (* The following structure defines the data for the QSRV$_USC_COUNTERS *) (* item code. It will receive QIO$CONFIGURE Server connection event data. *) (* *) (* QSRV_USRC$L_CLIENTS indicates the number of connections. *) (* *) (* These counters count all events since Userver was connected to the client. *) (* *) TYPE QSRV_USCC$TYPE = RECORD QSRV_USCC$Q_SCSSYSTEMID : $UQUAD; (* SCSSYSTEMID of this client *) QSRV_USCC$Q_CONNECTIONS : $UQUAD; (* Number of ICC connections made to a client *) QSRV_USCC$Q_CONN_TIME : $UQUAD; (* Time of last ICC connection *) QSRV_USCC$Q_DC_MSGS : $UQUAD; (* Number of device config messages *) QSRV_USCC$Q_CM_MSGS : $UQUAD; (* Number of connection management messages *) END; CONST QSRV_USCC$C_LENGTH = 40; QSRV_USCC$K_LENGTH = 40; (* *) (* QIOserver Counters Buffer. This defines the buffer header, *) (* and contains a union of all the various counter types included. *) (* *) (* *) (* The following structure defines the data for the common portion of *) (* each of the counter item codes and forms the root structure. *) (* *) CONST QSRV_COUNTERS$M_RESERVED_FLAGS = 65535; TYPE QSRV_CNTR_ROOT$TYPE = RECORD CASE INTEGER OF 1: (QSRV_COUNTERS$L_KC_VERS : UNSIGNED; (* KClient version identifier *) QSRV_COUNTERS$L_KS_VERS : UNSIGNED; (* KServer version identifier *) QSRV_COUNTERS$W_COUNTERS_TYPE : $UWORD; (* Counter type -- value matches the system service item code *) QSRV_COUNTERS$R_FLAGS_OVERLAY : [BYTE(2)] RECORD END; (* Flags -- passed from QIO$CONFIGURE to requestor *) QSRV_COUNTERS$L_SIZE : UNSIGNED; (* Size in bytes of counters structure returned from QIO$CONFIGURE *) QSRV_COUNTERS$Q_TIME : $UQUAD; (* System Time when the counters obtained *) ); 2: (QSRV_COUNTERS$W_FLAGS : [POS(80)] $UWORD; ); 3: (); 4: (QSRV_COUNTERS$V_RESERVED_FLAGS : [POS(80)] $BIT16; (* No flags currently defined *) ) END; CONST QSRV_CNTR_ROOT$C_LENGTH = 24; QSRV_CNTR_ROOT$K_LENGTH = 24; (* Note changes to this structure will need to be matched in *) (* [LIB]QSMQEDEF *) CONST QSRV_COUNTERS$K_KCROOT_LENGTH = 64; QSRV_COUNTERS$K_KCCONN_LENGTH = 88; QSRV_COUNTERS$K_KCDEV_LENGTH = 88; QSRV_COUNTERS$K_KSROOT_LENGTH = 112; QSRV_COUNTERS$K_KSCONN_LENGTH = 88; QSRV_COUNTERS$K_KSDEV_LENGTH = 80; QSRV_COUNTERS$K_UCROOT_LENGTH = 64; QSRV_COUNTERS$K_UCCONN_LENGTH = 64; QSRV_COUNTERS$K_USROOT_LENGTH = 56; QSRV_COUNTERS$K_USCONN_LENGTH = 64; TYPE QSRV_COUNTERS$TYPE = RECORD CASE INTEGER OF 1: (QSRV_COUNTERS$R_QSRVCNTRROOT : QSRV_CNTR_ROOT$TYPE; QSRV_COUNTERS$R_COUNTERS_BODY : [BYTE(88)] RECORD END; (* Counters union *) ); 2: (QSRV_COUNTERS$R_KCROOT : [POS(192)] QSRV_KCRC$TYPE; (* Kclient root counters *) ); 3: (QSRV_COUNTERS$R_KCCONN : [POS(192)] QSRV_KCCC$TYPE; (* Kclient connection counters *) ); 4: (QSRV_COUNTERS$R_KCDEV : [POS(192)] QSRV_KCDC$TYPE; (* Kclient device counters *) ); 5: (QSRV_COUNTERS$R_KSROOT : [POS(192)] QSRV_KSRC$TYPE; (* Kserver root counters *) ); 6: (QSRV_COUNTERS$R_KSCONN : [POS(192)] QSRV_KSCC$TYPE; (* Kserver connection counters *) ); 7: (QSRV_COUNTERS$R_KSDEV : [POS(192)] QSRV_KSDC$TYPE; (* Kserver device counters *) ); 8: (QSRV_COUNTERS$R_UCROOT : [POS(192)] QSRV_UCRC$TYPE; (* Uclient root counters *) ); 9: (QSRV_COUNTERS$R_UCCONN : [POS(192)] QSRV_UCCC$TYPE; (* Uclient connection counters *) ); 10: (QSRV_COUNTERS$R_USROOT : [POS(192)] QSRV_USRC$TYPE; (* Userver root counters *) ); 11: (QSRV_COUNTERS$R_USCONN : [POS(192)] QSRV_USCC$TYPE; (* Userver connection counters *) ) END; CONST QSRV_COUNTERS$C_LENGTH = 112; QSRV_COUNTERS$K_LENGTH = 112; (*** MODULE $RMIDEF ***) (*+ *) (* Get System Performance Information Data Identifier Definitions *) (* *) (* The following constants define the items which can be collected *) (* with the Get System Performance Information service (GETRMI). *) (* The item numbers are defined as follows: *) (* *) (* 16 12 0 *) (* +------------------+-------------+ *) (* | Structure number | Item number | *) (* +------------------+-------------+ *) (* *) (* The top four bits represent the structure of the item and the last 12 *) (* bits represent the item within the structure. *) (* *) (******* Caution! *) (******* This file is no longer intended to be modified. *) (******* *) (* The following had been guidelines for adding symbols to RMIDEF. *) (* This interface is now defined in [STARLET]GETSYIDEF.SDL. *) (* Therefore, changing any item number is unacceptable. Some spare item *) (* number exist in each range; if these are ever exhausted, new ranges must *) (* be defined and support added, rather than changing item numbers. *) (* *) (* As any enhancements are mode to $GETRMI, changes should be made to *) (* STARLET, and modules should be changed to use the new GETRMI$ symbols *) (* to replace RMI$ symbols. *) (* *) (* * The item numbers start *) (* * at 0 and increase sequentially to the last item (even across tables). *) (* * If new items are added to a table, programs MUST be relinked to allow *) (* * the old definitions to change. This was done to simplify some table *) (* * lookups in the Monitor Utility. To get around this, new items can be *) (* * added at the end of the list. *) (* * *) (* * Each table has one item at the end to act as a place holder. It should *) (* * have the same item number as the first item of the next table. These *) (* * items are not counters in the total number of RMI items GETRMI$_TABLESIZE. *) (*- *) (* DEFINE TABLE TYPES *) CONST RMI$C_EXETYPE = 1; (* Executive cells *) RMI$C_EWSTYPE = 2; (* Executive writable storage area *) RMI$C_MONTYPE = 3; (* Monitor specific items *) RMI$C_RMSTYPE = 4; (* Monitor RMS specific items *) RMI$C_EX2TYPE = 5; (* Ececutive cells extension *) RMI$C_LISTEND = 0; (* End of table list *) (* *) (* The following section defines items which are collected during initialization. *) (* There items include general system information, and server version number. *) (* The server version number is also defined here. *) (* *) CONST RMI$_initial = -1; (* Initialization item list *) RMI$_data_collection = -2; (* Data collection item list *) RMI$_sysinfo = -3; (* System information item *) RMI$_version_number = -4; (* Monitor version number *) RMI$_rms_file = -5; (* Parse file name *) RMI$_rms_gs = -6; (* Get global section address *) RMI$_last_type = -7; RMI$_server_version = 5; (* *) (* Define bits in the PMS flags field PMS$GL_FLAGS. These are used to *) (* synchronize access to some PMS field and enable other activity. *) (* *) TYPE rmi$pms_flags = RECORD CASE INTEGER OF 1: (RMI$l_flags : [BYTE(4)] RECORD END; (* Class qualifier flags for CDB (Active) *) ); 2: (RMI$v_disk_enable : [POS(0)] $BOOL; (* YES => Enable disk queue length collection *) (* This field must be accessed via an interlocked *) (* bit instruction. *) RMI$v_filler1 : [POS(1)] $BIT7; (* Fill out remainder of first byte *) RMI$v_disk_sync : [POS(8)] $BOOL; (* YES => Synchronize access to several PMS counters *) (* used in the collection of disk queue length. *) (* This field must be accessed via an interlocked *) (* bit instruction, AND MUST BE IN A SEPARATE *) (* BYTE from the disk_enable bit (required by *) (* the architecture to maintain synchronization). *) RMI$v_filler2 : [POS(9)] $BIT23; (* Fill out remainder of field *) ) END; (* *) (* Define two contants to handle help handle large lookaside lists. The *) (* maximum number that RMISHR will count to is defined with *) (* RMI$K_MAX_PACKET and the value returned when this threshold is *) (* reached is defined as RMI$K_POOL_OVF. *) (* *) CONST RMI$k_max_packet = 500; RMI$k_pool_ovf = -2147483647; (* *) (* Define item identifier numbers. Each data item has an associated *) (* value which is used to find its entry in the EXETBL. The item table *) (* is defined by the macros RMI_GENERATE_TABLE which makes multiple calls *) (* to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. *) (* *) CONST RMI$_MODES = 4096; (* All modes counters on all CPU's *) RMI$_INTERRUPT = 4097; (* time on interrupt stack -- primary *) RMI$_KERNEL = 4098; (* time in kernel mode -- primary *) RMI$_EXEC = 4099; (* time in exec mode -- primary *) RMI$_SUPER = 4100; (* time in supervisor mode -- primary *) RMI$_USER = 4101; (* time in user mode -- primary *) RMI$_COMPAT = 4102; (* time in compat. mode -- primary *) RMI$_INTERRUPT_BUSY = 4103; (* Time spent RMInning on the interrupt stack *) RMI$_KERNEL_BUSY = 4104; (* Time spent RMInning on the lernel stack *) RMI$_IDLE = 4105; (* idle time -- primary *) RMI$_CPUBUSY = 4106; (* RETIRED ITEM - RETURNS 0 *) RMI$_COLPG = 4107; (* collided page wait *) RMI$_MWAIT = 4108; (* memory wait *) RMI$_CEF = 4109; (* common event flag wait *) RMI$_PFW = 4110; (* page wait *) RMI$_LEF = 4111; (* local event flag wait *) RMI$_LEFO = 4112; (* lef wait out of bal. set *) RMI$_HIB = 4113; (* hibernating *) RMI$_HIBO = 4114; (* hibernating outswapped *) RMI$_SUSP = 4115; (* suspended *) RMI$_SUSPO = 4116; (* suspended outswapped *) RMI$_FPG = 4117; (* free page wait *) RMI$_COM = 4118; (* computing *) RMI$_COMO = 4119; (* computable outswapped *) RMI$_CUR = 4120; (* current *) RMI$_OTHSTAT = 4121; (* RETIRED ITEM - RETURNS 0 *) RMI$_PROCS = 4122; (* process count for SYSTEM class *) RMI$_PROC = 4123; (* collect all process information *) RMI$_FRLIST = 4124; (* size of free list *) RMI$_MODLIST = 4125; (* size of modified list *) RMI$_FAULTS = 4126; (* page fault count *) RMI$_PREADS = 4127; (* page reads *) RMI$_PWRITES = 4128; (* page writes *) RMI$_PWRITIO = 4129; (* physical page write I/O's *) RMI$_PREADIO = 4130; (* physical page read I/O's *) RMI$_GVALFLTS = 4131; (* global valid faults *) RMI$_WRTINPROG = 4132; (* faults from write in progress *) RMI$_FREFLTS = 4133; (* faults from free list *) RMI$_MFYFLTS = 4134; (* faults from modified list *) RMI$_DZROFLTS = 4135; (* demand zero faults *) RMI$_SYSFAULTS = 4136; (* system page faults *) RMI$_LRPCNT = 4137; (* number of LRP packets available *) RMI$_LRPINUSE = 4138; (* number of LRPs in use *) RMI$_IRPCNT = 4139; (* number of IRP packets available *) RMI$_IRPINUSE = 4140; (* number of IRPs in use *) RMI$_SRPCNT = 4141; (* number of SRP packets available *) RMI$_SRPINUSE = 4142; (* number of SRPs in use *) RMI$_HOLECNT = 4143; (* number of blocks in dyn. memory *) RMI$_BIGHOLE = 4144; (* largest hole *) RMI$_SMALLHOLE = 4145; (* smallest hole *) RMI$_HOLESUM = 4146; (* total space in dyn. memory available *) RMI$_DYNINUSE = 4147; (* dynamic memory space in use *) RMI$_SMALLCNT = 4148; (* number of blocks < 32 bytes in size *) RMI$_ISWPCNT = 4149; (* total inswaps *) RMI$_DIRIO = 4150; (* count of direct I/Os *) RMI$_BUFIO = 4151; (* count of buffered I/Os *) RMI$_MBREADS = 4152; (* total mailbox reads *) RMI$_MBWRITES = 4153; (* total mailbox writes *) RMI$_LOGNAM = 4154; (* logical name translations *) RMI$_FCPCALLS = 4155; (* total fcp calls *) RMI$_FCPREAD = 4156; (* number of disk reads by FCP *) RMI$_FCPWRITE = 4157; (* number of disk writes by FCP *) RMI$_FCPCACHE = 4158; (* number of FCP cache hits *) RMI$_FCPCPU = 4159; (* number of CPU tics by FCP *) RMI$_FCPHIT = 4160; (* number of window hits *) RMI$_FCPSPLIT = 4161; (* number of split transfers *) RMI$_FCPFAULT = 4162; (* number of FCP page faults *) RMI$_ENQNEW = 4163; (* number of ENQ's (new) *) RMI$_ENQCVT = 4164; (* number of ENQ's (conversions) *) RMI$_DEQ = 4165; (* number of DEQ's *) RMI$_BLKAST = 4166; (* number of blocking AST's *) RMI$_ENQWAIT = 4167; (* number of ENQ's forced to wait *) RMI$_ENQNOTQD = 4168; (* number of ENQ's not queued *) RMI$_DLCKSRCH = 4169; (* number of deadlock searches *) RMI$_DLCKFND = 4170; (* number of deadlocks found *) RMI$_NUMLOCKS = 4171; (* total locks *) RMI$_NUMRES = 4172; (* total resources *) RMI$_ARRLOCPK = 4173; (* arriving local packets *) RMI$_DEPLOCPK = 4174; (* departing local packets *) RMI$_ARRTRAPK = 4175; (* arriving transit packets *) RMI$_TRCNGLOS = 4176; (* transit congestion loss *) RMI$_RCVBUFFL = 4177; (* receiver buffer failures *) RMI$_RESERVED1 = 4178; (* Reserved PMS location 1 *) RMI$_RESERVED2 = 4179; (* Reserved PMS location 2 *) RMI$_RESERVED3 = 4180; (* Reserved PMS location 3 *) RMI$_RESERVED4 = 4181; (* Reserved PMS location 4 *) RMI$_RESERVED5 = 4182; (* Reserved PMS location 5 *) RMI$_RESERVED6 = 4183; (* Reserved PMS location 6 *) RMI$_RESERVED7 = 4184; (* Reserved PMS location 7 *) RMI$_RESERVED8 = 4185; (* Reserved PMS location 8 *) RMI$_RESERVED9 = 4186; (* Reserved PMS location 9 *) RMI$_RESERVED10 = 4187; (* Reserved PMS location 10 *) RMI$_RESERVED11 = 4188; (* Reserved PMS location 11 *) RMI$_RESERVED12 = 4189; (* Reserved PMS location 12 *) RMI$_RESERVED13 = 4190; (* Reserved PMS location 13 *) RMI$_RESERVED14 = 4191; (* Reserved PMS location 14 *) RMI$_RESERVED15 = 4192; (* Reserved PMS location 15 *) RMI$_RESERVED16 = 4193; (* Reserved PMS location 16 *) RMI$_RESERVED17 = 4194; (* Reserved PMS location 17 *) RMI$_RESERVED18 = 4195; (* Reserved PMS location 18 *) RMI$_FID_TRIES = 4196; (* count of File Id cache attempts *) RMI$_FILHDR_TRIES = 4197; (* count of File header cache attempts *) RMI$_DIRFCB_TRIES = 4198; (* count of Directory block cache attempts *) RMI$_DIRDATA_TRIES = 4199; (* count of Directory data cache attempts *) RMI$_EXT_TRIES = 4200; (* count of Extent cache attempts *) RMI$_QUO_TRIES = 4201; (* count of Quota cache attempts *) RMI$_STORAGMAP_TRIES = 4202; (* count of storage bitmap cache attempts *) RMI$_DISKS = 4203; (* all disk data *) RMI$_TOTAL_LOCKS = 4204; (* Total of all locking activity - NOT COLLECTED BY RMI - COMPUTED BY MONITOR *) RMI$_ENQNEWLOC = 4205; (* new lock requests (local) *) RMI$_ENQNEWIN = 4206; (* new lock requests (incoming) *) RMI$_ENQNEWOUT = 4207; (* new lock requests (outgoing) *) RMI$_ENQCVTLOC = 4208; (* lock conversion requests (local) *) RMI$_ENQCVTIN = 4209; (* lock conversion requests (incoming) *) RMI$_ENQCVTOUT = 4210; (* lock conversion requests (outgoing) *) RMI$_DEQLOC = 4211; (* dequeues (local) *) RMI$_DEQIN = 4212; (* dequeues (incoming) *) RMI$_DEQOUT = 4213; (* dequeues (outgoing) *) RMI$_BLKLOC = 4214; (* blocking ASTs queued (local) *) RMI$_BLKIN = 4215; (* blocking ASTs queued (incoming) *) RMI$_BLKOUT = 4216; (* blocking ASTs queued (outgoing) *) RMI$_DIRIN = 4217; (* directory operations (incoming) *) RMI$_DIROUT = 4218; (* directory operations (outgoing) *) RMI$_DLCKMSGS = 4219; (* deadlock detection messages (in & out) *) RMI$_SCS = 4220; (* All SCS information *) RMI$_SYSTIME = 4221; (* Current system time *) RMI$_MSCP_REQUEST = 4222; (* IO request rate to the MSCP server *) RMI$_MSCP_READ = 4223; (* Read request rate to the MSCP server *) RMI$_MSCP_WRITE = 4224; (* Write request rate to the MSCP server *) RMI$_MSCP_FRAGMENT = 4225; (* Rate at which I/O's are fragmented *) RMI$_MSCP_SPLIT = 4226; (* Rate at which I/O's are split *) RMI$_MSCP_BUFWAIT = 4227; (* Rate at which incoming requests have to wait for a buffer *) RMI$_MSCP_SIZE1 = 4228; (* I/O rate for sizes 1-2 blocks *) RMI$_MSCP_SIZE2 = 4229; (* I/O rate for sizes 2-3 blocks *) RMI$_MSCP_SIZE3 = 4230; (* I/O rate for sizes 4-7 blocks *) RMI$_MSCP_SIZE4 = 4231; (* I/O rate for sizes 8-15 blocks *) RMI$_MSCP_SIZE5 = 4232; (* I/O rate for sizes 16-31 blocks *) RMI$_MSCP_SIZE6 = 4233; (* I/O rate for sizes 32-63 blocks *) RMI$_MSCP_SIZE7 = 4234; (* I/O rate for sizes 64-127 blocks *) RMI$_MSCP_ALL = 4235; (* Dummy item to collect all MSCP server class items *) RMI$_DDTM_STARTS = 4236; (* Local Transaction starts *) RMI$_DDTM_PREPARES = 4237; (* Local Transaction prepare event *) RMI$_DDTM_ONE_PHASE = 4238; (* Transaction ONE_PHASE commit event *) RMI$_DDTM_COMMITS = 4239; (* Local Transaction commit event (sum of phase 1 and 2 commits) *) RMI$_DDTM_ABORTS = 4240; (* Local Transaction abort event *) RMI$_DDTM_ENDS = 4241; (* Local Transaction ends *) RMI$_DDTM_BRANCHS = 4242; (* Start branch event *) RMI$_DDTM_ADDS = 4243; (* Add branch event *) RMI$_DDTM_BUCKETS1 = 4244; (* TPS rate for < 1 *) RMI$_DDTM_BUCKETS2 = 4245; (* TPS rate for 1-2 *) RMI$_DDTM_BUCKETS3 = 4246; (* TPS rate for 2-3 *) RMI$_DDTM_BUCKETS4 = 4247; (* TPS rate for 3-4 *) RMI$_DDTM_BUCKETS5 = 4248; (* TPS rate for 4-5 *) RMI$_DDTM_BUCKETS6 = 4249; (* TPS rate for > 6 *) RMI$_DDTM_ALL = 4250; (* Dummy item to collect all TRANSACTION class items *) RMI$_VECTORP = 4251; (* Vector Processor tics scheduled *) RMI$_VBYTE_READ = 4252; (* VBS bytes read *) RMI$_VBYTE_WRITE = 4253; (* VBS bytes written *) RMI$_VVBS_TRAN = 4254; RMI$_VRBS_TRAN = 4255; RMI$_VDIO_SEL = 4256; RMI$_VDIOMAP_ALLOC = 4257; RMI$_VRBS_AVAIL = 4258; RMI$_VSEL_FAIL = 4259; RMI$_VVBSM_HIT = 4260; RMI$_VVBSM_CACHE = 4261; RMI$_VFLUIDBAL = 4262; RMI$_VRECOPY = 4263; RMI$_VCPUTICKS = 4264; RMI$_MSCP_EVERYTHING = 4265; (* All MSCP server class items including the NEW items not in MSCP_ALL *) RMI$_TMSCP_EVERYTHING = 4266; (* All TMSCP server class items *) RMI$_DDTM_TWOPHASE_ACKRCV = 4267; (* # of 2 PHASE commit ack msg rcvd *) RMI$_DDTM_TWOPHASE_ACKSNT = 4268; (* # of 2 PHASE commit ack msg sent *) RMI$_DDTM_TWOPHASE_CANRCV = 4269; (* # of 2 PHASE commit cancel msg rcvd *) RMI$_DDTM_TWOPHASE_CANSNT = 4270; (* # of 2 PHASE commit cancel msg sent *) RMI$_DDTM_TWOPHASE_RDYRCV = 4271; (* # of 2 PHASE commit ready msg rcvd *) RMI$_DDTM_TWOPHASE_RDYSNT = 4272; (* # of 2 PHASE commit ready msg sent *) RMI$_DDTM_TWOPHASE_REQRCV = 4273; (* # of 2 PHASE commit request msg rcvd *) RMI$_DDTM_TWOPHASE_REQSNT = 4274; (* # of 2 PHASE commit request msg sent *) RMI$_DDTM_TWOPHASE_COMMITS = 4275; (* Total # of phase 2 transitions *) RMI$_DDTM_DECLARES = 4276; (* Total # of $DECLARE_RMs *) RMI$_DDTM_JOINS = 4277; (* Total # of $JOIN_RMs *) RMI$_DDTM_FORGETS = 4278; (* Total # of $FORGET_RMs *) RMI$_DDTM_SEQNO = 4279; (* Total # of XCBs created *) RMI$_DDTM_LOG_COMMITS = 4280; (* # of Commit records written *) RMI$_DDTM_LOG_PREPARES = 4281; (* # of Prepare records written *) RMI$_DDTM_LOG_FORGETS = 4282; (* # of Forget records written *) RMI$_DDTM_WRITES_STARTED = 4283; (* # of Writes started *) RMI$_DDTM_WRITES_FORKED = 4284; (* # of forked writes *) RMI$_DDTM_BAD_TYPECODE = 4285; (* # of bad msg typecodes rcvd *) RMI$_DDTM_BAD_LINKS = 4286; (* # of bad msg links rcvd *) RMI$_DDTM_FOR_UNLINKS = 4287; (* # of forced unlinks *) RMI$_DDTM_VOL_UNLINKS = 4288; (* # of voluntary unlinks *) RMI$_DDTM_DISC_COMP = 4289; (* # of disconnect complete events *) RMI$_DDTM_BAD_PARTS = 4290; (* # of invalid part ids found *) RMI$_LCKMGR_CPU = 4291; (* The ID of the cpu on which the lock manager runs. *) RMI$_LCKMGR_PID = 4292; (* Process ID of the lock manager process. *) RMI$_LCKMGR_REQCNT = 4293; (* Accumulated count of requests handled by the lock manager. *) RMI$_LCKMGR_REQTIME = 4294; (* Accumulated time spent by the lock manager servicing requests. *) RMI$_LCKMGR_SPINCNT = 4295; (* The number of times the lock manager entered a spinloop. *) RMI$_LCKMGR_SPINTIME = 4296; (* Spin time in cycles, the lock manager spent in spinloop. *) RMI$_LOCK_MAX = 4297; (* The length of the Lock ID Table. *) RMI$_LPZ_PAKSIZ = 4298; (* Its the lock manager's pool zone packet size. *) RMI$_LPZ_PAGCNT = 4299; (* Number of pages currently in the lock manager's pool zone. *) RMI$_LPZ_MAXPAG = 4300; (* Its the maximum number of pages in the lock manager's pool zone. *) RMI$_LPZ_FREEPGCNT = 4301; (* The number of free pages currently in the lock manager's pool zone. *) RMI$_LPZ_HITS = 4302; (* The number of hits for the lock manager's pool zone. *) RMI$_LPZ_MISSES = 4303; (* The number of misses for the lock manager's pool zone. *) RMI$_LPZ_EXPCNT = 4304; (* The number of expansions of the lock manager's pool zone. *) RMI$_LPZ_ALLOCF = 4305; (* The number of failed allocations from the lock manager's pool zone. *) RMI$_LPZ_ALLOC2 = 4306; (* The number of allocations from other than the first page of the lock manager's pool zone. *) RMI$_LPZ_EMPTY = 4307; (* Its the number of empty pages in the lock manager's pool zone. *) RMI$_RML_ACQUIRE = 4308; (* System-wide count of lock trees moved to this node. *) RMI$_RML_BETTER = 4309; (* Count of lock trees moved from this node to a cluster node with a higher value for SYSGEN param LOCKDIRWT. *) 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. *) RMI$_RML_MSGRCV = 4311; (* Count of remaster messages received by this node. *) RMI$_RML_MSGSENT = 4312; (* Count of remaster messages sent from this node. *) RMI$_RML_NOQUOTA = 4313; (* Count of remaster operations which failed due to a lack of quota. *) RMI$_RML_NOTAKER = 4314; (* Count of remaster operations which were proposed and declined. *) RMI$_RML_OPCNT = 4315; (* Count of remaster operations which have been completed. *) RMI$_RML_RBLDMSGRCV = 4316; (* Count of remaster rebuild messages received by this node. *) RMI$_RML_RBLDMSGSENT = 4317; (* Count of remaster rebuild messages sent from this node. *) RMI$_RML_SINGLE = 4318; (* Count of lock trees moved from this node to another cluster node which is the only node with locks remaining on the tree *) RMI$_RML_UNLOAD = 4319; (* Count of lock trees moved from this node. *) RMI$_RESERVEDEXE1 = 4320; (* Reserved EXE items *) RMI$_RESERVEDEXE2 = 4321; (* Reserved EXE items *) RMI$_RESERVEDEXE3 = 4322; (* Reserved EXE items *) RMI$_RESERVEDEXE4 = 4323; (* Reserved EXE items *) RMI$_RESERVEDEXE5 = 4324; (* Reserved EXE items *) RMI$_RESERVEDEXE6 = 4325; (* Reserved EXE items *) RMI$_RESERVEDEXE7 = 4326; (* Reserved EXE items *) RMI$_RESERVEDEXE8 = 4327; (* Reserved EXE items *) RMI$_RESERVEDEXE9 = 4328; (* Reserved EXE items *) RMI$_RESERVEDEXE10 = 4329; (* Reserved EXE items *) RMI$_RESERVEDEXE11 = 4330; (* Reserved EXE items *) RMI$_RESERVEDEXE12 = 4331; (* Reserved EXE items *) RMI$_RESERVEDEXE13 = 4332; (* Reserved EXE items *) RMI$_RESERVEDEXE14 = 4333; (* Reserved EXE items *) RMI$_RESERVEDEXE15 = 4334; (* Reserved EXE items *) RMI$_RESERVEDEXE16 = 4335; (* Reserved EXE items *) RMI$_LASTEXE = 4336; (* Last item in the EXE table *) (* *) (* These next items are located in an executive writable page in memory *) (* *) CONST RMI$_ACCESS = 8432; (* number of file accesses *) RMI$_ALLOC = 8433; (* number of file extends *) RMI$_FCPCREATE = 8434; (* number of file creations *) RMI$_VOLWAIT = 8435; (* # of times XQP waited for volume lock *) RMI$_FCPTURN = 8436; (* number of window turns *) RMI$_FCPERASE = 8437; (* number of erase calls *) RMI$_OPENS = 8438; (* number of file opens *) RMI$_FIDHIT = 8439; (* count of File Id cache hits *) RMI$_FIDMISS = 8440; (* count of File Id cache misses *) RMI$_FILHDR_HIT = 8441; (* count of File header cache hits *) RMI$_DIRFCB_HIT = 8442; (* count of Directory block cache hits *) RMI$_DIRFCB_MISS = 8443; (* count of Directory block cache misses *) RMI$_DIRDATA_HIT = 8444; (* count of Directory data cache hits *) RMI$_EXTHIT = 8445; (* count of Extent cache hits *) RMI$_EXTMISS = 8446; (* count of Extent cache misses *) RMI$_QUOHIT = 8447; (* count of Quota cache hits *) RMI$_QUOMISS = 8448; (* count of Quota cache misses *) RMI$_STORAGMAP_HIT = 8449; (* count of storage bitmap cache hits *) RMI$_VOLLCK = 8450; (* Volume synch locks *) RMI$_SYNCHLCK = 8451; (* directory and file synch locks *) RMI$_SYNCHWAIT = 8452; (* # of times XQP waited for a directory or file synch lock *) RMI$_ACCLCK = 8453; (* access locks *) RMI$_XQPCACHEWAIT = 8454; (* # of times XQP had to wait for free space in a cache *) RMI$_DIRDATA_MISS = 8455; (* count of Directory data cache misses *) RMI$_FILHDR_MISS = 8456; (* count of File header cache misses *) RMI$_STORAGMAP_MISS = 8457; (* count of storage bitmap cache misses *) RMI$_RESERVEDEWS1 = 8458; (* Reserved EWS items *) RMI$_RESERVEDEWS2 = 8459; (* Reserved EWS items *) RMI$_RESERVEDEWS3 = 8460; (* Reserved EWS items *) RMI$_RESERVEDEWS4 = 8461; (* Reserved EWS items *) RMI$_RESERVEDEWS5 = 8462; (* Reserved EWS items *) RMI$_RESERVEDEWS6 = 8463; (* Reserved EWS items *) RMI$_RESERVEDEWS7 = 8464; (* Reserved EWS items *) RMI$_RESERVEDEWS8 = 8465; (* Reserved EWS items *) RMI$_RESERVEDEWS9 = 8466; (* Reserved EWS items *) RMI$_RESERVEDEWS10 = 8467; (* Reserved EWS items *) RMI$_RESERVEDEWS11 = 8468; (* Reserved EWS items *) RMI$_RESERVEDEWS12 = 8469; (* Reserved EWS items *) RMI$_RESERVEDEWS13 = 8470; (* Reserved EWS items *) RMI$_RESERVEDEWS14 = 8471; (* Reserved EWS items *) RMI$_RESERVEDEWS15 = 8472; (* Reserved EWS items *) RMI$_RESERVEDEWS16 = 8473; (* Reserved EWS items *) RMI$_RESERVEDEWS17 = 8474; (* Reserved EWS items *) RMI$_RESERVEDEWS18 = 8475; (* Reserved EWS items *) RMI$_RESERVEDEWS19 = 8476; (* Reserved EWS items *) RMI$_RESERVEDEWS20 = 8477; (* Reserved EWS items *) RMI$_RESERVEDEWS21 = 8478; (* Reserved EWS items *) RMI$_RESERVEDEWS22 = 8479; (* Reserved EWS items *) RMI$_RESERVEDEWS23 = 8480; (* Reserved EWS items *) RMI$_RESERVEDEWS24 = 8481; (* Reserved EWS items *) RMI$_RESERVEDEWS25 = 8482; (* Reserved EWS items *) RMI$_RESERVEDEWS26 = 8483; (* Reserved EWS items *) RMI$_RESERVEDEWS27 = 8484; (* Reserved EWS items *) RMI$_RESERVEDEWS28 = 8485; (* Reserved EWS items *) RMI$_RESERVEDEWS29 = 8486; (* Reserved EWS items *) RMI$_RESERVEDEWS30 = 8487; (* Reserved EWS items *) RMI$_RESERVEDEWS31 = 8488; (* Reserved EWS items *) RMI$_RESERVEDEWS32 = 8489; (* Reserved EWS items *) RMI$_RESERVEDEWS33 = 8490; (* Reserved EWS items *) RMI$_RESERVEDEWS34 = 8491; (* Reserved EWS items *) RMI$_RESERVEDEWS35 = 8492; (* Reserved EWS items *) RMI$_RESERVEDEWS36 = 8493; (* Reserved EWS items *) RMI$_RESERVEDEWS37 = 8494; (* Reserved EWS items *) RMI$_RESERVEDEWS38 = 8495; (* Reserved EWS items *) RMI$_RESERVEDEWS39 = 8496; (* Reserved EWS items *) RMI$_RESERVEDEWS40 = 8497; (* Reserved EWS items *) RMI$_RESERVEDEWS41 = 8498; (* Reserved EWS items *) RMI$_RESERVEDEWS42 = 8499; (* Reserved EWS items *) RMI$_RESERVEDEWS43 = 8500; (* Reserved EWS items *) RMI$_RESERVEDEWS44 = 8501; (* Reserved EWS items *) RMI$_RESERVEDEWS45 = 8502; (* Reserved EWS items *) RMI$_RESERVEDEWS46 = 8503; (* Reserved EWS items *) RMI$_RESERVEDEWS47 = 8504; (* Reserved EWS items *) RMI$_RESERVEDEWS48 = 8505; (* Reserved EWS items *) RMI$_RESERVEDEWS49 = 8506; (* Reserved EWS items *) RMI$_RESERVEDEWS50 = 8507; (* Reserved EWS items *) RMI$_RESERVEDEWS51 = 8508; (* Reserved EWS items *) RMI$_RESERVEDEWS52 = 8509; (* Reserved EWS items *) RMI$_RESERVEDEWS53 = 8510; (* Reserved EWS items *) RMI$_RESERVEDEWS54 = 8511; (* Reserved EWS items *) RMI$_RESERVEDEWS55 = 8512; (* Reserved EWS items *) RMI$_RESERVEDEWS56 = 8513; (* Reserved EWS items *) RMI$_RESERVEDEWS57 = 8514; (* Reserved EWS items *) RMI$_RESERVEDEWS58 = 8515; (* Reserved EWS items *) RMI$_RESERVEDEWS59 = 8516; (* Reserved EWS items *) RMI$_RESERVEDEWS60 = 8517; (* Reserved EWS items *) RMI$_RESERVEDEWS61 = 8518; (* Reserved EWS items *) RMI$_RESERVEDEWS62 = 8519; (* Reserved EWS items *) RMI$_RESERVEDEWS63 = 8520; (* Reserved EWS items *) RMI$_RESERVEDEWS64 = 8521; (* Reserved EWS items *) RMI$_RESERVEDEWS65 = 8522; (* Reserved EWS items *) RMI$_RESERVEDEWS66 = 8523; (* Reserved EWS items *) RMI$_RESERVEDEWS67 = 8524; (* Reserved EWS items *) RMI$_RESERVEDEWS68 = 8525; (* Reserved EWS items *) RMI$_RESERVEDEWS69 = 8526; (* Reserved EWS items *) RMI$_RESERVEDEWS70 = 8527; (* Reserved EWS items *) RMI$_RESERVEDEWS71 = 8528; (* Reserved EWS items *) RMI$_RESERVEDEWS72 = 8529; (* Reserved EWS items *) RMI$_RESERVEDEWS73 = 8530; (* Reserved EWS items *) RMI$_RESERVEDEWS74 = 8531; (* Reserved EWS items *) RMI$_RESERVEDEWS75 = 8532; (* Reserved EWS items *) RMI$_RESERVEDEWS76 = 8533; (* Reserved EWS items *) RMI$_RESERVEDEWS77 = 8534; (* Reserved EWS items *) RMI$_RESERVEDEWS78 = 8535; (* Reserved EWS items *) RMI$_RESERVEDEWS79 = 8536; (* Reserved EWS items *) RMI$_RESERVEDEWS80 = 8537; (* Reserved EWS items *) RMI$_RESERVEDEWS81 = 8538; (* Reserved EWS items *) RMI$_RESERVEDEWS82 = 8539; (* Reserved EWS items *) RMI$_RESERVEDEWS83 = 8540; (* Reserved EWS items *) RMI$_RESERVEDEWS84 = 8541; (* Reserved EWS items *) RMI$_RESERVEDEWS85 = 8542; (* Reserved EWS items *) RMI$_RESERVEDEWS86 = 8543; (* Reserved EWS items *) RMI$_RESERVEDEWS87 = 8544; (* Reserved EWS items *) RMI$_RESERVEDEWS88 = 8545; (* Reserved EWS items *) RMI$_RESERVEDEWS89 = 8546; (* Reserved EWS items *) RMI$_RESERVEDEWS90 = 8547; (* Reserved EWS items *) RMI$_RESERVEDEWS91 = 8548; (* Reserved EWS items *) RMI$_RESERVEDEWS92 = 8549; (* Reserved EWS items *) RMI$_RESERVEDEWS93 = 8550; (* Reserved EWS items *) RMI$_RESERVEDEWS94 = 8551; (* Reserved EWS items *) RMI$_RESERVEDEWS95 = 8552; (* Reserved EWS items *) RMI$_RESERVEDEWS96 = 8553; (* Reserved EWS items *) RMI$_RESERVEDEWS97 = 8554; (* Reserved EWS items *) RMI$_LASTEWS = 8555; (* Last item in the exec writable table *) (* *) (* Begin monitor specific data items. The items listed below are *) (* NOT collected by the RMI as individual items. Some are NOT collected *) (* at all but are computed by MONITOR. *) (* *) CONST RMI$_FIDHITPCNT = 12651; (* percentage of file id cache hits/hits+misses *) RMI$_FILHDR_HITPCNT = 12652; (* percentage of file header cache hits/hits+misses *) RMI$_DIRFCB_HITPCNT = 12653; (* percentage of directory block cache hits/hits+misses *) RMI$_DIRDATA_HITPCNT = 12654; (* percentage of directory data cache hits/hits+misses *) RMI$_EXTHITPCNT = 12655; (* percentage of extent cache hits/hits+misses *) RMI$_QUOHITPCNT = 12656; (* percentage of quota cache hits/hits+misses *) RMI$_STORAGMAP_HITPCNT = 12657; (* percentage of storage map cache hits/hits+misses *) RMI$_OPCNT = 12658; (* disk io operation count *) RMI$_IOQUELEN = 12659; (* disk io queue length *) RMI$_IOAQUELEN = 12660; (* Accurate disk io queue length *) RMI$_DISKRESPTIM = 12661; (* disk io response time *) RMI$_JNLIOCNT = 12662; (* journaling io operation count (for disks) *) RMI$_JDNQLEN = 12663; (* jdevice normal io queue length *) RMI$_JDWQLEN = 12664; (* jdevice wait irp queue length *) RMI$_JDFQLEN = 12665; (* jdevice force io queue length *) RMI$_JDEXCNT = 12666; (* jdevice extend count *) RMI$_JNLWRTSS = 12667; (* obsolete *) RMI$_JNLBUFWR = 12668; (* obsolete *) RMI$_DGSENT = 12669; (* SCS application datagrams sent *) RMI$_DGRCVD = 12670; (* SCS application datagrams received *) RMI$_DGDISCARD = 12671; (* SCS application datagrams discarded *) RMI$_MSGSENT = 12672; (* SCS application messages sent *) RMI$_MSGRCVD = 12673; (* SCS application messages received *) RMI$_SNDATS = 12674; (* SCS block send datas initiated *) RMI$_KBYTSENT = 12675; (* SCS kbytes sent via send datas *) RMI$_REQDATS = 12676; (* SCS block request datas initiated *) RMI$_KBYTREQD = 12677; (* SCS kbytes received via request datas *) RMI$_KBYTMAPD = 12678; (* SCS kbytes mapped for block transfer *) RMI$_QCR_CNT = 12679; (* SCS times connection queued for send credit *) RMI$_QBDT_CNT = 12680; (* SCS times connection queued for buffer descriptor *) RMI$_DIRLOOK = 12681; (* directory lookups *) RMI$_DIRINS = 12682; (* directory inserts *) RMI$_DIRDEL = 12683; (* directory deletes *) RMI$_PACKETS = 12684; (* Ethernet packets/second *) RMI$_KBYTES = 12685; (* Kbytes/second *) RMI$_PACKETSIZE = 12686; (* Packets size (bytes) *) RMI$_MPACKETS = 12687; (* Multicast packets/second *) RMI$_MKBYTES = 12688; (* Multicast Kbytes/second *) RMI$_MPACKETSIZE = 12689; (* Multicast packet size (bytes) *) RMI$_SINGLECOLL = 12690; (* Transmit single collision detected *) RMI$_MULTICOLL = 12691; (* Transmit multi collisions detected *) RMI$_INITDEFER = 12692; (* Transmit initially deferred *) RMI$_INTERNALBUFERR = 12693; (* Receive internal buffer error *) RMI$_LOCBUFERR = 12694; (* Receive local buffer error *) RMI$_BUFFUNAVAIL = 12695; (* System buffer unavailable *) RMI$_FILLER = 12696; (* Dummy pad item *) RMI$_RESERVEDMON1 = 12697; (* Reserved MON items *) RMI$_RESERVEDMON2 = 12698; (* Reserved MON items *) RMI$_RESERVEDMON3 = 12699; (* Reserved MON items *) RMI$_RESERVEDMON4 = 12700; (* Reserved MON items *) RMI$_RESERVEDMON5 = 12701; (* Reserved MON items *) RMI$_RESERVEDMON6 = 12702; (* Reserved MON items *) RMI$_RESERVEDMON7 = 12703; (* Reserved MON items *) RMI$_RESERVEDMON8 = 12704; (* Reserved MON items *) RMI$_RESERVEDMON9 = 12705; (* Reserved MON items *) RMI$_RESERVEDMON10 = 12706; (* Reserved MON items *) RMI$_RESERVEDMON11 = 12707; (* Reserved MON items *) RMI$_RESERVEDMON12 = 12708; (* Reserved MON items *) RMI$_RESERVEDMON13 = 12709; (* Reserved MON items *) RMI$_RESERVEDMON14 = 12710; (* Reserved MON items *) RMI$_RESERVEDMON15 = 12711; (* Reserved MON items *) RMI$_RESERVEDMON16 = 12712; (* Reserved MON items *) RMI$_RESERVEDMON17 = 12713; (* Reserved MON items *) RMI$_RESERVEDMON18 = 12714; (* Reserved MON items *) RMI$_RESERVEDMON19 = 12715; (* Reserved MON items *) RMI$_RESERVEDMON20 = 12716; (* Reserved MON items *) RMI$_RESERVEDMON21 = 12717; (* Reserved MON items *) RMI$_RESERVEDMON22 = 12718; (* Reserved MON items *) RMI$_RESERVEDMON23 = 12719; (* Reserved MON items *) RMI$_RESERVEDMON24 = 12720; (* Reserved MON items *) RMI$_RESERVEDMON25 = 12721; (* Reserved MON items *) RMI$_RESERVEDMON26 = 12722; (* Reserved MON items *) RMI$_RESERVEDMON27 = 12723; (* Reserved MON items *) RMI$_RESERVEDMON28 = 12724; (* Reserved MON items *) RMI$_RESERVEDMON29 = 12725; (* Reserved MON items *) RMI$_RESERVEDMON30 = 12726; (* Reserved MON items *) RMI$_RESERVEDMON31 = 12727; (* Reserved MON items *) RMI$_RESERVEDMON32 = 12728; (* Reserved MON items *) RMI$_RESERVEDMON33 = 12729; (* Reserved MON items *) RMI$_RESERVEDMON34 = 12730; (* Reserved MON items *) RMI$_RESERVEDMON35 = 12731; (* Reserved MON items *) RMI$_RESERVEDMON36 = 12732; (* Reserved MON items *) RMI$_RESERVEDMON37 = 12733; (* Reserved MON items *) RMI$_RESERVEDMON38 = 12734; (* Reserved MON items *) RMI$_RESERVEDMON39 = 12735; (* Reserved MON items *) RMI$_RESERVEDMON40 = 12736; (* Reserved MON items *) RMI$_RESERVEDMON41 = 12737; (* Reserved MON items *) RMI$_RESERVEDMON42 = 12738; (* Reserved MON items *) RMI$_RESERVEDMON43 = 12739; (* Reserved MON items *) RMI$_RESERVEDMON44 = 12740; (* Reserved MON items *) RMI$_RESERVEDMON45 = 12741; (* Reserved MON items *) RMI$_RESERVEDMON46 = 12742; (* Reserved MON items *) RMI$_RESERVEDMON47 = 12743; (* Reserved MON items *) RMI$_RESERVEDMON48 = 12744; (* Reserved MON items *) RMI$_RESERVEDMON49 = 12745; (* Reserved MON items *) RMI$_RESERVEDMON50 = 12746; (* Reserved MON items *) RMI$_RESERVEDMON51 = 12747; (* Reserved MON items *) RMI$_RESERVEDMON52 = 12748; (* Reserved MON items *) RMI$_RESERVEDMON53 = 12749; (* Reserved MON items *) RMI$_RESERVEDMON54 = 12750; (* Reserved MON items *) RMI$_RESERVEDMON55 = 12751; (* Reserved MON items *) RMI$_RESERVEDMON56 = 12752; (* Reserved MON items *) RMI$_RESERVEDMON57 = 12753; (* Reserved MON items *) RMI$_RESERVEDMON58 = 12754; (* Reserved MON items *) RMI$_RESERVEDMON59 = 12755; (* Reserved MON items *) RMI$_RESERVEDMON60 = 12756; (* Reserved MON items *) RMI$_RESERVEDMON61 = 12757; (* Reserved MON items *) RMI$_RESERVEDMON62 = 12758; (* Reserved MON items *) RMI$_RESERVEDMON63 = 12759; (* Reserved MON items *) RMI$_RESERVEDMON64 = 12760; (* Reserved MON items *) RMI$_RESERVEDMON65 = 12761; (* Reserved MON items *) RMI$_RESERVEDMON66 = 12762; (* Reserved MON items *) RMI$_RESERVEDMON67 = 12763; (* Reserved MON items *) RMI$_RESERVEDMON68 = 12764; (* Reserved MON items *) RMI$_RESERVEDMON69 = 12765; (* Reserved MON items *) RMI$_RESERVEDMON70 = 12766; (* Reserved MON items *) RMI$_RESERVEDMON71 = 12767; (* Reserved MON items *) RMI$_RESERVEDMON72 = 12768; (* Reserved MON items *) RMI$_RESERVEDMON73 = 12769; (* Reserved MON items *) RMI$_RESERVEDMON74 = 12770; (* Reserved MON items *) RMI$_RESERVEDMON75 = 12771; (* Reserved MON items *) RMI$_RESERVEDMON76 = 12772; (* Reserved MON items *) RMI$_RESERVEDMON77 = 12773; (* Reserved MON items *) RMI$_RESERVEDMON78 = 12774; (* Reserved MON items *) RMI$_RESERVEDMON79 = 12775; (* Reserved MON items *) RMI$_RESERVEDMON80 = 12776; (* Reserved MON items *) RMI$_RESERVEDMON81 = 12777; (* Reserved MON items *) RMI$_RESERVEDMON82 = 12778; (* Reserved MON items *) RMI$_RESERVEDMON83 = 12779; (* Reserved MON items *) RMI$_RESERVEDMON84 = 12780; (* Reserved MON items *) RMI$_RESERVEDMON85 = 12781; (* Reserved MON items *) RMI$_RESERVEDMON86 = 12782; (* Reserved MON items *) RMI$_RESERVEDMON87 = 12783; (* Reserved MON items *) RMI$_RESERVEDMON88 = 12784; (* Reserved MON items *) RMI$_RESERVEDMON89 = 12785; (* Reserved MON items *) RMI$_RESERVEDMON90 = 12786; (* Reserved MON items *) RMI$_RESERVEDMON91 = 12787; (* Reserved MON items *) RMI$_RESERVEDMON92 = 12788; (* Reserved MON items *) RMI$_RESERVEDMON93 = 12789; (* Reserved MON items *) RMI$_RESERVEDMON94 = 12790; (* Reserved MON items *) RMI$_RESERVEDMON95 = 12791; (* Reserved MON items *) RMI$_RESERVEDMON96 = 12792; (* Reserved MON items *) RMI$_RESERVEDMON97 = 12793; (* Reserved MON items *) RMI$_RESERVEDMON98 = 12794; (* Reserved MON items *) RMI$_RESERVEDMON99 = 12795; (* Reserved MON items *) RMI$_RESERVEDMON100 = 12796; (* Reserved MON items *) RMI$_LASTMON = 12797; (* Last item in the monitor specific table *) (* *) (* Begin items specific to the Monitor RMS class. These items are maintained *) (* by RMS and collected from a global section with the following naming scheme: *) (* _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the *) (* file being monitored. *) (* *) CONST RMI$_RMS_STATS = 16893; (* All of the following rms statistics *) RMI$_SEQGETS = 16894; (* Total # of sequential gets *) RMI$_KEYGETS = 16895; (* Total # of keyed gets *) RMI$_RFAGETS = 16896; (* Total # of gets by RFA *) RMI$_GETBYTES = 16897; (* Total size in bytes of all GETS *) RMI$_SEQPUTS = 16898; (* Total # of sequential puts *) RMI$_KEYPUTS = 16899; (* Total # of puts by key *) RMI$_PUTBYTES = 16900; (* Total # of bytes put to file *) RMI$_UPDATES = 16901; (* Total # of updates to the file *) RMI$_UPDATEBYTES = 16902; (* Total # of bytes updated in file *) RMI$_DELETES = 16903; (* Total # of deletes to file *) RMI$_TRUNCATES = 16904; (* Total # of times file has been truncated *) RMI$_TRUNCBLKS = 16905; (* Total # of blocks file has been truncated *) RMI$_SEQFINDS = 16906; (* Total # of sequential finds *) RMI$_KEYFINDS = 16907; (* Total # of keyed finds *) RMI$_RFAFINDS = 16908; (* Total # of RFA finds *) RMI$_READS = 16909; (* Total # of $READS *) RMI$_READBYTES = 16910; (* Total # of bytes read from $READS *) RMI$_CONNECTS = 16911; (* Total connect requests *) RMI$_DISCONNECTS = 16912; (* Total disconnect requests *) RMI$_EXTENDS = 16913; (* Total extends *) RMI$_EXTBLOCKS = 16914; (* Total number of blocks file has been extended *) RMI$_FLUSHES = 16915; (* Total number of calls to flush *) RMI$_REWINDS = 16916; (* Total number of calls to REWIND *) RMI$_WRITES = 16917; (* Total number of calls to $WRITE *) RMI$_WRITEBYTES = 16918; (* Total bytes written using $WRITE *) RMI$_FLCKENQS = 16919; (* Total number of file lock ENQ's *) RMI$_FLCKDEQS = 16920; (* Total number of file lock DEQ's *) RMI$_FLCKCNVS = 16921; (* Total number of file lock conversions *) RMI$_LBLCKENQS = 16922; (* Total number of local buffer lock ENQ's *) RMI$_LBLCKDEQS = 16923; (* Total number of local buffer lock DEQ's *) RMI$_LBLCKCNVS = 16924; (* Total number of local buffer lock conversions *) RMI$_GBLCKENQS = 16925; (* Total number of global buffer lock ENQ's *) RMI$_GBLCKDEQS = 16926; (* Total number of global buffer lock DEQ's *) RMI$_GBLCKCNVS = 16927; (* Total number of global buffer lock conversions *) RMI$_GSLCKENQS = 16928; (* Total number of global section lock ENQ's *) RMI$_GSLCKDEQS = 16929; (* Total number of global section lock DEQ's *) RMI$_GSLCKCNVS = 16930; (* Total number of global section lock conversions *) RMI$_RLCKENQS = 16931; (* Total number of record lock ENQ's *) RMI$_RLCKDEQS = 16932; (* Total number of record lock DEQ's *) RMI$_RLCKCNVS = 16933; (* Total number of record lock conversions *) RMI$_APPLCKENQS = 16934; (* Total number of append lock ENQ's *) RMI$_APPLCKDEQS = 16935; (* Total number of append lock DEQ's *) RMI$_APPLCKCNVS = 16936; (* Total number of append lock conversions *) RMI$_FLBLKASTS = 16937; (* Total number of file lock blocking ASTs *) RMI$_LBLBLKASTS = 16938; (* Total number of local buffer lock blocking ASTs *) RMI$_GBLBLKASTS = 16939; (* Total number of global buffer lock blocking ASTs *) RMI$_APPBLKASTS = 16940; (* Total number of shared append lock blocking ASTs *) RMI$_LCACHEHITS = 16941; (* Total cache hits on buckets in local buffers *) RMI$_LCACHETRIES = 16942; (* Total cache attempts on buckets in local buffers *) RMI$_GCACHEHITS = 16943; (* Total cache hits on buckets in global buffers *) RMI$_GCACHETRIES = 16944; (* Total cache attempts on buckets in global buffers *) RMI$_GBRDIRIOS = 16945; (* Total direct IO's causes by global buffer cache reads *) RMI$_GBWDIRIOS = 16946; (* Total direct IO's causes by global buffer cache writes *) RMI$_LBRDIRIOS = 16947; (* Total direct IO's causes by local buffer cache reads *) RMI$_LBWDIRIOS = 16948; (* Total direct IO's causes by local buffer cache writes *) RMI$_BKTSPLT = 16949; (* Total number of 2 bucket splits done for this file *) RMI$_MBKTSPLT = 16950; (* Total number of multi-bucket splits done for this file *) RMI$_RMSOPENS = 16951; (* Total number of times file has been opened *) RMI$_CLOSES = 16952; (* Total number of times file has been closed *) RMI$_GSBLKASTS = 16953; (* Global Section Blocking ASTS *) RMI$_FLWAITS = 16954; (* File lock ENQs forced to wait *) RMI$_LBWAITS = 16955; (* Local buffer ENQs forced to wait *) RMI$_GBWAITS = 16956; (* Global buffer ENQs forced to wait *) RMI$_GSWAITS = 16957; (* Global section ENQs forced to wait *) RMI$_RLWAITS = 16958; (* Record lock ENQs forced to wait *) RMI$_APWAITS = 16959; (* Append lock ENQs forced to wait *) RMI$_TOTWAITS = 16960; (* Total ENQs forced to wait *) RMI$_OUTBUFQUO = 16961; (* Number of times a process runs out of buffer quota *) RMI$_RMSDEV1 = 16962; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV2 = 16963; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV3 = 16964; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV4 = 16965; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV5 = 16966; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV6 = 16967; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV7 = 16968; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV8 = 16969; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV9 = 16970; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV10 = 16971; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV11 = 16972; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV12 = 16973; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV13 = 16974; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV14 = 16975; (* Reserved for RMS development private monitoring *) RMI$_RMSDEV15 = 16976; (* Reserved for RMS development private monitoring *) RMI$_XQPQIOS = 16977; (* Number of XQP operations for this file by RMS *) RMI$_LCACHEHITPCNT = 16978; (* Local RMS buffer hit percent *) RMI$_GCACHEHITPCNT = 16979; (* Global RMS buffer hit percent *) RMI$_TOTALGET = 16980; (* Total $GET call rate *) RMI$_TOTALPUT = 16981; (* Total $PUT call rate *) RMI$_TOTALFIND = 16982; (* Total $FIND call rate *) RMI$_BYTESGET = 16983; (* Bytes per $GET *) RMI$_BYTESPUT = 16984; (* Bytes per $PUT *) RMI$_BYTESUPDATE = 16985; (* Bytes per $UPDATE *) RMI$_BYTESREAD = 16986; (* Bytes per $READ *) RMI$_BYTESWRITE = 16987; (* Bytes per $WRITE *) RMI$_BLOCKSTRUNCATE = 16988; (* Bytes per $TRUNCATE *) RMI$_BLOCKSEXTEND = 16989; (* Bytes per $EXTEND *) RMI$_ACTIVE_STREAMS = 16990; (* Active connects to file *) RMI$_TOTAL_ENQS = 16991; (* Total new ENQs *) RMI$_TOTAL_DEQS = 16992; (* Total DEQs *) RMI$_TOTAL_CNVS = 16993; (* Total ENQ conversions *) RMI$_TOTAL_BLKAST = 16994; (* Total blocking ASTs *) RMI$_RMS_ORG = 16995; (* RMS File org *) RMI$_INTCOL_GBHSH = 16996; (* Interlock collision on global buffer hash table *) RMI$_INTCOL_GBH = 16997; (* Interlock Collision on global buffer header *) RMI$_INTRNDWN_GBHSH = 16998; (* Interlock still held at rundown on GBHSH *) RMI$_INTRNDWN_GBH = 16999; (* Interlock still held at rundown on GBH *) RMI$_RESERVEDRMS5 = 17000; (* Reserved RMS items *) RMI$_RESERVEDRMS6 = 17001; (* Reserved RMS items *) RMI$_RESERVEDRMS7 = 17002; (* Reserved RMS items *) RMI$_RESERVEDRMS8 = 17003; (* Reserved RMS items *) RMI$_RESERVEDRMS9 = 17004; (* Reserved RMS items *) RMI$_RESERVEDRMS10 = 17005; (* Reserved RMS items *) RMI$_RESERVEDRMS11 = 17006; (* Reserved RMS items *) RMI$_RESERVEDRMS12 = 17007; (* Reserved RMS items *) RMI$_RESERVEDRMS13 = 17008; (* Reserved RMS items *) RMI$_RESERVEDRMS14 = 17009; (* Reserved RMS items *) RMI$_RESERVEDRMS15 = 17010; (* Reserved RMS items *) RMI$_RESERVEDRMS16 = 17011; (* Reserved RMS items *) RMI$_RESERVEDRMS17 = 17012; (* Reserved RMS items *) RMI$_RESERVEDRMS18 = 17013; (* Reserved RMS items *) RMI$_RESERVEDRMS19 = 17014; (* Reserved RMS items *) RMI$_RESERVEDRMS20 = 17015; (* Reserved RMS items *) RMI$_RESERVEDRMS21 = 17016; (* Reserved RMS items *) RMI$_RESERVEDRMS22 = 17017; (* Reserved RMS items *) RMI$_RESERVEDRMS23 = 17018; (* Reserved RMS items *) RMI$_RESERVEDRMS24 = 17019; (* Reserved RMS items *) RMI$_RESERVEDRMS25 = 17020; (* Reserved RMS items *) RMI$_RESERVEDRMS26 = 17021; (* Reserved RMS items *) RMI$_RESERVEDRMS27 = 17022; (* Reserved RMS items *) RMI$_RESERVEDRMS28 = 17023; (* Reserved RMS items *) RMI$_RESERVEDRMS29 = 17024; (* Reserved RMS items *) RMI$_RESERVEDRMS30 = 17025; (* Reserved RMS items *) RMI$_RESERVEDRMS31 = 17026; (* Reserved RMS items *) RMI$_RESERVEDRMS32 = 17027; (* Reserved RMS items *) RMI$_RESERVEDRMS33 = 17028; (* Reserved RMS items *) RMI$_RESERVEDRMS34 = 17029; (* Reserved RMS items *) RMI$_RESERVEDRMS35 = 17030; (* Reserved RMS items *) RMI$_RESERVEDRMS36 = 17031; (* Reserved RMS items *) RMI$_RESERVEDRMS37 = 17032; (* Reserved RMS items *) RMI$_RESERVEDRMS38 = 17033; (* Reserved RMS items *) RMI$_RESERVEDRMS39 = 17034; (* Reserved RMS items *) RMI$_RESERVEDRMS40 = 17035; (* Reserved RMS items *) RMI$_RESERVEDRMS41 = 17036; (* Reserved RMS items *) RMI$_RESERVEDRMS42 = 17037; (* Reserved RMS items *) RMI$_RESERVEDRMS43 = 17038; (* Reserved RMS items *) RMI$_RESERVEDRMS44 = 17039; (* Reserved RMS items *) RMI$_RESERVEDRMS45 = 17040; (* Reserved RMS items *) RMI$_RESERVEDRMS46 = 17041; (* Reserved RMS items *) RMI$_RESERVEDRMS47 = 17042; (* Reserved RMS items *) RMI$_RESERVEDRMS48 = 17043; (* Reserved RMS items *) RMI$_RESERVEDRMS49 = 17044; (* Reserved RMS items *) RMI$_RESERVEDRMS50 = 17045; (* Reserved RMS items *) RMI$_RESERVEDRMS51 = 17046; (* Reserved RMS items *) RMI$_RESERVEDRMS52 = 17047; (* Reserved RMS items *) RMI$_RESERVEDRMS53 = 17048; (* Reserved RMS items *) RMI$_RESERVEDRMS54 = 17049; (* Reserved RMS items *) RMI$_RESERVEDRMS55 = 17050; (* Reserved RMS items *) RMI$_RESERVEDRMS56 = 17051; (* Reserved RMS items *) RMI$_RESERVEDRMS57 = 17052; (* Reserved RMS items *) RMI$_RESERVEDRMS58 = 17053; (* Reserved RMS items *) RMI$_RESERVEDRMS59 = 17054; (* Reserved RMS items *) RMI$_RESERVEDRMS60 = 17055; (* Reserved RMS items *) RMI$_RESERVEDRMS61 = 17056; (* Reserved RMS items *) RMI$_RESERVEDRMS62 = 17057; (* Reserved RMS items *) RMI$_RESERVEDRMS63 = 17058; (* Reserved RMS items *) RMI$_RESERVEDRMS64 = 17059; (* Reserved RMS items *) RMI$_RESERVEDRMS65 = 17060; (* Reserved RMS items *) RMI$_RESERVEDRMS66 = 17061; (* Reserved RMS items *) RMI$_RESERVEDRMS67 = 17062; (* Reserved RMS items *) RMI$_RESERVEDRMS68 = 17063; (* Reserved RMS items *) RMI$_RESERVEDRMS69 = 17064; (* Reserved RMS items *) RMI$_RESERVEDRMS70 = 17065; (* Reserved RMS items *) RMI$_RESERVEDRMS71 = 17066; (* Reserved RMS items *) RMI$_RESERVEDRMS72 = 17067; (* Reserved RMS items *) RMI$_RESERVEDRMS73 = 17068; (* Reserved RMS items *) RMI$_RESERVEDRMS74 = 17069; (* Reserved RMS items *) RMI$_RESERVEDRMS75 = 17070; (* Reserved RMS items *) RMI$_RESERVEDRMS76 = 17071; (* Reserved RMS items *) RMI$_RESERVEDRMS77 = 17072; (* Reserved RMS items *) RMI$_RESERVEDRMS78 = 17073; (* Reserved RMS items *) RMI$_RESERVEDRMS79 = 17074; (* Reserved RMS items *) RMI$_RESERVEDRMS80 = 17075; (* Reserved RMS items *) RMI$_RESERVEDRMS81 = 17076; (* Reserved RMS items *) RMI$_RESERVEDRMS82 = 17077; (* Reserved RMS items *) RMI$_RESERVEDRMS83 = 17078; (* Reserved RMS items *) RMI$_RESERVEDRMS84 = 17079; (* Reserved RMS items *) RMI$_RESERVEDRMS85 = 17080; (* Reserved RMS items *) RMI$_RESERVEDRMS86 = 17081; (* Reserved RMS items *) RMI$_RESERVEDRMS87 = 17082; (* Reserved RMS items *) RMI$_RESERVEDRMS88 = 17083; (* Reserved RMS items *) RMI$_RESERVEDRMS89 = 17084; (* Reserved RMS items *) RMI$_RESERVEDRMS90 = 17085; (* Reserved RMS items *) RMI$_RESERVEDRMS91 = 17086; (* Reserved RMS items *) RMI$_RESERVEDRMS92 = 17087; (* Reserved RMS items *) RMI$_RESERVEDRMS93 = 17088; (* Reserved RMS items *) RMI$_RESERVEDRMS94 = 17089; (* Reserved RMS items *) RMI$_RESERVEDRMS95 = 17090; (* Reserved RMS items *) RMI$_RESERVEDRMS96 = 17091; (* Reserved RMS items *) RMI$_RESERVEDRMS97 = 17092; (* Reserved RMS items *) RMI$_RESERVEDRMS98 = 17093; (* Reserved RMS items *) RMI$_RESERVEDRMS99 = 17094; (* Reserved RMS items *) RMI$_RESERVEDRMS100 = 17095; (* Reserved RMS items *) RMI$_LASTRMS = 17096; (* Last item in the monitor specific table *) (* EX2TABLE : Extended EXE table *) (* Define item identifier numbers. Each data item has an associated *) (* value which is used to find its entry in the EXETBL. The item table *) (* is defined by the macros RMI_GENERATE_TABLE which makes multiple calls *) (* to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. *) (* *) CONST RMI$_CPUID = 21192; (* Primary cpu id *) RMI$_CPUCOMPAT = 21193; (* time in compat. mode *) RMI$_CPUINTSTK = 21194; (* time on interrupt stack *) RMI$_CPUMPSYNCH = 21195; (* time spent in synch mode *) RMI$_CPUKERNEL = 21196; (* time in kernel mode *) RMI$_CPUEXEC = 21197; (* time in exec mode *) RMI$_CPUSUPER = 21198; (* time in supervisor mode *) RMI$_CPUUSER = 21199; (* time in user mode *) RMI$_CPUIDLE = 21200; (* idle time *) RMI$_PROCCNTMAX = 21201; (* Maximum number of concurrent processes seen by the system *) RMI$_PROCBATCNT = 21202; (* Total number of batch processes in the system *) RMI$_PROCINTCNT = 21203; (* Total number of interactive processes in the system *) RMI$_PROCNETCNT = 21204; (* Total number of network processes in the system *) RMI$_PROCSWITCHCNT = 21205; (* Total count of switches from the then-currently executing process *) RMI$_PROCBALSETCNT = 21206; (* Total number of processe in the balance set. *) RMI$_PROCLOADCNT = 21207; (* Total count of process context load operations. *) RMI$_BADFLTS = 21208; (* Number of bad_list faults *) RMI$_EXEFAULTS = 21209; (* Number of execute page faults. *) RMI$_HDRINSWAPS = 21210; (* Count of system wide process header inswap operations. *) RMI$_HDROUTSWAPS = 21211; (* Count of system wide process header outswap operations. *) RMI$_IOPAGCNT = 21212; (* Count of pages in transit to disk from the modified page list (system wide ). *) RMI$_ISWPCNTPG = 21213; (* Accumulated system wide count of pages in-swapped. *) RMI$_OSWPCNT = 21214; (* Accumulated system wide count of process owtswap operations. *) RMI$_OSWPCNTPG = 21215; (* Accumulated system-wide count of pages out-swapped *) RMI$_RDFAULTS = 21216; (* Count of fault-on-read page faults. *) RMI$_TRANSFLTS = 21217; (* Accumulated system-wide count of transition faults. *) RMI$_WRTFAULTS = 21218; (* Count of fault-on-write page faults. *) RMI$_USERPAGES = 21219; (* Number of pages available for use by applications. *) RMI$_VMSPAGES = 21220; (* Number of pages actually allocated to OpenVMS. *) RMI$_LOGNAMCRE = 21221; (* Count of logical name creations. *) RMI$_LOGNAMDEL = 21222; (* Count of logical name deletions. *) RMI$_LOGNAMFAIL = 21223; (* Count of logical name translations that failed. *) RMI$_LOGNAMTBLCRE = 21224; (* Count of logical name tables created. *) RMI$_TTREADCNT = 21225; (* Accumulated system wide count of characters read from terminals. *) RMI$_TTREADS = 21226; (* Accumulated system wide count of reads from terminals. *) RMI$_TTWRITECNT = 21227; (* Accumulated system wide count of characters written to terminals. *) RMI$_TTWRITES = 21228; (* Accumulated system wide count of writes to terminals. *) RMI$_BUFOBJPAG = 21229; (* Count of buffer object physical pages currently allocated. *) RMI$_BUFOBJPAGPEAK = 21230; (* Maximum number of buffer object physical pages currently allocated. *) RMI$_BUFOBJPAGS01 = 21231; (* Number of buffer object pages currently allocated in S0/S1 space. *) RMI$_BUFOBJPAGS2 = 21232; (* Max number of buffer object pages currently allocated in S2 space. *) RMI$_BUFOBJPAGMAXS01 = 21233; (* Max number of buffer object pages in S0/S1 space. *) RMI$_BUFOBJPAGMAXS2 = 21234; (* Maximum number of buffer object physical pages in S2 space. *) RMI$_BUFOBJPAGPEAKS01 = 21235; (* Max number of buffer object pages currently allocated in S0/S1 space. *) RMI$_BUFOBJPAGPEAKS2 = 21236; (* Maximum number of buffer object physical pages currently allocated in S2 space. *) RMI$_BUFOBJPGLTMAXS01 = 21237; (* Number of available buffer object pagelets in S0/S1 space. *) RMI$_BUFOBJPGLTMAXS2 = 21238; (* Number of available buffer object pagelets in S2 space. *) RMI$_DLCK_INCMPLT = 21239; (* System-wide count of incomplete deadlock searches. *) RMI$_DLCKMSGS_IN = 21240; (* System-wide count of incoming deadlock detection messages. *) RMI$_DLCKMSGS_OUT = 21241; (* System-wide count of of outgoing deadlock detection messages. *) RMI$_TQETOTAL = 21242; (* Count of timer requests. *) RMI$_TQESYSUB = 21243; (* Count of timer requests made by OpenVMS operating system. *) RMI$_TQEUSRTIMR = 21244; (* Count of timer requests made by application programs through $SETIMR system service. *) RMI$_TQEUSRWAKE = 21245; (* Count of timer requests made by application programs through $SCHDWK system service. *) RMI$_CWPSBYTESIN = 21246; (* Count of Cluster-wide process services "CWPS" message bytes received by the system. *) RMI$_CWPSBYTESOUT = 21247; (* Count of CWPS message bytes sent by the system. *) RMI$_CWPSJPISIN = 21248; (* Count of CWPS $GETJPI requests received by the system. *) RMI$_CWPSJPISOUT = 21249; (* Count of CWPS $GETJPI requests sent by the system. *) RMI$_CWPSMSGSIN = 21250; (* Count of CWPS messages received by the system. *) RMI$_CWPSMSGSOUT = 21251; (* Count of CWPS messages sent by the system. *) RMI$_CWPSPCNTRLIN = 21252; (* Count of CWPS PCNTRL requests received by the system. *) RMI$_CWPSPCNTRLOUT = 21253; (* Count of CWPS PCNTRL requests sent by the system. *) RMI$_CWPSRSRCIN = 21254; (* Count of CWPS resource-fail messages received by the system. *) RMI$_CWPSRSRCOUT = 21255; (* Count of CWPS resource-fail messages sent by the system. *) RMI$_CHME = 21256; (* Count of $CMEXEC service calls. *) RMI$_CHMK = 21257; (* Count of $CMKRNL service calls. *) RMI$_MCHKERRS = 21258; (* Count of machine checks since the system was booted. *) RMI$_MEMERRS = 21259; (* Count of memory errors since the system was booted. *) RMI$_RESMASK = 21260; (* A bit mask summarizing the system resources for which processes in the MWAIT state are currently waiting. *) RMI$_CACHE_STATE = 21261; (* Cache stats bits *) RMI$_CACHE_MEMORY = 21262; (* Pages of memory currently held by the cache *) RMI$_CACHE_FREE = 21263; (* Pages of memory held by the cache but not currently in use *) RMI$_CACHE_READ_HITS = 21264; (* Read hits *) RMI$_CACHE_VIRT_READS = 21265; (* Virtual reads to cacheable files *) RMI$_CACHE_VIRT_WRITES = 21266; (* Virtual writes to cacheable files *) RMI$_CACHE_R_ARND_MOD = 21267; (* Read arounds due to modifier bits *) RMI$_CACHE_R_ARND_SIZ = 21268; (* Read arounds due to size too large *) RMI$_CACHE_W_ARND_MOD = 21269; (* Write arounds due to modifier bits *) RMI$_CACHE_W_ARND_SIZ = 21270; (* Write arounds due to size too large *) RMI$_CACHE_LIMBO_LEN = 21271; (* Length of limbo queue *) RMI$_CACHE_MIN_SIZE = 21272; (* Minimum cache size in Pages *) RMI$_CACHE_MAX_SIZE = 21273; (* Current maximum cache size in Pages *) RMI$_CACHE_MAX_LIMIT = 21274; (* Maximum ever cache size in Pages (limited by boot-time VA allocation) *) RMI$_CACHE_MAX_IO_SIZE = 21275; (* Value of VCC_MAX_IO_SIZE *) RMI$_CACHE_MAX_LOCKS = 21276; (* Value of VCC_MAX_LOCKS *) RMI$_CACHE_READAHEAD = 21277; (* Value of VCC_READAHEAD *) RMI$_CACHE_WRITEBEHIND = 21278; (* Value of VCC_WRITEBEHIND *) RMI$_CACHE_WRITEDELAY = 21279; (* Value of VCC_WRITE_DELAY *) RMI$_CACHE_VOLS_FXFC_MODE = 21280; (* Count of volumes in Full XFC mode *) RMI$_CACHE_VOLS_RXFC_MODE = 21281; (* Count of volumes in VIOC compatability mode *) RMI$_CACHE_VOLS_NC_MODE = 21282; (* Count of volumes in No Caching mode *) RMI$_CACHE_VOLS_PNC_MODE = 21283; (* Count of volumes in Permanent No Caching mode *) RMI$_CACHE_OPEN_FILES = 21284; (* Number of open files *) RMI$_CACHE_UNSYNCHED_IOS = 21285; (* Number of physical/logical unsynched IOs *) RMI$_CACHE_DELAYED_WRITES = 21286; (* Number of write-behind writes *) RMI$_CACHE_LOST_WRITES = 21287; (* Writes lost due to disk errors *) RMI$_CACHE_FULL_BARRIERS = 21288; (* Number of full barriers in dep graph *) RMI$_CACHE_PARTIAL_BARRIERS = 21289; (* Number of partial barriers in dep graph *) RMI$_CACHE_READS_AROUND = 21290; (* Total number of reads around the cache *) RMI$_CACHE_WRITES_AROUND = 21291; (* Total number of writes around the cache *) RMI$_CACHE_CURRENT_LOCKS = 21292; (* Number of locks currently held by cache *) RMI$_CACHE_BARRIER_COUNT = 21293; (* Number of barrier calls made since boot-time *) RMI$_CACHE_SUPER_WRITES = 21294; (* Number of writes that supersede dirty data *) RMI$_CACHE_NON_PAGED_POOL = 21295; (* Amount of non-paged pool cuurrently held by the cache *) RMI$_CACHE_EVERYTHING = 21296; (* Dummy item to collect everything about cache *) RMI$_GBP_CURMAP = 21297; (* Count of global pages currently mapped. *) RMI$_GBP_CURMAP_GRP = 21298; (* Count of group global pages currently mapped. *) RMI$_GBP_CURMAP_GRPWRT = 21299; (* Count of writable group global pages currently mapped. *) RMI$_GBP_CURMAP_SYS = 21300; (* Count of system global pages currently mapped. *) RMI$_GBP_CURMAP_SYSWRT = 21301; (* Count of writable system global pages currently mapped. *) RMI$_GBP_MAXMAP = 21302; (* Maximum count of global pages simultaneouly mapped. *) RMI$_GBS_CURMAP = 21303; (* Count of global sections currently mapped. *) RMI$_GBS_CURMAP_GRP = 21304; (* Count of group global sections currently mapped. *) RMI$_GBS_CURMAP_GRPWRT = 21305; (* Count of writable group global sections currently mapped. *) RMI$_GBS_CURMAP_SYS = 21306; (* Count of system global sections currently mapped. *) RMI$_GBS_CURMAP_SYSWRT = 21307; (* Count of writable system global sections currently mapped. *) RMI$_GBS_MAXMAP = 21308; (* Maximum count of global sections simutaneously mapped. *) RMI$_GBS_NOREF = 21309; (* Count of global sections not mapped to a process. *) RMI$_NP_POOL_ALLOC = 21310; (* Accumulated count of non-paged pool allocation requests. *) RMI$_NP_POOL_ALLOCF = 21311; (* Count of unsuccessful non-paged pool allocation requests. *) RMI$_NP_POOL_EXP = 21312; (* Count of successful expansions on non-paged pool. *) RMI$_NP_POOL_EXPF = 21313; (* Count of unsuccessful attempts to expand non-paged pool. *) RMI$_PG_POOL_ALLOC = 21314; (* Count of paged pool allocation requests. *) RMI$_PG_POOL_ALLOCF = 21315; (* Count of unsuccessful paged pool allocation requests. *) RMI$_PG_POOL_EXPF = 21316; (* Count of unsuccessful attempts to expand paged pool. *) RMI$_SMP_CURMAP = 21317; (* Count of global pages currently mapped for galaxy shared memory. *) RMI$_SMP_CURMAP_GRP = 21318; (* Count of group global pages currently mapped for galaxy shared memory. *) RMI$_SMP_CURMAP_GRPWRT = 21319; (* Count of writable group global pages currently mapped for galaxy shared memory. *) RMI$_SMP_CURMAP_SYS = 21320; (* Count of system global pages currently mapped for galaxy shared memory. *) RMI$_SMP_CURMAP_SYSWRT = 21321; (* Count of writable system global pages currently mapped for galaxy shared memory. *) RMI$_SMS_CURMAP = 21322; (* Count of global sections currently mapped for galaxy shared memory. *) RMI$_SMS_CURMAP_GRP = 21323; (* Count of group global sections currently mapped for galaxy shared memory. *) RMI$_SMS_CURMAP_GRPWRT = 21324; (* Count of writable group global sections currently mapped for galaxy shared memory. *) RMI$_SMS_CURMAP_SYS = 21325; (* Count of system global sections currently mapped for galaxy shared memory. *) RMI$_SMS_CURMAP_SYSWRT = 21326; (* Count of writable system global sections currently mapped for galaxy shared memory. *) RMI$_SMS_NOREF = 21327; (* Current count of global sections for galaxy shared memory which are not mapped to a process. *) RMI$_RESERVEDEXT1 = 21328; (* Reserved EXE items *) RMI$_RESERVEDEXT2 = 21329; (* Reserved EXE items *) RMI$_RESERVEDEXT3 = 21330; (* Reserved EXE items *) RMI$_RESERVEDEXT4 = 21331; (* Reserved EXE items *) RMI$_RESERVEDEXT5 = 21332; (* Reserved EXE items *) RMI$_RESERVEDEXT6 = 21333; (* Reserved EXE items *) RMI$_RESERVEDEXT7 = 21334; (* Reserved EXE items *) RMI$_RESERVEDEXT8 = 21335; (* Reserved EXE items *) RMI$_RESERVEDEXT9 = 21336; (* Reserved EXE items *) RMI$_RESERVEDEXT10 = 21337; (* Reserved EXE items *) RMI$_RESERVEDEXT11 = 21338; (* Reserved EXE items *) RMI$_RESERVEDEXT12 = 21339; (* Reserved EXE items *) RMI$_RESERVEDEXT13 = 21340; (* Reserved EXE items *) RMI$_RESERVEDEXT14 = 21341; (* Reserved EXE items *) RMI$_RESERVEDEXT15 = 21342; (* Reserved EXE items *) RMI$_RESERVEDEXT16 = 21343; (* Reserved EXE items *) RMI$_RESERVEDEXT17 = 21344; (* Reserved EXE items *) RMI$_RESERVEDEXT18 = 21345; (* Reserved EXE items *) RMI$_RESERVEDEXT19 = 21346; (* Reserved EXE items *) RMI$_RESERVEDEXT20 = 21347; (* Reserved EXE items *) RMI$_RESERVEDEXT21 = 21348; (* Reserved EXE items *) RMI$_RESERVEDEXT22 = 21349; (* Reserved EXE items *) RMI$_RESERVEDEXT23 = 21350; (* Reserved EXE items *) RMI$_RESERVEDEXT24 = 21351; (* Reserved EXE items *) RMI$_RESERVEDEXT25 = 21352; (* Reserved EXE items *) RMI$_RESERVEDEXT26 = 21353; (* Reserved EXE items *) RMI$_RESERVEDEXT27 = 21354; (* Reserved EXE items *) RMI$_RESERVEDEXT28 = 21355; (* Reserved EXE items *) RMI$_RESERVEDEXT29 = 21356; (* Reserved EXE items *) RMI$_RESERVEDEXT30 = 21357; (* Reserved EXE items *) RMI$_RESERVEDEXT31 = 21358; (* Reserved EXE items *) RMI$_RESERVEDEXT32 = 21359; (* Reserved EXE items *) RMI$_RESERVEDEXT33 = 21360; (* Reserved EXE items *) RMI$_RESERVEDEXT34 = 21361; (* Reserved EXE items *) RMI$_RESERVEDEXT35 = 21362; (* Reserved EXE items *) RMI$_RESERVEDEXT36 = 21363; (* Reserved EXE items *) RMI$_RESERVEDEXT37 = 21364; (* Reserved EXE items *) RMI$_RESERVEDEXT38 = 21365; (* Reserved EXE items *) RMI$_RESERVEDEXT39 = 21366; (* Reserved EXE items *) RMI$_RESERVEDEXT40 = 21367; (* Reserved EXE items *) RMI$_RESERVEDEXT41 = 21368; (* Reserved EXE items *) RMI$_RESERVEDEXT42 = 21369; (* Reserved EXE items *) RMI$_RESERVEDEXT43 = 21370; (* Reserved EXE items *) RMI$_RESERVEDEXT44 = 21371; (* Reserved EXE items *) RMI$_RESERVEDEXT45 = 21372; (* Reserved EXE items *) RMI$_RESERVEDEXT46 = 21373; (* Reserved EXE items *) RMI$_RESERVEDEXT47 = 21374; (* Reserved EXE items *) RMI$_RESERVEDEXT48 = 21375; (* Reserved EXE items *) RMI$_RESERVEDEXT49 = 21376; (* Reserved EXE items *) RMI$_RESERVEDEXT50 = 21377; (* Reserved EXE items *) RMI$_RESERVEDEXT51 = 21378; (* Reserved EXE items *) RMI$_RESERVEDEXT52 = 21379; (* Reserved EXE items *) RMI$_RESERVEDEXT53 = 21380; (* Reserved EXE items *) RMI$_RESERVEDEXT54 = 21381; (* Reserved EXE items *) RMI$_RESERVEDEXT55 = 21382; (* Reserved EXE items *) RMI$_RESERVEDEXT56 = 21383; (* Reserved EXE items *) RMI$_RESERVEDEXT57 = 21384; (* Reserved EXE items *) RMI$_RESERVEDEXT58 = 21385; (* Reserved EXE items *) RMI$_RESERVEDEXT59 = 21386; (* Reserved EXE items *) RMI$_RESERVEDEXT60 = 21387; (* Reserved EXE items *) RMI$_RESERVEDEXT61 = 21388; (* Reserved EXE items *) RMI$_RESERVEDEXT62 = 21389; (* Reserved EXE items *) RMI$_RESERVEDEXT63 = 21390; (* Reserved EXE items *) RMI$_RESERVEDEXT64 = 21391; (* Reserved EXE items *) RMI$_RESERVEDEXT65 = 21392; (* Reserved EXE items *) RMI$_RESERVEDEXT66 = 21393; (* Reserved EXE items *) RMI$_RESERVEDEXT67 = 21394; (* Reserved EXE items *) RMI$_RESERVEDEXT68 = 21395; (* Reserved EXE items *) RMI$_RESERVEDEXT69 = 21396; (* Reserved EXE items *) RMI$_RESERVEDEXT70 = 21397; (* Reserved EXE items *) RMI$_RESERVEDEXT71 = 21398; (* Reserved EXE items *) RMI$_RESERVEDEXT72 = 21399; (* Reserved EXE items *) RMI$_RESERVEDEXT73 = 21400; (* Reserved EXE items *) RMI$_RESERVEDEXT74 = 21401; (* Reserved EXE items *) RMI$_RESERVEDEXT75 = 21402; (* Reserved EXE items *) RMI$_RESERVEDEXT76 = 21403; (* Reserved EXE items *) RMI$_RESERVEDEXT77 = 21404; (* Reserved EXE items *) RMI$_RESERVEDEXT78 = 21405; (* Reserved EXE items *) RMI$_RESERVEDEXT79 = 21406; (* Reserved EXE items *) RMI$_RESERVEDEXT80 = 21407; (* Reserved EXE items *) RMI$_RESERVEDEXT81 = 21408; (* Reserved EXE items *) RMI$_RESERVEDEXT82 = 21409; (* Reserved EXE items *) RMI$_RESERVEDEXT83 = 21410; (* Reserved EXE items *) RMI$_RESERVEDEXT84 = 21411; (* Reserved EXE items *) RMI$_RESERVEDEXT85 = 21412; (* Reserved EXE items *) RMI$_RESERVEDEXT86 = 21413; (* Reserved EXE items *) RMI$_RESERVEDEXT87 = 21414; (* Reserved EXE items *) RMI$_RESERVEDEXT88 = 21415; (* Reserved EXE items *) RMI$_RESERVEDEXT89 = 21416; (* Reserved EXE items *) RMI$_RESERVEDEXT90 = 21417; (* Reserved EXE items *) RMI$_RESERVEDEXT91 = 21418; (* Reserved EXE items *) RMI$_RESERVEDEXT92 = 21419; (* Reserved EXE items *) RMI$_RESERVEDEXT93 = 21420; (* Reserved EXE items *) RMI$_RESERVEDEXT94 = 21421; (* Reserved EXE items *) RMI$_RESERVEDEXT95 = 21422; (* Reserved EXE items *) RMI$_RESERVEDEXT96 = 21423; (* Reserved EXE items *) RMI$_RESERVEDEXT97 = 21424; (* Reserved EXE items *) RMI$_RESERVEDEXT98 = 21425; (* Reserved EXE items *) RMI$_RESERVEDEXT99 = 21426; (* Reserved EXE items *) RMI$_RESERVEDEXT100 = 21427; (* Reserved EXE items *) RMI$_RESERVEDEXT101 = 21428; (* Reserved EXE items *) RMI$_RESERVEDEXT102 = 21429; (* Reserved EXE items *) RMI$_RESERVEDEXT103 = 21430; (* Reserved EXE items *) RMI$_RESERVEDEXT104 = 21431; (* Reserved EXE items *) RMI$_RESERVEDEXT105 = 21432; (* Reserved EXE items *) RMI$_RESERVEDEXT106 = 21433; (* Reserved EXE items *) RMI$_RESERVEDEXT107 = 21434; (* Reserved EXE items *) RMI$_RESERVEDEXT108 = 21435; (* Reserved EXE items *) RMI$_RESERVEDEXT109 = 21436; (* Reserved EXE items *) RMI$_RESERVEDEXT110 = 21437; (* Reserved EXE items *) RMI$_RESERVEDEXT111 = 21438; (* Reserved EXE items *) RMI$_RESERVEDEXT112 = 21439; (* Reserved EXE items *) RMI$_RESERVEDEXT113 = 21440; (* Reserved EXE items *) RMI$_RESERVEDEXT114 = 21441; (* Reserved EXE items *) RMI$_RESERVEDEXT115 = 21442; (* Reserved EXE items *) RMI$_RESERVEDEXT116 = 21443; (* Reserved EXE items *) RMI$_RESERVEDEXT117 = 21444; (* Reserved EXE items *) RMI$_RESERVEDEXT118 = 21445; (* Reserved EXE items *) RMI$_RESERVEDEXT119 = 21446; (* Reserved EXE items *) RMI$_RESERVEDEXT120 = 21447; (* Reserved EXE items *) RMI$_RESERVEDEXT121 = 21448; (* Reserved EXE items *) RMI$_RESERVEDEXT122 = 21449; (* Reserved EXE items *) RMI$_RESERVEDEXT123 = 21450; (* Reserved EXE items *) RMI$_RESERVEDEXT124 = 21451; (* Reserved EXE items *) RMI$_RESERVEDEXT125 = 21452; (* Reserved EXE items *) RMI$_RESERVEDEXT126 = 21453; (* Reserved EXE items *) RMI$_RESERVEDEXT127 = 21454; (* Reserved EXE items *) RMI$_RESERVEDEXT128 = 21455; (* Reserved EXE items *) RMI$_RESERVEDEXT129 = 21456; (* Reserved EXE items *) RMI$_RESERVEDEXT130 = 21457; (* Reserved EXE items *) RMI$_RESERVEDEXT131 = 21458; (* Reserved EXE items *) RMI$_RESERVEDEXT132 = 21459; (* Reserved EXE items *) RMI$_RESERVEDEXT133 = 21460; (* Reserved EXE items *) RMI$_RESERVEDEXT134 = 21461; (* Reserved EXE items *) RMI$_RESERVEDEXT135 = 21462; (* Reserved EXE items *) RMI$_RESERVEDEXT136 = 21463; (* Reserved EXE items *) RMI$_RESERVEDEXT137 = 21464; (* Reserved EXE items *) RMI$_RESERVEDEXT138 = 21465; (* Reserved EXE items *) RMI$_RESERVEDEXT139 = 21466; (* Reserved EXE items *) RMI$_RESERVEDEXT140 = 21467; (* Reserved EXE items *) RMI$_RESERVEDEXT141 = 21468; (* Reserved EXE items *) RMI$_RESERVEDEXT142 = 21469; (* Reserved EXE items *) RMI$_RESERVEDEXT143 = 21470; (* Reserved EXE items *) RMI$_RESERVEDEXT144 = 21471; (* Reserved EXE items *) RMI$_RESERVEDEXT145 = 21472; (* Reserved EXE items *) RMI$_RESERVEDEXT146 = 21473; (* Reserved EXE items *) RMI$_RESERVEDEXT147 = 21474; (* Reserved EXE items *) RMI$_RESERVEDEXT148 = 21475; (* Reserved EXE items *) RMI$_RESERVEDEXT149 = 21476; (* Reserved EXE items *) RMI$_RESERVEDEXT150 = 21477; (* Reserved EXE items *) RMI$_RESERVEDEXT151 = 21478; (* Reserved EXE items *) RMI$_RESERVEDEXT152 = 21479; (* Reserved EXE items *) RMI$_RESERVEDEXT153 = 21480; (* Reserved EXE items *) RMI$_RESERVEDEXT154 = 21481; (* Reserved EXE items *) RMI$_RESERVEDEXT155 = 21482; (* Reserved EXE items *) RMI$_RESERVEDEXT156 = 21483; (* Reserved EXE items *) RMI$_RESERVEDEXT157 = 21484; (* Reserved EXE items *) RMI$_RESERVEDEXT158 = 21485; (* Reserved EXE items *) RMI$_RESERVEDEXT159 = 21486; (* Reserved EXE items *) RMI$_RESERVEDEXT160 = 21487; (* Reserved EXE items *) RMI$_RESERVEDEXT161 = 21488; (* Reserved EXE items *) RMI$_RESERVEDEXT162 = 21489; (* Reserved EXE items *) RMI$_RESERVEDEXT163 = 21490; (* Reserved EXE items *) RMI$_RESERVEDEXT164 = 21491; (* Reserved EXE items *) RMI$_RESERVEDEXT165 = 21492; (* Reserved EXE items *) RMI$_RESERVEDEXT166 = 21493; (* Reserved EXE items *) RMI$_RESERVEDEXT167 = 21494; (* Reserved EXE items *) RMI$_RESERVEDEXT168 = 21495; (* Reserved EXE items *) RMI$_RESERVEDEXT169 = 21496; (* Reserved EXE items *) RMI$_RESERVEDEXT170 = 21497; (* Reserved EXE items *) RMI$_RESERVEDEXT171 = 21498; (* Reserved EXE items *) RMI$_RESERVEDEXT172 = 21499; (* Reserved EXE items *) RMI$_RESERVEDEXT173 = 21500; (* Reserved EXE items *) RMI$_RESERVEDEXT174 = 21501; (* Reserved EXE items *) RMI$_RESERVEDEXT175 = 21502; (* Reserved EXE items *) RMI$_RESERVEDEXT176 = 21503; (* Reserved EXE items *) RMI$_RESERVEDEXT177 = 21504; (* Reserved EXE items *) RMI$_RESERVEDEXT178 = 21505; (* Reserved EXE items *) RMI$_RESERVEDEXT179 = 21506; (* Reserved EXE items *) RMI$_RESERVEDEXT180 = 21507; (* Reserved EXE items *) RMI$_RESERVEDEXT181 = 21508; (* Reserved EXE items *) RMI$_RESERVEDEXT182 = 21509; (* Reserved EXE items *) RMI$_RESERVEDEXT183 = 21510; (* Reserved EXE items *) RMI$_RESERVEDEXT184 = 21511; (* Reserved EXE items *) RMI$_RESERVEDEXT185 = 21512; (* Reserved EXE items *) RMI$_RESERVEDEXT186 = 21513; (* Reserved EXE items *) RMI$_RESERVEDEXT187 = 21514; (* Reserved EXE items *) RMI$_RESERVEDEXT188 = 21515; (* Reserved EXE items *) RMI$_RESERVEDEXT189 = 21516; (* Reserved EXE items *) RMI$_RESERVEDEXT190 = 21517; (* Reserved EXE items *) RMI$_RESERVEDEXT191 = 21518; (* Reserved EXE items *) RMI$_RESERVEDEXT192 = 21519; (* Reserved EXE items *) RMI$_RESERVEDEXT193 = 21520; (* Reserved EXE items *) RMI$_RESERVEDEXT194 = 21521; (* Reserved EXE items *) RMI$_RESERVEDEXT195 = 21522; (* Reserved EXE items *) RMI$_RESERVEDEXT196 = 21523; (* Reserved EXE items *) RMI$_RESERVEDEXT197 = 21524; (* Reserved EXE items *) RMI$_RESERVEDEXT198 = 21525; (* Reserved EXE items *) RMI$_RESERVEDEXT199 = 21526; (* Reserved EXE items *) RMI$_RESERVEDEXT200 = 21527; (* Reserved EXE items *) RMI$_RESERVEDEXT201 = 21528; (* Reserved EXE items *) RMI$_RESERVEDEXT202 = 21529; (* Reserved EXE items *) RMI$_RESERVEDEXT203 = 21530; (* Reserved EXE items *) RMI$_RESERVEDEXT204 = 21531; (* Reserved EXE items *) RMI$_RESERVEDEXT205 = 21532; (* Reserved EXE items *) RMI$_RESERVEDEXT206 = 21533; (* Reserved EXE items *) RMI$_RESERVEDEXT207 = 21534; (* Reserved EXE items *) RMI$_RESERVEDEXT208 = 21535; (* Reserved EXE items *) RMI$_RESERVEDEXT209 = 21536; (* Reserved EXE items *) RMI$_RESERVEDEXT210 = 21537; (* Reserved EXE items *) RMI$_RESERVEDEXT211 = 21538; (* Reserved EXE items *) RMI$_RESERVEDEXT212 = 21539; (* Reserved EXE items *) RMI$_RESERVEDEXT213 = 21540; (* Reserved EXE items *) RMI$_RESERVEDEXT214 = 21541; (* Reserved EXE items *) RMI$_RESERVEDEXT215 = 21542; (* Reserved EXE items *) RMI$_RESERVEDEXT216 = 21543; (* Reserved EXE items *) RMI$_RESERVEDEXT217 = 21544; (* Reserved EXE items *) RMI$_RESERVEDEXT218 = 21545; (* Reserved EXE items *) RMI$_RESERVEDEXT219 = 21546; (* Reserved EXE items *) RMI$_RESERVEDEXT220 = 21547; (* Reserved EXE items *) RMI$_RESERVEDEXT221 = 21548; (* Reserved EXE items *) RMI$_RESERVEDEXT222 = 21549; (* Reserved EXE items *) RMI$_RESERVEDEXT223 = 21550; (* Reserved EXE items *) RMI$_RESERVEDEXT224 = 21551; (* Reserved EXE items *) RMI$_RESERVEDEXT225 = 21552; (* Reserved EXE items *) RMI$_RESERVEDEXT226 = 21553; (* Reserved EXE items *) RMI$_RESERVEDEXT227 = 21554; (* Reserved EXE items *) RMI$_RESERVEDEXT228 = 21555; (* Reserved EXE items *) RMI$_RESERVEDEXT229 = 21556; (* Reserved EXE items *) RMI$_RESERVEDEXT230 = 21557; (* Reserved EXE items *) RMI$_RESERVEDEXT231 = 21558; (* Reserved EXE items *) RMI$_RESERVEDEXT232 = 21559; (* Reserved EXE items *) RMI$_RESERVEDEXT233 = 21560; (* Reserved EXE items *) RMI$_RESERVEDEXT234 = 21561; (* Reserved EXE items *) RMI$_RESERVEDEXT235 = 21562; (* Reserved EXE items *) RMI$_RESERVEDEXT236 = 21563; (* Reserved EXE items *) RMI$_RESERVEDEXT237 = 21564; (* Reserved EXE items *) RMI$_RESERVEDEXT238 = 21565; (* Reserved EXE items *) RMI$_RESERVEDEXT239 = 21566; (* Reserved EXE items *) RMI$_RESERVEDEXT240 = 21567; (* Reserved EXE items *) RMI$_RESERVEDEXT241 = 21568; (* Reserved EXE items *) RMI$_RESERVEDEXT242 = 21569; (* Reserved EXE items *) RMI$_RESERVEDEXT243 = 21570; (* Reserved EXE items *) RMI$_RESERVEDEXT244 = 21571; (* Reserved EXE items *) RMI$_RESERVEDEXT245 = 21572; (* Reserved EXE items *) RMI$_RESERVEDEXT246 = 21573; (* Reserved EXE items *) RMI$_RESERVEDEXT247 = 21574; (* Reserved EXE items *) RMI$_RESERVEDEXT248 = 21575; (* Reserved EXE items *) RMI$_RESERVEDEXT249 = 21576; (* Reserved EXE items *) RMI$_RESERVEDEXT250 = 21577; (* Reserved EXE items *) RMI$_RESERVEDEXT251 = 21578; (* Reserved EXE items *) RMI$_RESERVEDEXT252 = 21579; (* Reserved EXE items *) RMI$_RESERVEDEXT253 = 21580; (* Reserved EXE items *) RMI$_RESERVEDEXT254 = 21581; (* Reserved EXE items *) RMI$_RESERVEDEXT255 = 21582; (* Reserved EXE items *) RMI$_RESERVEDEXT256 = 21583; (* Reserved EXE items *) RMI$_RESERVEDEXT257 = 21584; (* Reserved EXE items *) RMI$_RESERVEDEXT258 = 21585; (* Reserved EXE items *) RMI$_RESERVEDEXT259 = 21586; (* Reserved EXE items *) RMI$_RESERVEDEXT260 = 21587; (* Reserved EXE items *) RMI$_RESERVEDEXT261 = 21588; (* Reserved EXE items *) RMI$_RESERVEDEXT262 = 21589; (* Reserved EXE items *) RMI$_RESERVEDEXT263 = 21590; (* Reserved EXE items *) RMI$_RESERVEDEXT264 = 21591; (* Reserved EXE items *) RMI$_RESERVEDEXT265 = 21592; (* Reserved EXE items *) RMI$_RESERVEDEXT266 = 21593; (* Reserved EXE items *) RMI$_RESERVEDEXT267 = 21594; (* Reserved EXE items *) RMI$_RESERVEDEXT268 = 21595; (* Reserved EXE items *) RMI$_RESERVEDEXT269 = 21596; (* Reserved EXE items *) RMI$_RESERVEDEXT270 = 21597; (* Reserved EXE items *) RMI$_RESERVEDEXT271 = 21598; (* Reserved EXE items *) RMI$_RESERVEDEXT272 = 21599; (* Reserved EXE items *) RMI$_RESERVEDEXT273 = 21600; (* Reserved EXE items *) RMI$_RESERVEDEXT274 = 21601; (* Reserved EXE items *) RMI$_RESERVEDEXT275 = 21602; (* Reserved EXE items *) RMI$_RESERVEDEXT276 = 21603; (* Reserved EXE items *) RMI$_RESERVEDEXT277 = 21604; (* Reserved EXE items *) RMI$_RESERVEDEXT278 = 21605; (* Reserved EXE items *) RMI$_RESERVEDEXT279 = 21606; (* Reserved EXE items *) RMI$_RESERVEDEXT280 = 21607; (* Reserved EXE items *) RMI$_RESERVEDEXT281 = 21608; (* Reserved EXE items *) RMI$_RESERVEDEXT282 = 21609; (* Reserved EXE items *) RMI$_RESERVEDEXT283 = 21610; (* Reserved EXE items *) RMI$_RESERVEDEXT284 = 21611; (* Reserved EXE items *) RMI$_RESERVEDEXT285 = 21612; (* Reserved EXE items *) RMI$_RESERVEDEXT286 = 21613; (* Reserved EXE items *) RMI$_RESERVEDEXT287 = 21614; (* Reserved EXE items *) RMI$_RESERVEDEXT288 = 21615; (* Reserved EXE items *) RMI$_RESERVEDEXT289 = 21616; (* Reserved EXE items *) RMI$_RESERVEDEXT290 = 21617; (* Reserved EXE items *) RMI$_RESERVEDEXT291 = 21618; (* Reserved EXE items *) RMI$_RESERVEDEXT292 = 21619; (* Reserved EXE items *) RMI$_RESERVEDEXT293 = 21620; (* Reserved EXE items *) RMI$_RESERVEDEXT294 = 21621; (* Reserved EXE items *) RMI$_RESERVEDEXT295 = 21622; (* Reserved EXE items *) RMI$_RESERVEDEXT296 = 21623; (* Reserved EXE items *) RMI$_RESERVEDEXT297 = 21624; (* Reserved EXE items *) RMI$_RESERVEDEXT298 = 21625; (* Reserved EXE items *) RMI$_RESERVEDEXT299 = 21626; (* Reserved EXE items *) RMI$_RESERVEDEXT300 = 21627; (* Reserved EXE items *) RMI$_LASTEX2 = 21628; (* Last item in the exec writable table *) (* *) (* Add new data items specific to MONITOR (not collected by the RMI on a per *) (* item basis) above this point. *) (* *) CONST RMI$_tablesize = 1148; (* *) (* End of MONITOR specific data items. *) (* *) TYPE rmi$scs_offsets = RECORD (* SCS class information *) RMI$q_scs_nodename : $QUAD; (* System node name *) RMI$l_scs_dgsent : INTEGER; (* Application datagrams sent *) RMI$l_scs_dgrcvd : INTEGER; (* Application datagrams received *) RMI$l_scs_dgdiscard : INTEGER; (* Application datagrams discarded *) RMI$l_scs_msgsent : INTEGER; (* Application messages sent *) RMI$l_scs_msgrcvd : INTEGER; (* Application messages received *) RMI$l_scs_snddats : INTEGER; (* Block send datas initiated *) RMI$l_scs_kbytsent : INTEGER; (* Kbytes sent via send datas *) RMI$l_scs_reqdats : INTEGER; (* Block request datas initiated *) RMI$l_scs_kbytreqd : INTEGER; (* Kbytes received via request datas *) RMI$l_scs_kbytmapd : INTEGER; (* Kbytes mapped for block transfers *) RMI$l_scs_qcr_cnt : INTEGER; (* Times connection queued for send credit *) RMI$l_scs_qbdt_cnt : INTEGER; (* Times connection queued for buffer descriptor *) END; CONST RMI$c_scs_minsize = 56; (* Size of one collection block for scs class *) TYPE rmi$disk_offsets = RECORD (* DISK class information for *) (* current revision level *) RMI$w_disk_alloclass : $WORD; (* Allocation class *) RMI$l_disk_devname : INTEGER; (* Device name *) RMI$w_disk_unitnum : $WORD; (* Unit number *) RMI$b_disk_flags : $BYTE; (* Flags byte (low bit indicates served disk *) RMI$q_disk_nodename : $QUAD; (* Nodename *) RMI$q_disk_volnamel : $QUAD; (* Volume name (low) *) RMI$l_disk_volnameh : INTEGER; (* Volume name (high) *) RMI$l_disk_optcnt : INTEGER; (* Operation count *) RMI$l_disk_qcount : INTEGER; (* Queue length accumulator *) END; CONST RMI$c_disk_minsize = 37; (* Size of one block *) TYPE rmi$disk_offsets_rev4 = RECORD (* DISK class information *) (* for "revision level 4" *) RMI$b_disk_alloclass_rev4 : $BYTE; (* Allocation class *) RMI$l_disk_devname_rev4 : INTEGER; (* Device name *) RMI$w_disk_unitnum_rev4 : $WORD; (* Unit number *) RMI$b_disk_flags_rev4 : $BYTE; (* Flags byte (low bit indicates served disk *) RMI$q_disk_nodename_rev4 : $QUAD; (* Nodename *) RMI$q_disk_volnamel_rev4 : $QUAD; (* Volume name (low) *) RMI$l_disk_volnameh_rev4 : INTEGER; (* Volume name (high) *) RMI$l_disk_optcnt_rev4 : INTEGER; (* Operation count *) RMI$l_disk_qcount_rev4 : INTEGER; (* Queue length accumulator *) END; CONST RMI$c_disk_minsize_rev4 = 36; (* Size of one block *) TYPE rmi$proc_class = RECORD (* PROCESSES Class Data Block *) RMI$l_proc_ipid : INTEGER; (* Internal PID *) RMI$l_proc_uic : INTEGER; (* UIC (Member is low-order word) *) RMI$w_proc_state : $WORD; (* State value *) RMI$b_proc_pri : $BYTE; (* Priority (negative value) *) RMI$o_proc_lname : $OCTA; (* Process name (counted string) *) RMI$l_proc_gpgcnt : INTEGER; (* Global page count *) RMI$l_proc_ppgcnt : INTEGER; (* Process page count *) RMI$l_proc_sts : INTEGER; (* PCB Status Vector *) (* (PCB$V_RES bit clear => swapped out) *) RMI$l_proc_diocnt : INTEGER; (* Direct I/O count *) RMI$l_proc_pageflts : INTEGER; (* Page fault count *) RMI$l_proc_cputim : INTEGER; (* Accumulated CPU time (in ticks) *) RMI$l_proc_biocnt : INTEGER; (* Buffered I/O count *) RMI$l_proc_epid : INTEGER; (* Extended PID *) RMI$l_proc_efwm : INTEGER; (* Event flag wait mask (for MWAITs) *) RMI$l_proc_rbstran : INTEGER; (* Real balance slot transitions *) (* Size of process data block *) END; CONST RMI$c_proc_minsize = 67; (*** MODULE $REGDEF ***) (* *) (* +===================================================================+ *) (* | *) (* | REG - Registry system service ($REGISTRY) definition *) (* | *) (* +===================================================================+ *) (* *) (* +-------------------------------------------------------------------+ *) (* | Function codes *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$FC_CLOSE_KEY = 1; (* Releases the resources for a given key *) REG$FC_CREATE_KEY = 2; (* Either creates a specified key or opens it if it already exists *) REG$FC_DELETE_KEY = 3; (* Removes a specified key from the registry *) REG$FC_DELETE_VALUE = 4; (* Deletes the specified value from a given key *) REG$FC_ENUM_KEY = 5; (* Retrieves information about a subkey *) REG$FC_ENUM_VALUE = 6; (* Retrieves information about a value *) REG$FC_FLUSH_KEY = 7; (* Write all the information of a specified key to disk *) REG$FC_LOAD_KEY = 8; (* Create a subkey and store information from a given file *) REG$FC_MODIFY_KEY = 9; (* Modifies information about a specified key *) REG$FC_MODIFY_TREE_KEY = 10; (* Modifies information about a specified key and all its subkeys *) REG$FC_NOTIFY_CHANGE_KEY_VALUE = 11; (* Notifies the calling process when a specified key has changed *) REG$FC_OPEN_KEY = 12; (* Opens a specified key *) REG$FC_QUERY_KEY = 13; (* Retrieves information about a specified key *) REG$FC_QUERY_VALUE = 14; (* Retrieves information about a specified value *) REG$FC_REPLACE_KEY = 15; (* Replaces a key and all its subkeys with information in a specified file *) REG$FC_RESTORE_KEY = 16; (* Restores a key from a specified file *) REG$FC_SAVE_KEY = 17; (* Saves a key and its subkeys to a specified file *) REG$FC_SEARCH_TREE_DATA = 18; (* Scan a key and its subkeys for a given data component *) REG$FC_SEARCH_TREE_KEY = 19; (* Scan a key and its subkeys for a given subkey *) REG$FC_SEARCH_TREE_VALUE = 20; (* Scan a key and its subkeys for a given value *) REG$FC_SET_VALUE = 21; (* Sets value infornation *) REG$FC_UNLOAD_KEY = 22; (* Removes a key tree form the registry *) REG$FC_GET_KEY_SECURITY = 23; (* Retrieves a key security profile *) REG$FC_SET_KEY_SECURITY = 24; (* Sets a key security profile *) REG$FC_GET_PERFORMANCE = 25; (* Retrieves performance information *) REG$FC_GET_FILE_INFO = 26; (* Retrieves file statistics *) REG$FC_GET_FILE_UPDATE = 27; (* Retrieves segment allocation information *) REG$FC_CREATE_DATABASE = 28; (* Creates the registry database *) REG$FC_MAKE_SNAPSHOT = 29; (* Take a snpashot of the Registry database *) REG$FC_ARCHIVE = 30; (* Archive the registry database *) REG$FC_LAST = 31; (* Always last *) (* *) (* +-------------------------------------------------------------------+ *) (* | Item Code Modifiers *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$M_UNICODE_STRING = 8192; (* 0x2000 string is Unicode *) (* *) (* +-------------------------------------------------------------------+ *) (* | Item Codes *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$_TERMINATOR = 0; (* network packet terminator *) REG$_SEPARATOR = 1; (* item code list seperator *) REG$_SECPROFILE = 514; (* security profile *) REG$_REQUEST = 515; (* TLV of item code TLVs (request) *) REG$_ACMODE = 1284; (* access mode *) REG$_ACTIONCODE = 1285; (* action code for performance & space *) REG$_CACHEACTION = 1286; (* cache action (thru/behind ) *) REG$_CANCELNOTIFICATION = 519; (* Cancel notify key change notify *) REG$_CLASSNAME = 264; (* class name *) REG$_CLASSNAMEMAX = 1289; (* longest class name length *) REG$_CLASSNAMESIZE = 1290; (* destination's class name buffer size *) REG$_DATAFLAGS = 1547; (* data flags *) REG$_DATATYPE = 1292; (* data type *) REG$_DISPOSITION = 1293; (* createnewkey/openexistingkey *) REG$_FILEINFODATA = 526; (* File info data *) REG$_FILELOAD = 1807; (* OpenVMS file name to load *) REG$_FILESAVE = 1808; (* OpenVMS file name to save *) REG$_FILEUPDATEDATA = 529; (* File update data *) REG$_FLAGOPCODE = 1298; (* how data flags is used *) REG$_FLAGSUBKEY = 1299; (* report (sub)key changes *) REG$_KEYID = 1300; (* input key id in longword format *) REG$_KEYID_INTERNAL = 533; (* internal key id in UID/FSO/LH format *) REG$_KEYFLAGS = 1302; (* KEY flags *) REG$_KEYPATH = 279; (* Path to key object *) REG$_KEYRESULT = 1304; (* output key id in longword format *) REG$_KEYRESULT_INTERNAL = 537; (* internal key id in UID/FSO/LH format *) REG$_LASTWRITE = 1562; (* time key was last written *) REG$_LINKCOUNT = 1307; (* Count of links refer to item *) REG$_LINKPATH = 284; (* key path a key is linked to *) REG$_LINKPATHSIZE = 1309; (* destination's link path buffer size *) REG$_LINKTYPE = 1310; (* Link type (logical/physical) *) REG$_LOCK = 1311; (* what lock on open/create key *) REG$_NEWNAME = 288; (* new name of a key create/rename *) REG$_NOTIFYFILTER = 1313; (* which key changes to reported *) REG$_PATHBUFFER = 546; (* set of paths separated by null byte *) REG$_PERFORMANCEDATA = 547; (* Performance data *) REG$_REQLENGTH = 1316; (* required buffer size *) REG$_RETURNSTATUS = 1317; (* return status for a given operation *) REG$_SECACCESS = 1318; (* security access for a new key *) REG$_SECONDSTATUS = 1319; (* secondary status for a given operation *) REG$_SECURITYPOLICY = 1320; (* Security policy to enforce for a key *) REG$_SEGMENTNUMBER = 1321; (* Segment Number for locating space info *) REG$_SNAPSHOTDESTINATION = 1834; (* Snapshot destination directory *) REG$_SNAPSHOTVERSIONS = 1323; (* Snapshot versions to maintain *) REG$_SUBKEYINDEX = 1324; (* Index of the subkey to retrieve *) REG$_SUBKEYNAME = 301; (* name of a subkey *) REG$_SUBKEYNAMEMAX = 1326; (* longest subkey name for a given key *) REG$_SUBKEYNAMESIZE = 1327; (* destination's subkey name buffer size *) REG$_SUBKEYSNUMBER = 1328; (* Number of subkeys in a given key *) REG$_SECURITYINFORMATION = 1329; (* NT Security information *) REG$_SECURITYDESCRIPTOR = 562; (* NT Security descriptor *) REG$_VALUEINDEX = 1331; (* index of the value to retrieve *) REG$_VALUEDATA = 564; (* value data component *) REG$_VALUEDATAMAX = 1333; (* longest value data for a given key *) REG$_VALUEDATASIZE = 1334; (* destination's value data buffer size *) REG$_VALUENAME = 311; (* specifies the name of a value *) REG$_VALUENAMEMAX = 1336; (* longest value name for a given key *) REG$_VALUENAMESIZE = 1337; (* destination's value name buffer size *) REG$_VALUENUMBER = 1338; (* number of values in a given key *) REG$_VOLATILE = 1339; (* Identifies volatility of an object *) REG$_WILDASTERISK = 316; (* char to replace asterisk wildcard *) REG$_WILDPERCENT = 317; (* char to replace percent wildcard *) REG$_WILDPERIODS = 318; (* char to replace periods wildcard *) REG$_INSTRUMENTFILE = 575; (* unknown *) REG$_INSTRUMENTKEY = 576; (* unknown *) REG$_INSTRUMENTDATA = 577; (* unknown *) REG$_FILENAME = 1858; (* file requested for space monitoring *) REG$_COUNTER = 1347; (* a counter index *) REG$_SECDESCRIPTORLEN = 1348; (* Length of security descriptor *) REG$_SECDESCLEN_INTERNAL = 1349; (* Internal length of security descriptor *) REG$_VALUEDATASIZE_INTERNAL = 1350; (* Internal dest value data buffer size *) REG$_SAMDESIRED = 1351; (* SamDesired - for AS & Bristol only *) REG$_DATABASE_VERSION = 1352; (* Database version for Create Database *) REG$_LAST = 73; (* Always last *) (* *) (* +-------------------------------------------------------------------+ *) (* | Item Code Values *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$K_NONE = 0; (* The item is not volatile *) REG$K_CLUSTER = 1; (* The item is removed when the cluster reboots *) REG$K_SYSTEM = 2; (* The item is removed when the system reboots *) REG$K_PROCESS = 3; (* The item is removed when the creating process terminates *) REG$K_IMAGE = 4; (* The item is removes when the creating image terminates *) REG$K_WRITEBEHIND = 5; (* The information on the given object can be written to disk at a later time *) REG$K_WRITETHRU = 6; (* The information on the given object must be written to disk immediately *) REG$K_CREATENEWKEY = 7; (* Created a new key *) REG$K_OPENEXISTINGKEY = 8; (* Opened an existing key *) REG$K_POLICY_OPENVMS = 9; (* Access is required to all keys in the key path *) REG$K_POLICY_NT_40 = 10; (* Access is required to the first key and the requested key *) REG$K_INTERNAL = 11; (* *) REG$K_HARDLINK = 12; (* Hard (physical) link *) REG$K_SYMBOLICLINK = 13; (* Symbolic (logical) link *) REG$K_BINARY = 14; (* Binary data *) REG$K_DWORD = 15; (* A 32 bit number *) REG$K_DWLITTLEENDIAN = 16; (* A 32 bit number in little endian format *) REG$K_DWBIGENDIAN = 17; (* A 32 bit number in bi endian format *) REG$K_EXPAND_SZ = 18; (* A string of ISO-1 Latin characters containing environment variables *) REG$K_LINK = 19; (* A link to another value *) REG$K_MULTI_SZ = 20; (* A concatenated array of REG$K_SZ strings *) REG$K_QWORD = 21; (* A 64 bit number *) REG$K_RESOURCELIST = 22; (* A device driver resource list *) REG$K_SZ = 23; (* A null terminated string *) REG$K_START_FILE = 24; (* *) REG$K_START_PERF = 25; (* *) REG$K_STOP_FILE = 26; (* *) REG$K_STOP_PERF = 27; (* *) REG$K_ZERO_FILE = 28; (* *) REG$K_ZERO_PERF = 29; (* *) REG$K_SHOW_CTR_FILE = 30; (* *) REG$K_SHOW_CTR_PERF = 31; (* *) REG$K_SHOW_FILE = 32; (* *) REG$K_NORMAL = 33; (* String size <= 8K *) REG$K_LARGE = 34; (* String size > 8K *) REG$K_EXACTMATCH = 35; (* *) REG$K_INCLUDE = 36; (* *) REG$K_EXCLUDE = 37; (* *) REG$K_ANY = 38; (* *) REG$K_NOTANY = 39; (* *) (* *) (* +-------------------------------------------------------------------+ *) (* | Function Code Modifiers *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$M_FC = 1023; REG$M_CASE_SENSITIVE = 1024; REG$M_DISABLE_WILDCARDS = 2048; REG$M_IGNORE_LINKS = 4096; REG$M_NOW = 8192; REG$M_NOWAIT = 16384; REG$M_UNICODE_VALUES = 32768; REG$M_BYPASS = 65536; REG$M_INTERNAL = 131072; TYPE REG$TYPE = RECORD CASE INTEGER OF 1: (REG$R_FC_MODIFIERS : [BYTE(3)] RECORD END; ); 2: (REG$V_FC : [POS(0)] $BIT10; REG$V_CASE_SENSITIVE : [POS(10)] $BOOL; (* Indicates that the case sensitivity of keys be uses for matches *) REG$V_DISABLE_WILDCARDS : [POS(11)] $BOOL; (* Indicates that wildcards characters should be traited as normal characters *) REG$V_IGNORE_LINKS : [POS(12)] $BOOL; (* Indicates that symbolic links should not be followed *) REG$V_NOW : [POS(13)] $BOOL; (* Indicates whether or not an operation should be written to disk immediately *) REG$V_NOWAIT : [POS(14)] $BOOL; (* Indicates that operation should be aborted rather than stalled *) REG$V_UNICODE_VALUES : [POS(15)] $BOOL; (* Indicates that data is an UNICODE string *) REG$V_BYPASS : [POS(16)] $BOOL; (* *) REG$V_INTERNAL : [POS(17)] $BOOL; (* Indicates internal operation *) ) END; (* *) (* +-------------------------------------------------------------------+ *) (* | Key Change Notify Flags *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$M_CHANGENAME = 1; REG$M_CHANGEATTRIBUTES = 2; REG$M_CHANGELASTSET = 4; REG$M_CHANGESECURITY = 8; TYPE KEYCHANGE$TYPE = RECORD CASE INTEGER OF 1: (REG$R_KEYCHANGE_FLAGS : [BYTE(1)] RECORD END; ); 2: (REG$V_CHANGENAME : [POS(0)] $BOOL; (* A key name change, includes creation and deletion of its subkeys. *) REG$V_CHANGEATTRIBUTES : [POS(1)] $BOOL; (* Attribute change of key or subkeys *) REG$V_CHANGELASTSET : [POS(2)] $BOOL; (* Last write time change of key or subkeys *) REG$V_CHANGESECURITY : [POS(3)] $BOOL; (* Security descriptor change of key or subkeys *) ) END; (* *) (* +-------------------------------------------------------------------+ *) (* | Security access Mask *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$M_ALLACCESS = 1; REG$M_CREATELINK = 2; REG$M_CREATESUBKEY = 4; REG$M_ENUMSUBKEYS = 8; REG$M_EXECUTE = 16; REG$M_NOTIFY = 32; REG$M_QUERYVALUE = 64; REG$M_READ = 128; REG$M_SETVALUE = 256; REG$M_WRITE = 512; REG$M_DELETEACCESS = 1024; REG$M_READCONTROL = 2048; REG$M_WRITEDAC = 4096; REG$M_WRITEOWNER = 8192; REG$M_SYNCHRONIZE = 16384; REG$M_ACCESSSYSTEMSECURITY = 32768; REG$M_MAXIMUMALLOWED = 65536; REG$M_GENERICALL = 131072; REG$M_GENERICEXECUTE = 262144; REG$M_GENERICWRITE = 524288; REG$M_GENERICREAD = 1048576; TYPE SECACCESS$TYPE = RECORD CASE INTEGER OF 1: (REG$R_SECACCESS_MASK : [BYTE(3)] RECORD END; ); 2: ( (* NT equivalent *) REG$V_ALLACCESS : [POS(0)] $BOOL; (* KEY_ALL_ACCESS *) REG$V_CREATELINK : [POS(1)] $BOOL; (* KEY_CREATE_LINK *) REG$V_CREATESUBKEY : [POS(2)] $BOOL; (* KEY_CREATE_SUB_KEY *) REG$V_ENUMSUBKEYS : [POS(3)] $BOOL; (* KEY_ENUMERATE_SUB_KEYS *) REG$V_EXECUTE : [POS(4)] $BOOL; (* KEY_EXECUTE *) REG$V_NOTIFY : [POS(5)] $BOOL; (* KEY_NOTIFY *) REG$V_QUERYVALUE : [POS(6)] $BOOL; (* KEY_QUERY_VALUE *) REG$V_READ : [POS(7)] $BOOL; (* READ_CONTROL|KEY_QUERY_VALUE|KEY_ENUMERATE_SUB_KEYS|KEY_NOTIFY *) REG$V_SETVALUE : [POS(8)] $BOOL; (* KEY_SET_VALUE *) REG$V_WRITE : [POS(9)] $BOOL; (* READ_CONTROL|KEY_SET_VALUE|KEY_CREATE_SUB_KEY *) REG$V_DELETEACCESS : [POS(10)] $BOOL; (* DELETE_ACCESS *) REG$V_READCONTROL : [POS(11)] $BOOL; (* READ_CONTROL *) REG$V_WRITEDAC : [POS(12)] $BOOL; (* WRITE_DAC *) REG$V_WRITEOWNER : [POS(13)] $BOOL; (* WRITE_OWNER *) REG$V_SYNCHRONIZE : [POS(14)] $BOOL; (* SYNCHRONIZE *) REG$V_ACCESSSYSTEMSECURITY : [POS(15)] $BOOL; (* ACCESS_SYSTEM_SECURITY *) REG$V_MAXIMUMALLOWED : [POS(16)] $BOOL; (* MAXIMUM_ALLOWED *) REG$V_GENERICALL : [POS(17)] $BOOL; (* GENERIC_ALL *) REG$V_GENERICEXECUTE : [POS(18)] $BOOL; (* GENERIC_EXECUTE *) REG$V_GENERICWRITE : [POS(19)] $BOOL; (* GENERIC_WRITE *) REG$V_GENERICREAD : [POS(20)] $BOOL; (* GENERIC_READ *) ) END; (* *) (* +-------------------------------------------------------------------+ *) (* | HKEY Definitions *) (* +-------------------------------------------------------------------+ *) (* *) CONST REG$_HKEY_NONE = 0; (* %x00000000 *) REG$_HKEY_CLASSES_ROOT = -2147483648; (* %x80000000 *) REG$_HKEY_CURRENT_USER = -2147483647; (* %x80000001 *) REG$_HKEY_LOCAL_MACHINE = -2147483646; (* %x80000002 *) REG$_HKEY_USERS = -2147483645; (* %x80000003 *) REG$_HKEY_PERFORMANCE_DATA = -2147483644; (* %x80000004 *) REG$_HKEY_LAST_ROOT_KEY = 5; (* *) (*** MODULE $RNHBLKDEF ***) CONST rnhblk$k_LENGTH = 20; (*length of overhead *) rnhblk$c_LENGTH = 20; (*length of overhead *) TYPE RNHBLK$TYPE = RECORD RNHBLK$L_FLNK : UNSIGNED; (*forward link *) RNHBLK$L_HANDLER : UNSIGNED; (*handler address *) RNHBLK$L_FILL_1 : INTEGER; (*reserved *) RNHBLK$L_ARGCNT : UNSIGNED; (*argument count *) RNHBLK$L_EVENT : UNSIGNED; (*address of the event code *) END; (*** MODULE $RSDMDEF ***) CONST RSDM$_JOIN_SYSTEM = 1; (* System RD Join function *) RSDM$_JOIN_DEFAULT = 2; (* Process default RD Join function *) RSDM$_JOIN_DOMAIN = 3; (* Other RD Join function *) RSDM$_LEAVE = 4; (* Leave RD function *) RSDM$K_SYSTEM_RSDM_ID = 1; (* System RSDM_ID *) CONST RSDM$K_PROCESS_RSDM_ID = 2; (* Process RSDM_ID *) (*+ *) (* RSDM$ bitfields *) (*- *) CONST RSDM$M_READ = 1; RSDM$M_WRITE = 2; RSDM$M_LOCK = 4; TYPE RSDMBITS$TYPE = RECORD CASE INTEGER OF 1: (RSDM$R_FILL_10_ : [BYTE(4)] RECORD END; ); 2: (); 3: (); 4: (RSDM$V_READ : [POS(0)] $BOOL; (* Read access *) RSDM$V_WRITE : [POS(1)] $BOOL; (* Write access *) RSDM$V_LOCK : [POS(2)] $BOOL; (* Lock access *) ) END; (*** MODULE $SBKDEF ***) (*+ *) (* *) (* Statistics block. This block is used to report various data regarding *) (* an open file to the requesting program. *) (* *) (*- *) (* *) (* The first two longwords are presented in inverted form for compatibility *) (* with the old RSX-11 statistics block. *) (* *) CONST SBK$K_LENGTH = 32; SBK$C_LENGTH = 32; TYPE SBK$TYPE = RECORD CASE INTEGER OF 1: (SBK$R_STLBN_OVERLAY : [BYTE(4)] RECORD END; SBK$R_FILESIZE_OVERLAY : [BYTE(4)] RECORD END; SBK$B_ACNT : $UBYTE; (* low byte of access count *) SBK$B_LCNT : $UBYTE; (* low byte of lock count *) SBK$L_FCB : UNSIGNED; (* address of file control block *) SBKDEF$$_FILL_1 : $WORD; (* spare *) SBK$W_ACNT : $UWORD; (* access count *) SBK$W_LCNT : $UWORD; (* lock count (against writers) *) SBK$W_WCNT : $UWORD; (* writer count *) SBK$W_TCNT : $UWORD; (* truncate lock count *) SBK$L_READS : UNSIGNED; (* count of reads executed on channel *) SBK$L_WRITES : UNSIGNED; (* count of writes executed on channel *) ); 2: (SBK$L_STLBN : [POS(0)] UNSIGNED; (* starting LBN if contiguous *) SBK$L_FILESIZE : [POS(32)] UNSIGNED; (* file size *) ); 3: (); 4: (SBK$W_STLBNH : [POS(0)] $UWORD; (* high order word *) SBK$W_STLBNL : [POS(16)] $UWORD; (* low order word *) SBK$W_FILESIZH : [POS(32)] $UWORD; (* high order word *) SBK$W_FILESIZL : [POS(48)] $UWORD; (* low order word *) (* *) (* The following two fields are for RSX-11 compatibility *) (* *) ) END; (*** MODULE $S2DGBDEF ***) CONST S2DGB$K_OP_XCDB32 = 1; (* Diagnose opcode for 32-bit buffers *) S2DGB$K_OP_XCDB64 = 2; (* Diagnose opcode for 64-bit buffers *) S2DGB$M_READ = 1; S2DGB$M_DISCPRIV = 2; S2DGB$M_SYNCHRONOUS = 4; S2DGB$M_OBSOLETE1 = 8; S2DGB$M_TAGGED_REQ = 16; S2DGB$M_TAG = 224; S2DGB$K_TAG_POSITION = 5; (* Bit offset of TAG bitfield *) S2DGB$K_SIMPLE = 0; (* Simple queue tag *) S2DGB$K_ORDERED = 1; (* Ordered queue tag *) S2DGB$K_EXPRESS = 2; (* Head of Queue queue tag *) S2DGB$M_AUTOSENSE = 256; S2DGB$M_EXT_LUN = 512; S2DGB$K_XCDB32_LENGTH = 60; (* Diagnose buffer length, 32-bit buffers *) S2DGB$K_XCDB64_LENGTH = 60; (* Diagnose buffer length, 64-bit buffers *) S2DGB$K_XCDB_MIN_LENGTH = 60; (* Minimum s2gdb length *) S2DGB$K_EXT_XCDB_MIN_LENGTH = 68; (* Length w/external LUN *) TYPE S2DGB$TYPE = RECORD CASE INTEGER OF 1: (S2DGB$L_OPCODE : UNSIGNED; (* Diagnose opcode *) S2DGB$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; S2DGB$R_REMAINING_OVERLAY : [BYTE(52)] RECORD END; S2DGB$Q_EXT_LUN : $UQUAD; (* External LUN *) S2DGB$B_FILL_16_ : ARRAY [0..3] OF $BYTE; ); 2: (); 3: (S2DGB$L_FLAGS : [POS(32)] UNSIGNED; (* Fields in this structure are valid if and *) (* only if s2dgb$l_opcode = S2DGB$K_OP_XCDB32 *) S2DGB$L_32CDBADDR : [POS(64)] UNSIGNED; (* 32-bit addr of Cmd Desc Blk *) S2DGB$L_32CDBLEN : [POS(96)] UNSIGNED; (* Length of CDB in bytes *) S2DGB$L_32DATADDR : [POS(128)] UNSIGNED; (* 32-bit addr of DATAIN or DATAOUT address *) S2DGB$L_32DATLEN : [POS(160)] UNSIGNED; (* Length of DATAIN or DATAOUT buffer in bytes *) S2DGB$L_32PADCNT : [POS(192)] UNSIGNED; (* Number of pad bytes required. *) S2DGB$L_32PHSTMO : [POS(224)] UNSIGNED; (* Phase timeout value in seconds *) S2DGB$L_32DSCTMO : [POS(256)] UNSIGNED; (* Disconnect timeout value in seconds *) S2DGB$L_32SENSEADDR : [POS(288)] UNSIGNED; (* 32-bit addr of Autosense buffer *) S2DGB$L_32SENSELEN : [POS(320)] UNSIGNED; (* Length of Autosense buffer in bytes *) S2DGB$L_RESERVED1 : [POS(352)] UNSIGNED; (* Reserved field *) S2DGB$L_RESERVED2 : [POS(384)] UNSIGNED; (* Reserved field *) S2DGB$L_RESERVED3 : [POS(416)] UNSIGNED; (* Reserved field *) S2DGB$L_RESERVED4 : [POS(448)] UNSIGNED; (* Reserved field *) ); 4: (); 5: (S2DGB$V_READ : [POS(32)] $BOOL; (* Read operation *) S2DGB$V_DISCPRIV : [POS(33)] $BOOL; (* DiscPriv val in Identigy msg *) S2DGB$V_SYNCHRONOUS : [POS(34)] $BOOL; (* Synchronous xfers permitted *) S2DGB$V_OBSOLETE1 : [POS(35)] $BOOL; (* (Ignored) *) S2DGB$V_TAGGED_REQ : [POS(36)] $BOOL; (* Use TCQ *) S2DGB$V_TAG : [POS(37)] $BIT3; (* Queue tag value type *) S2DGB$V_AUTOSENSE : [POS(40)] $BOOL; (* Return Autosense data *) S2DGB$V_EXT_LUN : [POS(41)] $BOOL; (* Use externally-supplied LUN *) (* Fields in this structure are valid if and *) (* only if s2dgb$l_opcode = S2DGB$K_OP_XCDB64 *) S2DGB$PQ_64CDBADDR : [POS(64)] $QUAD; (* 64-bit addr of Cmd Desc Blk *) S2DGB$PQ_64DATADDR : [POS(128)] $QUAD; (* 64-bit addr of DATAIN or DATAOUT address *) S2DGB$PQ_64SENSEADDR : [POS(192)] $QUAD; (* 64-bit addr of Autosense buffer *) S2DGB$L_64CDBLEN : [POS(256)] UNSIGNED; (* Length of CDB in bytes *) S2DGB$L_64DATLEN : [POS(288)] UNSIGNED; (* Length of DATAIN or DATAOUT buffer in bytes *) S2DGB$L_64SENSELEN : [POS(320)] UNSIGNED; (* Length of Autosense buffer in bytes *) S2DGB$L_64PADCNT : [POS(352)] UNSIGNED; (* Number of pad bytes required. *) S2DGB$L_64PHSTMO : [POS(384)] UNSIGNED; (* Phase timeout value in seconds *) S2DGB$L_64DSCTMO : [POS(416)] UNSIGNED; (* Disconnect timeout value in seconds *) S2DGB$L_RESERVED_1 : [POS(448)] UNSIGNED; (* Reserved field *) ) END; (*** MODULE $SDBDEF ***) (*+ *) (* SDB Function Codes *) (* *) (*- *) (*BASE AND OFFSET OF 1 *) CONST SDB$C_MODE_KERNEL = 0; SDB$C_MODE_EXEC = 1; SDB$C_MODE_SUPER = 2; SDB$C_MODE_USER = 3; SDB$M_MODE_KERNEL = 1; SDB$M_MODE_EXEC = 2; SDB$M_MODE_SUPER = 4; SDB$M_MODE_USER = 8; SDB$C_FUNC_GET_DSDB = 0; SDB$C_FUNC_FREE_DSDB = 1; SDB$C_FUNC_GET_ISDB = 2; SDB$C_FUNC_FREE_ISDB = 3; SDB$C_FUNC_SET_SDB = 4; SDB$M_ACC_WRITE = 1; SDB$M_ACC_READ = 2; SDB$V_ACC_WRITE = 0; SDB$V_ACC_READ = 1; (*** MODULE $SDDEF ***) (* *) (* item codes for sd$xxx calls *) (* *) CONST SD$_MAJOR_ID = 1; (* longword (major ODS version number) *) SD$_MINOR_ID = 2; (* longword (minor ODS version number) *) SD$_POOL_ID = 3; (* UID (16 bytes) (Pool identifier) *) SD$_CREATION_DATE = 4; (* Date/time (8 bytes) (Date pool was created) *) SD$_MODIFIED_DATE = 5; (* Date/time (8 bytes) (Date pool membership was last changed) *) SD$_SEGMENT_SIZE = 6; (* longword (Size of segment in pool # blocks) *) SD$_MAX_UNITS = 7; (* longword (Maximum # members allowed in pool) *) SD$_UNIT_COUNT = 8; (* longword (Number of members currently in pool) *) SD$_POOL_OPTIONS = 9; (* longword (Pool flags) *) SD$_UNIT_ID = 10; (* UID (16 bytes) (Identifier of storage unit) *) SD$_UNIT_NUMBER = 11; (* longword (Storage unit number) *) SD$_UNIT_OPTIONS = 12; (* longword (Storage unit flags) *) SD$_SEQUENCE_NUMBER = 13; (* longword (Homeblock sequence number) *) SD$_HIGHEST_UNIT = 14; (* longword (Number of highest member in pool) *) SD$_LOWEST_UNIT = 15; (* longword (Number of lowest member in pool) *) SD$_TOTAL_SEGMENTS = 16; (* longword (Total # of segment in pool) *) SD$_FREE_SEGMENTS = 17; (* longword (Total # of free segments in pool) *) SD$_MAX_FAMILY = 18; (* longword (Maximum # of families allowed in pool) *) SD$_MAX_DISK = 19; (* longword (Maximum # members in a family) *) SD$_META_LBN = 20; (* longword (Start of SD metadata on member) *) SD$_META_SIZE = 21; (* longword (Size of SD metadata on member) *) SD$_DATA_LBN = 22; (* longword (Start of pool space on member) *) SD$_DATA_SIZE = 23; (* longword (Size of pool space on member) *) SD$_POOL_DEVICE = 24; (* character string (Name of pool device) *) SD$_FAMILY_NUMBER = 25; (* longword (Familiy number of a SnapDisk) *) SD$_MEMBER_NUMBER = 26; (* longword (Number within family of a SnapDisk) *) SD$_DISK_NAME = 27; (* character string (Name of SnapDisk) *) SD$_DISK_CAPACITY = 28; (* longword (Size/capacity of a SnapDisk) *) SD$_DELSPACE = 29; (* longword (# segments that can be recovered by deleting SnapDisk) *) SD$_DISK_DEVICE = 30; (* character string (Name of device as bound to OpenVMS) *) SD$_BACKUP_DATE = 31; (* Date/time (8 bytes) (Date that recorded snap was last created) *) SD$_READS = 32; (* longword (Number of read received from user) *) SD$_WRITES = 33; (* longword (Number of writes received from user) *) SD$_SPLIT_READS = 34; (* longword (Number of reads that were split by SD) *) SD$_SPLIT_WRITES = 35; (* longword (Number of writes that were split by SD) *) SD$_DISK_READS = 36; (* longword (Number of reads to underlying pool units) *) SD$_DISK_WRITES = 37; (* longword (Number of writes to underlying pool units) *) SD$_COPY_OUTS = 38; (* longword (Number of copy-on-write operations) *) SD$_CONVERT_CANCELS = 39; (* longword (Number of cancelled lock requests) *) SD$_POOL_FULL_STALLS = 40; (* longword (NUmber of requests stalled by pool full) *) SD$_SPARE1 = 41; (* longword *) SD$_SPARE2 = 42; (* longword *) SD$_SPARE3 = 43; (* longword *) SD$_SPARE4 = 44; (* longword *) SD$_SPARE5 = 45; (* longword *) SD$_SPARE6 = 46; (* longword *) SD$_SPARE7 = 47; (* longword *) SD$_SPARE8 = 48; (* longword *) SD$_COPY_STATS = 49; (* Array of SD$K_COPYCOUNTERS longwords *) SD$_DEV_LOCKID = 50; (* longword (LockId of device name consistancy lock) *) SD$_UID_LOCKID = 51; (* longword (LockId of UID name consistancy lock) *) SD$K_COPYCOUNTERS = 24; (* *) (* options and flags for RTL routines *) (* *) CONST SD$M_CONTAINER_DISK = 1; SD$M_CONVERTED_DISK = 2; (* *) (* Function codes for cluster-server requests *) (* *) CONST SD$K_CLU_BIND_POOL = 1; SD$K_CLU_BIND_DISK = 2; SD$K_CLU_UNBIND = 3; (* *) (* Define structures used by QIO interface to SD management functions *) (* *) (* ++ *) (* Device list *) (* *) (* This structure is used to pass information between *) (* the runtime library, the FDT routines and the start *) (* I/O routines *) (* -- *) TYPE SDDEVLIST$TYPE = RECORD sd$l_start_lbn : UNSIGNED; (* Starting LBN of data space *) sd$l_lbn_count : UNSIGNED; (* Size of data space *) sd$l_meta_lbn : UNSIGNED; (* Location of SnapDisk metadata *) sd$l_meta_count : UNSIGNED; (* Size of metadata area *) sd$ps_ucb : $DEFPTR; (* UCB of pool unit *) sd$l_name_length : UNSIGNED; (* Length of device name *) sd$t_name : ARRAY [1..64] OF CHAR; (* Device name *) END; (* *) (* SD Parameter list - This is used to pass Snapshot Services *) (* parameters/characteristics between the runtime library *) (* and the I/O functions *) (* *) CONST sd$m_stall = 1; sd$m_redundant = 2; sd$m_record = 4; sd$m_cluster = 8; sd$m_partial = 16; TYPE SDPARAMLIST$TYPE = RECORD CASE INTEGER OF 1: (sd$r_size_overlay : [BYTE(4)] RECORD END; sd$r_flags_overlay : [BYTE(4)] RECORD END; ); 2: (sd$l_segment_size : [POS(0)] UNSIGNED; (* Segment size for copy-on-write *) sd$l_flags : [POS(32)] UNSIGNED; (* Miscellaneous flags *) ); 3: (sd$l_disk_size : [POS(0)] UNSIGNED; (* Disk size for create/disk *) ); 4: (sd$v_stall : [POS(32)] $BOOL; (* Stall/Fail on pool full *) sd$v_redundant : [POS(33)] $BOOL; (* Use redundancy for SnapDisk metadata *) sd$v_record : [POS(34)] $BOOL; (* Record snapshot creation time *) sd$v_cluster : [POS(35)] $BOOL; (* Operation is cluster-wide *) sd$v_partial : [POS(36)] $BOOL; (* Partial bind on pool *) ) END; (* *) (* IOCTL function codes - miscellaneous functions *) (* *) CONST SD$K_GET_DISK = 1; SD$K_GET_STATS = 2; SD$K_GET_UNIT = 3; SD$K_POOL_DISK = 4; SD$K_POOL_INFO = 5; SD$K_POOL_UNIT = 6; SD$K_CLU_TEST = 7; SD$K_STORE_LOCKIDS = 8; SD$K_RETRIEVE_LOCKIDS = 9; SD$K_RETRIEVE_MEMBERLIST = 10; SD$K_SET_TRACE_LEVEL = 11; SD$K_GET_TRACE_LEVEL = 12; (* *) (* Define Snapshot Services runtime library functions *) (* *) (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$add_units POOL_DEVICE, UNIT_LIST *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Add additional storage units to an existing pool *) (* This function takes care of all the creation of container *) (* files etc. for the storage units being added. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of device to add members *) (* UNIT_LIST (IN) : Item List 3 containing Device list *) (* FLAGS (IN) : Indicates temporary or permanent pool member *) (* *) (* *) (* PRE-CONDITIONS: *) (* *) (* The set of devices must be mounted as Files-11 devices *) (* *) (* POST-CONDITIONS: *) (* *) (* The new storage units are added as new members to the pool. *) (* All current and new members are stamped with a new membership list *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$add_units ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_LIST : $DEFPTR; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Export a SnappyDisk from the pool as an OpenVMS device *) (* *) (* FORMAL PARAMETERS: *) (* *) (* DISK_DEVICE (IN) : Name of disk device to create *) (* POOL_DEVICE (IN) : Name of pool device to use *) (* DISK_NAME (IN) : Name of disk to export from pool *) (* FLAGS (IN) : Optional flags SD$M_CLUSTER *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool must be bound. *) (* The SnappyDisk name must exist in the pool. *) (* The SnappyDisk must not be bound to a device on another computer in the *) (* cluster. *) (* Another SnappyDisk must not be bound to the specified device on any *) (* computer in the cluster. *) (* *) (* POST-CONDITIONS: *) (* *) (* The SnappyDisk is exposed as an OpenVMS device *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$bind_disk ( DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; DISK_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Rebind a pool from a set of devices that have been *) (* previously created as a pool. *) (* This function takes care of all the location of container *) (* files, driver loading. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of device to create *) (* UNIT_LIST (IN) : Itemlist3 containing list of storage units *) (* FLAGS (IN) : Optional flags SD$M_CLUSTER *) (* *) (* PRE-CONDITIONS: *) (* *) (* The storage units must be mounted as Files-11 devices. *) (* The storage units must have been previously used to create a pool. *) (* The list of storage units must not include storage units in another *) (* pool. *) (* The list of storage units must not include a SnappyDisk bound to a *) (* device. *) (* *) (* POST-CONDITIONS: *) (* *) (* A pool is rebound and exported as the specified pool_device. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$bind_pool ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_LIST : $DEFPTR; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Create a SnappyDisk in a pool *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of pool device to use *) (* DISK_NAME (IN) : Name of SnappyDisk to create *) (* DISK_CAPACITY (IN) : Size in blocks of SnappyDisk to create *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool must be bound. *) (* The SnappyDisk name must not already exist in the pool. *) (* 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 *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$create_disk ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; DISK_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED DISK_CAPACITY : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Create a pool from a set of storage units. *) (* This function takes care of all the creation of container *) (* files and driver loading that needs to be done before calling *) (* the IO$_BIND function. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* UNIT_LIST (IN) : Item list 3 containing list of storage units *) (* SEGMENT_SIZE (IN) : Size of segments in pool (blocks) *) (* FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL *) (* *) (* PRE-CONDITIONS: *) (* *) (* The storage units must be initialised and mounted as Files-11 devices. *) (* The list of storage units must not include storage units in another *) (* pool. *) (* The list of storage units must not include a SnappyDisk bound to a *) (* device. *) (* *) (* POST-CONDITIONS: *) (* *) (* A new pool is created on the storage units. *) (* The storage units are stamped as belonging to the same pool. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$create_pool ( UNIT_LIST : $DEFPTR; %IMMED SEGMENT_SIZE : UNSIGNED; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$create_snap POOL_DEVICE, DISK_DEVICE, DISK_NAME, FLAGS *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Create a snap of an existing SnappyDisk *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of pool device to use *) (* DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis *) (* for snap *) (* DISK_NAME (IN) : Name of SnappyDisk to create *) (* FLAGS (IN) : Should we record time snap was taken *) (* for incremental backup purposes, SD$M_RECORD *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool must be bound *) (* The original SnappyDisk must be exported as a device *) (* *) (* POST-CONDITIONS: *) (* *) (* A new SnappyDisk is created in the pool. That SnappyDisk will be a snap *) (* of the original SnappyDisk specified in the call. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$create_snap ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; DISK_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$delete_disk POOL_DEVICE, DISK_NAME *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Delete a SnapDisk from a pool *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of pool device to use *) (* DISK_NAME (IN) : Name of SnappyDisk to delete *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool must be bound *) (* The SnappyDisk name must exist in the pool *) (* 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 *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$delete_disk ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; DISK_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$remove_units POOL_DEVICE, UNIT_LIST *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Removes members from a pool. *) (* If the members are successfully removed, the metadata files are *) (* removed from the devices. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of device to remove members *) (* UNIT_LIST (IN) : Item list 3 containing list of storage units *) (* *) (* PRE-CONDITIONS: *) (* *) (* The list of storage units must be part of the specified pool. *) (* The pool must contain enough free space to allow data on the outgoing *) (* storage units to be copied to other storage units in the pool. *) (* The list of storage units must not be the complete set of units in *) (* the pool. *) (* *) (* POST-CONDITIONS: *) (* *) (* The remaining members are updated with the new pool *) (* membership list. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$remove_units ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_LIST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$unbind VIRTUAL_DEVICE, FLAGS *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Unbind a pool or SnapDisk. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* VIRTUAL_DEVICE (IN) : Name of device to unbind *) (* FLAGS (IN) : Optional flags SD$M_CLUSTER *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool or SnappyDisk must be bound to the device on the local computer *) (* *) (* POST-CONDITIONS: *) (* *) (* The pool or SnappyDisk is unbound from the device *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$unbind ( VIRTUAL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* 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. *) (* NOTE: The itemlist must be zero terminated *) (* *) (* Valid item codes are: *) (* *) (* SD$_BACKUP_DATE *) (* SD$_CREATION_DATE *) (* SD$_DELSPACE *) (* SD$_DISK_CAPACITY *) (* SD$_DISK_DEVICE *) (* SD$_DISK_NAME *) (* SD$_FAMILY_NUMBER *) (* SD$_MEMBER_NUMBER *) (* SD$_POOL_DEVICE *) (* *) (* FORMAL PARAMETERS: *) (* *) (* DISK_DEVICE (IN) : Name of SnappyDisk device *) (* ITMLST (IN): Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* The device must be a SnappyDisk device *) (* *) (* POST-CONDITIONS: *) (* *) (* The information requested is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Member info returned *) (* SS$_ACCVIO - Parameters not accessible *) (* SS$_BADPARAM - One or more item codes are invalid *) (* SS$_IVBUFLEN - one or more buffer lengths are invalid *) (* SS$_IVDEVNAM - ucb is not that of a pool member *) (* SS$_NOTBOUND - the member is not bound into a pool *) (* SS$_SDDISABLED - Snap-capable disk not loaded *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_disk ( DISK_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* 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. *) (* NOTE: The itemlist must be zero terminated *) (* *) (* Valid item codes are: *) (* *) (* SD$_CREATION_DATE *) (* SD$_FREE_SEGMENTS *) (* SD$_HIGHEST_UNIT *) (* SD$_LOWEST_UNIT *) (* SD$_MAJOR_ID *) (* SD$_MAX_DISK *) (* SD$_MAX_FAMILY *) (* SD$_MAX_UNITS *) (* SD$_MINOR_ID *) (* SD$_MODIFIED_DATE *) (* SD$_POOL_ID *) (* SD$_POOL_OPTIONS *) (* SD$_SEGMENT_SIZE *) (* SD$_SEQUENCE_NUMBER *) (* SD$_TOTAL_SEGMENTS *) (* SD$_UNIT_COUNT *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of storage pool *) (* ITMLST (IN) : Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* A context must have been started with sd$get_pool_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The information requested is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Next member returned *) (* SS$_BADPARAM - One or more item codes are invalid *) (* SS$_IVBUFLEN - One or more buffer lengths are invalid *) (* SS$_SDDISABLED - Snap-capable disk not loaded *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_pool ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_pool_begin POOL_DEVICE, POOL_CONTEXT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to setup context to read SnapDisk pool *) (* parameters from a pool device. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE (IN) : Name of pool device to query *) (* POOL_CONTEXT (IN) : Address of context to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* The pool device must exist *) (* *) (* POST-CONDITIONS: *) (* *) (* A context is setup to allow sd$get_pool and sd$get_pooldevice *) (* to be called to return the pool parameters. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_pool_begin ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; POOL_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_pool_disk POOL_CONTEXT, ITMLST *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to return the information for the next SnappyDisk in the pool. *) (* *) (* For example: *) (* *) (* status = sd$get_pool_begin(raw_device, context) *) (* while (success(status)) *) (* status = sd$get_pool_disk(context, itmlst) *) (* status = sd$get_pool_end(context) *) (* *) (* Valid item code are: *) (* *) (* SD$_BACKUP_DATE *) (* SD$_CREATION_DATE *) (* SD$_DELSPACE *) (* SD$_DISK_CAPACITY *) (* SD$_DISK_DEVICE *) (* SD$_DISK_NAME *) (* SD$_FAMILY_NUMBER *) (* SD$_MEMBER_NUMBER *) (* SD$_POOL_DEVICE *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_CONTEXT (IN) : Address of pool context *) (* ITMLST (IN): Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* A context must have been started with sd$get_pool_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The next member is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Next member returned *) (* SS$_NOMOREDEV - No more diks in pool *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_pool_disk ( POOL_CONTEXT : $DEFPTR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_pool_end POOL_CONTEXT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to tidy up the context associated with a *) (* sd$get_pool_begin. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_CONTEXT (IN) : Address of context to delete *) (* *) (* PRE-CONDITIONS: *) (* *) (* A context must have been started with sd$get_pool_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The context is deleted *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_pool_end ( POOL_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_pool_unit POOL_CONTEXT, NEXT_UNIT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to return the next member device making up the pool. *) (* This routine is designed to be called in a loop to return *) (* all the members making up the pool. *) (* For example: *) (* *) (* 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-CONDITIONS: *) (* *) (* A context must have been started with sd$get_pool_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The next member is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Next member returned *) (* SS$_NOMOREDEV - No more devices *) (* SS$_BADPARAM - Invalid context *) (* SS$_SDDISABLED - Snap-capable disk not loaded *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_pool_unit ( POOL_CONTEXT : $DEFPTR; NEXT_UNIT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_raw_begin UNIT_DEVICE, UNIT_CONTEXT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to setup context to read SnappyDisk pool *) (* parameters from a raw (mounted but not bound) storage unit. *) (* *) (* FORMAL PARAMETERS: *) (* *) (* UNIT_DEVICE (IN) : Name of storage unit to query *) (* UNIT_CONTEXT (IN) : Address of context to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* The member device must be mounted but not bound *) (* *) (* POST-CONDITIONS: *) (* *) (* A context is setup to allow sd$get_raw_info and sd$get_unitdevice *) (* to be called to return pool parameters stored on the member. *) (* *) (* RETURN VALUE: *) (* *) (* Various statuses *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_raw_begin ( UNIT_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; UNIT_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_raw_end UNIT_CONTEXT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* 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 *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_raw_end ( UNIT_CONTEXT : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_raw_next UNIT_CONTEXT, NEXT_UNIT *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Routine to return the next member device making up the pool. *) (* This routine is designed to be called in a loop to return *) (* all the members in the pool making up the device. *) (* For example: *) (* *) (* status = sd$get_raw_begin(raw_device, context) *) (* while (success(status)) *) (* status = sd$get_raw_next(context, unit_device) *) (* status = sd$get_raw_end *) (* *) (* FORMAL PARAMETERS: *) (* *) (* UNIT_CONTEXT (IN) : Address of context *) (* NEXT_UNIT(OUT) : Address of descriptor to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* A context must have been started with sd$get_raw_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The next member is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Next member returned *) (* SS$_NOMOREDEV - No more devices *) (* *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_raw_next ( UNIT_CONTEXT : $DEFPTR; NEXT_UNIT : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* 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. *) (* NOTE: The itemlist must be zero terminated *) (* *) (* Valid item codes are: *) (* *) (* SD$_CREATION_DATE *) (* SD$_HIGHEST_UNIT *) (* SD$_LOWEST_UNIT *) (* SD$_MAJOR_ID *) (* SD$_MAX_DISK *) (* SD$_MAX_FAMILY *) (* SD$_MAX_UNITS *) (* SD$_MINOR_ID *) (* SD$_MODIFIED_DATE *) (* SD$_POOL_ID *) (* SD$_POOL_OPTIONS *) (* SD$_SEGMENT_SIZE *) (* SD$_SEQUENCE_NUMBER *) (* SD$_UNIT_COUNT *) (* SD$_UNIT_ID *) (* SD$_UNIT_NUMBER *) (* SD$_UNIT_OPTIONS *) (* *) (* FORMAL PARAMETERS: *) (* *) (* UNIT_CONTEXT (IN) : Address of context *) (* ITMLST (IN) : Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* A context must have been started with sd$get_raw_begin *) (* *) (* POST-CONDITIONS: *) (* *) (* The information requested is returned *) (* *) (* RETURN VALUE: *) (* *) (* SS$_NORMAL - Next member returned *) (* SS$_BADPARAM - One or more item codes are invalid *) (* SS$_IVBUFLEN - One or more buffer lengths are invalid *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_raw_info ( UNIT_CONTEXT : $DEFPTR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* 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 standard OpenVMS *) (* itemlist mechanism. *) (* NOTE: The itemlist must be zero terminated *) (* *) (* Valid item codes are: *) (* *) (* SD$_COPY_OUTS *) (* SD$_DISK_READS *) (* SD$_DISK_WRITES *) (* SD$_READS *) (* SD$_SPLIT_READS *) (* SD$_SPLIT_WRITES *) (* SD$_WRITES *) (* *) (* FORMAL PARAMETERS: *) (* *) (* POOL_DEVICE(IN) : Pool device name *) (* ITMLST (IN) : Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* The SnappyDisk driver must be loaded and enabled. *) (* 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 accessible *) (* SS$_BADPARAM - One or more item codes are invalid *) (* SS$_IVBUFLEN - one or more buffer lengths are invalid *) (* SS$_IVDEVNAM - Device is not a pool device *) (* SS$_NOSUCHDEV - No such pool device *) (* SS$_SDDISABLED - Snap-capable disk not loaded *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_stats ( POOL_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (* *) (*++ *) (* *) (* ROUTINE: *) (* *) (* sd$get_unit UNIT_DEVICE, ITMLST *) (* *) (* FUNCTIONAL DESCRIPTION: *) (* *) (* Runtime library routine *) (* Get information about a pool member *) (* The information is returned using a standard OpenVMS *) (* itemlist mechanism. *) (* NOTE: The itemlist must be zero terminated *) (* *) (* Valid item codes are: *) (* *) (* SD$_DATA_LBN *) (* SD$_DATA_SIZE *) (* SD$_FREE_SEGMENTS *) (* SD$_META_LBN *) (* SD$_META_SIZE *) (* SD$_POOL_DEVICE *) (* SD$_TOTAL_SEGMENTS *) (* SD$_UNIT_ID *) (* SD$_UNIT_NUMBER *) (* SD$_UNIT_OPTIONS *) (* *) (* FORMAL PARAMETERS: *) (* *) (* UNIT_DEVICE (IN) : Name of storage unit *) (* ITMLST (IN) : Address of items to return *) (* *) (* PRE-CONDITIONS: *) (* *) (* 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 accessible *) (* SS$_BADPARAM - One or more item codes are invalid *) (* SS$_IVBUFLEN - one or more buffer lengths are invalid *) (* SS$_IVDEVNAM - ucb is not that of a pool member *) (* SS$_NOTBOUND - the member is not bound into a pool *) (* SS$_SDDISABLED - Snap-capable disk not loaded *) (*-- *) (* *) [ASYNCHRONOUS] FUNCTION sd$get_unit ( UNIT_DEVICE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; ITMLST : $DEFPTR) : UNSIGNED; EXTERNAL; (*** MODULE $SECDEF ***) (*+ *) (* PROCESS OR GLOBAL SECTION DEFINITIONS *) (*- *) (* *) (* ***** L_VBN, L_WINDOW, and L_PFC must be the same offset values as the *) (* ***** equivalently named offsets in $PFLDEF. *) (* *) CONST SEC$M_GBL = 1; SEC$M_CRF = 2; SEC$M_DZRO = 4; SEC$M_WRT = 8; SEC$M_SHMGS = 16; SEC$M_ARGS64 = 32; SEC$M_WRTMOD = 192; SEC$M_AMOD = 768; SEC$M_UNCACHED = 1024; SEC$M_READ_ONLY_SHPT = 2048; SEC$M_SHARED_PTS = 4096; SEC$M_MRES = 8192; SEC$M_PERM = 16384; SEC$M_SYSGBL = 32768; SEC$M_PFNMAP = 65536; SEC$M_EXPREG = 131072; SEC$M_PROTECT = 262144; SEC$M_PAGFIL = 524288; SEC$M_EXECUTE = 1048576; SEC$M_NOPROTCHK = 2097152; SEC$M_NO_OVERMAP = 4194304; SEC$M_INPROG = 8388608; SEC$M_PARANOID = 16777216; SEC$M_GRANHINT = 33554432; SEC$M_MRES_ALLOC = 67108864; SEC$M_RAD_HINT = 134217728; TYPE SEC$TYPE = RECORD CASE INTEGER OF 1: (SEC$R_GSD_OVERLAY : [BYTE(4)] RECORD END; SEC$L_SECXFL : UNSIGNED; (*SECTION INDEX FORWARD LINK *) SEC$L_SECXBL : UNSIGNED; (*SECTION INDEX BACKWARD LINK *) SEC$L_PFC : UNSIGNED; (*PFC - Page Fault Cluster *) SEC$R_MRES_FILE_OVERLAY : [BYTE(12)] RECORD END; (* *) (* ***** NOTE ***** *) (* All flags in sec$l_flags must be kept in sync with flags in the *) (* SECFLG structure defined further in this module. *) (* **************** *) (* *) SEC$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; SEC$L_REFCNT : INTEGER; (* COUNT OF PTE'S REFERENCING THIS SECTION (unless MRES/SHMGS) *) (* *) (* UNIT_CNT contains the number of pagelets (512 byte units) in the section, except for *) (* PFN-mapped sections. In that case, UNIT_CNT contains the number of PFNs mapped by the section. *) (* *) SEC$L_VPX : UNSIGNED; (* Starting virtual page index *) SEC$R_UNIT_CNT_OVERLAY : [BYTE(8)] RECORD END; (* Number of pagelets/PFNs in the section *) ); 2: (SEC$L_GSD : [POS(0)] INTEGER; (*GLOBAL SECTION DESCRIPTOR ADDRESS *) SEC$Q_MRES_REFCNT : [POS(128)] $QUAD; (*REFERENCE COUNT FOR MRES/SHMGS SECTIONS *) SEC$L_FLAGS : [POS(224)] UNSIGNED; (* VARIOUS CONTROL FLAGS IN LOW WORD *) SEC$L_UNIT_CNT : [POS(320)] UNSIGNED; ); 3: (SEC$L_CCB : [POS(0)] INTEGER; (*CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION *) SEC$R_FILE_FIELDS : [POS(128), BYTE(12)] RECORD END; SEC$Q_UNIT_CNT : [POS(320)] $UQUAD; ); 4: (SEC$L_WINDOW : [POS(192)] INTEGER; (*WINDOW CONTROL BLOCK *) SEC$V_GBL : [POS(224)] $BOOL; (* GLOBAL SECTION *) SEC$V_CRF : [POS(225)] $BOOL; (* COPY ON REFERENCE *) SEC$V_DZRO : [POS(226)] $BOOL; (* DEMAND ZERO *) SEC$V_WRT : [POS(227)] $BOOL; (* WRITABLE *) SEC$V_SHMGS : [POS(228)] $BOOL; (* SHARED MEMORY GLOBAL SECTION *) SEC$V_ARGS64 : [POS(229)] $BOOL; (* Arguments passed as quads *) SEC$V_WRTMOD : [POS(230)] $BIT2; (* WRITE ACCESS MODE FOR SECTION *) SEC$V_AMOD : [POS(232)] $BIT2; (* ACCESS MODE OF SECTION *) SEC$V_UNCACHED : [POS(234)] $BOOL; (* PFN-map I/O space uncached. *) SEC$V_READ_ONLY_SHPT : [POS(235)] $BOOL; (* Shared page tables map section read-only *) SEC$V_SHARED_PTS : [POS(236)] $BOOL; (* Section is a shared PT section *) SEC$V_MRES : [POS(237)] $BOOL; (* MEMORY RESIDENT SECTION *) SEC$V_PERM : [POS(238)] $BOOL; (* PERMANENT SECTION *) SEC$V_SYSGBL : [POS(239)] $BOOL; (* 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL *) (* *) (* ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTION *) (* ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD *) (* ***** FIELD. *) (* *) SEC$V_PFNMAP : [POS(240)] $BOOL; (* MAP TO SPECIFIC PFN'S *) SEC$V_EXPREG : [POS(241)] $BOOL; (* MAP INTO FIRST FREE ADDRESS SPACE *) SEC$V_PROTECT : [POS(242)] $BOOL; (* CHECK WRITE ACCESS MODE (WRTMOD) *) SEC$V_PAGFIL : [POS(243)] $BOOL; (* GLOBAL SECTION HAS PAGE FILE BACKING STORE *) SEC$V_EXECUTE : [POS(244)] $BOOL; (* CHECK FOR EXECUTE ACCESS *) SEC$V_NOPROTCHK : [POS(245)] $BOOL; (* INHIBIT PROTECTION CHECK *) SEC$V_NO_OVERMAP : [POS(246)] $BOOL; (* DON'T OVERMAP ADDRESS SPACE *) SEC$V_INPROG : [POS(247)] $BOOL; (* Section creation in progress *) SEC$V_PARANOID : [POS(248)] $BOOL; (* Go into paranoia mode *) SEC$V_GRANHINT : [POS(249)] $BOOL; (* Allow enhanced GH regions *) SEC$V_MRES_ALLOC : [POS(250)] $BOOL; (* Allocate memory resident pages during create *) SEC$V_RAD_HINT : [POS(251)] $BOOL; (* Allocate pages based on RAD hint *) ); 5: (SEC$L_VBN : [POS(128)] UNSIGNED; ); 6: (SEC$Q_VBN : [POS(128)] $UQUAD; ) END; (* *) (* ***** NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN *) (* *) CONST SEC$K_LENGTH = 48; (*SIZE OF PSTE/GSTE *) SEC$C_LENGTH = 48; (*SIZE OF PSTE/GSTE *) (* *) (* ***** NOTE ***** *) (* All flags in the SECFLG structure must be kept in sync with flags in *) (* sec$l_flags defined in the SECDEF structure. *) (* **************** *) (* *) CONST SECFLG$M_GBL = 1; SECFLG$M_CRF = 2; SECFLG$M_DZRO = 4; SECFLG$M_WRT = 8; SECFLG$M_SHMGS = 16; SECFLG$M_ARGS64 = 32; SECFLG$M_WRTMOD = 192; SECFLG$M_AMOD = 768; SECFLG$M_UNCACHED = 1024; SECFLG$M_READ_ONLY_SHPT = 2048; SECFLG$M_SHARED_PTS = 4096; SECFLG$M_MRES = 8192; SECFLG$M_PERM = 16384; SECFLG$M_SYSGBL = 32768; SECFLG$M_PFNMAP = 65536; SECFLG$M_EXPREG = 131072; SECFLG$M_PROTECT = 262144; SECFLG$M_PAGFIL = 524288; SECFLG$M_EXECUTE = 1048576; SECFLG$M_NOPROTCHK = 2097152; SECFLG$M_NO_OVERMAP = 4194304; SECFLG$M_INPROG = 8388608; SECFLG$M_PARANOID = 16777216; SECFLG$M_GRANHINT = 33554432; SECFLG$M_MRES_ALLOC = 67108864; SECFLG$M_RAD_HINT = 134217728; TYPE SEC_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (SECFLG$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; ); 2: (SECFLG$W_SAVED_FLAGS : [POS(0)] $UWORD; (* FLAGS SAVED IN SECTION TABLE ENTRY *) ); 3: (SECFLG$L_FLAGS : [POS(0)] UNSIGNED; (* VARIOUS CONTROL FLAGS IN LOW WORD *) ); 4: (); 5: (SECFLG$V_GBL : [POS(0)] $BOOL; (* GLOBAL SECTION *) SECFLG$V_CRF : [POS(1)] $BOOL; (* COPY ON REFERENCE *) SECFLG$V_DZRO : [POS(2)] $BOOL; (* DEMAND ZERO *) SECFLG$V_WRT : [POS(3)] $BOOL; (* WRITABLE *) SECFLG$V_SHMGS : [POS(4)] $BOOL; (* SHARED MEMORY GLOBAL SECTION *) SECFLG$V_ARGS64 : [POS(5)] $BOOL; (* Arguments passed as quads *) SECFLG$V_WRTMOD : [POS(6)] $BIT2; (* WRITE ACCESS MODE FOR SECTION *) SECFLG$V_AMOD : [POS(8)] $BIT2; (* ACCESS MODE OF SECTION *) SECFLG$V_UNCACHED : [POS(10)] $BOOL; (* PFN-map I/O space uncached. *) SECFLG$V_READ_ONLY_SHPT : [POS(11)] $BOOL; (* Shared page tables map section read-only *) SECFLG$V_SHARED_PTS : [POS(12)] $BOOL; (* Section is a shared PT section *) SECFLG$V_MRES : [POS(13)] $BOOL; (* MEMORY RESIDENT SECTION *) SECFLG$V_PERM : [POS(14)] $BOOL; (* PERMANENT SECTION *) SECFLG$V_SYSGBL : [POS(15)] $BOOL; (* 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL *) (* *) (* ***** THE FOLLOWING FLAGS ARE INDICATORS FOR PRIVATE AND GLOBAL SECTION *) (* ***** SYSTEM SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS LONGWORD *) (* ***** FIELD. *) (* *) SECFLG$V_PFNMAP : [POS(16)] $BOOL; (* MAP TO SPECIFIC PFN'S *) SECFLG$V_EXPREG : [POS(17)] $BOOL; (* MAP INTO FIRST FREE ADDRESS SPACE *) SECFLG$V_PROTECT : [POS(18)] $BOOL; (* CHECK WRITE ACCESS MODE (WRTMOD) *) SECFLG$V_PAGFIL : [POS(19)] $BOOL; (* GLOBAL SECTION HAS PAGE FILE BACKING STORE *) SECFLG$V_EXECUTE : [POS(20)] $BOOL; (* CHECK FOR EXECUTE ACCESS *) SECFLG$V_NOPROTCHK : [POS(21)] $BOOL; (* INHIBIT PROTECTION CHECK *) SECFLG$V_NO_OVERMAP : [POS(22)] $BOOL; (* DON'T OVERMAP ADDRESS SPACE *) SECFLG$V_INPROG : [POS(23)] $BOOL; (* Section creation in progress *) SECFLG$V_PARANOID : [POS(24)] $BOOL; (* Go into paranoia mode *) SECFLG$V_GRANHINT : [POS(25)] $BOOL; (* Allow enhanced GH regions *) SECFLG$V_MRES_ALLOC : [POS(26)] $BOOL; (* Allocate memory resident pages during create *) SECFLG$V_RAD_HINT : [POS(27)] $BOOL; (* Allocate pages based on RAD hint *) ) END; CONST SEC$K_MATALL = 0; (* MATCH ALWAYS, USE GLOBAL SECTION *) SEC$K_MATEQU = 1; (* MATCH IF ISD$L_IDENT EQU GBL ID *) SEC$K_MATLEQ = 2; (* MATCH IF ISD$L_IDENT LEQ GBL ID *) TYPE SEC1$TYPE = RECORD SECDEF$$_FILL_6 : ARRAY [1..25] OF $BYTE; SEC$B_AMOD : $UBYTE; (*ACCESS MODE OF SECTION *) (*+ *) (* MATCH CONTROL VIELD VALUES *) (*- *) (* BASE OF ZERO , INCR 1 *) END; (* *) (* Definitions for $GETSECI service *) (* *) CONST SECI$_CHAIN = 1; (* Chained item block *) SECI$_GSMODE = 2; (* Access mode of section *) SECI$_GSFLAGS = 3; (* Flags *) SECI$_GSNAME = 4; (* Global section name *) SECI$_GSIDENT = 5; (* Global section ident *) SECI$_GSRELPAG = 6; (* Relative page number *) (* *) (* Definitions for $UPDEC(W) AND $UPDSEC_64(W) system services *) (* *) CONST UPDFLG$M_WRT_MODIFIED = 1; TYPE UPDSEC_FLAGS$TYPE = RECORD CASE INTEGER OF 1: (UPDFLG$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; ); 2: (UPDFLG$L_FLAGS : [POS(0)] UNSIGNED; (* Flags *) ); 3: (); 4: (UPDFLG$V_WRT_MODIFIED : [POS(0)] $BOOL; (* Write pages only if modified *) ) END; (*** MODULE $SECIDDEF ***) (*+ *) (* Define the global section identification structure. *) (*- *) CONST SECID$M_MINOR_ID = 16777215; SECID$M_MAJOR_ID = -16777216; TYPE SECID$TYPE = RECORD CASE INTEGER OF 1: (SECID$L_MATCH : UNSIGNED; (* Match control value, see secdef.h *) SECID$R_FILL_21_ : [BYTE(4)] RECORD END; ); 2: (SECID$L_VERSION : [POS(32)] UNSIGNED; (* Version number *) ); 3: (); 4: (SECID$V_MINOR_ID : [POS(32)] $BIT24; (* Minor ID of version number *) SECID$V_MAJOR_ID : [POS(56)] $BIT8; (* Minor ID of version number *) ) END; CONST SECID$K_LENGTH = 8; (* Length of SECID *) SECID$C_LENGTH = 8; (* Length of SECID *) (*** MODULE $SECSRVDEF IDENT X-4 ***) CONST SECSRV$K_SERVER = 1; SECSRV$K_CIA = 2; SECSRV$K_PROXY = 3; SECSRV$K_MAPPING = 4; SECSRV$K_SHUTDOWN = 1; SECSRV$K_PERFORMANCE = 2; SECSRV$K_ZERO_PERFORMANCE = 3; SECSRV$K_RESTART = 4; SECSRV$K_ADD_PROXY = 0; SECSRV$K_DELETE_PROXY = 1; SECSRV$K_SHOW_PROXY = 2; SECSRV$K_VERIFY_PROXY = 3; SECSRV$K_CREATE_PROXY = 4; SECSRV$K_SCAN_INTRUSION = 5; SECSRV$K_DELETE_INTRUSION = 6; SECSRV$K_SHOW_INTRUSION = 7; SECSRV$K_STOP_SERVER = 8; SECSRV$K_RESTART_SERVER = 9; SECSRV$K_ADD_MAPPING = 10; SECSRV$K_CREATE_MAPPING = 11; SECSRV$K_DEFINE_MAPPING = 12; SECSRV$K_DELETE_MAPPING = 13; SECSRV$K_MODIFY_MAPPING = 14; SECSRV$K_SCAN_MAPPING = 15; SECSRV$K_LOOKUP_MAPPING = 16; SECSRV$K_MAX_SERVICE = 17; SECSRV$K_MAXMSG = 8192; SECSRV$K_MAX_MESSAGE = 8192; SECSRV$K_REPLY_CONTEXT_LENGTH = 4; SECSRV$M_IGNORE_RETURN = 1; SECSRV$M_FILL_1 = -2; SECSRV$K_HEADER_LENGTH = 92; TYPE SECSRV$HEADER = RECORD CASE INTEGER OF 1: (SECSRV$L_MESSAGE_TYPE : UNSIGNED; SECSRV$L_MESSAGE_SUBTYPE : UNSIGNED; SECSRV$L_CALLERS_PID : UNSIGNED; SECSRV$L_RETURN_MAILBOX : UNSIGNED; SECSRV$R_FILL_25_ : [BYTE(4)] RECORD END; SECSRV$R_USERNAME : [BYTE(36)] RECORD END; SECSRV$R_TERMINAL : [BYTE(16)] RECORD END; SECSRV$R_PROCESS_NAME : [BYTE(16)] RECORD END; SECSRV$L_MESSAGE_CONTEXT : UNSIGNED; ); 2: (SECSRV$L_FLAGS : [POS(128)] UNSIGNED; SECSRV$W_USERNAME_SIZE : [POS(160)] $UWORD; SECSRV$T_USERNAME_STRING : [POS(192)] PACKED ARRAY [1..32] OF CHAR; SECSRV$B_TERMINAL_SIZE : [POS(448)] $UBYTE; SECSRV$T_TERMINAL_NAME : [POS(456)] PACKED ARRAY [1..15] OF CHAR; SECSRV$B_PRCNAM_SIZE : [POS(576)] $UBYTE; SECSRV$T_PRCNAM_NAME : [POS(584)] PACKED ARRAY [1..15] OF CHAR; ); 3: (); 4: (SECSRV$V_IGNORE_RETURN : [POS(128)] $BOOL; ) END; CONST SECSRV$CLIENT = -1762787327; SECSRV$OBJECT = -1762787326; SECSRV$COMMUNICATION = -1762787325; (*** MODULE $SJCDEF ***) (* *) (* Send to Job Controller Service ($SNDJBC) definitions. *) (* *) (* NOTE: New items must always be added at the end so users will not have to relink. *) (* *) (* *) (* Function codes *) (* *) CONST SJC$_ABORT_JOB = 1; (* Abort current job in a queue *) SJC$_ADD_FILE = 2; (* Add a file to an open job *) SJC$_ALTER_JOB = 3; (* Alter parameters of a job *) SJC$_ALTER_QUEUE = 4; (* Alter parameters of a queue *) SJC$_ASSIGN_QUEUE = 5; (* Assign a logical queue to an execution queue *) SJC$_BATCH_CHECKPOINT = 6; (* Establish a checkpoint in a batch job *) SJC$_BATCH_SERVICE = 7; (* LOGINOUT communication *) SJC$_CLOSE_DELETE = 8; (* Close and delete an open job *) SJC$_CLOSE_JOB = 9; (* Close and enqueue an open job *) SJC$_CREATE_JOB = 10; (* Create an open job *) SJC$_CREATE_QUEUE = 11; (* Create a queue *) SJC$_DEASSIGN_QUEUE = 12; (* Deassign a logical queue *) SJC$_DEFINE_CHARACTERISTIC = 13; (* Create a characteristic definition *) SJC$_DEFINE_FORM = 14; (* Create a form definition *) SJC$_DELETE_CHARACTERISTIC = 15; (* Delete a characteristic definition *) SJC$_DELETE_FORM = 16; (* Delete a form definition *) SJC$_DELETE_JOB = 17; (* Delete a job *) SJC$_DELETE_QUEUE = 18; (* Delete a queue *) SJC$_ENTER_FILE = 19; (* Enter a single file job in a queue *) SJC$_MERGE_QUEUE = 20; (* Requeue all jobs in one queue to another *) SJC$_PAUSE_QUEUE = 21; (* Suspend processing from a queue *) SJC$_RESET_QUEUE = 22; (* Reset a queue *) SJC$_START_ACCOUNTING = 23; (* Start accounting manager *) SJC$_START_QUEUE = 24; (* Start processing from a queue *) SJC$_START_QUEUE_MANAGER = 25; (* Start system job queue manager *) SJC$_STOP_ACCOUNTING = 26; (* Stop accounting manager *) SJC$_STOP_QUEUE = 27; (* Stop processing from a queue *) SJC$_STOP_QUEUE_MANAGER = 28; (* Stop system job queue manager *) SJC$_SYNCHRONIZE_JOB = 29; (* Synchronize with job completion *) SJC$_WRITE_ACCOUNTING = 30; (* Write user accounting record *) SJC$_CONTROL_DIAGNOSTICS = 31; (* Control diagnostic functions (for internal use only) *) (* (note this function code is intentionally not documented and reserved for Digital use) *) CONST SJC$_DELETE_QUEUE_MANAGER = 32; (* Remove all references to specified qmgr from shared master file *) SJC$_ALTER_FILE = 33; (* Modify the processing of a file within a job *) SJC$_STOP_ALL_QUEUES_ON_NODE = 34; (* Stop all batch/print job processing on the node *) SJC$_DISABLE_QUEUE = 35; (* Cause all QSIs on the queue to be inactive *) SJC$_ENABLE_QUEUE = 36; (* Allow disabled queue to be restarted *) SJC$_SYMBIONT_SERVICE = 37; (* Symbiont-Qman communication *) SJC$_JOBCTL_SERVICE = 38; (* Jobctl-Qman communication *) SJC$_ENABLE_AUTOSTART = 39; (* Start all AUTOSTART queues on node and allow queues to fail over to node *) SJC$_DISABLE_AUTOSTART = 40; (* Prevent AUTOSTART queues from failing over to this node *) SJC$_SHUTDOWN_NODE = 41; (* Perform orderly shutdown of queuing system on node. *) SJC$_RESERVED_FUNC_42 = 42; (* Reserved for Digital use (name may change) Reserved by security see [qman]tables.req *) SJC$_RESERVED_FUNC_43 = 43; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_44 = 44; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_45 = 45; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_46 = 46; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_47 = 47; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_48 = 48; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_49 = 49; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_FUNC_50 = 50; (* Reserved for Digital use (name may change) *) SJC$K_MIN_FUNC = 1; (* Minimum SNDJBC function code *) SJC$K_MAX_FUNC = 50; (* Maximum SNDJBC function code *) (* *) (* Item codes *) (* *) CONST SJC$_ACCOUNTING_MESSAGE = 1; (* User accounting message *) SJC$_ACCOUNTING_TYPES = 2; (* Mask of accounting record types *) SJC$_AFTER_TIME = 3; (* Hold until time *) SJC$_NO_AFTER_TIME = 4; SJC$_ALIGNMENT_MASK = 5; (* Mask alignment data *) SJC$_ALIGNMENT_PAGES = 6; (* Number of alignment pages *) SJC$_BASE_PRIORITY = 7; (* Batch process base priority *) SJC$_BATCH = 8; (* Batch queue *) SJC$_NO_BATCH = 9; SJC$_BATCH_INPUT = 10; (* LOGINOUT communication (Retired, see SERVICE_INPUT) *) SJC$_BATCH_OUTPUT = 11; (* For use by LOGINOUT (for internal use only) (Retired, see SERVICE_OUTPUT) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_CHARACTERISTIC_NAME = 12; (* Printer characteristic *) SJC$_CHARACTERISTIC_NUMBER = 13; SJC$_NO_CHARACTERISTICS = 14; SJC$_CHECKPOINT_DATA = 15; (* Batch checkpoint string *) SJC$_NO_CHECKPOINT_DATA = 16; SJC$_CLI = 17; (* Batch process CLI *) SJC$_NO_CLI = 18; SJC$_CPU_DEFAULT = 19; (* Default CPU time limit *) SJC$_NO_CPU_DEFAULT = 20; SJC$_CPU_LIMIT = 21; (* Maximum CPU time limit *) SJC$_NO_CPU_LIMIT = 22; SJC$_CREATE_START = 23; (* Start queue after creation *) SJC$_DELETE_FILE = 24; (* Delete file after processing *) SJC$_NO_DELETE_FILE = 25; SJC$_DESTINATION_QUEUE = 26; (* Destination queue name *) SJC$_DEVICE_NAME = 27; (* Output device name *) SJC$_DOUBLE_SPACE = 28; (* Double space output *) SJC$_NO_DOUBLE_SPACE = 29; SJC$_ENTRY_NUMBER = 30; (* Job entry number *) SJC$_ENTRY_NUMBER_OUTPUT = 31; SJC$_FILE_BURST = 32; (* Print file burst page *) SJC$_FILE_BURST_ONE = 33; SJC$_NO_FILE_BURST = 34; SJC$_FILE_COPIES = 35; (* Print n copies of file *) SJC$_FILE_FLAG = 36; (* Print file flag page *) SJC$_FILE_FLAG_ONE = 37; SJC$_NO_FILE_FLAG = 38; SJC$_FILE_IDENTIFICATION = 39; (* DVI, FID, DID of file *) SJC$_FILE_SETUP_MODULES = 40; (* Device control modules for file *) SJC$_NO_FILE_SETUP_MODULES = 41; SJC$_FILE_SPECIFICATION = 42; (* File specification of file *) SJC$_FILE_TRAILER = 43; (* Print file trailer page *) SJC$_FILE_TRAILER_ONE = 44; SJC$_NO_FILE_TRAILER = 45; SJC$_FIRST_PAGE = 46; (* Starting page number *) SJC$_NO_FIRST_PAGE = 47; SJC$_FORM_DESCRIPTION = 48; (* Textual description of form *) SJC$_FORM_LENGTH = 49; (* Form length in lines *) SJC$_FORM_MARGIN_BOTTOM = 50; (* Form bottom margin in lines *) SJC$_FORM_MARGIN_LEFT = 51; (* Form left margin in characters *) SJC$_FORM_MARGIN_RIGHT = 52; (* Form right margin in characters *) SJC$_FORM_MARGIN_TOP = 53; (* Form top margin in lines *) SJC$_FORM_NAME = 54; (* Printer form *) SJC$_FORM_NUMBER = 55; SJC$_FORM_SETUP_MODULES = 56; (* Device control modules for form *) SJC$_NO_FORM_SETUP_MODULES = 57; SJC$_FORM_SHEET_FEED = 58; (* Form is sheet fed *) SJC$_NO_FORM_SHEET_FEED = 59; SJC$_FORM_STOCK = 60; (* Stock name for form *) SJC$_FORM_TRUNCATE = 61; (* Truncate long lines *) SJC$_NO_FORM_TRUNCATE = 62; SJC$_FORM_WIDTH = 63; (* Form width in characters *) SJC$_FORM_WRAP = 64; (* Wrap long lines *) SJC$_NO_FORM_WRAP = 65; SJC$_GENERIC_QUEUE = 66; (* Queue is a generic queue *) SJC$_NO_GENERIC_QUEUE = 67; SJC$_GENERIC_SELECTION = 68; (* Queue can take work from generic queue *) SJC$_NO_GENERIC_SELECTION = 69; SJC$_GENERIC_TARGET = 70; (* Possible execution queue for generic queue *) SJC$_HOLD = 71; (* Place job on hold *) SJC$_NO_HOLD = 72; SJC$_JOB_BURST = 73; (* Print job burst page *) SJC$_NO_JOB_BURST = 74; SJC$_JOB_COPIES = 75; (* Print n copies of entire job *) SJC$_JOB_FLAG = 76; (* Print job flag page *) SJC$_NO_JOB_FLAG = 77; SJC$_JOB_LIMIT = 78; (* Number of concurrent jobs *) SJC$_JOB_NAME = 79; (* Identifying name of job *) SJC$_JOB_RESET_MODULES = 80; (* Device control modules between jobs *) SJC$_NO_JOB_RESET_MODULES = 81; SJC$_JOB_SIZE_MAXIMUM = 82; (* Largest job accepted by printer *) SJC$_NO_JOB_SIZE_MAXIMUM = 83; SJC$_JOB_SIZE_MINIMUM = 84; (* Smallest job accepted by printer *) SJC$_NO_JOB_SIZE_MINIMUM = 85; SJC$_JOB_SIZE_SCHEDULING = 86; (* Schedule printer queues by size *) SJC$_NO_JOB_SIZE_SCHEDULING = 87; SJC$_JOB_STATUS_OUTPUT = 88; (* Status message for submitted job *) SJC$_JOB_TRAILER = 89; (* Print job trailer page *) SJC$_NO_JOB_TRAILER = 90; SJC$_LAST_PAGE = 91; (* Ending page number *) SJC$_NO_LAST_PAGE = 92; SJC$_LIBRARY_SPECIFICATION = 93; (* Filename of device control library *) SJC$_NO_LIBRARY_SPECIFICATION = 94; SJC$_LOG_DELETE = 95; (* Delete log file *) SJC$_NO_LOG_DELETE = 96; SJC$_LOG_QUEUE = 97; (* Log file's print queue *) SJC$_LOG_SPECIFICATION = 98; (* File specification of log file *) SJC$_NO_LOG_SPECIFICATION = 99; SJC$_LOG_SPOOL = 100; (* Print log file *) SJC$_NO_LOG_SPOOL = 101; SJC$_LOWERCASE = 102; (* Print on lowercase printer *) SJC$_NO_LOWERCASE = 103; SJC$_NEW_VERSION = 104; (* Create new version of file *) SJC$_NEXT_JOB = 105; (* Resume at next job *) SJC$_NOTE = 106; (* Flag page note text *) SJC$_NO_NOTE = 107; SJC$_NOTIFY = 108; (* Notify user on job completion *) SJC$_NO_NOTIFY = 109; (* Don't notify user on completion (for jobs) *) (* Don't notify user on interruption (for print queues) *) CONST SJC$_OPERATOR_REQUEST = 110; (* Operator service text *) SJC$_NO_OPERATOR_REQUEST = 111; SJC$_OWNER_UIC = 112; (* Queue owner UIC *) SJC$_PAGE_HEADER = 113; (* Print page headers *) SJC$_NO_PAGE_HEADER = 114; SJC$_PAGE_SETUP_MODULES = 115; (* Device control modules for form page *) SJC$_NO_PAGE_SETUP_MODULES = 116; SJC$_PAGINATE = 117; (* Paginate output with free form feeds *) SJC$_NO_PAGINATE = 118; SJC$_PARAMETER_1 = 119; (* Batch job parameters *) SJC$_PARAMETER_2 = 120; SJC$_PARAMETER_3 = 121; SJC$_PARAMETER_4 = 122; SJC$_PARAMETER_5 = 123; SJC$_PARAMETER_6 = 124; SJC$_PARAMETER_7 = 125; SJC$_PARAMETER_8 = 126; SJC$_NO_PARAMETERS = 127; SJC$_PASSALL = 128; (* Print file passall *) SJC$_NO_PASSALL = 129; SJC$_PRIORITY = 130; (* Job scheduling priority *) SJC$_PROCESSOR = 131; (* Filename of symbiont image *) SJC$_NO_PROCESSOR = 132; SJC$_PROTECTION = 133; (* Queue protection mask *) SJC$_QUEUE = 134; (* Queue on which to operate *) SJC$_QUEUE_FILE_SPECIFICATION = 135; (* File specification of queue file *) SJC$_RELATIVE_PAGE = 136; (* Resume after forward or back space *) SJC$_REQUEUE = 137; (* Requeue job *) SJC$_RESTART = 138; (* Job can restart *) SJC$_NO_RESTART = 139; SJC$_RETAIN_ALL_JOBS = 140; (* Retain completed jobs *) SJC$_RETAIN_ERROR_JOBS = 141; SJC$_NO_RETAIN_JOBS = 142; SJC$_SCSNODE_NAME = 143; (* Node name of execution node *) SJC$_SEARCH_STRING = 144; (* Resume after finding string *) SJC$_SWAP = 145; (* Swap batch processes *) SJC$_NO_SWAP = 146; SJC$_TERMINAL = 147; (* Queue is a (generic) terminal queue *) SJC$_NO_TERMINAL = 148; SJC$_TOP_OF_FILE = 149; (* Resume at top of file *) SJC$_USER_IDENTIFICATION = 150; (* Proxy user identification (not supported and is obsolete) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_WSDEFAULT = 151; (* Working set default *) SJC$_NO_WSDEFAULT = 152; SJC$_WSEXTENT = 153; (* Working set extent *) SJC$_NO_WSEXTENT = 154; SJC$_WSQUOTA = 155; (* Working set quota *) SJC$_NO_WSQUOTA = 156; SJC$_ACCOUNT_NAME = 157; (* Proxy account name (requires CMKRNL privilege) *) SJC$_UIC = 158; (* Proxy UIC (requires CMKRNL privilege) *) SJC$_USERNAME = 159; (* Proxy username (requires CMKRNL privilege) *) SJC$_BUFFER_COUNT = 160; (* Multibuffer count for queue file *) SJC$_EXTEND_QUANTITY = 161; (* Allocation and extend quantity for queue file *) SJC$_RECORD_BLOCKING = 162; (* Symbiont record blocking of output stream *) SJC$_NO_RECORD_BLOCKING = 163; SJC$_QUEMAN_RESTART = 164; (* qualifier on SJC$_START_QUEUE_MANAGER, restart queue manager after an abort *) SJC$_NO_QUEMAN_RESTART = 165; SJC$_DEFAULT_FORM_NAME = 166; (* Default queue form name *) SJC$_DEFAULT_FORM_NUMBER = 167; (* Default queue form number *) SJC$_SECURITY_CLASSIFICATION = 168; (* Used by SeVMS to specify security classification of the job *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_QUEUE_SUPPORT = 169; (* Queue Support Images *) SJC$_JOB_COMPLETION_STATUS = 170; (* Status of completed job - this buffer is used instead of IOSB when specified *) SJC$_DIAGNOSTIC_BUFFER_OUTPUT = 171; (* Job controller's in-memory diagnostic buffer (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_OPEN_QUEUE = 172; (* Open queue - allow job submission *) SJC$_CLOSE_QUEUE = 173; (* Close queue - do not allow job submission *) SJC$_SERVER = 174; (* Server queue *) SJC$_PRINTER = 175; (* Printer queue *) SJC$_UPDATE_ORB = 176; (* Update ORB information in queue file (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_NO_QUEUE_DESCRIPTION = 177; (* No queue description supplied *) SJC$_JOB_RETAIN = 178; (* Retain this job *) SJC$_JOB_ERROR_RETAIN = 179; (* Retain this job on error *) SJC$_JOB_DEFAULT_RETAIN = 180; (* Use queue's job retention setting *) SJC$_NOTIFY_ON_INTERRUPT = 181; (* Notify users if their print jobs are interrupted *) SJC$_NO_RAD = 182; (* Reserved for Digital use (name may change) *) SJC$_ACCEPT_ALL_ATTRIBUTES = 183; (* Inhibits queue manager validation of QSI keywords *) SJC$_DIAGNOSTIC_FLAGS = 184; (* Diagnostic flags bitmask (for internal use only) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_QUEUE_DESCRIPTION = 185; (* Queue description *) SJC$_CHECKPOINT_FREQUENCY = 186; (* Symbiont takes checkpoint at intervals of this many pages *) SJC$_DISPLAY_USERNAME = 187; (* Used by DQS to pass a username to the remote system (symbol not renamed) *) (* (note this item code is intentionally not documented and reserved for Digital use) *) CONST SJC$_FILE_NUMBER = 188; (* File sequence number within job *) SJC$_FILE_ATTRIBUTE = 189; (* "Keyword = (optional) value" for extensible attrib on file *) SJC$_JOB_ATTRIBUTE = 190; (* "Keyword = (optional) value" for extensible attrib on job *) SJC$_QUEUE_ATTRIBUTE = 191; (* "Keyword = (optional) value" for extensible attrib on queue *) SJC$_REMOVE_ATTRIBUTE = 192; (* Remove extensible attribs for queue, job, or file *) SJC$_QUEUE_MANAGER_NAME = 193; (* Queue manager process *) SJC$_QUEUE_MANAGER_NODES = 194; (* Failover list of nodes on which queue manager process may run *) SJC$_AUTOSTART_ON = 195; (* Node(s) (and for print queues, device(s)) on which queue can be auto started *) SJC$_RESERVED_OUTPUT_196 = 196; (* Reserved for Digital use (name may change) SJC$_RESERVED_OUTPUT_196 to SJC$_RESERVED_OUTPUT_199 *) SJC$_RESERVED_OUTPUT_197 = 197; (* Reserved for Digital use (name may change) reserved by security group. *) SJC$_RESERVED_OUTPUT_198 = 198; (* Reserved for Digital use (name may change) see. *) SJC$_RESERVED_OUTPUT_199 = 199; (* Reserved for Digital use (name may change) [QMAN]Tables.req *) SJC$_SET_CONDITION_VECTOR = 200; (* QSI can alter job's completion status *) SJC$_NOTIFY_MESSAGE = 201; (* QSI Check Job can replace job completion *) (* message sent to user *) CONST SJC$_DEFINE_FILE_ATTRIBUTES = 202; (* Legal keywds for file submissions or alter_file's *) SJC$_DEFINE_JOB_ATTRIBUTES = 203; (* Legal keywds in oper'ns that create or alter jobs *) SJC$_DEFINE_QUEUE_ATTRIBUTES = 204; (* Legal keywords in operations that alter the queue *) SJC$_AGENT_PROFILE = 205; (* Security information *) SJC$_ADD_QUEUE_MANAGER = 206; (* Boolean item code telling sjc_start_queue_manager to add a new database *) SJC$_OUTSTANDING_JOBS = 207; (* Boolean item code telling queue manager to not delete outstanding open jobs *) SJC$_NO_INITIAL_FF = 208; (* To suppress initial form feed when the queue is started with INIT or START cmd *) SJC$_NO_NO_INITIAL_FF = 209; SJC$_DELETE_FILE_ALWAYS = 210; (* delete file even if the job completes with a failure *) SJC$_NO_DELETE_FILE_ALWAYS = 211; SJC$_RESERVED_BOOLEAN_212 = 212; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_213 = 213; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_214 = 214; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_215 = 215; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_216 = 216; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_217 = 217; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_218 = 218; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_219 = 219; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_220 = 220; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_221 = 221; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_222 = 222; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_223 = 223; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_224 = 224; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_225 = 225; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_226 = 226; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_227 = 227; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_228 = 228; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_229 = 229; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_230 = 230; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_231 = 231; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_232 = 232; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_233 = 233; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_BOOLEAN_234 = 234; (* Reserved for Digital use (name may change) *) SJC$_JOB_RETAIN_TIME = 235; (* The time the job should be retained (delta or absolute) *) SJC$_MANAGER_ATTRIBUTE = 236; (* Any application specific queue manager attributes. *) SJC$_RAD = 237; (* RAD on which to run batch job. *) SJC$_RESERVED_INPUT_238 = 238; (* Reserved for Digital use (name may change) items RESERVED_INPUT_238 *) SJC$_RESERVED_INPUT_239 = 239; (* Reserved for Digital use (name may change) to *) SJC$_RESERVED_INPUT_240 = 240; (* Reserved for Digital use (name may change) SJC$_RESERVED_INPUT_241 *) SJC$_RESERVED_INPUT_241 = 241; (* Reserved for Digital use (name may change) reserved by security (see [QMAN]tables.req *) SJC$_RESERVED_INPUT_242 = 242; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_243 = 243; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_244 = 244; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_245 = 245; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_246 = 246; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_247 = 247; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_248 = 248; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_249 = 249; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_INPUT_250 = 250; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_OUTPUT_251 = 251; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_OUTPUT_252 = 252; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_OUTPUT_253 = 253; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_OUTPUT_254 = 254; (* Reserved for Digital use (name may change) *) SJC$_RESERVED_OUTPUT_255 = 255; (* Reserved for Digital use (name may change) *) SJC$K_MIN_ITEM = 1; (* Minimum SNDJBC item code *) SJC$K_MAX_ITEM = 255; (* Maximum SNDJBC item code *) SJC$_CHARGE_CODE = 157; (* synonym for SJC$_ACCOUNT_NAME *) SJC$_RESERVED_INPUT_187 = 187; (* for DQS only *) SJC$_QUEUE_DIRECTORY = 135; (* Disk & directory for non-shared job queue database *) CONST SJC$_SERVICE_INPUT = 10; 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. *) (* *) CONST SJC$M_ACCT_PROCESS = 1; SJC$M_ACCT_IMAGE = 2; SJC$M_ACCT_INTERACTIVE = 4; SJC$M_ACCT_LOGIN_FAILURE = 8; SJC$M_ACCT_SUBPROCESS = 16; SJC$M_ACCT_DETACHED = 32; SJC$M_ACCT_BATCH = 64; SJC$M_ACCT_NETWORK = 128; SJC$M_ACCT_PRINT = 256; SJC$M_ACCT_MESSAGE = 512; SJC$M_ACCT_ACM_FUNC = 1024; SJC$M_ACCT_ACM_SYS = 2048; SJC$M_ACCT_CCAENAB = 4096; SJC$M_ACCT_CCVENAB = 8192; TYPE ACCOUNTING_TYPES$TYPE = RECORD SJC$V_ACCT_PROCESS : [POS(0)] $BOOL; (* Process termination *) SJC$V_ACCT_IMAGE : [POS(1)] $BOOL; (* Image termination *) SJC$V_ACCT_INTERACTIVE : [POS(2)] $BOOL; (* Interactive processes *) SJC$V_ACCT_LOGIN_FAILURE : [POS(3)] $BOOL; (* Login failures *) SJC$V_ACCT_SUBPROCESS : [POS(4)] $BOOL; (* Subprocesses *) SJC$V_ACCT_DETACHED : [POS(5)] $BOOL; (* Detached processes *) SJC$V_ACCT_BATCH : [POS(6)] $BOOL; (* Batch processes *) SJC$V_ACCT_NETWORK : [POS(7)] $BOOL; (* Network processes *) SJC$V_ACCT_PRINT : [POS(8)] $BOOL; (* Print job termination *) SJC$V_ACCT_MESSAGE : [POS(9)] $BOOL; (* User messages *) SJC$V_ACCT_ACM_FUNC : [POS(10)] $BOOL; (* Acm function *) SJC$V_ACCT_ACM_SYS : [POS(11)] $BOOL; (* System function *) SJC$V_ACCT_CCAENAB : [POS(12)] $BOOL; (* Charge code accounting *) SJC$V_ACCT_CCVENAB : [POS(13)] $BOOL; (* Charge code validation *) SJC$V_ACCT_UNUSED : [POS(14)] $BIT18; END; (* *) (* Subfields of DIAGNOSTIC_FLAGS item code. *) (* *) CONST SJC$M_DIAG_COPY_QF = 1; SJC$M_DIAG_CREATE_MF = 2; SJC$M_DIAG_CLOSE_MF = 4; SJC$M_DIAG_OPEN_MF = 8; SJC$M_DIAG_CLEAR_FLAGS = 16; SJC$M_DIAG_LOG_ALL_TRANS = 32; SJC$M_DIAG_JOURNAL_PUTS = 64; SJC$M_DIAG_DUMP_DIAG_BUFFER = 128; SJC$M_DIAG_INIT_DIAG_BUFFER = 256; TYPE DIAGNOSTIC_FLAGS$TYPE = RECORD SJC$V_DIAG_COPY_QF : [POS(0)] $BOOL; (* Make copy of the queue file *) SJC$V_DIAG_CREATE_MF : [POS(1)] $BOOL; (* Create new monitor log file and begin monitoring *) SJC$V_DIAG_CLOSE_MF : [POS(2)] $BOOL; (* Stop monitoring and close monitor log file *) SJC$V_DIAG_OPEN_MF : [POS(3)] $BOOL; (* Open existing monitor log file and resume monitoring *) SJC$V_DIAG_CLEAR_FLAGS : [POS(4)] $BOOL; (* Clear monitoring flags in queue file header record *) SJC$V_DIAG_LOG_ALL_TRANS : [POS(5)] $BOOL; (* Log read-only transactions in addition to basic monitoring *) SJC$V_DIAG_JOURNAL_PUTS : [POS(6)] $BOOL; (* Journal queue file $PUT operations in addition to basic monitoring *) SJC$V_DIAG_DUMP_DIAG_BUFFER : [POS(7)] $BOOL; (* Return contents of diagnostic buffer to caller *) SJC$V_DIAG_INIT_DIAG_BUFFER : [POS(8)] $BOOL; (* Initialize diagnostic buffer and zero cumulative counters *) SJC$V_DIAG_UNUSED : [POS(9)] $BIT23; END; (*** MODULE $SMRDEF ***) (* *) (* DEFINE SYMBIONT MANAGER REQUEST CODES *) (* *) (* SYMBIONT MANAGER REQUEST CODES *) CONST SMR$K_INITIAL = 0; (* INITIALIZE A QUEUE *) SMR$K_DELETE = 1; (* DELETE THE QUEUE *) SMR$K_START = 2; (* ACTIVATE OR RESUME PRINTING *) SMR$K_PAUSE = 3; (* SUSPEND PRINTING FOR A WHILE *) SMR$K_MERGE = 4; (* MOVE FILES FORM ONE QUEUE INTO ANOTHER *) SMR$K_REDIRECT = 5; (* ASSIGNMENT OF ONE QUEUE TO ANOTHER *) SMR$K_JUSTIFY = 6; (* JUSTIFY PRINT FORMS(IE: ISSUE FF) *) SMR$K_STOP = 7; (* DISABLE FURTHER DE-QUEING *) SMR$K_ENTER = 8; (* ADD A FILE TO A QUEUE *) SMR$K_CREJOB = 9; (* CREATE A PRINT JOB *) SMR$K_ADDFIL = 10; (* ADD A FILE TO EXISTING JOB *) SMR$K_CLSJOB = 11; (* CLOSE OPEN JOB *) SMR$K_RMVJOB = 12; (* REMOVE JOB FROM QUEUE *) SMR$K_ALTER = 13; (* CHANGE A FILES CHARACTERISTICS *) SMR$K_ABORT = 14; (* ABORT CURRENT JOB, START NEXT *) SMR$K_RELEASE = 15; (* RELEASE JOB FROM HOLD LIST *) SMR$K_DETINIT = 16; (* DETACHED JOB HAS INITIATED *) SMR$K_SYNCJOB = 17; (* SYNCRONIZE WITH A BATCH JOB *) SMR$K_ASKQNAM = 18; (* GET NAME OF QUEUE FOR LOG FILE *) (* *) (* ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES *) (* *) (* *) (* JOB FILE OPTIONS *) CONST SMO$K_DELETE = 1; (* DELETE THE FILE AFTER PRINTING *) SMO$K_BRSTPAG = 2; (* CREATE A BURST PAGE *) SMO$K_NOBRSTPAG = 3; (* INHIBIT BURST PAGE *) SMO$K_FLAGPAG = 4; (* PRINT A FLAG PAGE *) SMO$K_NOFLAGPAG = 5; (* INHIBIT A FLAG PAGE *) SMO$K_PAGHDR = 6; (* PRINT FILENAME AS PAGE HEADER *) SMO$K_DOUBLE = 7; (* DOUBLE SPACE THE LISTING *) SMO$K_NOFEED = 8; (* INHIBIT FORM FEED GENERATION *) SMO$K_PAGCNT = 9; (* SPECIFY PAGE COUNT TO PRINT *) SMO$K_COPIES = 10; (* NUMBER OF COPIES TO PRINT *) SMO$K_FILESIZ = 11; (* FILE SIZE *) SMO$K_DESTQUE = 12; (* DESTINATION QUEUE *) (* OPTIONS FOR CREATE JOB *) CONST SMO$K_RLSTIM = 32; (* TIME TO HOLD UNTIL QUEUEING *) SMO$K_HOLD = 33; (* HOLD THE JOB *) SMO$K_JOBPRI = 34; (* SPECIFY PRINT JOB/DETACHED JOB PRIOITY *) SMO$K_JOBCOPY = 35; (* NUMBER OF COPIES OF ENTIRE JOB *) SMO$K_FORMTYPE = 36; (* FORM TYPE TO USED WHEN PRINTED *) SMO$K_LOWER = 37; (* UPPER/LOWER CASE PRINTER ONLY *) SMO$K_PARAMS = 38; (* SUPPLY JOB PARAMETERS *) SMO$K_JOBNAME = 39; (* SUPPLY A NAME TO THE JOB *) SMO$K_NOLOWER = 40; (* CLEAR LOWER CASE REQUIRED *) SMO$K_CPULIM = 41; (* CPU TIME LIMIT *) SMO$K_NOCPULM = 42; (* NO CPU TIME LIMIT *) SMO$K_WSQUOTA = 43; (* WORKING SET QUOTA *) SMO$K_NOWSQUO = 44; (* NO WORKING SET QUOTA *) SMO$K_WSDEFLT = 45; (* WORKING SET DEFAULT *) SMO$K_NOWSDFT = 46; (* NO WORKING SET DEFAULT *) SMO$K_DQCHAR = 47; (* CHAR. TO BE USED WHEN PRINTED *) SMO$K_LOGFNAM = 48; (* LOG FILE SPEC. *) SMO$K_LOGQNAM = 49; (* QUEUE NAME FOR LOG FILE *) SMO$K_KEEPLOG = 50; (* KEEP LOG FILE *) SMO$K_NOSPOOL = 51; (* DON'T SPOOL LOG FILE *) SMO$K_NOKEEPLOG = 52; (* DELETE LOG FILE *) SMO$K_NOLOG = 53; (* CREATE LOG ON NULL DEVICE *) SMO$K_NOTIFY = 54; (* NOTIFY WHEN JOB COMPLETES *) SMO$K_NONOTFY = 55; (* NO NOTIFY *) SMO$K_WSEXTNT = 56; (* WS EXTENT *) SMO$K_NOWSEXTNT = 57; (* NO WS EXTENT *) (* OPTIONS FOR INIT OR START A QUEUE *) CONST SMO$K_CURFORM = 64; (* CURRENT FORMS MOUNTED ON DEVICE *) SMO$K_GENPRT = 65; (* ALLOW GENERIC PRINTING *) SMO$K_NOGENPRT = 66; (* DISALLOW GENERIC PRINTING *) SMO$K_DETJOB = 67; (* QUEUE IS FOR DETACHED JOB QUEUING *) SMO$K_GENDEV = 68; (* QUEUE IS GENERIC DEVICE QUEUE *) SMO$K_NOGENDEV = 69; (* NOT A GENERIC DEVICE *) SMO$K_DEFBRST = 70; (* QUEUE HAS BURST PAGE BY DEFAULT *) SMO$K_NODEFBRST = 71; (* NO DEFAULT BURST PAGE *) SMO$K_DEFFLAG = 72; (* QUEUE HAS FLAG PAGE BY DEFAULT *) SMO$K_NODEFFLAG = 73; (* NO DEFAULT FLAG *) SMO$K_TRMDEV = 74; (* DEVICE IS A TERMINAL *) SMO$K_NOTRMDEV = 75; (* DEVICE IS NOT A TERMINAL *) SMO$K_JOBLIM = 76; (* JOB LIMIT FOR BATCH JOBS *) SMO$K_INIPRI = 77; (* JOB INITIAL PRIORITY *) SMO$K_DISWAP = 78; (* DISABLE SWAPING *) SMO$K_MCPULM = 79; (* MAX CPU TIME LIMIT *) SMO$K_NOMCPULM = 80; (* NO MAX CPU TIME LIMIT *) SMO$K_DCPULM = 81; (* DEFAULT CPU TIME LIMIT *) SMO$K_NODCPULM = 82; (* NO DEFAULT CPU TIME LIMIT *) SMO$K_WSQUTA = 83; (* WORKING SET QUOTA *) SMO$K_NOWSQUTA = 84; (* NO WORKING SET QUOTA *) SMO$K_WSDFLT = 85; (* WORKING SET DEFAULT *) SMO$K_NOWSDFLT = 86; (* NO WORKING SET DEFAULT *) SMO$K_CURDQCHAR = 87; (* CURRENT CHAR. OF THE QUEUE *) SMO$K_SMBNAME = 88; (* SYMBIONT NAME FOR QUEUE *) SMO$K_WSXTANT = 89; (* WS EXTENT *) SMO$K_NOWSXTNT = 90; (* NO WS EXTENT *) SMO$K_NODISWAP = 91; (* ENABLE SWAPPING *) (* OPTIONS FOR RESTART *) CONST SMO$K_NEXTJOB = 96; (* RESTART AT END BEGINNING OF NEXT JOB *) SMO$K_TOPOFILE = 97; (* RESTART JOB AT TOP-OF-FILE *) SMO$K_SPCCNT = 98; (* SPECIFY PAGES TO SPACE OVER *) (* OPTIONS FOR ABORT *) CONST SMO$K_REQUEUE = 112; (* REQUEUE THE FILE *) SMO$K_REQDEST = 113; (* SPECIFY NEW QUEUE DESTINATION *) SMO$K_REQPRIO = 114; (* SPECIFY PRIORITY ON REQUEUE *) (*** MODULE SNAPEVTDEF ***) (*1 ORIGIN and INCREMENTS of 1 *) CONST SNAPEVT$_SNAPSHOT = 1; (* a system snapshot is pending in a non-VAXcluster environment *) SNAPEVT$_CLUPEND = 2; (* a system snapshot is pending in a VAXcluster environment *) SNAPEVT$_RESTART = 3; (* the system has just booted from a snapshot into a non-VAXcluster environment *) SNAPEVT$_CLU_RESTART = 4; (* the system has just booted from a snapshot into a VAXcluster environment *) SNAPEVT$_ABORT = 5; (* a fatal error occurred during the taking of a snapshot *) SNAPEVT$_CLUEXIT = 6; (* the system is resynchronizing after a loss of communications with the remainder *) (* of the cluster *) CONST SNAPEVT$_ROLLOUT = 7; (* a system rollout is pending *) SNAPEVT$_ROLLIN = 8; (* a system rollin has been completed *) SNAPEVT$C_SNAPSHOT = 1; SNAPEVT$C_RESTART = 3; SNAPEVT$C_ABORT = 5; TYPE SNAPEVTCODE$TYPE = RECORD SNAPEVT$W_EVENT : $UWORD; END; (*** MODULE $SSIODEF ***) (*+ *) (* File access modes for open and create *) (*- *) CONST SSIO$M_O_RDONLY = 0; (* Read-only *) SSIO$M_O_WRONLY = 1; (* Write-only *) SSIO$M_O_RDWR = 2; (* Read and write *) SSIO$M_O_ACCMODE = 3; (* Mask for access mode field *) (*+ *) (* File status flags for open, create, and setfl (fcntl) *) (*- *) CONST SSIO$M_O_APPEND = 8; (* All writes append to EOF *) (*+ *) (* File open and create options *) (*- *) CONST SSIO$M_O_CREAT = 512; (* Create file if it does not exist *) SSIO$M_O_TRUNC = 1024; (* Truncate file *) SSIO$M_O_EXCL = 2048; (* If O_CREAT and O_EXCL both set, open fails if file exists *) SSIO$M_O_NOCTTY = 4096; (* If TTY dev, not to be controlling TTY for process *) (*+ *) (* Positioning (lseek) options *) (*- *) CONST SSIO$C_SEEK_SET = 0; (* Set offset to value provided *) SSIO$C_SEEK_CUR = 1; (* Offset relative to current position *) SSIO$C_SEEK_END = 2; (* Offset relative to current EOF *) (*+ *) (* Other miscellaneous values *) (*- *) CONST SSIO$C_SSIZE_MAX = 2147483647; (* Largest read/write size (in bytes) permitted *) (*** MODULE $STENVDEF ***) CONST STENV$K_AUTO_ACTION = 1; STENV$K_BOOT_DEV = 2; STENV$K_BOOTDEF_DEV = 3; STENV$K_BOOTED_DEV = 4; STENV$K_BOOT_FILE = 5; STENV$K_BOOTED_FILE = 6; STENV$K_BOOT_OSFLAGS = 7; STENV$K_BOOTED_OSFLAGS = 8; STENV$K_BOOT_RESET = 9; STENV$K_DUMP_DEV = 10; STENV$K_ENABLE_AUDIT = 11; STENV$K_LICENSE = 12; STENV$K_CHAR_SET = 13; STENV$K_LANGUAGE = 14; STENV$K_TTY_DEV = 15; STENV$K_SYSROOT = 16; STENV$K_BTFLAGS = 17; STENV$K_FRU_EEROM = 18; TYPE ItemType$TYPE = RECORD STENVDEF$L_ITEM_CODE : UNSIGNED; STENVDEF$L_BUF_LEN : UNSIGNED; STENVDEF$Q_BUF_ADDR : $QUAD; STENVDEF$Q_RET_ADDR : $QUAD; END; (* *) (* The following are operation codes for the FRU_EEROM item code. *) (* *) CONST STENVDEF$_K_FREE_FORM = 0; STENVDEF$_K_SDD_LOG = 25; (*** MODULE $STSDEF ***) (* *) (* MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES. *) (* *) (* *) (* $STRUCT SS *) (* *) (* THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL' *) (*+ *) (* Define 32-bit VAX-11 error code longword fields *) (* Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1 *) (* Changed to agree with new status value W. H. Brown 18-NOV-1977 *) (*- *) CONST STS$M_SEVERITY = 7; STS$M_COND_ID = 268435448; STS$M_CONTROL = -268435456; STS$M_SUCCESS = 1; STS$M_MSG_NO = 65528; STS$M_CODE = 32760; STS$M_FAC_SP = 32768; STS$M_CUST_DEF = 134217728; STS$M_INHIB_MSG = 268435456; STS$M_FAC_NO = 268369920; STS$K_WARNING = 0; (* WARNING *) STS$K_SUCCESS = 1; (* SUCCESSFUL COMPLETION *) STS$K_ERROR = 2; (* ERROR *) STS$K_INFO = 3; (* INFORMATION *) STS$K_SEVERE = 4; (* SEVERE ERROR *) TYPE STS$TYPE = RECORD CASE INTEGER OF 1: (STS$R_STSDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (STS$V_SEVERITY : [POS(0)] $BIT3; (* severity code *) STS$V_COND_ID : [POS(3)] $BIT25; (* condition id *) STS$V_CONTROL : [POS(28)] $BIT4; (* control bits *) ); 3: (STS$R_STSDEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (STS$V_SUCCESS : [POS(0)] $BOOL; (* Success *) STS$V_MSG_NO : [POS(3)] $BIT13; (* Message number *) ); 5: (STS$R_STSDEF_BITS2 : [BYTE(4)] RECORD END; ); 6: (STS$V_CODE : [POS(3)] $BIT12; (* code *) STS$V_FAC_SP : [POS(15)] $BOOL; (* 1 if facility specific *) STS$V_CUST_DEF : [POS(27)] $BOOL; (* 1 if sub-system is customer (or CSS) defined *) STS$V_INHIB_MSG : [POS(28)] $BOOL; (* 1 if message should not be printed *) ); 7: (STS$R_STSDEF_BITS3 : [BYTE(4)] RECORD END; ); 8: (STS$V_FAC_NO : [POS(16)] $BIT12; (* Facility is 12 bits *) (*+ *) (* Define severity codes *) (*- *) ) END; (*** MODULE $SYIDEF ***) (*+ *) (* Get System Information Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* (preceding the ENDlistname item) so that users will not have *) (* to relink. *) (*- *) (* DEFINE TABLE TYPES *) CONST SYI$C_EXETYPE = 1; (* Executive cells *) SYI$C_FLDTYPE = 2; (* Sub-field data *) 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, *) (* which have item-codes in the FLD section. (after this one) *) CONST SYI$_VERSION = 4096; (* VMS version number *) SYI$_SID = 4097; (* System ID register *) SYI$_PFCDEFAULT = 4098; (* Default page fault cluster size *) SYI$_PAGTBLPFC = 4099; (* Default page table page fault cluster *) SYI$_SYSPFC = 4100; (* Page fault cluster for system paging *) SYI$_KFILSTCNT = 4101; (* (Obsolete, to be deleted in a future release) *) SYI$_GBLSECTIONS = 4102; (* Global section count *) SYI$_GBLPAGES = 4103; (* Global page count *) SYI$_GBLPAGFIL = 4104; (* Global page page file page limit *) SYI$_MAXPROCESSCNT = 4105; (* Maximum process count *) SYI$_PIXSCAN = 4106; (* Process scan count *) SYI$_PROCSECTCNT = 4107; (* Process section count *) SYI$_MINWSCNT = 4108; (* Minimum working set size *) SYI$_PAGFILCNT = 4109; (* Number of paging files *) SYI$_SWPFILCNT = 4110; (* Number of swap files *) SYI$_SYSMWCNT = 4111; (* System working set count *) SYI$_INTSTKPAGES = 4112; (* Interrupt stack size *) SYI$_DLCKEXTRASTK = 4113; (* Extra int stack for deadlock searches *) SYI$_BALSETCNT = 4114; (* Balance set count *) SYI$_IRPCOUNT = 4115; (* Count of I/O packets *) SYI$_IRPCOUNTV = 4116; (* Limit of extension of IRP list *) SYI$_WSMAX = 4117; (* Max size of process working set *) SYI$_NPAGEDYN = 4118; (* Non-paged dynamic pool *) SYI$_NPAGEVIR = 4119; (* Limit of extension of above *) SYI$_PAGEDYN = 4120; (* Paged dynamic pool *) SYI$_VIRTUALPAGECNT = 4121; (* Max virtual page count *) SYI$_SPTREQ = 4122; (* Requested SPT extension *) SYI$_EXUSRSTK = 4123; (* Extra user stack provided *) SYI$_LRPCOUNT = 4124; (* Number of large request packets *) SYI$_LRPCOUNTV = 4125; (* Limit of extension of LRP list *) SYI$_LRPSIZE = 4126; (* Size of large request packet *) SYI$_LRPMIN = 4127; (* Min alloc request for LRPs *) SYI$_SRPCOUNT = 4128; (* Number of small request packets *) SYI$_SRPCOUNTV = 4129; (* Limit of extension of SRP list *) SYI$_SRPSIZE = 4130; (* Size of small request packet *) SYI$_SRPMIN = 4131; (* Min alloc request for SRPs *) SYI$_CHANNELCNT = 4132; (* Number of permanent I/O channels *) SYI$_PIOPAGES = 4133; (* Process I/O pages *) SYI$_CTLPAGES = 4134; (* Control region impure pages *) SYI$_CTLIMGLIM = 4135; (* Limit on use of proc alloc region *) SYI$_IMGIOCNT = 4136; (* Default image I/O address space *) SYI$_QUANTUM = 4137; (* Process quantum *) SYI$_MPW_WRTCLUSTER = 4138; (* Page write cluster factor *) SYI$_MPW_HILIMIT = 4139; (* Modified page list high limit *) SYI$_MPW_LOLIMIT = 4140; (* Modified page list low limit *) SYI$_MPW_PRIO = 4141; (* Modified page writer I/O priority *) SYI$_SWP_PRIO = 4142; (* Swapper I/O priority *) SYI$_MPW_THRESH = 4143; (* Modified page writer lower threshold *) SYI$_MPW_WAITLIMIT = 4144; (* Modified page writer busy wait limit *) SYI$_TBSKIPWSL = 4145; (* Max number WSlist entries to skip *) SYI$_PHYSICALPAGES = 4146; (* Memory size in pages *) SYI$_PFRATL = 4147; (* Page fault rate lower threshold *) SYI$_PFRATH = 4148; (* Page fault rate high threshold *) SYI$_PFRATL_SYS = 4149; (* PFRATL for the system working set *) SYI$_WSINC = 4150; (* Working set increment *) SYI$_WSDEC = 4151; (* Working set decrement *) SYI$_AWSMIN = 4152; (* Working set minimum *) SYI$_AWSTIME = 4153; (* Working set measurement interval *) SYI$_SWPRATE = 4154; (* Swap rate control (max) *) SYI$_SWPOUTPGCNT = 4155; (* Desired proc page cnt for an outswap *) SYI$_SWPALLOCINC = 4156; (* Swap file allocation increment value *) SYI$_IOTA = 4157; (* I/O time allowance *) SYI$_LONGWAIT = 4158; (* When HIB or LEF proc becomes longwait *) SYI$_SWPFAIL = 4159; (* Swap fail count *) SYI$_VMSD1 = 4160; (* Reserved to VMS development (DYNAMIC) *) SYI$_VMSD2 = 4161; (* " *) SYI$_VMSD3 = 4162; (* " *) SYI$_VMSD4 = 4163; (* " *) SYI$_VMS5 = 4164; (* Reserved to VMS development (STATIC) *) SYI$_VMS6 = 4165; (* " *) SYI$_VMS7 = 4166; (* " *) SYI$_VMS8 = 4167; (* " *) SYI$_USERD1 = 4168; (* Reserved for users (DYNAMIC) *) SYI$_USERD2 = 4169; (* " *) SYI$_USER3 = 4170; (* Reserved for users (STATIC) *) SYI$_USER4 = 4171; (* " *) SYI$_EXTRACPU = 4172; (* Extra CPU time allowed on expiration *) SYI$_MAXSYSGROUP = 4173; (* Max group code for system UIC *) SYI$_MVTIMEOUT = 4174; (* Timeout for mount verification *) SYI$_MAXBUF = 4175; (* Maximum allowable buffered I/O size *) SYI$_DEFMBXBUFQUO = 4176; (* Def buffer quota for mailbox creation *) SYI$_DEFMBXMXMSG = 4177; (* Def max msg size for mailbox creation *) SYI$_DEFMBXNUMMSG = 4178; (* Def number of messages for " *) SYI$_FREELIM = 4179; (* Desired free list length *) SYI$_FREEGOAL = 4180; (* Target free list length *) SYI$_GROWLIM = 4181; (* Free > growlim to grow proc > wsquota *) SYI$_BORROWLIM = 4182; (* Same as above??? *) SYI$_LOCKRETRY = 4183; (* Multi-CPU lock retry count *) SYI$_XFMAXRATE = 4184; (* Max DR32 data rate *) SYI$_LAMAPREGS = 4185; (* Number of UBA map regs for LPA11 *) SYI$_REALTIME_SPTS = 4186; (* SPT entries for CONINTERR processes *) SYI$_CLISYMTBL = 4187; (* Number of pages for CLI symbol table *) SYI$_LOCKIDTBL = 4188; (* Size of lock ID table *) SYI$_RESHASHTBL = 4189; (* Size of resource hash table *) SYI$_DEADLOCK_WAIT = 4190; (* Deadlock detection timeout period *) SYI$_SCSBUFFCNT = 4191; (* SCS buffer descriptor table entries *) SYI$_SCSCONNCNT = 4192; (* SCS connect descriptor table entries *) SYI$_SCSRESPCNT = 4193; (* SCS response descriptor table entries *) SYI$_SCSMAXDG = 4194; (* SCS maximum datagram size *) SYI$_SCSMAXMSG = 4195; (* SCS max sequenced message size *) SYI$_SCSFLOWCUSH = 4196; (* SCS flow control cushion *) SYI$_SCSSYSTEMID = 4197; (* SCS system ID (48 bits) *) SYI$_SCSSYSTEMIDH = 4198; (* High bits of above *) SYI$_SCSNODE = 4199; (* SCS system node name *) SYI$_PRCPOLINTERVAL = 4201; (* SCA process polling interval *) SYI$_PASTIMOUT = 4202; (* CI port START/STACK timeout *) SYI$_PASTDGBUF = 4203; (* CI port DG buffers for START handshake *) SYI$_PANUMPOLL = 4204; (* Number of CI ports to poll *) SYI$_PAPOLLINTERVAL = 4205; (* Time between CI port polls *) SYI$_PAPOOLINTERVAL = 4206; (* Time between SYSAPs pool check *) SYI$_TIMEPROMPTWAIT = 4207; (* Time prompt timeout (when booting) *) SYI$_UDABURSTRATE = 4208; (* Max number of longwords per NPR - 1 *) SYI$_LNMSHASHTBL = 4209; (* Size of system space log name hash table *) SYI$_LNMPHASHTBL = 4210; (* Size of process space " *) SYI$_TTY_SCANDELTA = 4211; (* Delta time for dialup timer scan *) SYI$_TTY_DIALTYPE = 4212; (* Flags for dialup type *) SYI$_TTY_SPEED = 4213; (* Terminal default: speed *) SYI$_TTY_RSPEED = 4214; (* " " receive speed *) SYI$_TTY_PARITY = 4215; (* " " parity *) SYI$_TTY_BUF = 4216; (* " " line width *) SYI$_TTY_DEFCHAR = 4217; (* " " characteristics *) SYI$_TTY_DEFCHAR2 = 4218; (* " " characteristics, 2nd longword *) SYI$_TTY_TYPAHDSZ = 4219; (* Size of typeahead buffer *) SYI$_TTY_ALTYPAHD = 4220; (* Alternate typeahead size *) SYI$_TTY_ALTALARM = 4221; (* Alt typeahead alarm size *) SYI$_TTY_DMASIZE = 4222; (* Dma size *) SYI$_TTY_PROT = 4223; (* Default terminal alloc protection *) SYI$_TTY_OWNER = 4224; (* Default terminal owner *) SYI$_TTY_CLASSNAME = 4225; (* Default terminal class name prefix *) SYI$_TTY_SILOTIME = 4226; (* Default silo timeout for DMF32 *) SYI$_TTY_DEFPORT = 4227; (* DEFAULT PORT ACTION PARAMETER *) SYI$_RMS_DFMBC = 4228; (* RMS default: multi-block count *) SYI$_RMS_DFMBFSDK = 4229; (* " " multi-buffer count for disk (SEQ) *) SYI$_RMS_DFMBFSMT = 4230; (* " " multi-buffer count for tape *) SYI$_RMS_DFMBFSUR = 4231; (* " " multi-buffer count for unit record *) SYI$_RMS_DFMBFREL = 4232; (* " " multi-buffer count for REL files *) SYI$_RMS_DFMBFIDX = 4233; (* " " multi-buffer count for ISAM files *) SYI$_RMS_CONPOLICY = 4234; (* " " Default RMS Contention Policy *) SYI$_RMS_PROLOGUE = 4235; (* " " prolog *) SYI$_RMS_EXTEND_SIZE = 4236; (* " " file extend quantity *) SYI$_RMS_FILEPROT = 4237; (* " " file protection *) SYI$_PQL_DASTLM = 4238; (* Def AST limit *) SYI$_PQL_MASTLM = 4239; (* Min " *) SYI$_PQL_DBIOLM = 4240; (* Def buffered I/O limit *) SYI$_PQL_MBIOLM = 4241; (* Min " *) SYI$_PQL_DBYTLM = 4242; (* Def buffered I/O byte count limit *) SYI$_PQL_MBYTLM = 4243; (* Min " *) SYI$_PQL_DCPULM = 4244; (* Def CPU time limit *) SYI$_PQL_MCPULM = 4245; (* Min " *) SYI$_PQL_DDIOLM = 4246; (* Def direct I/O limit *) SYI$_PQL_MDIOLM = 4247; (* Min " *) SYI$_PQL_DFILLM = 4248; (* Def open file limit *) SYI$_PQL_MFILLM = 4249; (* Min " *) SYI$_PQL_DPGFLQUOTA = 4250; (* Def paging file quota *) SYI$_PQL_MPGFLQUOTA = 4251; (* Min " *) SYI$_PQL_DPRCLM = 4252; (* Def sub-process limit *) SYI$_PQL_MPRCLM = 4253; (* Min " *) SYI$_PQL_DTQELM = 4254; (* Def timer queue entry limit *) SYI$_PQL_MTQELM = 4255; (* Min " *) SYI$_PQL_DWSDEFAULT = 4256; (* Def working set default size *) SYI$_PQL_MWSDEFAULT = 4257; (* Min " *) SYI$_PQL_DWSQUOTA = 4258; (* Def working set quota *) SYI$_PQL_MWSQUOTA = 4259; (* Min " *) SYI$_PQL_DWSEXTENT = 4260; (* Def working set extent *) SYI$_PQL_MWSEXTENT = 4261; (* Min " *) SYI$_PQL_DENQLM = 4262; (* Def enqueue limit *) SYI$_PQL_MENQLM = 4263; (* Min " *) SYI$_ACP_MAPCACHE = 4264; (* Number of blocks in bitmap cache *) SYI$_ACP_HDRCACHE = 4265; (* Number of blocks in file header cache *) SYI$_ACP_DIRCACHE = 4266; (* Number of blocks in directory cache *) SYI$_ACP_WORKSET = 4267; (* ACP working set *) SYI$_ACP_FIDCACHE = 4268; (* Number of cached index file slots *) SYI$_ACP_EXTCACHE = 4269; (* Number of cached disk extents *) SYI$_ACP_EXTLIMIT = 4270; (* Max fraction of disk to cache *) SYI$_ACP_QUOCACHE = 4271; (* Number of file quota entries to cache *) SYI$_ACP_SYSACC = 4272; (* Default access for system volumes *) SYI$_ACP_MAXREAD = 4273; (* Max number of direct blks to read *) SYI$_ACP_WINDOW = 4274; (* Default window size for system volumes *) SYI$_ACP_WRITEBACK = 4275; (* Deferred cache writeback enable *) SYI$_ACP_DATACHECK = 4276; (* ACP datacheck enable flags *) SYI$_ACP_BASEPRIO = 4277; (* ACP base priority *) SYI$_ACP_SWAPFLGS = 4278; (* ACP swap flags *) SYI$_DEFPRI = 4279; (* Default priority for Job Initiations *) SYI$_IJOBLIM = 4280; (* Limit for interactive jobs *) SYI$_BJOBLIM = 4281; (* Limit for batch jobs *) SYI$_NJOBLIM = 4282; (* Limit for network jobs *) SYI$_RJOBLIM = 4283; (* Limit for remote terminal jobs *) SYI$_QUORUM = 4284; (* Connection manager cluster QUORUM *) SYI$_VOTES = 4285; (* Connection manager VOTES from this system *) SYI$_RECNXINTERVAL = 4286; (* Connection manager reconnect interval *) SYI$_BOOTTIME = 4287; (* 64-bit abs. system time at system boot *) SYI$_LOCKIDTBL_MAX = 4288; (* Maximum size of lock ID table. *) SYI$_TAILORED = 4289; (* Is this system tailored? *) SYI$_STARTUP_P1 = 4290; (* Parameters for passing information *) SYI$_STARTUP_P2 = 4291; (* to system startup procedure. *) SYI$_STARTUP_P3 = 4292; SYI$_STARTUP_P4 = 4293; SYI$_STARTUP_P5 = 4294; SYI$_STARTUP_P6 = 4295; SYI$_STARTUP_P7 = 4296; SYI$_STARTUP_P8 = 4297; SYI$_CLUSTER_NODES = 4298; (* total number of nodes in cluster *) SYI$_CLUSTER_VOTES = 4299; (* " " " votes " " *) SYI$_CLUSTER_QUORUM = 4300; (* " quorum in cluster *) SYI$_CLUSTER_FSYSID = 4301; (* founding systemid *) SYI$_CLUSTER_FTIME = 4302; (* founding boottime *) SYI$_CLUSTER_MEMBER = 4303; (* true if in a live cluster *) SYI$_NODE_CSID = 4304; (* cluster system id of target node *) SYI$_NODE_VOTES = 4305; (* votes of target node *) SYI$_NODE_QUORUM = 4306; (* quorum of " " *) SYI$_NODE_SYSTEMID = 4307; (* systemid of " " *) SYI$_NODE_SWINCARN = 4308; (* S/W incarnation of " " *) SYI$_NODE_SWTYPE = 4309; (* S/W type of " " *) SYI$_NODE_SWVERS = 4310; (* S/W version of " " *) SYI$_NODE_HWTYPE = 4311; (* H/W type of " " *) SYI$_NODE_HWVERS = 4312; (* H/W version of " " *) SYI$_NODENAME = 4313; (* SCS nodename of " " *) SYI$_ARCHFLAG = 4314; (* Flags used by uVAX code *) SYI$_SCS_EXISTS = 4315; (* Flag to indicate presence of SCS *) SYI$_DISK_QUORUM = 4316; (* Cluster quorum device name (in ASCII) *) SYI$_XSID = 4317; (* Extended System Identification Register *) SYI$_PAMAXPORT = 4320; (* Max PA port to poll *) SYI$_PASANITY = 4321; (* PA sanity timer enable/disable switch *) SYI$_DEFQUEPRI = 4322; (* Default Que Priority *) SYI$_MAXQUEPRI = 4323; (* Max Que Priority *) SYI$_QDSKINTERVAL = 4324; (* Disk Quorum Interval *) SYI$_ALLOCLASS = 4325; (* Allocation class *) SYI$_LGI_RETRY_LIM = 4326; (* Login retry limit *) SYI$_LGI_RETRY_TMO = 4327; (* Login retry timeout *) SYI$_LGI_BRK_LIM = 4328; (* Login failure limit *) SYI$_LGI_BRK_TMO = 4329; (* Login suspect timeout *) SYI$_LGI_HID_TIM = 4330; (* Login evasive action time *) SYI$_LGI_PWD_TMO = 4331; (* System password drop dead time *) SYI$_PQL_DJTQUOTA = 4332; (* Default Job-wide Logical Name Table Creation Quota *) SYI$_PQL_MJTQUOTA = 4333; (* Minimum Job-wide Logical Name Table Creation Quota *) SYI$_VAXCLUSTER = 4334; (* VAXcluster participation *) SYI$_LOCKDIRWT = 4335; (* Lock manager directory system weight *) SYI$_QDSKVOTES = 4336; (* Votes held by quorum disk *) SYI$_DORMANTWAIT = 4337; (* When low pri COM proc becomes dormant *) SYI$_PAGEFILE_PAGE = 4338; (* Total pagefile pages *) SYI$_SWAPFILE_PAGE = 4339; (* Total swapfile pages *) SYI$_PAGEFILE_FREE = 4340; (* Free pagefile pages *) SYI$_SWAPFILE_FREE = 4341; (* Free swapfile pages *) SYI$_TTY_TIMEOUT = 4342; (* Seconds for virtual terminal timeout *) SYI$_TTY_AUTOCHAR = 4343; (* autobaud recognition character *) SYI$_PANOPOLL = 4344; (* Disable/enable CI port polling *) SYI$_PE1 = 4345; (* Reserved TO PEDRIVER (DYNAMIC) *) SYI$_PE2 = 4346; (* " *) SYI$_PE3 = 4347; (* " *) SYI$_PE4 = 4348; (* " *) SYI$_PE5 = 4349; (* Reserved TO PEDRIVER (STATIC) *) SYI$_PE6 = 4350; (* " *) SYI$_RMS_GBLBUFQUO = 4351; (* RMS global buffer quota *) SYI$_RMS_DFNBC = 4352; (* " " network block count *) SYI$_ACP_DINDXCACHE = 4353; (* File system directory index cache blocks *) SYI$_MAXATTACHPRI = 4354; (* Maximum scheduling prio for ASMP attached processor *) SYI$_SMP_CPUS = 4355; (* Number of CPUs to boot in SMP system *) SYI$_SMP_CPUSH = 4356; (* Hi Number of CPUs to boot in SMP system *) SYI$_FALLBACK_MODE = 4357; (* Cluster fallback mode *) SYI$_MPW_LOWAITLIMIT = 4358; (* Modified page writer lower busy wait limit *) SYI$_MPW_IOLIMIT = 4359; (* Modified page writer max concurrent I/O count *) SYI$_S0_PAGING = 4360; (* System space paging flags *) SYI$_HW_MODEL = 4361; (* System model number (from SB$B_HWVERS) *) SYI$_HW_NAME = 4362; (* System model name from #/name trans. table *) SYI$_SCH_CTLFLAGS = 4363; (* CPU scheduling control flags (obsolete) *) SYI$_NODE_EVOTES = 4364; (* Votes expected by target node *) SYI$_CLUSTER_EVOTES = 4365; (* Number of expected votes in cluster *) SYI$_MULTIPROCESSING = 4366; (* Multiprocessor participation *) SYI$_FREE_GBLPAGES = 4367; (* Total, free global pages *) SYI$_CONTIG_GBLPAGES = 4368; (* Maximum, contiguous free global pages *) SYI$_FREE_GBLSECTS = 4369; (* Total, free global sections *) SYI$_EXPECTED_VOTES = 4370; (* Expected votes *) SYI$_PU_OPTIONS = 4371; (* Select PUDRIVER load options *) SYI$_WPTTE_SIZE = 4372; (* # Watchpoint Trace Table Entries *) SYI$_WPRE_SIZE = 4373; (* Watchpoint Restore Entry size *) SYI$_SMP_SANITY_CNT = 4374; (* # SMP Sanity events bef. timeout *) SYI$_SMP_TICK_CNT = 4375; (* Clock ticks between SMP sanity time cycles *) SYI$_QBUS_MULT_INTR = 4376; (* uVAX/QBUS multi-level interrupt enable flag *) SYI$_SYSTEM_RIGHTS = 4377; (* System rights list segment *) SYI$_SMP_SPINWAIT = 4378; (* SMP normal busywait timeout *) SYI$_SMP_LNGSPINWAIT = 4379; (* SMP LONG busywait timeout *) SYI$_TIME_CONTROL = 4380; (* Time-related control functions *) SYI$_AVAILCPU_CNT = 4381; (* Number of CPUs in this machine *) SYI$_ACTIVECPU_CNT = 4382; (* Number of CPUs up and running *) SYI$_MSCP_LOAD = 4386; (* Load MSCP server at boot time *) SYI$_MSCP_SERVE_ALL = 4387; (* Serve all disks *) SYI$_POOLCHECK = 4388; (* Pool debugging in MEMORYALC.MAR *) SYI$_TAPE_MVTIMEOUT = 4389; (* Magtape mount verification *) SYI$_PSEUDOLOA = 4390; (* Pseudoloa image size for tape boot *) SYI$_MINCLASSPRI = 4391; (* Min. priority for class scheduling *) SYI$_MAXCLASSPRI = 4392; (* Max. priority for class scheduling *) SYI$_MINPRPRI = 4393; (* Min. priority for preemptive-resume scheduling *) SYI$_AUTOCONFIG_ALGO = 4394; (* Selects which algorithmn SYSGEN uses to autoconfigure. *) SYI$_ERRORLOGBUFFERS = 4395; (* Number of buffers for error logging *) SYI$_JOBCTLD = 4396; (* Dynamic SYSGEN flag to handle job controller diagnostics and Rolling upgrade. *) SYI$_WINDOW_SYSTEM = 4397; (* Default windowing system for workstation *) SYI$_MSCP_BUFFER = 4398; (* Pages allocated to server local pool *) SYI$_MSCP_CREDITS = 4399; (* Number of send credits extended by server *) SYI$_BREAKPOINTS = 4400; (* Mask of INI$BRK callers in exec used in this boot *) SYI$_CLOCK_INTERVAL = 4401; (* Time (in usec) between interval timer clock interrupts *) SYI$_DUMPSTYLE = 4402; (* Mask specifying desired format of dump file (full dump or subset dump) *) SYI$_NISCS_PORT_SERV = 4403; (* Port services flag *) SYI$_RSRVPAGCNT = 4404; (* No. of pagefile pages to escrow *) SYI$_VECTOR_PROC = 4405; (* Load vector processing *) SYI$_VECTOR_MARGIN = 4406; (* Vector margin *) SYI$_AFFINITY_SKIP = 4407; (* Affinity skip count *) SYI$_AFFINITY_TIME = 4408; (* Affinity queue time *) SYI$_VECTOR_EMULATOR = 4409; (* Vector emulator present flag *) SYI$_VP_MASK = 4410; (* Mask of vector processors *) SYI$_VP_NUMBER = 4411; (* Number of vector processors *) SYI$_USED_GBLPAGCNT = 4412; (* Current count of global pages in use *) SYI$_USED_GBLPAGMAX = 4413; (* Maximum count of global pages in use *) SYI$_USED_GBLSECTCNT = 4414; (* Current count of global sections in use *) SYI$_USED_GBLSECTMAX = 4415; (* Maximum count of global sections in use *) SYI$_ERLBUFFERPAGES = 4416; (* Pages in each ERL Buffer *) SYI$_TAPE_ALLOCLASS = 4417; (* Tape Allocation class *) SYI$_PFRATH_SYS = 4418; (* PFRATH for the system working set *) SYI$_WSINC_SYS = 4419; (* WSINC for the system working set *) SYI$_WSDEC_SYS = 4420; (* WSDEC for the system working set *) SYI$_AWSMIN_SYS = 4421; (* AWSMIN for the system working set *) SYI$_AWSTIME_SYS = 4422; (* AWSTIME for the system working set *) SYI$_BOOT_STYLE = 4423; (* Boot Style *) SYI$_FT_FLAGS = 4424; (* Fault Tolerance Flags field *) SYI$_SHADOWING = 4425; (* Shadowing mode *) SYI$_SHADOW_SYS_DISK = 4426; (* Volume shadowed system disk *) SYI$_SHADOW_SYS_UNIT = 4427; (* Shadowed system disk unit number *) SYI$_SHADOW_MAX_COPY = 4428; (* Max shadow copy threads allowed *) SYI$_TIMVCFAIL = 4429; (* Time to detect VC failure *) SYI$_PRIORITY_OFFSET = 4431; (* Priority gap for preemption *) SYI$_VCC_FLAGS = 4432; (* VBN static cache flags *) SYI$_VCC_MAXSIZE = 4437; (* Max size of VBN cache *) SYI$_MMG_CTLFLAGS = 4441; (* Bit mask to control A/T mem mgmt. *) SYI$_NISCS_MAX_PKTSZ = 4443; (* Maximum number of bytes allocated for all NISCS packets *) SYI$_NISCS_LAN_OVRHD = 4444; (* Bytes in NISCS packets reserved for other uses (eg DESNC) *) SYI$_DECNET_VERSION = 4445; (* Version of DECnet installed *) SYI$_TMSCP_LOAD = 4446; (* Load TMSCP tape server at boot time *) SYI$_LGI_CALLOUTS = 4447; (* Number of LOGINOUT local policy callouts *) SYI$_NET_CALLOUTS = 4448; (* Number of DECNET Login local policy callouts *) SYI$_IEEE_ADDRESS = 4449; (* 48 bit IEEE unique address - low order 32 bits *) SYI$_IEEE_ADDRESSH = 4450; (* 48 bit IEEE unique address - high order 16 bits *) SYI$_SHADOW_MBR_TMO = 4451; (* Timeout interval for HBS shadow members *) SYI$_PAGE_SIZE = 4452; (* Memory page size in bytes *) SYI$_ARCH_TYPE = 4453; (* Architecture type *) SYI$_ARCH_NAME = 4454; (* Architecture name *) SYI$_CRD_CONTROL = 4455; (* CRD scrub/replace control *) SYI$_SECURITY_POLICY = 4456; (* C2/B1 security policy bitmask *) SYI$_DNVOSI1 = 4457; (* DECnet/OSI for VMS *) SYI$_MEMSIZE = 4459; (* System memory size in pages *) SYI$_KSTACKPAGES = 4460; (* Pages in Kernel Stack *) SYI$_PHYSICAL_MEMORY = 4461; (* Max of physical memory to use *) SYI$_XQP_ALLOC_BLKS = 4462; (* Flag - can XQP allocate blocks *) SYI$_ZERO_LIST_HI = 4463; (* Zeroed list high limit *) SYI$_CPUTYPE = 4464; (* CPU type of Primary CPU from HWRPB *) SYI$_SYSTYPE = 4465; (* System type from HWRPB *) SYI$_ITB_ENTRIES = 4466; (* Number of code huge page TBs to use *) SYI$_GH_RSRVPGCNT = 4467; (* pages reserved in code huge page *) SYI$_DEF_PRIO_MIN = 4468; (* MIN priority for default policy *) SYI$_DEF_PRIO_MAX = 4469; (* MAX priority for default policy *) SYI$_PSXFIFO_PRIO_MIN = 4470; (* MIN priority for POSIX FIFO policy *) SYI$_PSXFIFO_PRIO_MAX = 4471; (* MAX priority for POSIX FIFO policy *) SYI$_PSXRR_PRIO_MIN = 4472; (* MIN priority for POSIX Rnd-Robbin policy *) SYI$_PSXRR_PRIO_MAX = 4473; (* MAX priority for POSIX Rnd-Robbin policy *) SYI$_XQPCTLD1 = 4474; (* Reserved for XQP use (dynamic) *) SYI$_XQPCTL2 = 4475; (* Reserved for XQP use *) SYI$_CPUCONF = 4477; (* CPU Configuration bitmask: 0 through 31 *) SYI$_DECNET_FULLNAME = 4478; (* DECnet/OSI fullname (or DECnet Phase IV node name) *) SYI$_XQPCTLD3 = 4479; (* F11BXQP Specific parameters *) SYI$_XQPCTL4 = 4480; (* | *) SYI$_XQPCTLD5 = 4481; (* | *) SYI$_XQPCTL6 = 4482; (* | *) SYI$_XQPCTLD7 = 4483; (* | *) SYI$_XQPCTL8 = 4484; (* v *) SYI$_DBGTK_SCRATCH = 4485; (* HLL System debugger scratch memory request *) SYI$_PALCODE_VERSION = 4486; (* Version of PALcode *) SYI$_CONSOLE_VERSION = 4487; (* Version of Console firmware *) SYI$_GH_EXEC_CODE = 4488; (* Pages in the execlet code region *) SYI$_GH_EXEC_DATA = 4489; (* Pages in the execlet data region *) SYI$_GH_RES_CODE = 4490; (* Pages in the resident image S0S1 code region *) SYI$_GH_RES_DATA = 4491; (* Pages in the resident image data region *) SYI$_IMGREG_PAGES = 4492; (* Pages in the P1 image-region *) SYI$_SHADOW_SYS_TMO = 4493; (* Timeout interval for HBS system disk- new and after - shadow members *) SYI$_SHADOW_SYS_WAIT = 4494; (* Timeout interval for HBS system disk- exists - shadow members *) SYI$_SHADOW_ENABLE = 4495; (* Member removed at reboot from HBVS set. *) SYI$_SHADOW_SITE_O = 4496; (* OBSOLETE default site for shadow set (text) *) SYI$_SYSTEM_CHECK = 4497; (* load/enable system problem isolation code *) SYI$_PFN_COLOR_COUNT = 4498; (* PFN Color Count *) SYI$_REAL_CPUTYPE = 4499; (* Actual CPU type of Primary CPU from *) SYI$_SCSICLUSTER_P1 = 4500; (* Reserved for SCSI Cluster *) SYI$_SCSICLUSTER_P2 = 4501; (* Reserved for SCSI Cluster *) SYI$_SCSICLUSTER_P3 = 4502; (* Reserved for SCSI Cluster *) SYI$_SCSICLUSTER_P4 = 4503; (* Reserved for SCSI Cluster *) SYI$_FILE_CACHE = 4504; (* Percentage of physical memory reserved for Dollar file system cache *) SYI$_TMSCP_SERVE_ALL = 4505; (* Serve all tapes *) SYI$_DR_UNIT_BASE = 4506; (* unit base for DR devices *) SYI$_MC_SERVICES_P0 = 4507; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P1 = 4508; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P2 = 4509; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P3 = 4510; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P4 = 4511; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P5 = 4512; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P6 = 4513; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P7 = 4514; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P8 = 4515; (* Reserved for MEmory Channel Services *) SYI$_MC_SERVICES_P9 = 4516; (* Reserved for MEmory Channel Services *) SYI$_S2_SIZE = 4517; (* Size in Mbytes for S2 space *) SYI$_PROCESS_SPACE_LIMIT = 4518; (* Highest process private VA *) SYI$_PT_BASE = 4519; (* Base VA of PT_space *) SYI$_SHARED_VA_PTES = 4520; (* Boundary between process and system space PTEs *) SYI$_MULTITHREAD = 4521; (* per process kernel thread limit *) SYI$_CWCREPRC_ENABLE = 4522; (* Allow remote process creation by unprivileged user *) SYI$_MAXBOBMEM = 4523; (* Maximum physical memory for buffer objects (pagelets) *) SYI$_FAST_PATH = 4524; (* Fast Path enable/disable *) SYI$_IO_PREFER_CPUS = 4525; (* Bit mask of CPUs available to be Fast Path preferred CPUs *) SYI$_ACTIVE_CPU_MASK = 4526; (* Currently active CPU mask *) SYI$_AVAIL_CPU_MASK = 4527; (* Mask of existing system CPUs *) SYI$_PRIMARY_CPUID = 4528; (* CPUID of the primary processor *) SYI$_MAX_CPUS = 4529; (* Maximum allowed CPUs in system *) SYI$_CPUCAP_MASK = 4530; (* Array of CPU capability masks *) SYI$_FILE_CACHE_MIN = 4531; (* Min # of pages of cache reserved for Spiralog file system *) SYI$_FILE_CACHE_MAX = 4532; (* Max # of pages of cache reserved for Spiralog file system *) SYI$_F64CTL1 = 4533; (* Reserved to Spiralog file system *) SYI$_F64CTL2 = 4534; (* | *) SYI$_F64CTLD3 = 4535; (* | *) SYI$_F64CTLD4 = 4536; (* V *) SYI$_DISABLE_UPCALLS = 4537; (* Bitmask to disable specific threads upcalls *) SYI$_DEVICE_NAMING = 4538; (* DEVICE_NAMING bitmask *) SYI$_AVAIL_PAGES = 4539; (* Available physical pages *) SYI$_PROC_SLOTS = 4540; (* Process slot information *) SYI$_BAL_SLOTS = 4541; (* Balance slot information *) SYI$_NPAGED_POOL = 4542; (* Nonpaged pool information *) SYI$_PAGED_POOL = 4543; (* Paged pool information *) SYI$_MAIN_MEMORY = 4544; (* Memory information *) SYI$_ARB_SUPPORT = 4545; (* Level of security backward compatibility *) (*ifsymbol PFNBITS_32; *) CONST SYI$_MAX_PFN = 4546; (* Returns contents of MMG$GL_MAXPFN *) SYI$_PFN_MEMORY_MAP = 4547; (* Returns a physical memory map *) (*end_ifsymbol; *) CONST SYI$_PMD_COUNT = 4548; (* Returns count of phys. mem. desc. in HWRPB *) SYI$_MSCP_CMD_TMO = 4549; (* VMS-MSCP server timer value *) SYI$_LAN_FLAGS = 4550; (* LAN specific flags *) SYI$_RMS_DFLRL = 4551; (* RMS default max record length *) SYI$_RMS_HEURISTIC = 4552; (* RMS file attribute heuristic ctr flag *) SYI$_NPAG_INTERVAL = 4553; (* nonpaged pool gentle reclamation interval (# of seconds) *) SYI$_NPAG_GENTLE = 4554; (* gentle reclamation refill percentage *) SYI$_NPAG_AGGRESSIVE = 4555; (* aggressive reclamation refill percentage *) SYI$_NPAG_BAP_MIN = 4556; (* Min Size of Bus Addressable Pool *) SYI$_NPAG_BAP_MAX = 4557; (* Max Size of Bus Addressable Pool *) SYI$_NPAG_BAP_MAX_PA = 4558; (* max. PA for BAP *) SYI$_NPAG_RING_SIZE = 4559; (* size of ring buffer *) SYI$_CLUSTER_CREDITS = 4560; (* cluster send credits *) SYI$_PTES_PER_PAGE = 4561; (* *) SYI$_TEMPERATURE_VECTOR = 4562; (* 16-byte temperature vector *) SYI$_POWER_VECTOR = 4563; (* 16-byte power vector *) SYI$_FAN_VECTOR = 4564; (* 16-byte fan vector *) SYI$_THERMAL_VECTOR = 4565; (* 16-byte thermal vector *) SYI$_MAXBOBS0S1 = 4566; (* Maximum buffer object S0S1 VA space (pagelets) *) SYI$_MAXBOBS2 = 4567; (* Maximum buffer object S2 VA space (pagelets) *) SYI$_VCC_MAX_CACHE = 4568; (* Maximum VDC Cache Size *) SYI$_VCC_MAX_IO_SIZE = 4569; (* Maximum Cached VDC I/O Size *) SYI$_VCC_MAX_LOCKS = 4570; (* Maximum number of locks for VDC *) SYI$_VCC_READAHEAD = 4571; (* VDC Readahead caching on/off *) SYI$_VCC_WRITEBEHIND = 4572; (* VDC Writebehind caching on/off *) SYI$_VCC_WRITE_DELAY = 4573; (* VDC Writebehind write delay *) SYI$_SD_ALLOCLASS = 4574; (* Snapshot-capable disk device allocation class *) SYI$_GALAXY = 4575; (* Node should participate in a Galaxy *) SYI$_NPAG_BAP_MIN_PA = 4576; (* min. PA for BAP *) SYI$_BAP_MIN_REQ_SZ = 4577; (* Bus addressable pool (BAP) minimum size requested (bytes) *) SYI$_BAP_MAX_REQ_SZ = 4578; (* Bus addressable pool (BAP) maximum size requested (bytes) *) SYI$_BAP_MIN_PA_REG = 4579; (* Bus addressable pool (BAP) minimum PA registered (megabytes) *) SYI$_BAP_MAX_PA_REG = 4580; (* Bus addressable pool (BAP) maximum PA registered (megabytes) *) SYI$_GALAXY_ID = 4581; (* 16-byte unique ID of Galaxy platform *) SYI$_RMSD6 = 4582; (* Reserved to RMS development (dynamic) *) SYI$_MPDEV_ENABLE_O = 4583; (* OBSOLETE Multipath I/O switching control parameter *) SYI$_MPDEV_REMOTE_O = 4584; (* OBSOLETE Multipath I/O switching control parameter for remote paths *) SYI$_RMSD1 = 4585; (* Reserved to RMS development (dynamic) *) SYI$_GALAXY_MEMBER = 4586; (* Flag - Are we a Galaxy member? *) SYI$_GALAXY_PLATFORM = 4587; (* Flag - Are we on a Galaxy platform? *) SYI$_PARTITION_ID = 4588; (* Galaxy Partition ID *) SYI$_COMMUNITY_ID = 4589; (* Galaxy Community ID *) SYI$_GLX_INST_TMO = 4590; (* Galaxy heartbeat timeout value *) SYI$_SMCI_FLAGS = 4591; (* SMCI Flags *) SYI$_SMCI_PORTS = 4592; (* SMCI Port bitmask *) SYI$_SERVED_IO = 4593; (* QIOserver control parameter *) SYI$_GLX_SW_VERSION = 4594; (* Galaxy software version *) SYI$_GLX_MAX_MEMBERS = 4595; (* maximum node_id this platform *) SYI$_GLX_INCARNATION = 4596; (* galaxy incarnation count *) SYI$_GLX_FORMATION = 4597; (* galaxy creation time (systime) *) SYI$_GLX_TERMINATION = 4598; (* systime galaxy died *) SYI$_GLX_MBR_NAME = 4599; (* galaxy member name *) SYI$_GLX_MBR_MEMBER = 4600; (* galaxy member *) SYI$_GLX_MBR_INCARNATION = 4601; (* galaxy member incarnation number *) SYI$_GLX_MBR_JOINED = 4602; (* galaxy member join time *) SYI$_MPDEV_LCRETRIES = 4603; (* Multipath Switching - local connect retries *) SYI$_MPDEV_D1 = 4604; (* Multipath Switching - dynamic *) SYI$_CLUSTER_NTIME = 4605; (* Cluster New time *) SYI$_CLUSTER_NTIME_REF = 4606; (* Cluster New time - local reference *) SYI$_MPDEV_POLLER_O = 4607; (* OBSOLETE Multipath poller parameter *) SYI$_CPU_FAILOVER = 4608; (* Array of CPU failover partitions *) SYI$_POTENTIAL_CPU_MASK = 4609; (* Mask of CPUs that are compatible on this instance *) SYI$_POTENTIALCPU_CNT = 4610; (* Number of CPUs that could potentially run on this instance *) SYI$_CPU_AUTOSTART = 4611; (* Array of CPU autostart states *) SYI$_FAST_PATH_PORTS = 4614; (* New Fastpath implementations *) SYI$_GLX_SHM_REG = 4615; (* Number of Galaxy shared memory regions in GMDB *) SYI$_RAD_SUPPORT = 4616; (* Switch to turn RAD (aka NUMA) support on *) SYI$_NPAGECALC = 4617; (* Tell VMS to calculate default npagedyn and vir values *) SYI$_WBM_MSG_INT = 4618; (* write bitmap msg check interval *) SYI$_WBM_MSG_UPPER = 4619; (* upper threshold for msgs *) SYI$_WBM_MSG_LOWER = 4620; (* lower threshold for msgs *) SYI$_HP_ACTIVE_CPU_CNT = 4621; (* number of active CPUs in this hard partition *) SYI$_HP_ACTIVE_SP_CNT = 4622; (* number of active soft partitions in this hard partition *) SYI$_HP_CONFIG_SP_CNT = 4623; (* number of configured soft partitions in this hard partition *) SYI$_HP_CONFIG_SBB_CNT = 4624; (* number of configured SBBs in this hard partition *) SYI$_SHADOW_MAX_UNIT = 4625; (* maximum number of dsa devices which can exist on the node *) SYI$_WBM_OPCOM_LVL = 4626; (* opcom mode for write bitmap information messages *) SYI$_AUTO_DLIGHT_SAV = 4627; (* automatic daylight saving SYSGEN flag *) SYI$_RAD_MAX_RADS = 4628; (* maximum number of RADs on this platform *) SYI$_RAD_CPUS = 4629; (* potential CPUs per RAD for this instance *) SYI$_RAD_MEMSIZE = 4630; (* private memory per RAD for this instance *) SYI$_RAD_SHMEMSIZE = 4631; (* number of shared memory per RAD *) SYI$_GALAXY_SHMEMSIZE = 4632; (* number of shared memory pages total *) SYI$_NPAGERAD = 4633; (* How much of NPAGEDYN is in other than the base RAD *) SYI$_SERIAL_NUMBER = 4634; (* System Serial Number - may be virtualized *) SYI$_MPDEV_D2 = 4636; (* Multipath Switching - dynamic *) SYI$_MPDEV_D3 = 4637; (* Multipath Switching - dynamic *) SYI$_MPDEV_D4 = 4638; (* Multipath Switching - dynamic *) SYI$_MPDEV_AFB_INTVL = 4639; (* Multipath Auto fail back Interval - dynamic *) SYI$_MPW_STACKPAGES = 4640; (* MPW Stack Pages *) SYI$_PRESENT_CPU_MASK = 4641; (* Mask of CPUs that are present in the hard partition *) SYI$_PRESENTCPU_CNT = 4642; (* Number of CPUs that are present in the hard partition *) SYI$_POWERED_CPU_MASK = 4643; (* Mask of CPUs that are powered up in the hard partition *) SYI$_POWEREDCPU_CNT = 4644; (* Number of CPUs that are powered up in the hard partition *) SYI$_RMSD7 = 4645; (* RMS readahead hint feature for XFC *) SYI$_RMS_SEQFILE_WBH = 4646; (* RMS default writebehind feature *) SYI$_DCL_CTLFLAGS = 4647; (* DCL Control Flags *) SYI$_DELPRC_EXIT = 4648; (* System-wide EXIT behavior for direct calls to $DELPRC *) SYI$_PHYMEM_CONFIG = 4649; (* Dynamic memory configuration control *) SYI$_KTK_D1 = 4650; (* Dynamic kernel tuning knob *) SYI$_KTK_D2 = 4651; (* Dynamic kernel tuning knob *) SYI$_KTK_D3 = 4652; (* Dynamic kernel tuning knob *) SYI$_KTK_D4 = 4653; (* Dynamic kernel tuning knob *) SYI$_KTK_D5 = 4654; (* Dynamic kernel tuning knob *) SYI$_KTK_D6 = 4655; (* Dynamic kernel tuning knob *) SYI$_KTK_D7 = 4656; (* Dynamic kernel tuning knob *) SYI$_KTK_D8 = 4657; (* Dynamic kernel tuning knob *) SYI$_KTK_D9 = 4658; (* Dynamic kernel tuning knob *) SYI$_KTK_D10 = 4659; (* Dynamic kernel tuning knob *) SYI$_KTK_D11 = 4660; (* Dynamic kernel tuning knob *) SYI$_KTK_D12 = 4661; (* Dynamic kernel tuning knob *) SYI$_MIN_CPU_FEATURE_MASK = 4662; (* AMASK value of all CPUs ANDed together *) SYI$_FIBRE_SCSI_RSV1 = 4663; (* reserved for Fibre SCSI use *) SYI$_DEFUID = 4664; (* default POSIX UID *) SYI$_DEFGID = 4665; (* default POSIX GID *) SYI$_MVSUPMSG_INTVL = 4666; (* Quiet mountver suppression interval -dynamic *) SYI$_MVSUPMSG_NUM = 4667; (* Quiet mountver suppression number -dynamic *) SYI$_SHADOW_SITE_ID = 4668; (* Shadow Site value *) SYI$_RMSD2 = 4669; (* Reserved to RMS development (dynamic) *) SYI$_RMSD3 = 4670; (* Reserved to RMS development (dynamic) *) SYI$_RMSD4 = 4671; (* Reserved to RMS development (dynamic) *) SYI$_RMSD5 = 4672; (* Reserved to RMS development (dynamic) *) SYI$_TESTING123 = 4673; (* Reserved for debugging *) SYI$_VCC_PAGESIZE = 4674; (* Reserved for XFC use *) SYI$_VCC_RSVD = 4675; (* Reserved for XFC use *) SYI$_RSVD_IO_1 = 4676; (* Reserved for debug/future enhancement *) SYI$_RSVD_IO_2 = 4677; (* Reserved for debug/future enhancement *) SYI$_RSVD_CLU_1 = 4678; (* Reserved for debug/future enhancement *) SYI$_RSVD_CLU_2 = 4679; (* Reserved for debug/future enhancement *) SYI$_RSVD_EXEC_1 = 4680; (* Reserved for debug/future enhancement *) SYI$_RSVD_EXEC_2 = 4681; (* Reserved for debug/future enhancement *) SYI$_RSVD_SECUR_1 = 4682; (* Reserved for debug/future enhancement *) SYI$_RSVD_SECUR_2 = 4683; (* Reserved for debug/future enhancement *) SYI$_RSVD_LAN_1 = 4684; (* Reserved for debug/future enhancement *) SYI$_RSVD_LAN_2 = 4685; (* Reserved for debug/future enhancement *) SYI$_SHADOW_REC_DLY = 4686; (* Time to wait after crash before merge start *) SYI$_SHADOW_D1 = 4687; (* Shadowing spare *) SYI$_SHADOW_D2 = 4688; (* Shadowing spare *) SYI$_SHADOW_D3 = 4689; (* Shadowing spare *) SYI$_SHADOW_D4 = 4690; (* Shadowing spare *) SYI$_SHADOW_D5 = 4691; (* Shadowing spare *) SYI$_WBM_D1 = 4692; (* Write Bit Map for HBMM *) SYI$_TTY_DEFCHAR3 = 4693; (* Terminal characteristics, 3nd *) (* longword only lower 16 attributes *) (* upper 16 bits are Asian VMS bits *) CONST SYI$_VHPT_SIZE = 4694; (* Size of VHPT on IA64 only *) SYI$_SHADOW_HBMM_RTC = 4696; (* HBMM Reset Threshold Check Timer Interval *) SYI$_FCLAN_FRAME = 4697; (* Fibre Channel LAN frame size *) SYI$_MAX_PFN_64 = 4698; (* Returns contents of MMG$GQ_MAXPFN *) SYI$_PFN_MEMORY_MAP_64 = 4699; (* Returns a 64 bit physical memory map *) SYI$_CPU_SOCKETS = 4700; (* Returns number of cpu sockets *) SYI$_ERLBUFFERPAG_S2 = 4701; (* Number of pagelets per S2 error log buffer *) SYI$_ERRORLOGBUFF_S2 = 4702; (* Number of S2 error log buffers *) SYI$_SHADOW_PSM_RDLY = 4703; (* Shadowing Per Served Member Recovery Delay *) SYI$_SYSTEM_UUID = 4704; (* Returns the system UUID on Itanium systems - may be virtualized *) SYI$_PLATF_SPT_D1 = 4705; (* Reserved to VMS platform support (dynamic) *) SYI$_PLATF_SPT_D2 = 4706; (* " *) SYI$_PLATF_SPT_D3 = 4707; (* " *) SYI$_PLATF_SPT_D4 = 4708; (* " *) SYI$_PLATF_SPT_1 = 4709; (* Reserved to VMS platform support (static) *) SYI$_PLATF_SPT_2 = 4710; (* " *) SYI$_PLATF_SPT_3 = 4711; (* " *) SYI$_PLATF_SPT_4 = 4712; (* " *) SYI$_SWIS_LOG = 4713; (* Knob to change the swis log *) SYI$_EXECSTACKPAGES = 4714; (* Number of pages for RMS EXEC ASB or RSE stack *) SYI$_GB_CACHEALLMAX = 4715; (* RMS global buffer cache whole file criterion *) SYI$_GB_DEFPERCENT = 4716; (* RMS global buffer cache default percent criterion *) SYI$_CPU_THREADING = 4717; (* Knob to change how we deal with CPU hardware threads *) SYI$_CPU_POWER_MGMT = 4718; (* Control Power Managment on IPF *) SYI$_CPU_POWER_THRSH = 4719; (* Idle Threshold necessary to use Power Management *) SYI$_SMP_CPU_BITMAP = 4720; (* (1024-bit) Map of CPUs eligible for participation in SMP system *) SYI$_IO_PRCPU_BITMAP = 4721; (* (1024-bit) Map of CPUs for fast path I/O processing *) SYI$_LOCKRMWT = 4722; (* Lock Remaster Weight *) SYI$_SAS_NAMING = 4723; (* SAS Device Naming *) SYI$_ACTIVE_CPU_BITMAP = 4724; (* CBB bitmap data *) SYI$_AVAIL_CPU_BITMAP = 4725; (* of CPUs *) SYI$_POTENTIAL_CPU_BITMAP = 4726; (* in various *) SYI$_POWERED_CPU_BITMAP = 4727; (* states *) SYI$_PRESENT_CPU_BITMAP = 4728; (* ... *) SYI$_COMPLEX_ID = 4729; (* Complex Profile ID *) SYI$_COMPLEX_NAME = 4730; (* Complex Profile Name *) SYI$_HP_ID = 4731; (* Hard Partition ID (nPar ID) *) SYI$_HP_NAME = 4732; (* Hard Partition Name (nPar Name) *) SYI$_CELLULAR_PLATFORM = 4733; (* System is cell-based *) SYI$_BOOT_DEVICE = 4734; (* sys$ar_bootucb *) SYI$_HP_CORE_CNT = 4735; (* Count of unique cores in hard partition *) SYI$_ACTIVE_CORE_CNT = 4736; (* Count of cores in hard partition with at least one active LP *) SYI$_SSIO_SYNC_INTVL = 4737; (* Interval at which dirty shared stream I/O buffers are *) (* written to disk by process doing sync() *) CONST SYI$_SCH_SOFT_OFFLD = 4738; (* Bitmap of CPUs sometimes excluded from scheduling *) SYI$_SCH_HARD_OFFLD = 4739; (* Bitmap of CPUs excluded from scheduling *) SYI$_SCHED_FLAGS = 4740; (* Reserved cell for sched noodling, replaces parameter SCH_CTLFLAGS *) SYI$_GH_RES_CODE_S2 = 4741; (* Pages in the resident image S2 code region *) SYI$_GRAPHICS_CONSOLE = 4742; (* 1 if Graphics Console, 0 if not *) SYI$_TCPIP_LOAD = 4743; (* 1 Enables load TCPIP Services at boot time *) SYI$_NISCS_UDP_PORT = 4744; (* UDP Port number for cluster communications. *) SYI$_PHYS_SERIAL_NUMBER = 4745; (* Physical System Serial Number on Itanium systems *) SYI$_PHYS_SYSTEM_UUID = 4746; (* Physical system UUID on Itanium systems *) SYI$_PAGED_LAL_SIZE = 4747; (* Pagedyn Lookaside list maximum packet size *) SYI$_RMS_PATH_TMO = 4748; (* Lifetime for symlink entries in RMS path cache *) SYI$_NISCS_UDP_PKTSZ = 4749; (* udp packet size for cluster communication *) (* ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ******** *) (* DO NOT ADD 'FLD' (FIELD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTFLD' ****** *) CONST 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. *) CONST SYI$_CPU = 8192; (* CPU type *) SYI$_BUGREBOOT = 8193; (* Bugcheck reboot enable *) SYI$_CRDENABLE = 8194; (* Memory error checking enable *) SYI$_DUMPBUG = 8195; (* Bugcheck dump enable *) SYI$_BUGCHECKFATAL = 8196; (* All bugchecks become fatal *) SYI$_ACP_MULTIPLE = 8197; (* New ACP for each disk class *) SYI$_NOAUTOCONFIG = 8198; (* Auto configuration inhibit *) SYI$_NOCLOCK = 8199; (* Interval timer inhibit *) SYI$_NOCLUSTER = 8200; (* Page read clustering inhibit *) SYI$_POOLPAGING = 8201; (* Enable paging of paged pool *) SYI$_SBIERRENABLE = 8202; (* SBI error detection enable *) SYI$_SETTIME = 8203; (* Force entry of time at system boot *) SYI$_ACP_SHARE = 8204; (* Enable sharing of F11ACP *) SYI$_SYSPAGING = 8205; (* Enable paging of system code *) SYI$_UAFALTERNATE = 8206; (* Select alternate authorization file *) SYI$_WRITABLESYS = 8207; (* Leave system writable for debugging *) SYI$_RESALLOC = 8208; (* Enable resource allocation checking *) SYI$_SSINHIBIT = 8209; (* Inhibit system services for processes *) SYI$_CONCEAL_DEVICES = 8210; (* Enable concealed devices *) SYI$_SAVEDUMP = 8211; (* Save dump if it's in page file *) SYI$_MOUNTMSG = 8212; (* Enable oper notification of vol mounts *) SYI$_DISMOUMSG = 8213; (* Enable oper notification of vol dism *) SYI$_LOADERAPT = 8214; (* Load alt erase pattern generator *) SYI$_LOADCHKPRT = 8215; (* Load alt protection check routine *) SYI$_XCPU = 8216; (* CPU subtype (Extended SID info) *) SYI$_CJFLOAD = 8217; (* Load common journaling code *) SYI$_CJFSYSRUJ = 8218; (* Load recovery unit journaling code *) SYI$_NODE_AREA = 8219; (* System ID node area *) SYI$_NODE_NUMBER = 8220; (* System ID node number *) SYI$_CLASS_PROT = 8221; (* Non-discretionary check flag *) SYI$_CHARACTER_EMULATED = 8222; (* Character string instructions emulated *) SYI$_DECIMAL_EMULATED = 8223; (* Decimal string instructions emulated *) SYI$_D_FLOAT_EMULATED = 8224; (* D floating instructions emulated *) SYI$_F_FLOAT_EMULATED = 8225; (* F floating instructions emulated *) SYI$_G_FLOAT_EMULATED = 8226; (* G floating instructions emulated *) SYI$_H_FLOAT_EMULATED = 8227; (* H floating instructions emulated *) SYI$_LOADMTACCESS = 8228; (* Load installation specific access routine *) SYI$_ACP_XQP_RES = 8229; (* Resident XQP *) SYI$_WRITESYSPARAMS = 8230; (* Write active parameters to the system .PAR file *) SYI$_LGI_BRK_TERM = 8231; (* Use term name in breakin detection *) SYI$_LGI_BRK_DISUSER = 8232; (* Disable user account on breakin *) SYI$_ACP_REBLDSYSD = 8233; (* Rebuild system disk when mounting it *) SYI$_WS_OPA0 = 8234; (* Workstation using QVSS for OPA0 *) SYI$_NOPGFLSWP = 8235; (* Inhibit swapping into pagefiles *) SYI$_LOAD_SYS_IMAGES = 8237; (* Control of how system images are loaded *) SYI$_NISCS_CONV_BOOT = 8238; (* Allow remote conversational boot *) SYI$_NISCS_LOAD_PEA0 = 8239; (* Load NI-SCS driver for PEA0 *) SYI$_SA_APP = 8240; (* Booting stand-alone application (SA-BACKUP) *) SYI$_LOAD_PWD_POLICY = 8241; (* Load site-specific password policy *) SYI$_FT_ACTIVE = 8242; (* CIRRUS system is fully active *) SYI$_WLKSYSDSK = 8244; (* Booting with write locked sys disk *) SYI$_DBGTK_LOADED = 8245; (* Remote system debugger target kernel is loaded *) SYI$_DAY_OVERRIDE = 8246; (* UAF day classifications are overridden *) SYI$_DAY_SECONDARY = 8247; (* UAF day override is to Secondary *) SYI$_CWLOGICALS = 8248; (* State of CAP_CWLOGICALS *) SYI$_POWEROFF = 8249; (* Enable software power-off *) SYI$_MPDEV_ENABLE = 8250; (* Multipath I/O switching control parameter *) SYI$_MPDEV_REMOTE = 8251; (* Multipath I/O switching control parameter for remote paths *) SYI$_MPDEV_POLLER = 8252; (* Multipath poller parameter *) SYI$_LCKMGR_MODE = 8253; (* Lock Manager Mode *) SYI$_LCKMGR_RSVD = 8254; (* Lock Manager Reserved *) SYI$_LCKMGR_CPUID = 8255; (* Lock Manager CPU ID *) SYI$_PERSISTENT_RES = 8256; (* Fibre SCSI Reservation Support *) SYI$_SYSSER_LOGGING = 8257; (* Enable system service logging *) SYI$_SCSI_ERROR_POLL = 8258; (* Enable polling to flush SCSI errors *) SYI$_SSI_ENABLE = 8259; (* Enable system service intercept on I64 *) SYI$_VIRTUAL_MACHINE = 8260; (* True if we're running on a VMS guest under HPVM -- useful on I64 only. *) SYI$_NISCS_USE_LAN = 8261; (* True enables cluster comm. use of 802 LAN. *) SYI$_NISCS_USE_UDP = 8262; (* True enables cluster comm. use of UDP. *) (* ADD 'FLD' (FIELD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT *********** *) (* DO NOT ADD 'EXE' (LONGWORD) ITEMS HERE!!!! ADD THEM BEFORE 'LASTEXE' *** *) CONST SYI$_LASTFLD = 8263; (* LAST INDEX *) (* ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $; *) (***************************************************************************** *) (** *) (** 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. *) (** *) (***************************************************************************** *) CONST SYI$C_SFWTYPE = 1; (* SYSTEM SOFTWARE ITEM *) SYI$C_HDWTYPE = 2; (* HARDWARE ITEM *) SYI$C_LISTEND = 0; (* ITMLST TERMINATOR *) (* IDENTIFIER FOR SYSTEM SOFTWARE *) CONST SYI$_OLDVERSION = 256; (* VMS VERSION NUMBER *) SYI$_LASTSFW = 257; (* LAST INDEX *) (* ******************************************************************* *) (* ********************* BEGIN TEMP FIX ****************************** *) (* ********************* BEGIN TEMP FIX ****************************** *) (* ******************************************************************* *) (* ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $; *) (* ******************************************************************* *) (* ********************** END TEMP FIX ******************************* *) (* ********************** END TEMP FIX ******************************* *) (* ******************************************************************* *) (* IDENTIFIER FOR HARDWARE TYPE *) CONST SYI$_OLDCPU = 512; (* CPU TYPE *) SYI$_OLDSID = 513; (* SYSTEM ID REGISTER *) SYI$_LASTHDW = 514; (* LAST INDEX *) (* ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $; *) (* Define constant for the length of environmental vector item codes *) (* (POWER_VECTOR, TEMPERATURE_VECTOR, THERMAL_VECTOR, and FAN_VECTOR). *) CONST SYI$K_ENV_VECTOR_LENGTH = 16; (* Define status code for each element in the environmental vector *) CONST SYI$K_ENV_STATUS_FAILED = 0; SYI$K_ENV_STATUS_OK = 1; SYI$K_ENV_STATUS_NOT_PRESENT = 255; SYI$K_ENV_STATUS_UNKNOWN = 254; (* Define the SYI$_ARCH_TYPE return constants *) CONST SYI$K_ARCH_OTHER = 0; (* Unknown SYI$_ARCH_TYPE *) SYI$K_ARCH_VAX = 1; (* VAX Architecture *) SYI$K_ARCH_ALPHA = 2; (* Alpha Architecture *) SYI$K_ARCH_IA64 = 3; (* IA-64 (IPF) Architecture *) (*** MODULE $SYSEVTDEF ***) CONST SYSEVT$C_ALL_EVENTS = 1; (* Valid for $Clear_system_event only *) SYSEVT$C_ADD_GALAXY_MEMBER = 2; (* One or more instances have joined the *) (* Galaxy community *) CONST SYSEVT$C_DEL_GALAXY_MEMBER = 3; (* One or more instances have left the *) (* Galaxy community *) CONST SYSEVT$C_ADD_ACTIVE_CPU = 4; (* One or more CPUs have become active *) (* within this VMS instance *) CONST SYSEVT$C_DEL_ACTIVE_CPU = 5; (* One or more CPU have become inactive *) SYSEVT$C_ADD_CONFIG_CPU = 6; (* One or more CPUs are now part of the *) (* configure set for this instance. *) CONST SYSEVT$C_DEL_CONFIG_CPU = 7; (* One or more CPUS have left this instance *) SYSEVT$C_CONFIG_TREE = 8; (* An update has occurred to the Galaxy config tree *) SYSEVT$C_FASTPATH_CPUS = 9; (* A modification has been made to the system *) (* parameter, IO_PREFER_CPUS. *) CONST SYSEVT$C_TDF_CHANGE = 10; (* time differential change *) SYSEVT$C_CPU_POWER = 11; (* CPU power transition *) SYSEVT$C_INDICTMENT = 12; (* Component Indictment was performed *) SYSEVT$C_CPU_DEALLOCATE = 13; (* CPU deallocated from running system *) SYSEVT$C_MAX_EVENT = 14; (* maximum event number *) SYSEVT$C_NUM_EVENTS = 13; (* Number of events *) SYSEVT$K_NUM_EVENTS = 13; SYSEVT$M_NOTIFY_ONCE = 0; (* indicate one shot request *) SYSEVT$M_REPEAT_NOTIFY = 1; (* Bit 0 represents whether the event notification is a *) SYSEVT$V_REPEAT_NOTIFY = 0; (* one shot deal or should be a repeating notification. *) (*** MODULE $TBKDEF ***) TYPE tbk_api_param$TYPE = RECORD TBK$W_LENGTH : $UWORD; (*Input, structure length, by value *) TBK$B_TYPE : $UBYTE; (*Input, must be zero. *) TBK$B_VERSION : $UBYTE; (*Input, version of this structure. *) TBK$L_RESERVEDA : UNSIGNED; (*Input, must be zero. *) TBK$Q_FAULTING_PC : $UQUAD; (*Input, pc value, by value *) TBK$Q_FAULTING_FP : $UQUAD; (*Input, frame pointer, by value *) TBK$PQ_FILENAME_DESC : $QUAD; (*Output, string descriptor *) TBK$PQ_LIBRARY_MODULE_DESC : $QUAD; (*Output, string descriptor *) TBK$PQ_RECORD_NUMBER : $QUAD; (*Output, record number within filename or within text library module *) TBK$PQ_IMAGE_DESC : $QUAD; (*Output, string descriptor, image name *) TBK$PQ_MODULE_DESC : $QUAD; (*Output, string descriptor, module name *) TBK$PQ_ROUTINE_DESC : $QUAD; (*Output, string descriptor, routine name *) TBK$PQ_LISTING_LINENO : $QUAD; (*Output, compiler listing line number *) TBK$PQ_REL_PC : $QUAD; (*Output, relative pc within module or within image *) TBK$PQ_IMAGE_BASE_ADDR : $QUAD; (*Output, base address of the image which contains the pc value object code, *) (*by reference *) TBK$PQ_MODULE_BASE_ADDR : $QUAD; (*Output, base address of the module, which contains the pc value object code, *) (*by reference *) (*Input, address of a routine, which provides malloc() functionality *) TBK$PQ_MALLOC_RTN : $QUAD; (*Input, address of a routine, which provides free() functionality *) TBK$PQ_FREE_RTN : $QUAD; (*Input, address of a quadword, specifying options to be provided by this call *) TBK$PQ_SYMBOLIZE_FLAGS : $QUAD; TBK$Q_RESERVED0 : $UQUAD; (*Reserved by HP *) TBK$Q_RESERVED1 : $UQUAD; (*Reserved by HP *) TBK$Q_RESERVED2 : $UQUAD; (*Reserved by HP *) END; CONST tbk$k_length = 152; tbk$c_length = 152; tbk$k_version = 1; (* *) (************************************************************* *) (* SYMBOLIZE_FLAGS options *) (* The following may be applied to the quadword pointed to *) (* by the SYMBOLIZE_FLAGS field. *) (* *) (* EXCEPTION_IS_FAULT values affect line number and *) (* record number calculation. *) (* 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 number *) (* 1=> Program Uses the supplied PC value to determine the line number *) (* *) (* ENTRY_TYPE values which affect processing *) (* 0=> TRACE was entered via the API ENTRY *) (* 1=> TRACE was entered via the TRACEBACK exception processing *) (* *) (************************************************************* *) CONST TBK$M_EXCEPTION_IS_FAULT = 1; TBK$M_ENTRY_TYPE = 0; TYPE tbk_symbolize_flags$TYPE = RECORD TBK$V_EXCEPTION_IS_FAULT : [POS(0)] $BOOL; TBK$V_FILLER1 : [POS(1)] $BIT31; TBK$V_ENTRY_TYPE : [POS(32)] $BOOL; TBK$V_FILLER2 : [POS(33)] $BIT31; END; (*** MODULE $TEBDEF ***) (* *) (* Thread Environment Block Definitions *) (* *) CONST TEB$M_ASTACT = 1; TEB$M_ASTEN = 2; TYPE TEB$TYPE = RECORD CASE INTEGER OF 1: (TEB$PQ_FLINK : $QUAD; (* Forward queue link *) TEB$PQ_BLINK : $QUAD; (* Backward queue link *) TEB$W_SIZE : $UWORD; (* Size of TEB, in bytes *) TEB$B_VERSION : $UBYTE; (* Version number for TEB *) TEB$B_TYPE : $UBYTE; (* Structure type code for TEB *) TEB$b_reserved_2 : ARRAY [1..4] OF $UBYTE; (* Reserved to DECthreads *) TEB$Q_SEQUENCE : $UQUAD; (* Thread sequence number *) TEB$q_reserved_3 : ARRAY [1..2] OF $UQUAD; (* Reserved to DECthreads *) TEB$PQ_PER_KT_AREA : $QUAD; (* Address of per kernel thread area *) TEB$PQ_STACK_BASE : $QUAD; (* Address of first usable byte in stack *) TEB$PQ_STACK_RESERVE : $QUAD; (* Address of first byte in reserve area *) TEB$PQ_STACK_YELLOW : $QUAD; (* Address of first byte in yellow area *) TEB$PQ_STACK_GUARD : $QUAD; (* Address of first byte in guard area *) TEB$Q_STACK_SIZE : $UQUAD; (* Total stack allocation (green+reserve+yellow+red) *) TEB$PQ_TSD_VALUES : $QUAD; (* Address of thread-specific data array *) TEB$L_TSD_COUNT : UNSIGNED; (* Count of thread-specific data values *) TEB$L_CANCEL_FLAGS : UNSIGNED; (* cancel flags *) TEB$L_CANCEL_COUNT : UNSIGNED; (* CMA alert scope nesting count *) TEB$R_FILL_27_ : [BYTE(4)] RECORD END; TEB$L_THD_ERRNO : INTEGER; (* Per-thread errno value *) TEB$l_reserved_4 : INTEGER; (* Reserved to DECthreads *) TEB$PQ_STACK_HIWATER : $QUAD; (* Lowest known SP address *) TEB$L_HOME_RAD : INTEGER; (* Thread's home RAD *) TEB$L_RAD_SAFE : INTEGER; (* Scratch: written by Tru64 UNIX *) ); 2: (TEB$L_THREAD_FLAGS : [POS(928)] UNSIGNED; (* thread flags *) ); 3: (); 4: (TEB$V_ASTACT : [POS(928)] $BOOL; (* there's a user mode AST active *) TEB$V_ASTEN : [POS(929)] $BOOL; (* use mode ASTs are enabled *) ) END; CONST TEB$K_LENGTH = 144; (* Length of TEB *) TEB$C_LENGTH = 144; (* Length of TEB *) TEB$C_TSD_KEY_SSPI = 1; (* TSD key value reserved for SSPI *) (*** MODULE $TPADEF ***) (* *) (* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, *) (* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. *) (* *) CONST TPA$K_COUNT0 = 8; (* ZERO LEVEL VALUE IS 8 *) TPA$M_BLANKS = 1; TPA$M_ABBREV = 2; TPA$M_ABBRFM = 4; TPA$M_AMBIG = 65536; TPA$K_LENGTH0 = 36; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) TPA$C_LENGTH0 = 36; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) TYPE TPA$TYPE = RECORD CASE INTEGER OF 1: (TPA$L_COUNT : UNSIGNED; (* ARGUMENT COUNT (NUMBER OF LONGWORDS) *) TPA$R_OPTIONS_OVERLAY : [BYTE(4)] RECORD END; TPA$L_STRINGCNT : UNSIGNED; (* BYTE COUNT OF STRING BEING PARSED *) TPA$L_STRINGPTR : UNSIGNED; (* ADDRESS OF STRING BEING PARSED *) TPA$L_TOKENCNT : UNSIGNED; (* BYTE COUNT OF CURRENT MATCHING TOKEN *) TPA$L_TOKENPTR : UNSIGNED; (* ADDRESS OF MATCHING TOKEN *) TPA$R_NUMBER_OVERLAY : [BYTE(8)] RECORD END; TPA$L_PARAM : UNSIGNED; (* PARAMETER LONGWORD FROM STATE TABLE *) ); 2: (TPA$L_OPTIONS : [POS(32)] UNSIGNED; (* OPTIONS LONGWORD *) TPA$R_NUMBER_STRUCT : [POS(192), BYTE(8)] RECORD END; ); 3: (TPA$L_NUMBER : [POS(224)] UNSIGNED; (* NUMERIC VALUE OF NUMERIC TOKEN *) ); 4: (TPA$V_BLANKS : [POS(32)] $BOOL; (* PROCESS BLANKS AND TABS EXPLICITLY *) TPA$V_ABBREV : [POS(33)] $BOOL; (* ALLOW MINIMAL ABBREVIATION *) TPA$V_ABBRFM : [POS(34)] $BOOL; (* ALLOW FIRST MATCH ABBREVIATION *) TPA$V_AMBIG : [POS(48)] $BOOL; (* AMBIGUOUS KEYWORD AT THIS STATE *) TPA$L_CHAR : [POS(192)] UNSIGNED; (* ASCII CODE OF SINGLE CHARACTER TOKEN *) ); 5: (TPA$B_CHAR : [POS(192)] $UBYTE; (* BYTE FORM OF SINGLE CHAR CELL *) ); 6: (TPA$B_MCOUNT : [POS(56)] $UBYTE; (* MINIMUM ABBREVIATION ON KEYWORDS *) TPA$Q_NUMBER : [POS(192)] $UQUAD; (* 64-bit NUMERIC VALUE OF NUMERIC TOKEN *) ) END; (* *) (* TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE, *) (* AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. *) (* *) CONST TPA64$K_COUNT0 = -1; (* ZERO LEVEL VALUE IS -1 *) TPA64$M_BLANKS = 1; TPA64$M_ABBREV = 2; TPA64$M_ABBRFM = 4; TPA64$M_AMBIG = 65536; TPA64$K_LENGTH0 = 80; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) TPA64$C_LENGTH0 = 80; (* LENGTH OF ZERO LEVEL PARAMETER BLOCK *) TYPE TPA64$TYPE = RECORD CASE INTEGER OF 1: (TPA64$L_COUNT : UNSIGNED; (* ARGUMENT COUNT (NUMBER OF LONGWORDS) *) TPA64$R_OPTIONS_OVERLAY : [BYTE(4)] RECORD END; TPA64$Q_STRINGDESC : $UQUAD; (* DSC64 first quadword of string being parsed *) TPA64$Q_STRINGCNT : $UQUAD; (* BYTE COUNT OF STRING BEING PARSED *) TPA64$Q_STRINGPTR : $QUAD; (* ADDRESS OF STRING BEING PARSED *) TPA64$Q_TOKENDESC : $UQUAD; (* DSC64 first quadword OF CURRENT MATCHING TOKEN *) TPA64$Q_TOKENCNT : $UQUAD; (* BYTE COUNT OF CURRENT MATCHING TOKEN *) TPA64$Q_TOKENPTR : $QUAD; (* ADDRESS OF MATCHING TOKEN *) TPA64$R_CHAR_OVERLAY : [BYTE(8)] RECORD END; TPA64$Q_NUMBER : $UQUAD; (* NUMERIC VALUE OF NUMERIC TOKEN *) TPA64$Q_PARAM : $UQUAD; (* PARAMETER LONGWORD FROM STATE TABLE *) ); 2: (TPA64$L_OPTIONS : [POS(32)] UNSIGNED; (* OPTIONS LONGWORD *) TPA64$Q_CHAR : [POS(448)] $UQUAD; (* ASCII CODE OF SINGLE CHARACTER TOKEN *) ); 3: (TPA64$B_CHAR : [POS(448)] $UBYTE; (* BYTE FORM OF SINGLE CHAR CELL *) ); 4: (TPA64$V_BLANKS : [POS(32)] $BOOL; (* PROCESS BLANKS AND TABS EXPLICITLY *) TPA64$V_ABBREV : [POS(33)] $BOOL; (* ALLOW MINIMAL ABBREVIATION *) TPA64$V_ABBRFM : [POS(34)] $BOOL; (* ALLOW FIRST MATCH ABBREVIATION *) TPA64$V_AMBIG : [POS(48)] $BOOL; (* AMBIGUOUS KEYWORD AT THIS STATE *) ); 5: (); 6: (TPA64$B_MCOUNT : [POS(56)] $UBYTE; (* MINIMUM ABBREVIATION ON KEYWORDS *) ) END; (*** MODULE $TPUDEF IDENT V03-006 ***) (* Item list codes for TPU$INITIALIZE *) CONST TPU$_CHAIN = -1; (* Chain entry - Matches other VMS CHAIN entries *) TPU$_ENDLIST = 0; (* End of list [*** Must be zero ***] *) TPU$_OPTIONS = 1; (* Command line options (see below) *) TPU$_FILENAME = 6; (* File name *) TPU$_OTHER_FILENAMES = 7; (* more filenames *) TPU$_FILEIO = 14; (* File I/O routine *) TPU$_CALLUSER = 15; (* CALL_USER routine *) TPU$_JOURNALFILE = 16; (* /JOURNAL= file name *) TPU$_SECTIONFILE = 19; (* /SECTION= file name *) TPU$_OUTPUTFILE = 20; (* /OUTPUT= file name *) TPU$_COMMANDFILE = 21; (* /COMMAND= file name *) TPU$_DISPLAYFILE = 22; (* /DISPLAY= keyword -or- file name *) TPU$_CTRL_C_ROUTINE = 23; (* CTRL/C routine *) TPU$_FREEITEMLIST = 24; (* Free the item list *) TPU$_DEBUGFILE = 25; (* /DEBUG= file name *) TPU$_FILE_PARSE = 26; (* FILE_PARSE routine *) TPU$_FILE_SEARCH = 27; (* FILE_SEARCH routine *) TPU$_TERMINAL_INPUT = 28; (* Terminal input routine *) TPU$_KANJI_DICFILE = 29; (* /KANJI_DICTIONARY= file name *) TPU$_TEXT_LANGUAGE = 30; (* /TEXT_LANGUAGE= language name *) TPU$_DEFAULTSFILE = 31; (* /DEFAULTS= file name *) TPU$_PARENT_WIDGET = 32; (* DECwindows widget to use as our parent *) TPU$_EXTENSION = 33; (* Extension Table Entry *) TPU$_GET_DEFAULT = 34; (* GET_DEFAULT routine *) TPU$_SET_DEFAULT = 35; (* SET_DEFAULT routine *) TPU$_WORKFILE = 36; (* /WORK= file name *) TPU$_APPLICATION_CONTEXT = 37; (* Decwindows application context *) TPU$_CHARACTERSET = 38; (* /CHARACTER_SET= character set name *) TPU$_LANGUAGE = 257; (* LSE's /LANGUAGE= file name *) TPU$_ENVFILE = 258; (* LSE's /ENVIRONMENT= file name *) TPU$_INIT_FILE = 259; (* /INITIALIZATION= file name *) TPU$_START_LINE = 260; (* /START_POSITION= line *) TPU$_START_CHAR = 261; (* /START_POSITION= character *) TPU$_SYSTEM_ENVFILE = 262; (* LSE's /SYSTEM_ENVIROMENT= file name *) (* Item list codes for file I/O *) CONST TPU$_ACCESS = 4; (* File access type (see below) *) TPU$_FLUSH = 5; (* Flush after Puts *) TPU$_FILESIZE = 7; (* File size *) TPU$_RECORD_ATTR = 8; (* Record attributes *) TPU$_RECORD_FORM = 9; (* Record format *) TPU$_MAXIMIZE_VER = 10; (* Maximize version number *) TPU$_DEFAULTFILE = 17; (* Default file name *) TPU$_RELATEDFILE = 18; (* Related file name *) TPU$_FILE_RECOVERABLE = 19; (* File available upon recovery *) TPU$_TRN_TPT = 20; (* File will allow truncates - journal files only *) TPU$_CREATE_TIME = 257; (* Creation date/time *) TPU$_EOF_BLOCK = 258; (* EOF block *) TPU$_EOF_FFB = 259; (* EOF first free byte *) (* TPU$_OPTIONS flags *) CONST TPU$M_RECOVER = 1; TPU$M_JOURNAL = 2; TPU$M_READ = 4; TPU$M_SECTION = 8; TPU$M_OUTPUT = 16; TPU$M_COMMAND = 32; TPU$M_DISPLAY = 64; TPU$M_CREATE = 128; TPU$M_STARTPOS = 256; TPU$M_COMMAND_DFLTED = 512; TPU$M_DEBUG = 1024; TPU$M_NOKANJI_DIC = 2048; TPU$M_TEXT_LANGUAGE = 4096; TPU$M_DEFAULTS = 8192; TPU$M_NODEFAULTS = 16384; TPU$M_ENVIRONMENT = 65536; TPU$M_INIT = 131072; TPU$M_SYSTEM_ENV = 262144; TPU$M_CURRENT_FILE = 524288; TPU$M_WRITE = 1048576; TPU$M_MODIFY = 2097152; TPU$M_NOMODIFY = 4194304; TPU$M_NOMAP = 8388608; TPU$M_WORK = 16777216; TPU$M_SEC_LNM_MODE = 33554432; TPU$M_CHARSET = 67108864; (* Access codes for TPU$_ACCESS *) CONST TPU$K_INPUT = 0; (* Open file for input only *) TPU$K_OUTPUT = 1; (* Open file for output only *) TPU$K_IO = 2; (* Open file for both input and output *) TPU$K_OUTPUT_DDIF = 3; (* Open file for DDIF output only *) (* Codes for file I/O *) CONST TPU$K_OPEN = 0; (* Open a file *) TPU$K_CLOSE = 1; (* Close a file *) TPU$K_CLOSE_DELETE = 2; (* Close and delete a file *) TPU$K_PUT = 3; (* Put a record to a file *) TPU$K_GET = 4; (* Get a record from a file *) TPU$K_REWIND = 5; (* Rewind the file *) (* FILE_PARSE and FILE_SEARCH item flags *) CONST TPU$M_NODE = 1; TPU$M_DEV = 2; TPU$M_DIR = 4; TPU$M_NAME = 8; TPU$M_TYPE = 16; TPU$M_VER = 32; TPU$M_HEAD = 64; TPU$M_TAIL = 128; TPU$M_REPARSE = 65536; (* Codes for terminal input *) CONST TPU$K_INITIALIZE_INPUT = 0; (* Initialize terminal input *) TPU$K_TYPEAHEAD_COUNT = 1; (* Fetch typeahead count *) TPU$K_CANCEL_INPUT = 2; (* Cancel outstanding terminal input *) TPU$K_READ_CHARACTER = 3; (* Read a single character *) TPU$K_READ_STRING = 4; (* Read a string of characters *) TPU$K_READ_LINE = 5; (* Read a line with prompting *) TPU$K_TERMINATE_INPUT = 6; (* Terminate terminal input *) TPU$K_READ_TYPEAHEAD_NOECHO = 7; (* Read the typeahead and don't echo *) (* TPU$CLEANUP flags *) CONST TPU$M_DELETE_JOURNAL = 1; TPU$M_DELETE_EXITH = 2; TPU$M_DELETE_BUFFERS = 4; TPU$M_DELETE_WINDOWS = 8; TPU$M_DELETE_CACHE = 16; TPU$M_PRUNE_CACHE = 32; TPU$M_EXECUTE_FILE = 64; TPU$M_EXECUTE_PROC = 128; TPU$M_DELETE_CONTEXT = 256; TPU$M_RESET_TERMINAL = 512; TPU$M_KILL_PROCESSES = 1024; TPU$M_CLOSE_SECTION = 2048; TPU$M_DELETE_OTHERS = 4096; TPU$M_LAST_TIME = 8192; TPU$M_CLOSE_KANJI_DIC = 16384; (*** MODULE $TRMDEF ***) (* *) (* Define symbols for the item list QIO format *) (* *) (* Item list type codes *) CONST TRM$_MODIFIERS = 0; TRM$_EDITMODE = 1; TRM$_TIMEOUT = 2; TRM$_TERM = 3; TRM$_PROMPT = 4; TRM$_INISTRNG = 5; TRM$_PICSTRNG = 6; TRM$_FILLCHR = 7; TRM$_INIOFFSET = 8; TRM$_ALTECHSTR = 9; TRM$_ESCTRMOVR = 10; TRM$_LASTITM = 11; (* must remain the last item *) TRM$_RESERVE12 = 12; TRM$_RESERVE13 = 13; TRM$_RESERVE14 = 14; TRM$_RESERVE15 = 15; TRM$_RESERVE16 = 16; TRM$_RESERVE17 = 17; TRM$_RESERVE18 = 18; TRM$_RESERVE19 = 19; TRM$_RESERVE20 = 20; TRM$_RESERVE21 = 21; TRM$_RESERVE22 = 22; TRM$_RESERVE23 = 23; TRM$_RESERVE24 = 24; TRM$_RESERVE25 = 25; TRM$_RESERVE26 = 26; TRM$_RESERVE27 = 27; TRM$_RESERVE28 = 28; TRM$_RESERVE29 = 29; TRM$_RESERVE30 = 30; TRM$_RECLINE = 31; (* Reserved for exclusive use by *) (* Japanese input method; this code MUST *) (* remain in the invalid item code range *) (* *) (* Editmode type codes *) (* *) CONST TRM$K_EM_DEFAULT = 0; TRM$K_EM_RDVERIFY = 1; TRM$M_TM_NOECHO = 64; TRM$M_TM_TIMED = 128; TRM$M_TM_CVTLOW = 256; TRM$M_TM_NOFILTR = 512; TRM$M_TM_DSABLMBX = 1024; TRM$M_TM_PURGE = 2048; TRM$M_TM_TRMNOECHO = 4096; TRM$M_TM_REFRESH = 8192; TRM$M_TM_ESCAPE = 16384; TRM$M_TM_NOEDIT = 32768; TRM$M_TM_NORECALL = 65536; TRM$M_TM_R_JUST = 131072; TRM$M_TM_AUTO_TAB = 262144; TRM$M_TM_ARROWS = 524288; TRM$M_TM_TERM_ARROW = 1048576; TRM$M_TM_TERM_DEL = 2097152; TRM$M_TM_TOGGLE = 4194304; TRM$M_TM_OTHERWAY = 8388608; TRM$M_TM_NOCLEAR = 16777216; TRM$M_CV_UPPER = 1; TRM$M_CV_LOWER = 2; TRM$M_CV_NUMERIC = 4; TRM$M_CV_NUMPUNC = 8; TRM$M_CV_PRINTABLE = 16; TRM$M_CV_ANY = 32; TRM$M_ST_FIELD_FULL = 1; TRM$M_ST_OTHERWAY = 2; TYPE TRM$TYPE = RECORD CASE INTEGER OF 1: (TRM$R_TRMDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (TRM$V_TM_NOECHO : [POS(6)] $BOOL; (*NOECHO *) TRM$V_TM_TIMED : [POS(7)] $BOOL; (*TIMED *) TRM$V_TM_CVTLOW : [POS(8)] $BOOL; (*CONVERT LOWER CASE *) TRM$V_TM_NOFILTR : [POS(9)] $BOOL; (*NO FILTER *) TRM$V_TM_DSABLMBX : [POS(10)] $BOOL; (*DISABLE MAILBOX *) TRM$V_TM_PURGE : [POS(11)] $BOOL; (*PURGE TYPEAHEAD *) TRM$V_TM_TRMNOECHO : [POS(12)] $BOOL; (*TERMINATORS ARE NOT ECHOED *) TRM$V_TM_REFRESH : [POS(13)] $BOOL; (*Control-R interrupted read n *) TRM$V_TM_ESCAPE : [POS(14)] $BOOL; (*TERMINATE READ ON ESCAPE SEQUENCE *) TRM$V_TM_NOEDIT : [POS(15)] $BOOL; (*DISABLE ADVANCED EDITING *) TRM$V_TM_NORECALL : [POS(16)] $BOOL; (*Disable the recall feature of advanced editing *) TRM$V_TM_R_JUST : [POS(17)] $BOOL; (*Right justification *) TRM$V_TM_AUTO_TAB : [POS(18)] $BOOL; (*Auto tab field *) TRM$V_TM_ARROWS : [POS(19)] $BOOL; (* enable left & right arrow keys *) TRM$V_TM_TERM_ARROW : [POS(20)] $BOOL; (* pass arrows as terminator *) TRM$V_TM_TERM_DEL : [POS(21)] $BOOL; (* pass as terminator *) TRM$V_TM_TOGGLE : [POS(22)] $BOOL; (* allow insert/overstrike toggle *) TRM$V_TM_OTHERWAY : [POS(23)] $BOOL; (* overstrike R-justify or insert L-justify *) TRM$V_TM_NOCLEAR : [POS(24)] $BOOL; (* don't replace fill with clear after first non-fill *) ); 3: (TRM$R_TRMDEF_BITS1 : [BYTE(1)] RECORD END; (* picture string mask *) ); 4: (TRM$V_CV_UPPER : [POS(0)] $BOOL; (* upper case *) TRM$V_CV_LOWER : [POS(1)] $BOOL; (* lower case *) TRM$V_CV_NUMERIC : [POS(2)] $BOOL; (* numeric (0-9) *) TRM$V_CV_NUMPUNC : [POS(3)] $BOOL; (* numeric punctuation (+ - .) *) TRM$V_CV_PRINTABLE : [POS(4)] $BOOL; (* printable character *) TRM$V_CV_ANY : [POS(5)] $BOOL; (* any character *) ); 5: (TRM$R_TRMDEF_BITS2 : [BYTE(1)] RECORD END; ); 6: (TRM$V_ST_FIELD_FULL : [POS(0)] $BOOL; (* field full condition IOSB+7 contains index to cursor *) TRM$V_ST_OTHERWAY : [POS(1)] $BOOL; (* left-justify insert OR right-justify overstrike *) ) END; (*** MODULE $TTDEF ***) (* *) (* DEFINE TERMINAL SPECIAL SYMBOLS *) (* *) CONST TT$C_BAUD_50 = 1; TT$C_BAUD_75 = 2; TT$C_BAUD_110 = 3; TT$C_BAUD_134 = 4; TT$C_BAUD_150 = 5; TT$C_BAUD_300 = 6; TT$C_BAUD_600 = 7; TT$C_BAUD_1200 = 8; TT$C_BAUD_1800 = 9; TT$C_BAUD_2000 = 10; TT$C_BAUD_2400 = 11; TT$C_BAUD_3600 = 12; TT$C_BAUD_4800 = 13; TT$C_BAUD_7200 = 14; TT$C_BAUD_9600 = 15; TT$C_BAUD_19200 = 16; TT$C_BAUD_38400 = 17; TT$C_BAUD_57600 = 18; TT$C_BAUD_76800 = 19; TT$C_BAUD_115200 = 20; (* *** MATCHES DCDEF MACRO *) CONST TT$_UNKNOWN = 0; TT$_VT05 = 1; (* VT05 *) TT$_VK100 = 2; (* strange terminals *) TT$_VT173 = 3; TT$_TQ_BTS = 4; TT$_TEK401X = 10; TT$_FT1 = 16; (* FOREIGN TERMINAL TYPES *) TT$_FT2 = 17; (* new support also includes *) TT$_FT3 = 18; (* the negative numbers *) TT$_FT4 = 19; TT$_FT5 = 20; TT$_FT6 = 21; TT$_FT7 = 22; TT$_FT8 = 23; (* END OF FOREIGN TYPES *) (* RESERVE REST UP TO 32 FOR EXTENSIONS *) CONST TT$_LAX = 32; TT$_LA36 = 32; TT$_LA120 = 33; TT$_LA34 = 34; TT$_LA38 = 35; TT$_LA12 = 36; TT$_LA100 = 37; TT$_LA24 = 37; TT$_LQP02 = 38; TT$_LA84 = 39; TT$_LA210 = 40; TT$_LN03 = 41; TT$_LN01K = 42; TT$_LA80 = 43; TT$_VT5X = 64; TT$_VT52 = 64; TT$_VT55 = 65; TT$_VT100 = 96; (* VT100 *) TT$_VT101 = 97; TT$_VT102 = 98; TT$_VT105 = 99; TT$_VT125 = 100; TT$_VT131 = 101; TT$_VT132 = 102; TT$_VT80 = 103; TT$_VT200_Series = 110; TT$_Pro_Series = 111; TT$_VT300_Series = 112; TT$_VT400_Series = 113; TT$_VT500_Series = 114; (* from 128 on is reserved for foreign terminals and must not be *) (* used for terminal definitions *) CONST TT$M_PASSALL = 1; TT$M_NOECHO = 2; TT$M_NOTYPEAHD = 4; TT$M_ESCAPE = 8; TT$M_HOSTSYNC = 16; TT$M_TTSYNC = 32; TT$M_SCRIPT = 64; TT$M_LOWER = 128; TT$M_MECHTAB = 256; TT$M_WRAP = 512; TT$M_CRFILL = 1024; TT$M_LFFILL = 2048; TT$M_SCOPE = 4096; TT$M_REMOTE = 8192; TT$M_RESERVED = 16384; TT$M_EIGHTBIT = 32768; TT$M_MBXDSABL = 65536; TT$M_NOBRDCST = 131072; TT$M_READSYNC = 262144; TT$M_MECHFORM = 524288; TT$M_HALFDUP = 1048576; TT$M_MODEM = 2097152; TT$M_OPER = 4194304; TT$M_PAGE = -16777216; TT$M_ALTFRAME = 16; TT$M_ALTRPAR = 32; TT$M_PARITY = 64; TT$M_ODD = 128; TT$M_TWOSTOP = 256; TT$M_DISPARERR = 512; TT$M_ALTDISPAR = 1024; TT$M_BREAK = 2048; TT$M_DS_DTR = 2; TT$M_DS_SECTX = 8; TT$M_DS_RTS = 16; TT$M_DS_SECREC = 8; TT$M_DS_CTS = 16; TT$M_DS_CARRIER = 32; TT$M_DS_RING = 64; TT$M_DS_DSR = 128; TYPE TT$TYPE = RECORD CASE INTEGER OF 1: (TT$R_TTDEF_BITS0 : [BYTE(4)] RECORD END; ); 2: (TT$V_PASSALL : [POS(0)] $BOOL; TT$V_NOECHO : [POS(1)] $BOOL; TT$V_NOTYPEAHD : [POS(2)] $BOOL; TT$V_ESCAPE : [POS(3)] $BOOL; TT$V_HOSTSYNC : [POS(4)] $BOOL; TT$V_TTSYNC : [POS(5)] $BOOL; TT$V_SCRIPT : [POS(6)] $BOOL; TT$V_LOWER : [POS(7)] $BOOL; TT$V_MECHTAB : [POS(8)] $BOOL; TT$V_WRAP : [POS(9)] $BOOL; TT$V_CRFILL : [POS(10)] $BOOL; TT$V_LFFILL : [POS(11)] $BOOL; TT$V_SCOPE : [POS(12)] $BOOL; TT$V_REMOTE : [POS(13)] $BOOL; TT$V_RESERVED : [POS(14)] $BOOL; TT$V_EIGHTBIT : [POS(15)] $BOOL; TT$V_MBXDSABL : [POS(16)] $BOOL; TT$V_NOBRDCST : [POS(17)] $BOOL; TT$V_READSYNC : [POS(18)] $BOOL; TT$V_MECHFORM : [POS(19)] $BOOL; TT$V_HALFDUP : [POS(20)] $BOOL; TT$V_MODEM : [POS(21)] $BOOL; TT$V_OPER : [POS(22)] $BOOL; TT$V_PAGE : [POS(24)] $BIT8; ); 3: (TT$R_TTDEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (TT$V_ALTFRAME : [POS(4)] $BOOL; TT$V_ALTRPAR : [POS(5)] $BOOL; TT$V_PARITY : [POS(6)] $BOOL; TT$V_ODD : [POS(7)] $BOOL; TT$V_TWOSTOP : [POS(8)] $BOOL; TT$V_DISPARERR : [POS(9)] $BOOL; TT$V_ALTDISPAR : [POS(10)] $BOOL; TT$V_BREAK : [POS(11)] $BOOL; ); 5: (TT$R_TTDEF_BITS2 : [BYTE(1)] RECORD END; ); 6: (TT$V_DS_DTR : [POS(1)] $BOOL; (*OUTPUT MODEM CONTROL *) TT$V_DS_SECTX : [POS(3)] $BOOL; TT$V_DS_RTS : [POS(4)] $BOOL; ); 7: (TT$R_TTDEF_BITS3 : [BYTE(1)] RECORD END; ); 8: (TT$V_DS_SECREC : [POS(3)] $BOOL; TT$V_DS_CTS : [POS(4)] $BOOL; TT$V_DS_CARRIER : [POS(5)] $BOOL; TT$V_DS_RING : [POS(6)] $BOOL; TT$V_DS_DSR : [POS(7)] $BOOL; ) END; (*** MODULE $TT2DEF ***) CONST TT2$M_LOCALECHO = 1; TT2$M_AUTOBAUD = 2; TT2$M_HANGUP = 4; TT2$M_MODHANGUP = 8; TT2$M_BRDCSTMBX = 16; TT2$M_XON = 32; TT2$M_DMA = 64; TT2$M_ALTYPEAHD = 128; TT2$M_SETSPEED = 256; TT2$M_DCL_MAILBX = 512; TT2$M_DECCRT4 = 1024; TT2$M_COMMSYNC = 2048; TT2$M_EDITING = 4096; TT2$M_INSERT = 8192; TT2$M_FALLBACK = 16384; TT2$M_DIALUP = 32768; TT2$M_SECURE = 65536; TT2$M_DISCONNECT = 131072; TT2$M_PASTHRU = 262144; TT2$M_SYSPWD = 524288; TT2$M_SIXEL = 1048576; TT2$M_DRCS = 2097152; TT2$M_PRINTER = 4194304; TT2$M_APP_KEYPAD = 8388608; TT2$M_ANSICRT = 16777216; TT2$M_REGIS = 33554432; TT2$M_BLOCK = 67108864; TT2$M_AVO = 134217728; TT2$M_EDIT = 268435456; TT2$M_DECCRT = 536870912; TT2$M_DECCRT2 = 1073741824; TT2$M_DECCRT3 = -2147483648; TYPE TT2$TYPE = RECORD CASE INTEGER OF 1: (TT2$R_TT2DEF_BITS : [BYTE(4)] RECORD END; ); 2: (TT2$V_LOCALECHO : [POS(0)] $BOOL; TT2$V_AUTOBAUD : [POS(1)] $BOOL; TT2$V_HANGUP : [POS(2)] $BOOL; TT2$V_MODHANGUP : [POS(3)] $BOOL; TT2$V_BRDCSTMBX : [POS(4)] $BOOL; TT2$V_XON : [POS(5)] $BOOL; TT2$V_DMA : [POS(6)] $BOOL; TT2$V_ALTYPEAHD : [POS(7)] $BOOL; TT2$V_SETSPEED : [POS(8)] $BOOL; TT2$V_DCL_MAILBX : [POS(9)] $BOOL; (* TEMP DEFINITIONS FOR DCL SPAWN *) TT2$V_DECCRT4 : [POS(10)] $BOOL; (* Level 4 terminals (was OUTBAND-obsolete) *) TT2$V_COMMSYNC : [POS(11)] $BOOL; (* (was DCL_CTRLC-obsolete) *) TT2$V_EDITING : [POS(12)] $BOOL; (* enable advanced editing *) TT2$V_INSERT : [POS(13)] $BOOL; (* INPUT EDITING INSTER DEFAULT *) TT2$V_FALLBACK : [POS(14)] $BOOL; (* USE MULTINATIONAL FALLBACK *) TT2$V_DIALUP : [POS(15)] $BOOL; (* TERMINAL IS CONNECTED TO DIALUP *) TT2$V_SECURE : [POS(16)] $BOOL; (* RECOGNIZE SECURE SERVER *) TT2$V_DISCONNECT : [POS(17)] $BOOL; (* TERMINAL CAN BE DISCONNECTED *) TT2$V_PASTHRU : [POS(18)] $BOOL; (* passall with flowcontrol *) TT2$V_SYSPWD : [POS(19)] $BOOL; (* System password required *) TT2$V_SIXEL : [POS(20)] $BOOL; (* SIXEL SUPPORTED *) TT2$V_DRCS : [POS(21)] $BOOL; (* *) TT2$V_PRINTER : [POS(22)] $BOOL; (* PRINTER PORT AVAILABLE *) TT2$V_APP_KEYPAD : [POS(23)] $BOOL; (* Keypad in applicationis mode *) TT2$V_ANSICRT : [POS(24)] $BOOL; (* ANSI, REGIS, BLOCK and AVO *) TT2$V_REGIS : [POS(25)] $BOOL; (* must be contiguous for SCRPKG. *) TT2$V_BLOCK : [POS(26)] $BOOL; TT2$V_AVO : [POS(27)] $BOOL; TT2$V_EDIT : [POS(28)] $BOOL; TT2$V_DECCRT : [POS(29)] $BOOL; TT2$V_DECCRT2 : [POS(30)] $BOOL; (* DECCRT level 2 *) TT2$V_DECCRT3 : [POS(31)] $BOOL; (* DECCRT level 3 *) ) END; (*** MODULE $TT3DEF ***) CONST TT3$M_POSIX = 1; TT3$M_ANSI_COLOR = 2; TT3$M_DECCRT5 = 4; TT3$M_RTS_FLOW = 8; TT3$M_BS = 16; TYPE TT3$TYPE = RECORD CASE INTEGER OF 1: (TT3$R_TT3DEF_BITS : [BYTE(4)] RECORD END; ); 2: (TT3$V_POSIX : [POS(0)] $BOOL; TT3$V_ANSI_COLOR : [POS(1)] $BOOL; TT3$V_DECCRT5 : [POS(2)] $BOOL; TT3$V_RTS_FLOW : [POS(3)] $BOOL; TT3$V_BS : [POS(4)] $BOOL; TT3$v_tt_spare : [POS(5)] $BIT11; TT3$V_AS_RESERVED : [POS(16)] $BIT16; ) END; (*** MODULE $TTCDEF ***) CONST TTC$M_RESERVED = 255; TTC$M_KANA = 256; TTC$M_KANJI = 512; TTC$M_HANZI = 1024; TTC$M_HANGUL = 2048; TTC$M_HANYU = 4096; TTC$M_THAI = 8192; TYPE TTC$TYPE = RECORD CASE INTEGER OF 1: (TTC$R_TTCDEF_BITS : [BYTE(2)] RECORD END; ); 2: (TTC$V_RESERVED : [POS(0)] $BIT8; (* First byte is reserved *) TTC$V_KANA : [POS(8)] $BOOL; (* Katakana *) TTC$V_KANJI : [POS(9)] $BOOL; (* Kanji *) TTC$V_HANZI : [POS(10)] $BOOL; (* Hanzi *) TTC$V_HANGUL : [POS(11)] $BOOL; (* Hangul *) TTC$V_HANYU : [POS(12)] $BOOL; (* Hanyu *) TTC$V_THAI : [POS(13)] $BOOL; (* Thai *) ) END; (*** MODULE $TTYDPORTDEF ***) CONST TTY$M_NO_AUTO_XON = 1; TTY$M_RESERVED = 254; TTY$M_PARITY_ERROR = 256; TTY$M_USE_WINDOW_CONSOLE = 512; TTY$M_LOAD_INPUT_EXTENSION = 1024; TTY$M_IA64_POLLED_CONSOLE = 2048; TTY$M_IA64_CONSOLE_NOTIME = 4096; TYPE TTYDPORT$TYPE = RECORD CASE INTEGER OF 1: (TTY$R_TTYDPORTDEF_BITS : [BYTE(2)] RECORD END; ); 2: (TTY$V_NO_AUTO_XON : [POS(0)] $BOOL; (* Disable automatic Xon/Xoff *) TTY$V_RESERVED : [POS(1)] $BIT7; (* Next 7 bits are reserved *) TTY$V_PARITY_ERROR : [POS(8)] $BOOL; (* Drop parity error chars *) TTY$V_USE_WINDOW_CONSOLE : [POS(9)] $BOOL; (* Console option *) TTY$V_LOAD_INPUT_EXTENSION : [POS(10)] $BOOL; (* Console option *) TTY$V_IA64_POLLED_CONSOLE : [POS(11)] $BOOL; (* IA64 flag to force console to poll *) TTY$V_IA64_CONSOLE_NOTIME : [POS(12)] $BOOL; (* IA64 console disable output timer flag *) ) END; (*** MODULE $UAF070DEF ***) (*++ *) (* User authorization file format *) (* Note: With the exception of the username and account name, *) (* all strings are blank padded counted strings. Username and *) (* account name are uncounted, blank padded. *) (*-- *) CONST UAF070$C_USER_ID = 1; (* main user ID record *) UAF070$C_VERSION1 = 1; (* this version *) UAF070$C_KEYED_PART = 52; (* ISAM keys come this far *) UAF070$C_MAX_PWD_LENGTH = 32; (* maximum plaintext password length *) UAF070$K_MAX_PWD_LENGTH = 32; (* maximum plaintext password length *) UAF070$C_AD_II = 0; (* AUTODIN-II 32 bit crc code *) UAF070$C_PURDY = 1; (* Purdy polynomial over salted input *) UAF070$C_PURDY_V = 2; (* Purdy polynomial + variable length username *) UAF070$C_PURDY_S = 3; (* PURDY_V folded into password length *) UAF070$K_CURRENT_ALGORITHM = 3; (* current DEC algorithm number *) UAF070$C_CURRENT_ALGORITHM = 3; (* current DEC algorithm number *) UAF070$C_PREFERED_ALGORITHM = 127; UAF070$K_PREFERED_ALGORITHM = 127; UAF070$C_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *) UAF070$K_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *) UAF070$C_CUST_ALGORITHM = 128; (* customer algorithm division *) UAF070$K_CUST_ALGORITHM = 128; (* customer algorithm division *) UAF070$K_FIXED = 644; (* length of fixed portion *) UAF070$C_FIXED = 644; (* length of fixed portion *) UAF070$K_LENGTH = 1412; UAF070$C_LENGTH = 1412; UAF070$S_UAF070DEF = 1412; (* Old size name, synonym for UAF070$S_UAF070 *) TYPE UAF070$TYPE = RECORD CASE INTEGER OF 1: (UAF070$B_RTYPE : $UBYTE; (* UAF070 record type *) UAF070$B_VERSION : $UBYTE; (* UAF070 format version *) UAF070$W_USRDATOFF : $UWORD; (* offset of counted string of user data *) UAF070$R_FILL_47_ : [BYTE(32)] RECORD END; UAF070$R_FILL_49_ : [BYTE(4)] RECORD END; UAF070$L_SUB_ID : UNSIGNED; (* user sub-identifier *) UAF070$Q_PARENT_ID : $UQUAD; (* identifier of owner of this account *) UAF070$T_ACCOUNT : PACKED ARRAY [1..32] OF CHAR; (* account name *) UAF070$T_OWNER : PACKED ARRAY [1..32] OF CHAR; (* owner's name *) UAF070$T_DEFDEV : PACKED ARRAY [1..32] OF CHAR; (* default device *) UAF070$T_DEFDIR : PACKED ARRAY [1..64] OF CHAR; (* default directory *) UAF070$T_LGICMD : PACKED ARRAY [1..64] OF CHAR; (* login command file *) UAF070$T_DEFCLI : PACKED ARRAY [1..32] OF CHAR; (* default command interpreter *) UAF070$T_CLITABLES : PACKED ARRAY [1..32] OF CHAR; (* user CLI tables *) UAF070$R_FILL_51_ : [BYTE(8)] RECORD END; UAF070$Q_PWD2 : $UQUAD; (* second password *) UAF070$W_LOGFAILS : $UWORD; (* count of login failures *) UAF070$W_SALT : $UWORD; (* random password salt *) UAF070$B_ENCRYPT : $UBYTE; (* primary password hash algorithm *) (* known hash algorithm indices *) UAF070$B_ENCRYPT2 : $UBYTE; (* secondary password hash algorithm *) UAF070$B_PWD_LENGTH : $UBYTE; (* minimum password length *) UAF070$$$_FILL_1 : ARRAY [1..1] OF $BYTE; UAF070$Q_EXPIRATION : $UQUAD; (* expiration date for account *) UAF070$Q_PWD_LIFETIME : $UQUAD; (* password lifetime *) UAF070$Q_PWD_DATE : $UQUAD; (* date of password change *) UAF070$Q_PWD2_DATE : $UQUAD; (* date of 2nd password change *) UAF070$Q_LASTLOGIN_I : $UQUAD; (* date of last interactive login *) UAF070$Q_LASTLOGIN_N : $UQUAD; (* date of last non-interactive login *) UAF070$Q_PRIV : $UQUAD; (* process privilege vector *) UAF070$Q_DEF_PRIV : $UQUAD; (* default process privileges *) UAF070$R_MIN_CLASS : [BYTE(20)] RECORD END; (* minimum security class *) UAF070$R_MAX_CLASS : [BYTE(20)] RECORD END; (* maximum security class *) UAF070$R_FILL_53_ : [BYTE(4)] RECORD END; UAF070$B_NETWORK_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly network access, primary *) UAF070$B_NETWORK_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly network access, secondary *) UAF070$B_BATCH_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly batch access, primary *) UAF070$B_BATCH_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly batch access, secondary *) UAF070$B_LOCAL_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly local access, primary *) UAF070$B_LOCAL_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly local access, secondary *) UAF070$B_DIALUP_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly dialup access, primary *) UAF070$B_DIALUP_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly dialup access, secondary *) UAF070$B_REMOTE_ACCESS_P : ARRAY [1..3] OF $UBYTE; (* hourly remote access, primary *) UAF070$B_REMOTE_ACCESS_S : ARRAY [1..3] OF $UBYTE; (* hourly remote access, secondary *) UAF070$$$_FILL_4 : ARRAY [1..12] OF $BYTE; (* space for 2 more access types *) UAF070$R_FILL_55_ : [BYTE(1)] RECORD END; UAF070$$$_FILL_5 : ARRAY [1..1] OF $BYTE; UAF070$B_PRI : $UBYTE; (* base process priority *) UAF070$B_QUEPRI : $UBYTE; (* maximum job queuing priority *) UAF070$W_MAXJOBS : $UWORD; (* maximum jobs for UIC allowed *) (* 0 means no limit *) UAF070$W_MAXACCTJOBS : $UWORD; (* maximum jobs for account allowed *) (* 0 means no limit *) UAF070$W_MAXDETACH : $UWORD; (* maximum detached processes for UIC *) (* 0 means no limit *) UAF070$W_PRCCNT : $UWORD; (* subprocess creation limit *) UAF070$W_BIOLM : $UWORD; (* buffered I/O limit *) UAF070$W_DIOLM : $UWORD; (* direct I/O limit *) UAF070$W_TQCNT : $UWORD; (* timer queue entry limit *) UAF070$W_ASTLM : $UWORD; (* AST queue limit *) UAF070$W_ENQLM : $UWORD; (* enqueue limit *) UAF070$W_FILLM : $UWORD; (* open file limit *) UAF070$W_SHRFILLM : $UWORD; (* shared file limit *) UAF070$L_WSQUOTA : UNSIGNED; (* working set size quota *) UAF070$L_DFWSCNT : UNSIGNED; (* default working set size *) UAF070$L_WSEXTENT : UNSIGNED; (* working set size limit *) UAF070$L_PGFLQUOTA : UNSIGNED; (* page file quota *) UAF070$L_CPUTIM : UNSIGNED; (* CPU time quota *) UAF070$L_BYTLM : UNSIGNED; (* buffered I/O byte count limit *) UAF070$L_PBYTLM : UNSIGNED; (* paged buffer I/O byte count limit *) UAF070$L_JTQUOTA : UNSIGNED; (* job-wide logical name table creation quota *) UAF070$W_PROXY_LIM : $UWORD; (* number of proxies user can grant *) UAF070$W_PROXIES : $UWORD; (* number of proxies granted *) UAF070$W_ACCOUNT_LIM : $UWORD; (* number of sub-accounts allowed *) UAF070$W_ACCOUNTS : $UWORD; (* number of sub-accounts in use *) UAF070$R_DEF_CLASS : [BYTE(20)] RECORD END; (* default security class *) UAF070$$$_FILL_99 : ARRAY [1..44] OF $BYTE; (* spare space *) UAF070$$$_FILL_100 : ARRAY [1..768] OF $BYTE; (* user-extensible area *) ); 2: (UAF070$T_USERNAME : [POS(32)] PACKED ARRAY [1..32] OF CHAR; (* username *) UAF070$L_UIC : [POS(288)] UNSIGNED; (* user ID code *) UAF070$Q_PWD : [POS(2720)] $UQUAD; (* hashed password *) UAF070$L_FLAGS : [POS(3744)] UNSIGNED; (* user flags longword *) UAF070$B_PRIMEDAYS : [POS(4112)] $UBYTE; (* bits representing primary days *) ); 3: (); 4: (UAF070$T_USERNAME_TAG : [POS(280)] CHAR; (* tag to differentiate records *) UAF070$W_MEM : [POS(288)] $UWORD; (* member subfield *) UAF070$W_GRP : [POS(304)] $UWORD; (* group subfield *) UAF070$L_PWD : [POS(2720)] UNSIGNED; (* 32 bit subfield *) UAF070$V_DISCTLY : [POS(3744)] $BOOL; (* no user control-y *) UAF070$V_DEFCLI : [POS(3745)] $BOOL; (* only allow user default CLI *) UAF070$V_LOCKPWD : [POS(3746)] $BOOL; (* disable SET PASSWORD command *) UAF070$V_RESTRICTED : [POS(3747)] $BOOL; (* restricted account (pre-V5.2 CAPTIVE) *) UAF070$V_DISACNT : [POS(3748)] $BOOL; (* no interactive login *) UAF070$V_DISWELCOM : [POS(3749)] $BOOL; (* skip welcome message *) UAF070$V_DISMAIL : [POS(3750)] $BOOL; (* skip new mail message *) UAF070$V_NOMAIL : [POS(3751)] $BOOL; (* disable mail delivery *) UAF070$V_GENPWD : [POS(3752)] $BOOL; (* passwords must be generated *) UAF070$V_PWD_EXPIRED : [POS(3753)] $BOOL; (* password has expired *) UAF070$V_PWD2_EXPIRED : [POS(3754)] $BOOL; (* 2nd password has expired *) UAF070$V_AUDIT : [POS(3755)] $BOOL; (* audit all actions *) UAF070$V_DISREPORT : [POS(3756)] $BOOL; (* skip last login messages *) UAF070$V_DISRECONNECT : [POS(3757)] $BOOL; (* inhibit reconnections *) UAF070$V_AUTOLOGIN : [POS(3758)] $BOOL; (* auto-login only *) UAF070$V_DISFORCE_PWD_CHANGE : [POS(3759)] $BOOL; (* disable forced password change *) UAF070$V_CAPTIVE : [POS(3760)] $BOOL; (* captive account (no overrides) *) UAF070$V_DISIMAGE : [POS(3761)] $BOOL; (* disable arbitrary image activation *) UAF070$V_DISPWDDIC : [POS(3762)] $BOOL; (* disable password dictionary search *) UAF070$V_DISPWDHIS : [POS(3763)] $BOOL; (* disable password history search *) UAF070$V_DEFCLSVAL : [POS(3764)] $BOOL; (* default classification is valid *) UAF070$V_MONDAY : [POS(4112)] $BOOL; (* bit clear means this is a primary day *) UAF070$V_TUESDAY : [POS(4113)] $BOOL; (* bit set means this is an off day *) UAF070$V_WEDNESDAY : [POS(4114)] $BOOL; UAF070$V_THURSDAY : [POS(4115)] $BOOL; UAF070$V_FRIDAY : [POS(4116)] $BOOL; UAF070$V_SATURDAY : [POS(4117)] $BOOL; UAF070$V_SUNDAY : [POS(4118)] $BOOL; ) END; (*** MODULE $UAIDEF ***) (*+ *) (* *) (* Get User Authorization Information Data Identifier Definitions *) (* *) (* **** NOTE **** *) (* *) (* New items must always be added to the END of each item list *) (* so that users will not have to relink. *) (* *) (*- *) CONST UAI$_RTYPE = 1; (* UAF record type *) UAI$_VERSION = 2; (* UAF format version *) UAI$_USRDATOFF = 3; (* offset of counted string of user data *) UAI$_USERNAME = 4; (* username *) UAI$_USERNAME_TAG = 5; (* tag to differentiate records *) UAI$_UIC = 6; (* user ID code *) UAI$_MEM = 7; (* member subfield *) UAI$_GRP = 8; (* group subfield *) UAI$_SUB_ID = 9; (* user sub-identifier *) UAI$_PARENT_ID = 10; (* identifier of owner of this account *) UAI$_ACCOUNT = 11; (* account name *) UAI$_OWNER = 12; (* owner's name *) UAI$_DEFDEV = 13; (* default device *) UAI$_DEFDIR = 14; (* default directory *) UAI$_LGICMD = 15; (* login command file *) UAI$_DEFCLI = 16; (* default command interpreter *) UAI$_CLITABLES = 17; (* user CLI tables *) UAI$_PWD = 18; (* hashed password *) UAI$_PWD2 = 19; (* second password *) UAI$_LOGFAILS = 20; (* count of login failures *) UAI$_SALT = 21; (* random password salt *) UAI$_ENCRYPT = 22; (* primary password hash algorithm *) UAI$_ENCRYPT2 = 23; (* secondary password hash algorithm *) UAI$_PWD_LENGTH = 24; (* minimum password length *) UAI$_EXPIRATION = 25; (* expiration date for account *) UAI$_PWD_LIFETIME = 26; (* password lifetime *) UAI$_PWD_DATE = 27; (* date of password change *) UAI$_PWD2_DATE = 28; (* date of 2nd password change *) UAI$_LASTLOGIN_I = 29; (* date of last interactive login *) UAI$_LASTLOGIN_N = 30; (* date of last non-interactive login *) UAI$_PRIV = 31; (* process privilege vector *) UAI$_DEF_PRIV = 32; (* default process privileges *) UAI$_MIN_CLASS = 33; (* minimum security class *) UAI$_MAX_CLASS = 34; (* maximum security class *) UAI$_FLAGS = 35; (* user flags longword *) UAI$_NETWORK_ACCESS_P = 36; (* hourly network access, primary *) UAI$_NETWORK_ACCESS_S = 37; (* hourly network access, secondary *) UAI$_BATCH_ACCESS_P = 38; (* hourly batch access, primary *) UAI$_BATCH_ACCESS_S = 39; (* hourly batch access, secondary *) UAI$_LOCAL_ACCESS_P = 40; (* hourly local access, primary *) UAI$_LOCAL_ACCESS_S = 41; (* hourly local access, secondary *) UAI$_DIALUP_ACCESS_P = 42; (* hourly dialup access, primary *) UAI$_DIALUP_ACCESS_S = 43; (* hourly dialup access, secondary *) UAI$_REMOTE_ACCESS_P = 44; (* hourly remote access, primary *) UAI$_REMOTE_ACCESS_S = 45; (* hourly remote access, secondary *) UAI$_PRIMEDAYS = 46; (* bits representing primary days *) UAI$_PRI = 47; (* base process priority *) UAI$_QUEPRI = 48; (* maximum job queuing priority *) UAI$_MAXJOBS = 49; (* maximum jobs for UIC allowed *) UAI$_MAXACCTJOBS = 50; (* maximum jobs for account allowed *) UAI$_MAXDETACH = 51; (* maximum detached processes for UIC *) UAI$_PRCCNT = 52; (* subprocess creation limit *) UAI$_BIOLM = 53; (* buffered I/O limit *) UAI$_DIOLM = 54; (* direct I/O limit *) UAI$_TQCNT = 55; (* timer queue entry limit *) UAI$_ASTLM = 56; (* AST queue limit *) UAI$_ENQLM = 57; (* enqueue limit *) UAI$_FILLM = 58; (* open file limit *) UAI$_SHRFILLM = 59; (* shared file limit *) UAI$_WSQUOTA = 60; (* working set size quota *) UAI$_DFWSCNT = 61; (* default working set size *) UAI$_WSEXTENT = 62; (* working set size limit *) UAI$_PGFLQUOTA = 63; (* page file quota *) UAI$_CPUTIM = 64; (* CPU time quota *) UAI$_BYTLM = 65; (* buffered I/O byte count limit *) UAI$_PBYTLM = 66; (* paged buffer I/O byte count limit *) UAI$_JTQUOTA = 67; (* job-wide logical name table creation quota *) UAI$_PROXY_LIM = 68; (* number of proxies user can grant *) UAI$_PROXIES = 69; (* number of proxies granted *) UAI$_ACCOUNT_LIM = 70; (* number of sub-accounts allowed *) UAI$_ACCOUNTS = 71; (* number of sub-accounts in use *) UAI$_USER_DATA = 72; (* user data area *) UAI$_PASSWORD = 73; (* plaintext primary password *) UAI$_PASSWORD2 = 74; (* plaintext secondary password *) UAI$_DEF_CLASS = 75; (* default security classification *) UAI$_AUDIT_FLAGS = 76; (* passed from $SETUAI to UAF$SECURITY_AUDIT *) (* ADD ITEM-CODES BEFORE THIS COMMENT *) CONST UAI$_MAX_ITEM_CODE = 77; (* maximum legal item code + 1 *) (* Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT. *) CONST UAI$_DEFCHARGE_CODE = 11; (* default charge code (=account) *) (* Define the various password hash algorithms. *) CONST UAI$C_AD_II = 0; (* AUTODIN-II 32 bit crc code *) UAI$C_PURDY = 1; (* Purdy polynomial over salted input *) UAI$C_PURDY_V = 2; (* Purdy polynomial + variable length username *) UAI$C_PURDY_S = 3; (* PURDY_V folded into password length *) UAI$C_PREFERED_ALGORITHM = 127; UAI$C_PREFERRED_ALGORITHM = 127; (* preferred hash algorithm - use current *) UAI$C_CUST_ALGORITHM = 128; (* customer algorithm division *) UAI$C_MAX_PWD_LENGTH = 32; (* maximum plaintext password *) (* Define the flags for the user flags longword. *) CONST UAI$M_DISCTLY = 1; UAI$M_DEFCLI = 2; UAI$M_LOCKPWD = 4; UAI$M_RESTRICTED = 8; UAI$M_DISACNT = 16; UAI$M_DISWELCOM = 32; UAI$M_DISMAIL = 64; UAI$M_NOMAIL = 128; UAI$M_GENPWD = 256; UAI$M_PWD_EXPIRED = 512; UAI$M_PWD2_EXPIRED = 1024; UAI$M_AUDIT = 2048; UAI$M_DISREPORT = 4096; UAI$M_DISRECONNECT = 8192; UAI$M_AUTOLOGIN = 16384; UAI$M_DISFORCE_PWD_CHANGE = 32768; UAI$M_CAPTIVE = 65536; UAI$M_DISIMAGE = 131072; UAI$M_DISPWDDIC = 262144; UAI$M_DISPWDHIS = 524288; UAI$M_DEFCLSVAL = 1048576; UAI$M_EXTAUTH = 2097152; UAI$M_MIGRATEPWD = 4194304; UAI$M_VMSAUTH = 8388608; UAI$M_DISPWDSYNCH = 16777216; UAI$M_PWDMIX = 33554432; TYPE FLAGS$TYPE = RECORD (* user flags longword *) UAI$V_DISCTLY : [POS(0)] $BOOL; (* no user control-y *) UAI$V_DEFCLI : [POS(1)] $BOOL; (* only allow user default CLI *) UAI$V_LOCKPWD : [POS(2)] $BOOL; (* disable SET PASSWORD command *) UAI$V_RESTRICTED : [POS(3)] $BOOL; (* restricted account (pre-V5.2 CAPTIVE) *) UAI$V_DISACNT : [POS(4)] $BOOL; (* no interactive login *) UAI$V_DISWELCOM : [POS(5)] $BOOL; (* skip welcome message *) UAI$V_DISMAIL : [POS(6)] $BOOL; (* skip new mail message *) UAI$V_NOMAIL : [POS(7)] $BOOL; (* disable mail delivery *) UAI$V_GENPWD : [POS(8)] $BOOL; (* passwords must be generated *) UAI$V_PWD_EXPIRED : [POS(9)] $BOOL; (* password has expired *) UAI$V_PWD2_EXPIRED : [POS(10)] $BOOL; (* 2nd password has expired *) UAI$V_AUDIT : [POS(11)] $BOOL; (* audit all actions *) UAI$V_DISREPORT : [POS(12)] $BOOL; (* skip last login messages *) UAI$V_DISRECONNECT : [POS(13)] $BOOL; (* inhibit reconnections *) UAI$V_AUTOLOGIN : [POS(14)] $BOOL; (* auto-login only *) UAI$V_DISFORCE_PWD_CHANGE : [POS(15)] $BOOL; (* disable forced password change *) UAI$V_CAPTIVE : [POS(16)] $BOOL; (* captive account (no overrides) *) UAI$V_DISIMAGE : [POS(17)] $BOOL; (* disable arbitrary image activation *) UAI$V_DISPWDDIC : [POS(18)] $BOOL; (* disable password dictionary filter *) UAI$V_DISPWDHIS : [POS(19)] $BOOL; (* disable password history search *) UAI$V_DEFCLSVAL : [POS(20)] $BOOL; (* default classification is valid *) UAI$V_EXTAUTH : [POS(21)] $BOOL; (* external authentication enabled *) UAI$V_MIGRATEPWD : [POS(22)] $BOOL; (* migrate UAF pwd to external auth *) UAI$V_VMSAUTH : [POS(23)] $BOOL; (* VMS alternative is allowed *) UAI$V_DISPWDSYNCH : [POS(24)] $BOOL; (* no ACME password sharing *) UAI$V_PWDMIX : [POS(25)] $BOOL; (* enable mixed-case passwords *) UAI$V_FILL_59_ : [POS(26)] $BIT6; END; (* Define the flags representing primary days. *) TYPE PRIMEDAYS$TYPE = RECORD (* bits representing primary days *) UAI$V_MONDAY : [POS(0)] $BOOL; (* bit clear means this is a primary day *) UAI$V_TUESDAY : [POS(1)] $BOOL; (* bit set means this is an off day *) UAI$V_WEDNESDAY : [POS(2)] $BOOL; UAI$V_THURSDAY : [POS(3)] $BOOL; UAI$V_FRIDAY : [POS(4)] $BOOL; UAI$V_SATURDAY : [POS(5)] $BOOL; UAI$V_SUNDAY : [POS(6)] $BOOL; UAI$V_FILL_60_ : [POS(7)] $BOOL; END; (*** MODULE $UICDEF ***) (*+ *) (* *) (* Format of UIC - user identification code. May be either two part *) (* group / member identifier, or a single uniform identifier. *) (* *) (* The binary layout of the id space is as follows: *) (* *) (* ---------- Bit -------- *) (* 31 30 29 28 27 26 Description *) (* === === === === === === ======================================== *) (* *) (* 0 0 - - - - UIC form (group/member) *) (* 0 1 - - - - Unused *) (* 1 0 - - - - Identifier form *) (* 1 0 0 0 - - System identifiers *) (* 1 0 0 1 - - Facility-specific identifiers *) (* 1 0 1 0 - - Arbitrary assignment identifiers *) (* 1 0 1 0 0 0 SEVMS identifier space *) (* 1 0 1 0 0 1 Unused *) (* 1 0 1 0 1 0 Unused *) (* 1 0 1 0 1 1 Unused *) (* 1 0 1 1 - - Unused *) (* 1 1 - - - - Unused *) (*- *) CONST UIC$K_MAX_UIC = 1073741823; (* Highest possible UIC *) UIC$K_WILD_MEMBER = 65535; (* Code for wild card member *) UIC$K_WILD_GROUP = 16383; (* Code for wild card group *) UIC$K_UIC_FORMAT = 0; (* UIC format code *) UIC$K_ID_FORMAT = 2; (* ID format code *) UIC$K_TYPE_SYSTEM = 8; (* system ID or UIC *) UIC$K_TYPE_FACILITY = 9; (* facility ID or UIC *) UIC$K_TYPE_ARBITRARY = 10; (* arbitrary assignment space *) UIC$K_FIRST_ID = -2147418112; (* First general identifier *) UIC$K_LAST_ID = -1879048193; (* Last general identifier *) UIC$K_MATCH_ALL = -1; (* Match all identifiers *) UIC$K_ASSIGN_SEVMS = 0; (* SEVMS block of identifier space *) TYPE UIC$TYPE = RECORD CASE INTEGER OF 1: (UIC$R_FILL_61_ : [BYTE(4)] RECORD END; ); 2: (UIC$L_UIC : [POS(0)] UNSIGNED; (* Full longword *) ); 3: (); 4: (UIC$W_MEM : [POS(0)] $UWORD; (* Member number *) UIC$W_GRP : [POS(16)] $UWORD; (* Group number *) ); 5: (UIC$R_UIC_FORM : [BYTE(4)] RECORD END; (* Group / member format *) ); 6: (UIC$V_MEMBER : [POS(0)] $BIT16; (* Member number *) UIC$V_GROUP : [POS(16)] $BIT14; (* Group number *) UIC$V_FORMAT : [POS(30)] $BIT2; (* Format code *) ); 7: (UIC$R_ID_FORM : [BYTE(4)] RECORD END; (* General identifier format *) ); 8: (UIC$V_ID_CODE : [POS(0)] $BIT28; (* ID code *) UIC$V_ID_TYPE : [POS(28)] $BIT4; (* ID type *) ); 9: (UIC$R_FAC_ID_FORM : [BYTE(4)] RECORD END; (* Facility identifier format *) ); 10: (UIC$V_FAC_ID_CODE : [POS(0)] $BIT16; (* ID code *) UIC$V_FACILITY : [POS(16)] $BIT12; (* Facility code *) ); 11: (UIC$R_ARBITRARY_ID_FORM : [BYTE(4)] RECORD END; (* Arbitrary assignment format *) ); 12: (UIC$V_ARB_ID_CODE : [POS(0)] $BIT26; (* ID code *) UIC$V_ASSIGN_CODE : [POS(26)] $BIT2; (* Assignment code *) ) END; (*** MODULE $UIDDEF ***) CONST UID$K_ArchVersion = 1; (* Current architecture version *) UID$K_Apollo1 = 0; (* UID format types *) UID$K_Apollo2 = 1; UID$K_Digital = 2; UID$K_Microsoft = 3; UID$K_LENGTH = 16; (* Total structure length *) TYPE UID$TYPE = RECORD CASE INTEGER OF 1: (UID$r_fill_63_ : [BYTE(8)] RECORD END; UID$r_fill_67_ : [BYTE(2)] RECORD END; UID$r_fill_71_ : [BYTE(6)] RECORD END; ); 2: (UID$q_timeAndVersion : [POS(0)] $UQUAD; (* Time and version *) UID$w_clockSeqAndReserved : [POS(64)] $UWORD; (* Clock sequence and reserved *) UID$b_node : [POS(80)] ARRAY [1..6] OF $UBYTE; ); 3: (); 4: (UID$l_timeLow : [POS(0)] UNSIGNED; (* Low order 32 bits of time *) UID$w_timeMid : [POS(32)] $UWORD; (* Middle order 16 bits of time *) UID$b_clockSeqLow : [POS(72)] $UBYTE; (* Low order 8 bits of clock sequence *) UID$w_nodeHi : [POS(80)] $UWORD; (* High order 16 bits of node number *) UID$l_nodeLow : [POS(96)] UNSIGNED; (* Low order 32 bits of node number *) ); 5: (UID$w_timeHiAndVersion : [POS(48)] $UWORD; (* High order 12 bits of time and *) UID$b_clockSeqHiAndReserved : [POS(64)] $UBYTE; (* High order 6 bits of clock sequence *) ); 6: (); 7: ( (* 4 bits of version *) UID$v_timeHi : [POS(48)] $BIT12; (* High order 12 bits of time *) UID$V_Version : [POS(60)] $BIT4; (* 4 bits of version *) (* and 2 reserved bits *) UID$v_clockSeqHi : [POS(64)] $BIT6; (* High order 6 bits of clock sequence *) UID$V_Reserved : [POS(70)] $BIT2; (* 2 bits of reserved *) ) END; (*** MODULE $USGDEF ***) (*+ *) (* Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility. *) (*- *) CONST USG$K_IDENT = 1; (* Identification record *) USG$K_FILE = 2; (* File record *) USG$K_IDENT_LEN = 61; (* Length of IDENT record *) USG$C_IDENT_LEN = 61; (* Length of IDENT record *) TYPE USG$TYPE = RECORD USG$B_TYPE : $UBYTE; (* Record type *) USG$L_SERIALNUM : UNSIGNED; (* Pack serial number *) USG$T_STRUCNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume set name *) USG$T_VOLNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume name *) USG$T_OWNERNAME : PACKED ARRAY [1..12] OF CHAR; (* Volume owner name *) USG$T_FORMAT : PACKED ARRAY [1..12] OF CHAR; (* Volume format type *) (* *** Preceding same as home block *** *) USG$Q_TIME : $UQUAD; (* Time usage file created *) END; CONST USG$K_FILE_LEN = 423; (* Maximum length of FILE record *) USG$C_FILE_LEN = 423; (* Maximum length of FILE record *) TYPE USG1$TYPE = RECORD CASE INTEGER OF 1: (USGDEF$$_FILL_1 : $BYTE; USG$R_FILEOWNER_OVERLAY : [BYTE(4)] RECORD END; USG$L_ALLOCATED : UNSIGNED; (* Blocks allocated, including headers *) USG$L_USED : UNSIGNED; (* Blocks used *) USG$W_DIR_LEN : $UWORD; (* Length of directory string *) USG$W_SPEC_LEN : $UWORD; (* Length of complete file specification *) USG$T_FILESPEC : PACKED ARRAY [1..406] OF CHAR; (* File spec "[dir]nam.typ;ver" *) ); 2: (USG$L_FILEOWNER : [POS(8)] UNSIGNED; (* File owner UIC *) ); 3: (); 4: (USG$W_UICMEMBER : [POS(8)] $UWORD; (* UIC member number *) USG$W_UICGROUP : [POS(24)] $UWORD; (* UIC group number *) ) END; (*** MODULE $USRIDEF ***) (* *) (* User image bit definitions *) (* *) (* *) CONST USRI$M_DBG_MAPPED = 1; TYPE USRI$TYPE = RECORD CASE INTEGER OF 1: (USRI$R_USRI_BITS : [BYTE(1)] RECORD END; ); 2: (USRI$V_DBG_MAPPED : [POS(0)] $BOOL; (* Debugger is now mapped *) ) END; (*** MODULE $VADEF ***) (*+ *) (* VIRTUAL ADDRESS VIELDS *) (*- *) CONST VA$M_P1 = 1073741824; VA$M_SYSTEM = -2147483648; VA$M_BYTES_PER_PAGELET = 511; VA$M_BYTE_IN_PAGELET = 511; VA$M_VRN = 0; VA$C_VRN_SYSTEM = 7; (* VRN for system space *) VA$C_REGION_COUNT = 8; (* Number of virtual regions *) VA$M_VRNX = 0; VA$C_VRNX_SYSTEM = 15; (* VRNX for system space *) VA$C_VRNX_COUNT = 16; (* Number of virtual address spaces *) VA$S_VADEF = 8; VA$C_PAGELET_SIZE = 512; VA$C_PAGELET_SHIFT_SIZE = 9; TYPE VA$TYPE = RECORD CASE INTEGER OF 1: (VA$R_VADEF_UNION : [BYTE(8)] RECORD END; ); 2: (VA$Q_QUAD : [POS(0)] $UQUAD; ); 3: (); 4: (VA$V_P1 : [POS(30)] $BOOL; (*P1 SPACE *) VA$V_SYSTEM : [POS(31)] $BOOL; (*SYSTEM SPACE *) ); 5: (); 6: (VA$V_BYTES_PER_PAGELET : [POS(0)] $BIT9; (*BYTES PER PAGELET *) ); 7: (); 8: (VA$V_BYTE_IN_PAGELET : [POS(0)] $BIT9; (*BYTE IN PAGELET (common name) *) ); 9: (); 10: (VA$V_VRN : [POS(61)] $BIT3; (* Virtual Region Number *) ); 11: (); 12: (VA$V_VRNX : [POS(60)] $BIT4; (* Virtual Address Space *) ) END; (*+ *) (* Process permanent region ids *) (*- *) CONST VA$C_P0 = 0; (* Region id for 32-bit program region *) VA$C_P1 = 1; (* Region id for control region *) VA$C_P2 = 2; (* Region id for 64-bit program region *) VA$M_DESCEND = 1; VA$M_P0_SPACE = 2; VA$M_P1_SPACE = 4; VA$M_PERMANENT = 8; VA$M_EXPAND_ON_ACCVIO = 16; VA$M_SHARED_PTS = 64; VA$M_OWNER_MODE = 15; VA$M_CREATE_MODE = 240; VA$C_REGSUM_LENGTH = 40; VA$_REGSUM_BY_ID = 0; VA$_REGSUM_BY_VA = 1; VA$_NEXT_REGSUM_BY_VA = 2; (*+ *) CONST VA$C_REGION_UCREATE_UOWN = 51; VA$C_REGION_UCREATE_SOWN = 50; VA$C_REGION_UCREATE_EOWN = 49; VA$C_REGION_UCREATE_KOWN = 48; VA$C_REGION_SCREATE_SOWN = 34; VA$C_REGION_SCREATE_EOWN = 33; VA$C_REGION_SCREATE_KOWN = 32; VA$C_REGION_ECREATE_EOWN = 17; VA$C_REGION_ECREATE_KOWN = 16; VA$C_REGION_KCREATE_KOWN = 0; TYPE REGSUM$TYPE = RECORD CASE INTEGER OF 1: (VA$Q_REGION_ID : $UQUAD; (* Id of region *) VA$R_FLAGS_OVERLAY : [BYTE(4)] RECORD END; VA$R_REGION_PROT : [BYTE(4)] RECORD END; VA$R_START_VA_UNION : [BYTE(8)] RECORD END; VA$R_REGION_SIZE_UNION : [BYTE(8)] RECORD END; VA$R_FREE_VA_UNION : [BYTE(8)] RECORD END; (* Region protection encodings *) (*- *) ); 2: (VA$L_FLAGS : [POS(64)] UNSIGNED; (* FLAGS longword *) VA$L_REGION_PROTECTION : [POS(96)] INTEGER; VA$PQ_START_VA : [POS(128)] $QUAD; (* Lowest address in region *) VA$Q_REGION_SIZE : [POS(192)] $UQUAD; (* Size of region *) VA$PQ_FIRST_FREE_VA : [POS(256)] $QUAD; (* First free VA in region *) ); 3: (VA$PS_START_VA : [POS(128)] UNSIGNED; (* Lowest address in 32-bit region *) VA$L_REGION_SIZE : [POS(192)] UNSIGNED; (* Size of 32-bit region *) VA$PS_FIRST_FREE_VA : [POS(256)] UNSIGNED; (* First free VA in 32-bit region *) ); 4: (VA$V_DESCEND : [POS(64)] $BOOL; (* Region is descending *) VA$V_P0_SPACE : [POS(65)] $BOOL; (* Region is in P0 space *) VA$V_P1_SPACE : [POS(66)] $BOOL; (* Region is in P1 space *) VA$V_PERMANENT : [POS(67)] $BOOL; (* Region is permanent *) VA$V_EXPAND_ON_ACCVIO : [POS(68)] $BOOL; (* Expand within region on accvio *) (* public interface. *) VA$V_SHARED_PTS : [POS(70)] $BOOL; (* Region is a shared PT region *) VA$V_OWNER_MODE : [POS(96)] $BIT4; (* Region owner mode *) VA$V_CREATE_MODE : [POS(100)] $BIT4; (* Region create mode *) ) END; (*+ *) (* VA flags *) (*- *) CONST VA$M_NO_OVERMAP = 1; TYPE VA_FLAGS$TYPE = RECORD VA$V_NO_OVERMAP : [POS(0)] $BOOL; (* Do not overmap while creating pages *) VA$V_FILL_77_ : [POS(1)] $BIT7; END; (*+ *) (* SETSTK_64 flags *) (*- *) CONST VA$M_SETSTK_REGISTER = 1; TYPE SETSTK_FLAGS$TYPE = RECORD VA$V_SETSTK_REGISTER : [POS(0)] $BOOL; (* Set register stack limits *) VA$V_FILL_78_ : [POS(1)] $BIT7; END; (*** MODULE $VA_RANGEDEF ***) (*+ *) (* Define the 32-bit virtual address range structure. *) (*- *) TYPE VA_RANGE$TYPE = RECORD VA_RANGE$PS_START_VA : UNSIGNED; (* Starting virtual address *) VA_RANGE$PS_END_VA : UNSIGNED; (* Ending (last) virtual address *) END; CONST VA_RANGE$K_LENGTH = 8; (* Length of VA_RANGE structure *) VA_RANGE$C_LENGTH = 8; (* Length of VA_RANGE structure *) (*** MODULE $VAXDEF ***) CONST VAX$C_V780 = 1; VAX$K_V780 = 1; VAX$C_V782 = 2; VAX$K_V782 = 2; VAX$C_V750 = 3; VAX$K_V750 = 3; VAX$C_V730 = 4; VAX$K_V730 = 4; VAX$C_V785 = 5; VAX$K_V785 = 5; VAX$C_VUV1 = 6; VAX$K_VUV1 = 6; VAX$C_VWS1 = 7; VAX$K_VWS1 = 7; VAX$C_VUV2 = 8; VAX$K_VUV2 = 8; VAX$C_VWS2 = 9; VAX$K_VWS2 = 9; VAX$C_VWSD = 10; VAX$K_VWSD = 10; VAX$C_V8600 = 11; VAX$K_V8600 = 11; VAX$C_V8650 = 12; VAX$K_V8650 = 12; VAX$C_V8200 = 13; VAX$K_V8200 = 13; VAX$C_V8300 = 14; VAX$K_V8300 = 14; VAX$C_V8530 = 15; VAX$K_V8530 = 15; VAX$C_V8550 = 16; VAX$K_V8550 = 16; VAX$C_V8700 = 17; VAX$K_V8700 = 17; VAX$C_V8800 = 18; VAX$K_V8800 = 18; VAX$C_VWS2000 = 19; VAX$K_VWS2000 = 19; VAX$C_VUV2000 = 20; VAX$K_VUV2000 = 20; VAX$C_VWSD2000 = 21; VAX$K_VWSD2000 = 21; VAX$C_V009 = 22; VAX$K_V009 = 22; VAX$C_V8250 = 23; VAX$K_V8250 = 23; VAX$C_V8350 = 24; VAX$K_V8350 = 24; VAX$C_V3600 = 25; VAX$K_V3600 = 25; VAX$C_V3600W = 26; VAX$K_V3600W = 26; VAX$C_V3600D = 27; VAX$K_V3600D = 27; VAX$K_V9CC = 28; VAX$C_V9CC = 28; VAX$K_V6210_T = 28; VAX$C_V6210_T = 28; VAX$K_V6210 = 28; VAX$C_V6210 = 28; VAX$C_V3520 = 29; VAX$K_V3520 = 29; VAX$C_V3520L = 30; VAX$K_V3520L = 30; VAX$K_V8PS = 31; VAX$C_V8PS = 31; VAX$K_V8840 = 31; VAX$C_V8840 = 31; VAX$K_V9RR = 32; VAX$C_V9RR = 32; VAX$K_VUV2_S = 33; VAX$C_VUV2_S = 33; VAX$K_VUV2_J = 34; VAX$C_VUV2_J = 34; VAX$K_VWS2_T = 35; VAX$C_VWS2_T = 35; VAX$K_VWS2_J = 36; VAX$C_VWS2_J = 36; VAX$K_VWSD_T = 37; VAX$C_VWSD_T = 37; VAX$K_VWSD_J = 38; VAX$C_VWSD_J = 38; VAX$K_VUV2000_S = 39; VAX$C_VUV2000_S = 39; VAX$K_VUV2000_J = 40; VAX$C_VUV2000_J = 40; VAX$K_VWS2000_T = 41; VAX$C_VWS2000_T = 41; VAX$K_VWS2000_J = 42; VAX$C_VWS2000_J = 42; VAX$K_VWSD2000_T = 43; VAX$C_VWSD2000_T = 43; VAX$K_VWSD2000_J = 44; VAX$C_VWSD2000_J = 44; VAX$K_V3600_S = 45; VAX$C_V3600_S = 45; VAX$K_V3600_J = 46; VAX$C_V3600_J = 46; VAX$K_V3600W_T = 47; VAX$C_V3600W_T = 47; VAX$K_V3600W_J = 48; VAX$C_V3600W_J = 48; VAX$K_V3600D_T = 49; VAX$C_V3600D_T = 49; VAX$K_V3600D_J = 50; VAX$C_V3600D_J = 50; VAX$K_V3520_S = 51; VAX$C_V3520_S = 51; VAX$K_V3520_J = 52; VAX$C_V3520_J = 52; VAX$K_V3520L_T = 53; VAX$C_V3520L_T = 53; VAX$K_V3520L_J = 54; VAX$C_V3520L_J = 54; VAX$K_V8250L = 55; VAX$C_V8250L = 55; VAX$K_V8250L_J = 56; VAX$C_V8250L_J = 56; VAX$K_VCV = 57; VAX$C_VCV = 57; VAX$K_VCVWS = 58; VAX$C_VCVWS = 58; VAX$K_VCVWSD = 59; VAX$C_VCVWSD = 59; VAX$K_VCV_S = 60; VAX$C_VCV_S = 60; VAX$K_VCV_J = 61; VAX$C_VCV_J = 61; VAX$K_VCVWS_T = 62; VAX$C_VCVWS_T = 62; VAX$K_VCVWS_J = 63; VAX$C_VCVWS_J = 63; VAX$K_VCVWSD_T = 64; VAX$C_VCVWSD_T = 64; VAX$K_VCVWSD_J = 65; VAX$C_VCVWSD_J = 65; VAX$C_V8500 = 66; VAX$K_V8500 = 66; VAX$K_V8370 = 67; VAX$C_V8370 = 67; VAX$K_V8650P = 68; VAX$C_V8650P = 68; VAX$K_V6220_T = 69; VAX$C_V6220_T = 69; VAX$K_V6220 = 69; VAX$C_V6220 = 69; VAX$K_V6230_T = 70; VAX$C_V6230_T = 70; VAX$K_V6230 = 70; VAX$C_V6230 = 70; VAX$K_V6240_T = 71; VAX$C_V6240_T = 71; VAX$K_V6240 = 71; VAX$C_V6240 = 71; VAX$K_V6250_T = 72; VAX$C_V6250_T = 72; VAX$K_V6250 = 72; VAX$C_V6250 = 72; VAX$K_V6260_T = 73; VAX$C_V6260_T = 73; VAX$K_V6260 = 73; VAX$C_V6260 = 73; VAX$K_V6270_T = 74; VAX$C_V6270_T = 74; VAX$K_V6270 = 74; VAX$C_V6270 = 74; VAX$K_V6280_T = 75; VAX$C_V6280_T = 75; VAX$K_V6280 = 75; VAX$C_V6280 = 75; VAX$K_V6310_T = 76; VAX$C_V6310_T = 76; VAX$K_V6215 = 76; VAX$C_V6215 = 76; VAX$K_V6320_T = 77; VAX$C_V6320_T = 77; VAX$K_V6225 = 77; VAX$C_V6225 = 77; VAX$K_V6330_T = 78; VAX$C_V6330_T = 78; VAX$K_V6235 = 78; VAX$C_V6235 = 78; VAX$K_V6340_T = 79; VAX$C_V6340_T = 79; VAX$K_V6245 = 79; VAX$C_V6245 = 79; VAX$K_V6350_T = 80; VAX$C_V6350_T = 80; VAX$K_V6255 = 80; VAX$C_V6255 = 80; VAX$K_V6360_T = 81; VAX$C_V6360_T = 81; VAX$K_V6265 = 81; VAX$C_V6265 = 81; VAX$K_V6370_T = 82; VAX$C_V6370_T = 82; VAX$K_V6275 = 82; VAX$C_V6275 = 82; VAX$K_V6380_T = 83; VAX$C_V6380_T = 83; VAX$K_V6285 = 83; VAX$C_V6285 = 83; VAX$K_V8810 = 84; VAX$C_V8810 = 84; VAX$K_V8820 = 85; VAX$C_V8820 = 85; VAX$K_V8830 = 86; VAX$C_V8830 = 86; VAX$C_V3400 = 87; VAX$K_V3400 = 87; VAX$C_V3400W = 88; VAX$K_V3400W = 88; VAX$C_V3400D = 89; VAX$K_V3400D = 89; VAX$K_V3400_S = 90; VAX$C_V3400_S = 90; VAX$K_V3400_J = 91; VAX$C_V3400_J = 91; VAX$K_V3400W_T = 92; VAX$C_V3400W_T = 92; VAX$K_V3400W_J = 93; VAX$C_V3400W_J = 93; VAX$K_V3400D_T = 94; VAX$C_V3400D_T = 94; VAX$K_V3400D_J = 95; VAX$C_V3400D_J = 95; VAX$K_VUV2000_O = 96; VAX$C_VUV2000_O = 96; VAX$K_VWS2000_O = 97; VAX$C_VWS2000_O = 97; VAX$K_VWSD2000_O = 98; VAX$C_VWSD2000_O = 98; VAX$C_VWSK2000 = 99; VAX$K_VWSK2000 = 99; VAX$K_V6210_S = 100; VAX$C_V6210_S = 100; VAX$K_V6220_S = 101; VAX$C_V6220_S = 101; VAX$K_V6230_S = 102; VAX$C_V6230_S = 102; VAX$K_V6240_S = 103; VAX$C_V6240_S = 103; VAX$K_V6250_S = 104; VAX$C_V6250_S = 104; VAX$K_V6260_S = 105; VAX$C_V6260_S = 105; VAX$K_V6270_S = 106; VAX$C_V6270_S = 106; VAX$K_V6280_S = 107; VAX$C_V6280_S = 107; VAX$K_V6310_S = 108; VAX$C_V6310_S = 108; VAX$K_V6215_S = 108; VAX$C_V6215_S = 108; VAX$K_V6320_S = 109; VAX$C_V6320_S = 109; VAX$K_V6225_S = 109; VAX$C_V6225_S = 109; VAX$K_V6330_S = 110; VAX$C_V6330_S = 110; VAX$K_V6235_S = 110; VAX$C_V6235_S = 110; VAX$K_V6340_S = 111; VAX$C_V6340_S = 111; VAX$K_V6245_S = 111; VAX$C_V6245_S = 111; VAX$K_V6350_S = 112; VAX$C_V6350_S = 112; VAX$K_V6255_S = 112; VAX$C_V6255_S = 112; VAX$K_V6360_S = 113; VAX$C_V6360_S = 113; VAX$K_V6265_S = 113; VAX$C_V6265_S = 113; VAX$K_V6370_S = 114; VAX$C_V6370_S = 114; VAX$K_V6275_S = 114; VAX$C_V6275_S = 114; VAX$K_V6380_S = 115; VAX$C_V6380_S = 115; VAX$K_V6285_S = 115; VAX$C_V6285_S = 115; VAX$K_V6200_J = 116; VAX$C_V6200_J = 116; VAX$K_V6300_J = 117; VAX$C_V6300_J = 117; VAX$K_V6205_J = 117; VAX$C_V6205_J = 117; VAX$C_V3900 = 118; VAX$K_V3900 = 118; VAX$K_V3900_S = 119; VAX$C_V3900_S = 119; VAX$C_V3900D = 120; VAX$K_V3900D = 120; VAX$K_V3900D_T = 121; VAX$C_V3900D_T = 121; VAX$K_V3900_J = 122; VAX$C_V3900_J = 122; VAX$K_V3900D_J = 123; VAX$C_V3900D_J = 123; VAX$C_V2000A = 124; VAX$K_V2000A = 124; VAX$K_V2000A_S = 125; VAX$C_V2000A_S = 125; VAX$C_V2000AW = 126; VAX$K_V2000AW = 126; VAX$C_V2000AD = 127; VAX$K_V2000AD = 127; VAX$K_V2000AW_T = 128; VAX$C_V2000AW_T = 128; VAX$K_V2000AD_T = 129; VAX$C_V2000AD_T = 129; VAX$K_V2000A_J = 130; VAX$C_V2000A_J = 130; VAX$K_V2000AW_J = 131; VAX$C_V2000AW_J = 131; VAX$K_V2000AD_J = 132; VAX$C_V2000AD_J = 132; VAX$C_V3540 = 133; VAX$K_V3540 = 133; VAX$K_V3540_S = 134; VAX$C_V3540_S = 134; VAX$C_V3540L = 135; VAX$K_V3540L = 135; VAX$K_V3540L_T = 136; VAX$C_V3540L_T = 136; VAX$C_V3560 = 137; VAX$K_V3560 = 137; VAX$K_V3560_S = 138; VAX$C_V3560_S = 138; VAX$C_V3560L = 139; VAX$K_V3560L = 139; VAX$K_V3560L_T = 140; VAX$C_V3560L_T = 140; VAX$C_V3580 = 141; VAX$K_V3580 = 141; VAX$K_V3580_S = 142; VAX$C_V3580_S = 142; VAX$C_V3580L = 143; VAX$K_V3580L = 143; VAX$K_V3580L_T = 144; VAX$C_V3580L_T = 144; VAX$C_V35A0 = 145; VAX$K_V35A0 = 145; VAX$K_V35A0_S = 146; VAX$C_V35A0_S = 146; VAX$K_VPV = 147; VAX$C_VPV = 147; VAX$K_VPVWS = 148; VAX$C_VPVWS = 148; VAX$K_VPVWSD = 149; VAX$C_VPVWSD = 149; VAX$K_VPV_S = 150; VAX$C_VPV_S = 150; VAX$K_VPV_J = 151; VAX$C_VPV_J = 151; VAX$K_VPVWS_T = 152; VAX$C_VPVWS_T = 152; VAX$K_VPVWS_J = 153; VAX$C_VPVWS_J = 153; VAX$K_VPVWSD_T = 154; VAX$C_VPVWSD_T = 154; VAX$K_VPVWSD_J = 155; VAX$C_VPVWSD_J = 155; VAX$K_VTM = 156; VAX$C_VTM = 156; VAX$K_VTM_S = 157; VAX$C_VTM_S = 157; VAX$K_VTM_J = 158; VAX$C_VTM_J = 158; VAX$K_V9RR10_T = 159; VAX$C_V9RR10_T = 159; VAX$K_V9RR20_T = 160; VAX$C_V9RR20_T = 160; VAX$K_V9RR30_T = 161; VAX$C_V9RR30_T = 161; VAX$K_V9RR40_T = 162; VAX$C_V9RR40_T = 162; VAX$K_V9RR50_T = 163; VAX$C_V9RR50_T = 163; VAX$K_V9RR60_T = 164; VAX$C_V9RR60_T = 164; VAX$K_V9RR70_T = 165; VAX$C_V9RR70_T = 165; VAX$K_V9RR80_T = 166; VAX$C_V9RR80_T = 166; VAX$K_V9RR10_S = 167; VAX$C_V9RR10_S = 167; VAX$K_V9RR20_S = 168; VAX$C_V9RR20_S = 168; VAX$K_V9RR30_S = 169; VAX$C_V9RR30_S = 169; VAX$K_V9RR40_S = 170; VAX$C_V9RR40_S = 170; VAX$K_V9RR50_S = 171; VAX$C_V9RR50_S = 171; VAX$K_V9RR60_S = 172; VAX$C_V9RR60_S = 172; VAX$K_V9RR70_S = 173; VAX$C_V9RR70_S = 173; VAX$K_V9RR80_S = 174; VAX$C_V9RR80_S = 174; VAX$K_V9RR10_J = 175; VAX$C_V9RR10_J = 175; VAX$K_V9AR10 = 176; VAX$C_V9AR10 = 176; VAX$K_V9AR20 = 177; VAX$C_V9AR20 = 177; VAX$K_V9AQ10 = 178; VAX$C_V9AQ10 = 178; VAX$K_V9AQ20 = 179; VAX$C_V9AQ20 = 179; VAX$K_V9AQ30 = 180; VAX$C_V9AQ30 = 180; VAX$K_V9AQ40 = 181; VAX$C_V9AQ40 = 181; VAX$K_V6305E_T = 182; VAX$C_V6305E_T = 182; VAX$K_V6305E_S = 183; VAX$C_V6305E_S = 183; VAX$K_V6305E_J = 184; VAX$C_V6305E_J = 184; VAX$K_V1202_1T = 185; VAX$C_V1202_1T = 185; VAX$K_V1202_2T = 186; VAX$C_V1202_2T = 186; VAX$K_V1202_3T = 187; VAX$C_V1202_3T = 187; VAX$K_V1202_4T = 188; VAX$C_V1202_4T = 188; VAX$K_V1202_5T = 189; VAX$C_V1202_5T = 189; VAX$K_V1202_6T = 190; VAX$C_V1202_6T = 190; VAX$K_V1202_7T = 191; VAX$C_V1202_7T = 191; VAX$K_V1202_8T = 192; VAX$C_V1202_8T = 192; VAX$K_V1202_1S = 193; VAX$C_V1202_1S = 193; VAX$K_V1202_2S = 194; VAX$C_V1202_2S = 194; VAX$K_V1202_3S = 195; VAX$C_V1202_3S = 195; VAX$K_V1202_4S = 196; VAX$C_V1202_4S = 196; VAX$K_V1202_5S = 197; VAX$C_V1202_5S = 197; VAX$K_V1202_6S = 198; VAX$C_V1202_6S = 198; VAX$K_V1202_7S = 199; VAX$C_V1202_7S = 199; VAX$K_V1202_8S = 200; VAX$C_V1202_8S = 200; VAX$K_V1202_1J = 201; VAX$C_V1202_1J = 201; VAX$K_VPV2M_S = 202; VAX$C_VPV2M_S = 202; VAX$K_VPV2M_T = 203; VAX$C_VPV2M_T = 203; VAX$K_VPV2M_J = 204; VAX$C_VPV2M_J = 204; VAX$K_VPV2C_S = 205; VAX$C_VPV2C_S = 205; VAX$K_VPV2C_T = 206; VAX$C_VPV2C_T = 206; VAX$K_VPV2C_J = 207; VAX$C_VPV2C_J = 207; VAX$K_VPV2_S = 208; VAX$C_VPV2_S = 208; VAX$K_VPV2_T = 209; VAX$C_VPV2_T = 209; VAX$K_VPV2_J = 210; VAX$C_VPV2_J = 210; VAX$K_V4500 = 211; VAX$C_V4500 = 211; VAX$C_V670 = 211; VAX$K_V670 = 211; VAX$K_V4500_S = 212; VAX$C_V4500_S = 212; VAX$K_V670_S = 212; VAX$C_V670_S = 212; VAX$K_V4500_J = 213; VAX$C_V4500_J = 213; VAX$K_V670_J = 213; VAX$C_V670_J = 213; VAX$K_V520FT = 214; VAX$C_V520FT = 214; VAX$K_VRMAXM_S = 215; VAX$C_VRMAXM_S = 215; VAX$K_VRMAXM_T = 216; VAX$C_VRMAXM_T = 216; VAX$K_VRMAXM_J = 217; VAX$C_VRMAXM_J = 217; VAX$K_VRMAXS_S = 218; VAX$C_VRMAXS_S = 218; VAX$K_VRMAXS_T = 219; VAX$C_VRMAXS_T = 219; VAX$K_VRMAXS_J = 220; VAX$C_VRMAXS_J = 220; VAX$K_VRMAX_S = 221; VAX$C_VRMAX_S = 221; VAX$K_VRMAX_T = 222; VAX$C_VRMAX_T = 222; VAX$K_VRMAX_J = 223; VAX$C_VRMAX_J = 223; VAX$K_VRMAXD_S = 224; VAX$C_VRMAXD_S = 224; VAX$K_VRMAXD_T = 225; VAX$C_VRMAXD_T = 225; VAX$K_VRMAXD_J = 226; VAX$C_VRMAXD_J = 226; VAX$K_VPV0S_S = 227; VAX$C_VPV0S_S = 227; VAX$K_VPV0S_T = 228; VAX$C_VPV0S_T = 228; VAX$K_VPV0S_J = 229; VAX$C_VPV0S_J = 229; VAX$K_VPV1S_S = 230; VAX$C_VPV1S_S = 230; VAX$K_VPV1S_T = 231; VAX$C_VPV1S_T = 231; VAX$K_VPV1S_J = 232; VAX$C_VPV1S_J = 232; VAX$K_VPV2S_S = 233; VAX$C_VPV2S_S = 233; VAX$K_VPV2S_T = 234; VAX$C_VPV2S_T = 234; VAX$K_VPV2S_J = 235; VAX$C_VPV2S_J = 235; VAX$K_VKA46M_S = 236; VAX$C_VKA46M_S = 236; VAX$K_VKA46M_T = 237; VAX$C_VKA46M_T = 237; VAX$K_VKA46M_J = 238; VAX$C_VKA46M_J = 238; VAX$K_VKA46C_S = 239; VAX$C_VKA46C_S = 239; VAX$K_VKA46C_T = 240; VAX$C_VKA46C_T = 240; VAX$K_VKA46C_J = 241; VAX$C_VKA46C_J = 241; VAX$K_VKA46S_S = 242; VAX$C_VKA46S_S = 242; VAX$K_VKA46S_T = 243; VAX$C_VKA46S_T = 243; VAX$K_VKA46S_J = 244; VAX$C_VKA46S_J = 244; VAX$K_VKA46_S = 245; VAX$C_VKA46_S = 245; VAX$K_VKA46_T = 246; VAX$C_VKA46_T = 246; VAX$K_VKA46_J = 247; VAX$C_VKA46_J = 247; VAX$C_V660 = 248; VAX$K_V660 = 248; VAX$K_V660_S = 249; VAX$C_V660_S = 249; VAX$K_V660_J = 250; VAX$C_V660_J = 250; VAX$C_V3820 = 251; VAX$K_V3820 = 251; VAX$C_V3820L = 252; VAX$K_V3820L = 252; VAX$K_V3820_S = 253; VAX$C_V3820_S = 253; VAX$K_V3820_J = 254; VAX$C_V3820_J = 254; VAX$K_V3820L_T = 255; VAX$C_V3820L_T = 255; VAX$K_V3820L_J = 256; VAX$C_V3820L_J = 256; VAX$C_V3840 = 257; VAX$K_V3840 = 257; VAX$K_V3840_S = 258; VAX$C_V3840_S = 258; VAX$C_V3840L = 259; VAX$K_V3840L = 259; VAX$K_V3840L_T = 260; VAX$C_V3840L_T = 260; VAX$C_V3860 = 261; VAX$K_V3860 = 261; VAX$K_V3860_S = 262; VAX$C_V3860_S = 262; VAX$C_V3860L = 263; VAX$K_V3860L = 263; VAX$K_V3860L_T = 264; VAX$C_V3860L_T = 264; VAX$C_V3880 = 265; VAX$K_V3880 = 265; VAX$K_V3880_S = 266; VAX$C_V3880_S = 266; VAX$C_V3880L = 267; VAX$K_V3880L = 267; VAX$K_V3880L_T = 268; VAX$C_V3880L_T = 268; VAX$C_V38A0 = 269; VAX$K_V38A0 = 269; VAX$K_V38A0_S = 270; VAX$C_V38A0_S = 270; VAX$C_VPV1A = 271; VAX$K_VPV1A = 271; VAX$C_VPV1AW = 272; VAX$K_VPV1AW = 272; VAX$C_VPV1AD = 273; VAX$K_VPV1AD = 273; VAX$C_VPV1A_S = 274; VAX$K_VPV1A_S = 274; VAX$K_VPV1A_J = 275; VAX$C_VPV1A_J = 275; VAX$K_VPV1AW_T = 276; VAX$C_VPV1AW_T = 276; VAX$K_VPV1AW_J = 277; VAX$C_VPV1AW_J = 277; VAX$K_VPV1AD_T = 278; VAX$C_VPV1AD_T = 278; VAX$K_VPV1AD_J = 279; VAX$C_VPV1AD_J = 279; VAX$K_VPV1AS = 280; VAX$C_VPV1AS = 280; VAX$K_VPV1AS_T = 281; VAX$C_VPV1AS_T = 281; VAX$K_VPV1AS_J = 282; VAX$C_VPV1AS_J = 282; VAX$C_V690 = 283; VAX$K_V690 = 283; VAX$K_V690_S = 284; VAX$C_V690_S = 284; VAX$K_V690_J = 285; VAX$C_V690_J = 285; VAX$C_V680 = 286; VAX$K_V680 = 286; VAX$K_V680_S = 287; VAX$C_V680_S = 287; VAX$K_V680_J = 288; VAX$C_V680_J = 288; VAX$K_V520FT_S = 289; VAX$C_V520FT_S = 289; VAX$K_VFT110_T = 290; VAX$C_VFT110_T = 290; VAX$K_VFT110_S = 291; VAX$C_VFT110_S = 291; VAX$K_VFT210_T = 292; VAX$C_VFT210_T = 292; VAX$K_VFT210_S = 293; VAX$C_VFT210_S = 293; VAX$K_V1302_1T = 294; VAX$C_V1302_1T = 294; VAX$K_V1302_2T = 295; VAX$C_V1302_2T = 295; VAX$K_V1302_3T = 296; VAX$C_V1302_3T = 296; VAX$K_V1302_4T = 297; VAX$C_V1302_4T = 297; VAX$K_V1302_5T = 298; VAX$C_V1302_5T = 298; VAX$K_V1302_6T = 299; VAX$C_V1302_6T = 299; VAX$K_V1302_7T = 300; VAX$C_V1302_7T = 300; VAX$K_V1302_8T = 301; VAX$C_V1302_8T = 301; VAX$K_V1302_1S = 302; VAX$C_V1302_1S = 302; VAX$K_V1302_2S = 303; VAX$C_V1302_2S = 303; VAX$K_V1302_3S = 304; VAX$C_V1302_3S = 304; VAX$K_V1302_4S = 305; VAX$C_V1302_4S = 305; VAX$K_V1302_5S = 306; VAX$C_V1302_5S = 306; VAX$K_V1302_6S = 307; VAX$C_V1302_6S = 307; VAX$K_V1302_7S = 308; VAX$C_V1302_7S = 308; VAX$K_V1302_8S = 309; VAX$C_V1302_8S = 309; VAX$K_V1302_1J = 310; VAX$C_V1302_1J = 310; VAX$K_V9AQII10 = 311; VAX$C_V9AQII10 = 311; VAX$K_V9AQII20 = 312; VAX$C_V9AQII20 = 312; VAX$K_V9AQII30 = 313; VAX$C_V9AQII30 = 313; VAX$K_V9AQII40 = 314; VAX$C_V9AQII40 = 314; VAX$K_V9ARII10 = 315; VAX$C_V9ARII10 = 315; VAX$K_V9ARII20 = 316; VAX$C_V9ARII20 = 316; VAX$K_V9AQIII10 = 317; VAX$C_V9AQIII10 = 317; VAX$K_V9AQIII20 = 318; VAX$C_V9AQIII20 = 318; VAX$K_V9AQIII30 = 319; VAX$C_V9AQIII30 = 319; VAX$K_V9AQIII40 = 320; VAX$C_V9AQIII40 = 320; VAX$K_V9ARIII10 = 321; VAX$C_V9ARIII10 = 321; VAX$K_V9ARIII20 = 322; VAX$C_V9ARIII20 = 322; VAX$K_VFT410_T = 323; VAX$C_VFT410_T = 323; VAX$K_VFT410_S = 324; VAX$C_VFT410_S = 324; VAX$K_VFT510_T = 325; VAX$C_VFT510_T = 325; VAX$K_VFT510_S = 326; VAX$C_VFT510_S = 326; VAX$K_VFT610_T = 327; VAX$C_VFT610_T = 327; VAX$K_VFT610_S = 328; VAX$C_VFT610_S = 328; VAX$K_VFT612_T = 329; VAX$C_VFT612_T = 329; VAX$K_VFT612_S = 330; VAX$C_VFT612_S = 330; VAX$K_VFT710_T = 331; VAX$C_VFT710_T = 331; VAX$K_VFT710_S = 332; VAX$C_VFT710_S = 332; VAX$K_VFT712_T = 333; VAX$C_VFT712_T = 333; VAX$K_VFT712_S = 334; VAX$C_VFT712_S = 334; VAX$K_VKA48_T = 335; VAX$C_VKA48_T = 335; VAX$K_VKA48_S = 336; VAX$C_VKA48_S = 336; VAX$K_VKA48_J = 337; VAX$C_VKA48_J = 337; VAX$K_VKA48W_T = 338; VAX$C_VKA48W_T = 338; VAX$K_VKA48W_S = 339; VAX$C_VKA48W_S = 339; VAX$K_VKA48W_J = 340; VAX$C_VKA48W_J = 340; VAX$K_V9AR10_S = 341; VAX$C_V9AR10_S = 341; VAX$K_V9AR20_S = 342; VAX$C_V9AR20_S = 342; VAX$K_V9AQ10_S = 343; VAX$C_V9AQ10_S = 343; VAX$K_V9AQ20_S = 344; VAX$C_V9AQ20_S = 344; VAX$K_V9AQ30_S = 345; VAX$C_V9AQ30_S = 345; VAX$K_V9AQ40_S = 346; VAX$C_V9AQ40_S = 346; VAX$K_V9ARII10_S = 347; VAX$C_V9ARII10_S = 347; VAX$K_V9ARII20_S = 348; VAX$C_V9ARII20_S = 348; VAX$K_V9AQII10_S = 349; VAX$C_V9AQII10_S = 349; VAX$K_V9AQII20_S = 350; VAX$C_V9AQII20_S = 350; VAX$K_V9AQII30_S = 351; VAX$C_V9AQII30_S = 351; VAX$K_V9AQII40_S = 352; VAX$C_V9AQII40_S = 352; VAX$K_V9ARIII10_S = 353; VAX$C_V9ARIII10_S = 353; VAX$K_V9ARIII20_S = 354; VAX$C_V9ARIII20_S = 354; VAX$K_V9AQIII10_S = 355; VAX$C_V9AQIII10_S = 355; VAX$K_V9AQIII20_S = 356; VAX$C_V9AQIII20_S = 356; VAX$K_V9AQIII30_S = 357; VAX$C_V9AQIII30_S = 357; VAX$K_V9AQIII40_S = 358; VAX$C_V9AQIII40_S = 358; VAX$K_V1701_1T = 359; VAX$C_V1701_1T = 359; VAX$K_V1701_2T = 360; VAX$C_V1701_2T = 360; VAX$K_V1701_3T = 361; VAX$C_V1701_3T = 361; VAX$K_V1701_4T = 362; VAX$C_V1701_4T = 362; VAX$K_V1701_5T = 363; VAX$C_V1701_5T = 363; VAX$K_V1701_6T = 364; VAX$C_V1701_6T = 364; VAX$K_V1701_7T = 365; VAX$C_V1701_7T = 365; VAX$K_V1701_8T = 366; VAX$C_V1701_8T = 366; VAX$K_V1701_1S = 367; VAX$C_V1701_1S = 367; VAX$K_V1701_2S = 368; VAX$C_V1701_2S = 368; VAX$K_V1701_3S = 369; VAX$C_V1701_3S = 369; VAX$K_V1701_4S = 370; VAX$C_V1701_4S = 370; VAX$K_V1701_5S = 371; VAX$C_V1701_5S = 371; VAX$K_V1701_6S = 372; VAX$C_V1701_6S = 372; VAX$K_V1701_7S = 373; VAX$C_V1701_7S = 373; VAX$K_V1701_8S = 374; VAX$C_V1701_8S = 374; VAX$K_V1701_1J = 375; VAX$C_V1701_1J = 375; VAX$K_VKA49C_S = 376; VAX$C_VKA49C_S = 376; VAX$K_VKA49C_T = 377; VAX$C_VKA49C_T = 377; VAX$K_VKA49C_J = 378; VAX$C_VKA49C_J = 378; VAX$K_VKA49S_S = 379; VAX$C_VKA49S_S = 379; VAX$K_VKA49S_T = 380; VAX$C_VKA49S_T = 380; VAX$K_VKA49S_J = 381; VAX$C_VKA49S_J = 381; VAX$C_VKA50 = 382; VAX$K_VKA50 = 382; VAX$K_VKA50_S = 383; VAX$C_VKA50_S = 383; VAX$K_VKA50_J = 384; VAX$C_VKA50_J = 384; VAX$C_VKA51 = 385; VAX$K_VKA51 = 385; VAX$K_VKA51_S = 386; VAX$C_VKA51_S = 386; VAX$K_VKA51_J = 387; VAX$C_VKA51_J = 387; VAX$C_VKA52 = 388; VAX$K_VKA52 = 388; VAX$K_VKA52_S = 389; VAX$C_VKA52_S = 389; VAX$K_VKA52_J = 390; VAX$C_VKA52_J = 390; VAX$C_VKA53 = 391; VAX$K_VKA53 = 391; VAX$K_VKA53_S = 392; VAX$C_VKA53_S = 392; VAX$K_VKA53_J = 393; VAX$C_VKA53_J = 393; VAX$C_VKA675 = 394; VAX$K_VKA675 = 394; VAX$K_VKA675_S = 395; VAX$C_VKA675_S = 395; VAX$K_VKA675_J = 396; VAX$C_VKA675_J = 396; VAX$K_V1703_1T = 397; VAX$C_V1703_1T = 397; VAX$K_V1703_2T = 398; VAX$C_V1703_2T = 398; VAX$K_V1703_3T = 399; VAX$C_V1703_3T = 399; VAX$K_V1703_4T = 400; VAX$C_V1703_4T = 400; VAX$K_V1703_5T = 401; VAX$C_V1703_5T = 401; VAX$K_V1703_6T = 402; VAX$C_V1703_6T = 402; VAX$K_V1703_7T = 403; VAX$C_V1703_7T = 403; VAX$K_V1703_8T = 404; VAX$C_V1703_8T = 404; VAX$K_V1703_1S = 405; VAX$C_V1703_1S = 405; VAX$K_V1703_2S = 406; VAX$C_V1703_2S = 406; VAX$K_V1703_3S = 407; VAX$C_V1703_3S = 407; VAX$K_V1703_4S = 408; VAX$C_V1703_4S = 408; VAX$K_V1703_5S = 409; VAX$C_V1703_5S = 409; VAX$K_V1703_6S = 410; VAX$C_V1703_6S = 410; VAX$K_V1703_7S = 411; VAX$C_V1703_7S = 411; VAX$K_V1703_8S = 412; VAX$C_V1703_8S = 412; VAX$K_V1703_1J = 413; VAX$C_V1703_1J = 413; VAX$K_VPCVAX_T = 414; VAX$C_VPCVAX_T = 414; VAX$K_VPCVAX_J = 415; VAX$C_VPCVAX_J = 415; VAX$K_V1704_1T = 416; VAX$C_V1704_1T = 416; VAX$K_V1704_2T = 417; VAX$C_V1704_2T = 417; VAX$K_V1704_3T = 418; VAX$C_V1704_3T = 418; VAX$K_V1704_4T = 419; VAX$C_V1704_4T = 419; VAX$K_V1704_5T = 420; VAX$C_V1704_5T = 420; VAX$K_V1704_6T = 421; VAX$C_V1704_6T = 421; VAX$K_V1704_7T = 422; VAX$C_V1704_7T = 422; VAX$K_V1704_8T = 423; VAX$C_V1704_8T = 423; VAX$K_V1704_1S = 424; VAX$C_V1704_1S = 424; VAX$K_V1704_2S = 425; VAX$C_V1704_2S = 425; VAX$K_V1704_3S = 426; VAX$C_V1704_3S = 426; VAX$K_V1704_4S = 427; VAX$C_V1704_4S = 427; VAX$K_V1704_5S = 428; VAX$C_V1704_5S = 428; VAX$K_V1704_6S = 429; VAX$C_V1704_6S = 429; VAX$K_V1704_7S = 430; VAX$C_V1704_7S = 430; VAX$K_V1704_8S = 431; VAX$C_V1704_8S = 431; VAX$K_V1704_1J = 432; VAX$C_V1704_1J = 432; VAX$K_V1705_1T = 433; VAX$C_V1705_1T = 433; VAX$K_V1705_2T = 434; VAX$C_V1705_2T = 434; VAX$K_V1705_3T = 435; VAX$C_V1705_3T = 435; VAX$K_V1705_4T = 436; VAX$C_V1705_4T = 436; VAX$K_V1705_5T = 437; VAX$C_V1705_5T = 437; VAX$K_V1705_6T = 438; VAX$C_V1705_6T = 438; VAX$K_V1705_7T = 439; VAX$C_V1705_7T = 439; VAX$K_V1705_8T = 440; VAX$C_V1705_8T = 440; VAX$K_V1705_1S = 441; VAX$C_V1705_1S = 441; VAX$K_V1705_2S = 442; VAX$C_V1705_2S = 442; VAX$K_V1705_3S = 443; VAX$C_V1705_3S = 443; VAX$K_V1705_4S = 444; VAX$C_V1705_4S = 444; VAX$K_V1705_5S = 445; VAX$C_V1705_5S = 445; VAX$K_V1705_6S = 446; VAX$C_V1705_6S = 446; VAX$K_V1705_7S = 447; VAX$C_V1705_7S = 447; VAX$K_V1705_8S = 448; VAX$C_V1705_8S = 448; VAX$K_V1705_1J = 449; VAX$C_V1705_1J = 449; VAX$C_VKA676 = 450; VAX$K_VKA676 = 450; VAX$K_VKA676_S = 451; VAX$C_VKA676_S = 451; VAX$K_VKA676_J = 452; VAX$C_VKA676_J = 452; VAX$C_VKA681 = 453; VAX$K_VKA681 = 453; VAX$K_VKA681_S = 454; VAX$C_VKA681_S = 454; VAX$K_VKA681_J = 455; VAX$C_VKA681_J = 455; VAX$C_VKA691 = 456; VAX$K_VKA691 = 456; VAX$K_VKA691_S = 457; VAX$C_VKA691_S = 457; VAX$K_VKA691_J = 458; VAX$C_VKA691_J = 458; VAX$C_VKA692 = 459; VAX$K_VKA692 = 459; VAX$K_VKA692_S = 460; VAX$C_VKA692_S = 460; VAX$K_VKA692_J = 461; VAX$C_VKA692_J = 461; VAX$C_VKA600 = 462; VAX$K_VKA600 = 462; VAX$K_VKA600_S = 463; VAX$C_VKA600_S = 463; VAX$K_VKA600_J = 464; VAX$C_VKA600_J = 464; VAX$C_VKA605 = 465; VAX$K_VKA605 = 465; VAX$K_VKA605_S = 466; VAX$C_VKA605_S = 466; VAX$K_VKA605_J = 467; VAX$C_VKA605_J = 467; VAX$C_VKA52A = 468; VAX$K_VKA52A = 468; VAX$K_VKA52A_S = 469; VAX$C_VKA52A_S = 469; VAX$K_VKA52A_J = 470; VAX$C_VKA52A_J = 470; VAX$K_VFT810_T = 471; VAX$C_VFT810_T = 471; VAX$K_VFT810_S = 472; VAX$C_VFT810_S = 472; VAX$K_VFT812_T = 473; VAX$C_VFT812_T = 473; VAX$K_VFT812_S = 474; VAX$C_VFT812_S = 474; VAX$K_VKA49AC_S = 475; VAX$C_VKA49AC_S = 475; VAX$K_VKA49AC_T = 476; VAX$C_VKA49AC_T = 476; VAX$K_VKA49AC_J = 477; VAX$C_VKA49AC_J = 477; VAX$K_VKA49AS_S = 478; VAX$C_VKA49AS_S = 478; VAX$K_VKA49AS_T = 479; VAX$C_VKA49AS_T = 479; VAX$K_VKA49AS_J = 480; VAX$C_VKA49AS_J = 480; VAX$K_VKA49BC_S = 481; VAX$C_VKA49BC_S = 481; VAX$K_VKA49BC_T = 482; VAX$C_VKA49BC_T = 482; VAX$K_VKA49BC_J = 483; VAX$C_VKA49BC_J = 483; VAX$K_VKA49BS_S = 484; VAX$C_VKA49BS_S = 484; VAX$K_VKA49BS_T = 485; VAX$C_VKA49BS_T = 485; VAX$K_VKA49BS_J = 486; VAX$C_VKA49BS_J = 486; VAX$C_VKA54 = 487; VAX$K_VKA54 = 487; VAX$K_VKA54_S = 488; VAX$C_VKA54_S = 488; VAX$K_VKA54_J = 489; VAX$C_VKA54_J = 489; VAX$C_VKA55 = 490; VAX$K_VKA55 = 490; VAX$K_VKA55_S = 491; VAX$C_VKA55_S = 491; VAX$K_VKA55_J = 492; VAX$C_VKA55_J = 492; VAX$C_VKA56 = 493; VAX$K_VKA56 = 493; VAX$K_VKA56_S = 494; VAX$C_VKA56_S = 494; VAX$K_VKA56_J = 495; VAX$C_VKA56_J = 495; VAX$C_VKA694 = 496; VAX$K_VKA694 = 496; VAX$K_VKA694_S = 497; VAX$C_VKA694_S = 497; VAX$K_VKA694_J = 498; VAX$C_VKA694_J = 498; VAX$K_v1706_1T = 499; VAX$C_v1706_1T = 499; VAX$K_v1706_2T = 500; VAX$C_v1706_2T = 500; VAX$K_v1706_3T = 501; VAX$C_v1706_3T = 501; VAX$K_v1706_4T = 502; VAX$C_v1706_4T = 502; VAX$K_v1706_5T = 503; VAX$C_v1706_5T = 503; VAX$K_v1706_6T = 504; VAX$C_v1706_6T = 504; VAX$K_v1706_7T = 505; VAX$C_v1706_7T = 505; VAX$K_v1706_8T = 506; VAX$C_v1706_8T = 506; VAX$K_v1706_1S = 507; VAX$C_v1706_1S = 507; VAX$K_v1706_2S = 508; VAX$C_v1706_2S = 508; VAX$K_v1706_3S = 509; VAX$C_v1706_3S = 509; VAX$K_v1706_4S = 510; VAX$C_v1706_4S = 510; VAX$K_v1706_5S = 511; VAX$C_v1706_5S = 511; VAX$K_v1706_6S = 512; VAX$C_v1706_6S = 512; VAX$K_v1706_7S = 513; VAX$C_v1706_7S = 513; VAX$K_v1706_8S = 514; VAX$C_v1706_8S = 514; VAX$K_v1706_1J = 515; VAX$C_v1706_1J = 515; VAX$K_v1707_1T = 516; VAX$C_v1707_1T = 516; VAX$K_v1707_2T = 517; VAX$C_v1707_2T = 517; VAX$K_v1707_3T = 518; VAX$C_v1707_3T = 518; VAX$K_v1707_4T = 519; VAX$C_v1707_4T = 519; VAX$K_v1707_5T = 520; VAX$C_v1707_5T = 520; VAX$K_v1707_6T = 521; VAX$C_v1707_6T = 521; VAX$K_v1707_7T = 522; VAX$C_v1707_7T = 522; VAX$K_v1707_8T = 523; VAX$C_v1707_8T = 523; VAX$K_v1707_1S = 524; VAX$C_v1707_1S = 524; VAX$K_v1707_2S = 525; VAX$C_v1707_2S = 525; VAX$K_v1707_3S = 526; VAX$C_v1707_3S = 526; VAX$K_v1707_4S = 527; VAX$C_v1707_4S = 527; VAX$K_v1707_5S = 528; VAX$C_v1707_5S = 528; VAX$K_v1707_6S = 529; VAX$C_v1707_6S = 529; VAX$K_v1707_7S = 530; VAX$C_v1707_7S = 530; VAX$K_v1707_8S = 531; VAX$C_v1707_8S = 531; VAX$K_v1707_1J = 532; VAX$C_v1707_1J = 532; VAX$C_VKA57 = 533; VAX$K_VKA57 = 533; VAX$K_VKA57_S = 534; VAX$C_VKA57_S = 534; VAX$K_VKA57_J = 535; VAX$C_VKA57_J = 535; VAX$C_VKA58 = 536; VAX$K_VKA58 = 536; VAX$K_VKA58_S = 537; VAX$C_VKA58_S = 537; VAX$K_VKA58_J = 538; VAX$C_VKA58_J = 538; VAX$C_VKA59 = 539; VAX$K_VKA59 = 539; VAX$K_VKA59_S = 540; VAX$C_VKA59_S = 540; VAX$K_VKA59_J = 541; VAX$C_VKA59_J = 541; VAX$C_MAX_MODEL = 541; VAX$K_MAX_MODEL = 541; (*** MODULE $WBEMIDEF ***) (*+ *) (* SYS$GET_WBEM_INFO item code values *) (*- *) CONST WBEMI$_SPU_COUNT = 1; (* Count, 64-bit integer, of "schedulable processing units" (SPU id, aka VMS CPUID) *) WBEMI$_SPU_LID_MAPPING = 2; (* Vector of WBEMI_LID_MAP, with LID and SPU_ID pairings, with SPU_COUNT entries *) WBEMI$_SPU_FREQUENCY = 3; (* SPU cycle frequency, 64-bit integer, param1=SPU id *) WBEMI$_SYS_HT_CAPABLE = 4; (* Is system Hyperthreads capable? (0/1, 64-bit integer) *) WBEMI$_SYS_HT_ENABLED = 5; (* Are system Hyperthreads currently enabled? (0/1, 64-bit integer) *) WBEMI$_SMBIOS_TABLE_TYPE = 6; (* Get SMBIOS table entries by type, param1=SMBIOS table type, raw binary data *) WBEMI$_DIMM_COUNT = 7; (* Number of DIMMs on the system, 64-bit integer, count of ACPI DIMM objects *) WBEMI$_DIMM_LOC = 8; (* DIMM location, ASCII string from ACPI, param1=DIMM# *) WBEMI$_DIMM_UID = 9; (* DIMM serial number, ASCII string from ACPI, param1=DIMM# *) WBEMI$_DIMM_PART = 10; (* DIMM part number, ASCII string from ACPI, param1=DIMM# *) WBEMI$_DIMM_SIZE = 11; (* DIMM size, 64-bit integer from ACPI, param1=DIMM# *) WBEMI$_DIMM_STATUS = 12; (* DIMM status, 64-bit integer from ACPI, param1=DIMM# *) WBEMI$_CELL_COUNT = 13; (* Number of cells in the system, 64-bit integer, count of ACPI cell objects *) WBEMI$_CELL_LOC = 14; (* Cell location, ASCII string from ACPI, param1=cell# *) WBEMI$_CELL_UID = 15; (* Cell UID, 64-bit integer from ACPI, param1=cell# *) WBEMI$_PHYS_CPU_COUNT = 16; (* Number of physical CPUs, 64-bit integer, count of ACPI processor objects *) WBEMI$_PHYS_CPU_ID = 17; (* Vector of 64-bit ACPI ProcIDs for PHYS_CPU_COUNT *) WBEMI$_PHYS_LID_MAPPING = 18; (* Vector of WBEMI_LID_MAP, with LID and PROC_ID pairings, with PHYS_CPU_COUNT entries *) WBEMI$_PHYS_CPU_LOC = 19; (* CPU chip location, ASCII string from ACPI, param1=ProcID *) WBEMI$_PHYS_CPU_SLOT_NUM = 20; (* CPU slot number, 64-bit integer from ACPI, param1=ProcID *) WBEMI$_PHYS_CPU_SERIAL = 21; (* CPU serial number, ASCII string from ACPI, param1=ProcID *) WBEMI$_PHYS_CPU_STATUS = 22; (* CPU status, 64-bit integer from ACPI, param1=ProcID *) WBEMI$_CORES_PER_SOCKET = 23; (* Number of cores per processor socket, 64-bit integer *) WBEMI$_THREADS_PER_CORE = 24; (* Number of threads per processor core, 64-bit integer *) WBEMI$_THREADS_CORE_MAX = 25; (* Number of potential threads per processor core, 64-bit integer *) WBEMI$_PHYS_CPU_UID_INT = 26; (* CPU UID, 64-bit integer from ACPI, param1=ProcID *) WBEMI$K_MAX_ITEM = 26; (* Maximum currently supported item code value *) (*+ *) (* WBEMI_LID_MAP Structure *) (* *) (* Data returned by SYS$GET_WBEM_INFO WBEMI$_SPU_LID_MAPPING is a vector of *) (* 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. *) (* *) (* Data returned by SYS$GET_WBEM_INFO WBEMI$_PHYS_LID_MAPPING is a vector of *) (* WBEMI_LID_MAP structures, pairing a LID to its associate ACPI PROC_ID. *) (* The total number of these pairings is given by PHYS_CPU_COUNT. *) (* *) (* The caller should not infer any significance to the order of the pairings in *) (* this vector. For example, one should not assume that the 5th instance of a *) (* LID and PROC_ID pairing corresponds to VMS CPUID 5. Instead, one needs to use *) (* both the LID/SPU_ID and LID/PROC_ID pairings to determine the SPU_ID/PROC_ID *) (* associations. *) (*- *) TYPE WBEMI_LID_MAP$TYPE = RECORD CASE INTEGER OF 1: (WBEMI_LID_MAP$Q_LID : $UQUAD; (* LID for the processor *) WBEMI_LID_MAP$R_ID_OVERLAY : [BYTE(4)] RECORD END; WBEMI_LID_MAP$L_FILLER : UNSIGNED; ); 2: (WBEMI_LID_MAP$L_ID : [POS(64)] UNSIGNED; (* Generic ID field, can be... *) ); 3: (WBEMI_LID_MAP$L_SPU_ID : [POS(64)] UNSIGNED; (* VMS CPUID (aka SPU IS) associated with the LID *) ); 4: (WBEMI_LID_MAP$L_PROC_ID : [POS(64)] UNSIGNED; (* ACPI PROC_ID associated with the LID *) ) END; (*** MODULE $WWIDDEF IDENT X-4 ***) (* *) (* Longword header prefixed to the World-Wide Identifier used in fibre channel. *) (* A WWID can be in any one of the eleven formats specified here. At this time *) (* though, only seven of these formats (WWID types 1-4, 9-11) are implemented *) (* in OpenVMS. *) (* *) (* Note that this is a common header, used by OpenVMS, Digital UNIX, and the *) (* Console. Any changes to this structure should be made in cooperation with *) (* these other groups. *) (* *) CONST WWIDHDR$M_WWID_LENGTH = 1048575; WWIDHDR$M_ASCII_DATA = 1048576; WWIDHDR$M_WWID_TYPE = -16777216; WWIDHDR$K_IEEE_REGEXT = 1; (* 1: Page83, ID type 3, NAA 0110 *) WWIDHDR$K_IEEE_REG = 2; (* 2: Page83, ID type 3, NAA 0101 *) WWIDHDR$K_PG83TY1_VID = 3; (* 3: PID+Page83, ID type 1 *) WWIDHDR$K_PG80_SERIALNO = 4; (* 4: VID+PID+Ser_No from Page80 *) WWIDHDR$K_INQ_SERIALNO = 5; (* 5: VID+PID+Ser_No from std. inq. data *) WWIDHDR$K_TGT_IDENT = 6; (* 6: VID+PID+Persistent_Tgt_ID *) WWIDHDR$K_BTL = 7; (* 7: VID+PID+Bus_No+Tgt_ID+LUN *) WWIDHDR$K_DEC_UNIQUE = 8; (* 8: HSZ-specific serial no's. *) WWIDHDR$K_HSZ_THISOTHER = 9; (* 9: THIS/OTHER ser. no. (older HSZs) *) WWIDHDR$K_IEEE48_VEXT = 10; (* 10: Page83, ID type 3, NAA 0010 *) WWIDHDR$K_IEEE48_0EXT = 11; (* 11: Page83, ID type 3, NAA 0001 *) WWIDHDR$K_IEEE_EUI64 = 12; (* 12: Page83, ID type 2 *) WWIDHDR$K_ISCSI_NAME = 13; (* 13: X-4 iSCSI Name *) TYPE WWIDHDR$TYPE = RECORD CASE INTEGER OF 1: (WWIDHDR$R_HEADER_FIELDS : [BYTE(4)] RECORD END; ); 2: (WWIDHDR$V_WWID_LENGTH : [POS(0)] $BIT20; (* Length of WWID data *) WWIDHDR$V_ASCII_DATA : [POS(20)] $BOOL; (* Data is in ASCII format *) WWIDHDR$V_RESERVED1 : [POS(21)] $BIT3; (* Reserved *) WWIDHDR$V_WWID_TYPE : [POS(24)] $BIT8; (* WWID format type *) ) END; (* *) (* World-Wide Identifier *) (* *) (* Includes the 4-byte header defined above and the body of the WWID. The *) (* largest WWID is currently the type that includes Vendor ID (8 bytes), *) (* Product ID (16 bytes), and Serial Number (up to 251 bytes). Rounding up *) (* to the nearest quadword boundary, this comes out to 276 bytes. *) (* *) TYPE WWID$TYPE = RECORD WWID$R_HEADER : WWIDHDR$TYPE; WWID$B_DATA : ARRAY [1..276] OF $BYTE; END; CONST WWID$K_LENGTH = 280; (* *) (* Serial Number WWID *) (* *) (* This is the WWID that gets put together from both standard and Page 80 *) (* inquiry data. The Product ID and Vendor ID come from standard inquiry data. *) (* The Serial Number comes from Vital Product Data Page 80. The Header is the *) (* standard WWID header defined above. *) (* *) TYPE SN_WWID$TYPE = RECORD SN_WWID$R_HEADER : WWIDHDR$TYPE; SN_WWID$B_VENDOR_ID : ARRAY [1..8] OF $UBYTE; SN_WWID$B_PRODUCT_ID : ARRAY [1..16] OF $UBYTE; SN_WWID$B_SERIAL_NO : ARRAY [1..252] OF $UBYTE; END; CONST SN_WWID$K_LENGTH = 280; (* *) (* The longest WWID is one that is made from the device's serial number, *) (* product ID, and vendor ID. *) (* 4 8 16 <= 252 *) (* +------+------------+-------------------+-----------------------------------+ *) (* |Header| Vendor | Product | Serial Number | *) (* +------+------------+-------------------+-----------------------------------+ *) (* *) (* Maximum WWID length comes out to 4+8+16+252 = 280 bytes. *) (* *) CONST WWID$K_MAX_LENGTH = 280; (* *) (* WWID Table Entry *) (* *) (* The WWID table is created during boot by EXEC_INIT and is used by both *) (* EXEC_INIT and, later on in the boot, STACONFIG. The table stores informa- *) (* tion about all devices that have been registered by the user at the console. *) (* *) TYPE WWIDENT$TYPE = RECORD CASE INTEGER OF 1: (WWIDENT$L_UNIT_NO : INTEGER; WWIDENT$L_DNP : INTEGER; WWIDENT$L_WWIDLEN : UNSIGNED; WWIDENT$R_WWID : [BYTE(116)] RECORD END; ); 2: (WWIDENT$R_HEADER : [POS(96)] WWIDHDR$TYPE; WWIDENT$B_FCWWID : [POS(128)] ARRAY [1..112] OF $BYTE; ) END; CONST WWIDENT$K_LENGTH = 128; WWIDTBL$K_MAX_ENTRIES = 1000; (* Max. entries in a WWID Table *) (* *) (* This structure points to a Fibre Channel adapter ID. This WWID differs *) (* from the other WWIDs in this file in that it is obtained directly from *) (* the adapter rather than the SCSI Device Identification page. Consequently, *) (* there is no header, vendor, and product information associated with *) (* this 64 bit identifier. The format of this 64 bit WWID is an IEEE 48 bit *) (* address with additional information as defined in the FC-PH. But we *) (* don't really care about the FC-PH format since all we want to do is display *) (* the 64 bits using the asci hex format of XXXX-XXXX-XXXX-XXXX, which is the *) (* widely accepted format used to display this information. *) (* *) TYPE FC_WWID_64B$TYPE = RECORD FC_WWIDB_NAME : ARRAY [1..8] OF $UBYTE; END; (*** MODULE $XADEF ***) (*+ *) (* DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS *) (*- *) CONST XA$M_DATAPATH = 1; XA$M_LINK = 2; TYPE XA$TYPE = RECORD CASE INTEGER OF 1: (XA$R_XADEF_BITS : [BYTE(1)] RECORD END; ); 2: (XA$V_DATAPATH : [POS(0)] $BOOL; (* USE BUFFERED DATAPATH *) XA$V_LINK : [POS(1)] $BOOL; (* INTERPROCESSOR LINK MODE *) ) END; (*** MODULE $XKSTSDEF ***) (* *) (* DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS) *) (* *) CONST XKSTS$K_LSTR = 0; (* OFFSET OF BEGINNING OF DATA AREA *) XKSTS$C_LSTR = 0; (* OFFSET OF BEGINNING OF DATA AREA *) XKSTS$M_ACT = 1; XKSTS$M_DGN = 2; XKSTS$K_DSTR = 45; (* LENGTH OF THE LINE STATUS BLOCK *) XKSTS$C_DSTR = 45; (* LENGTH OF THE LINE STATUS BLOCK *) TYPE XKSTS$TYPE = RECORD CASE INTEGER OF 1: (XKSTS$B_CUAD : $UBYTE; (* CONTROL UNIT ADDRESS (HEX EBCDIC) *) XKSTS$R_LSTS_OVERLAY : [BYTE(2)] RECORD END; XKSTS$B_PLSZ : $UBYTE; (* POOL SIZE *) XKSTS$W_BSIZ : $UWORD; (* MAXIMUM BLOCK TO BE RECEIVED FROM IBM *) XKSTS$B_ECNT : $UBYTE; (* ENQ THRESHOLD *) XKSTS$W_TNAK : $UWORD; (* NUMBER OF NAKS TRANSMITTED *) XKSTS$W_RNAK : $UWORD; (* NUMBER OF NAKS RECEIVED *) XKSTS$W_TENQ : $UWORD; (* NUMBER OF ENQS SENT *) XKSTS$W_RENQ : $UWORD; (* NUMBER OF ENQS RECEIVED *) XKSTS$W_TRVI : $UWORD; (* NUMBER OF RVIS TRANSMITTED *) XKSTS$W_RRVI : $UWORD; (* NUMBER OF RVIS RECEIVED *) XKSTS$W_RCNV : $UWORD; (* NUMBER OF CONVERSATIONAL MODE RESPONSES *) (* RECEIVED *) XKSTS$W_CHAI : $UWORD; (* NUMBER OF CHAINED WRITES RECEIVED *) XKSTS$W_GPOL : $UWORD; (* NUMBER OF GENERAL POLLS RECEIVED *) XKSTS$W_XACK : $UWORD; (* NUMBER OF INVALID ACKS RECEIVED *) XKSTS$W_HABO : $UWORD; (* NUMBER OF HOST ABORTS ENCOUNTERED *) XKSTS$W_DABO : $UWORD; (* NUMBER OF DRIVER ABORTS ENCOUNTERED *) XKSTS$W_RTIM : $UWORD; (* NUMBER OF ACK RESPONSE TIMEOUTS *) XKSTS$W_DISC : $UWORD; (* NUMBER OF DISCONNECTS ENCOUNTERED *) XKSTS$W_HARD : $UWORD; (* NUMBER OF HARDWARE FAILURES (INCLUDING *) (* DISCONNECTS) ENCOUNTERED *) XKSTS$W_TBLK : $UWORD; (* NUMBER OF BLOCKS TRANSMITTED *) XKSTS$W_RBLK : $UWORD; (* NUMBER OF BLOCKS RECEIVED *) XKSTS$W_HABX : $UWORD; (* NUMBER OF DUBIOUS ACK OUTS *) XKSTS$W_IEOT : $UWORD; (* NUMBER OF EOTS IMPLYING ACK *) ); 2: (XKSTS$W_LSTS : [POS(8)] $UWORD; (* LINE STATUS *) ); 3: (); 4: (XKSTS$V_ACT : [POS(8)] $BOOL; (* IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) *) XKSTS$V_DGN : [POS(9)] $BOOL; (* IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO *) ) END; (*** MODULE $XKDEVDEF ***) (* *) (* 3271 DEVICE STATUS BLOCK *) (* *) (* THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCK *) (* IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LINE. *) (* *) CONST XKDEV$K_SIZE = 15; (* SIZE OF THE DEVICE STATUS BLOCK *) XKDEV$C_SIZE = 15; (* SIZE OF THE DEVICE STATUS BLOCK *) TYPE XKDEV$TYPE = RECORD XKDEV$B_DUEB : $UBYTE; (* DEVICE ADDRESS (DU - HEX EBCDIC) *) XKDEV$L_DPID : UNSIGNED; (* PROCESS ID OF PROCESS OWNING THIS DU *) XKDEV$W_TBLK : $UWORD; (* NUMBER OF BLOCKS TRANSMITTED *) XKDEV$W_RBLK : $UWORD; (* NUMBER OF BLOCKS RECEIVED *) XKDEV$W_SPOL : $UWORD; (* NUMBER OF SPECIFIC POLLS RECEIVED *) XKDEV$W_ASEL : $UWORD; (* NUMBER OF ADDRESS SELECTS RECEIVED *) XKDEV$W_CREJ : $UWORD; (* NUMBER OF COMMAND REJECTS SENT *) END; (*** MODULE $XMDEF ***) (* *) (* DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11 *) (* *) TYPE XMDEV$TYPE = RECORD XMDEV$B_P1_CLASS : $UBYTE; (* Device Class *) XMDEV$B_P1_TYPE : $UBYTE; (* Device type *) XMDEV$W_P1_MMS : $UWORD; (* Maximum message size *) XMDEV$B_P1_CHAR : $UBYTE; (* Unit characteristics *) XMDEV$B_P1_STS : $UBYTE; (* Unit Status *) XMDEV$B_P1_ESUM : $UBYTE; (* Error Summary *) XMDEV$B_P1_TPI : $UBYTE; (* Transmit Pipeline no. *) END; CONST XM$M_CHR_MOP = 1; XM$M_CHR_LOOPB = 2; XM$M_CHR_HDPLX = 4; XM$M_CHR_SLAVE = 8; XM$M_CHR_MBX = 16; XM$M_CHR_DMC = 32; XM$M_CHR_CTRL = 64; XM$M_CHR_TRIB = 128; XM$M_STS_DCHK = 256; XM$M_STS_TIMO = 512; XM$M_STS_ORUN = 1024; XM$M_STS_ACTIVE = 2048; XM$M_STS_BUFFAIL = 4096; XM$M_STS_RUNNING = 8192; XM$M_STS_DISC = 16384; XM$M_ERR_FATAL = 65536; XM$M_ERR_MAINT = 524288; XM$M_ERR_LOST = 1048576; XM$M_ERR_THRESH = 2097152; XM$M_ERR_TRIB = 4194304; XM$M_ERR_START = 8388608; XM$M_MDM_RTSHLD = 1; XM$M_MDM_STNDBY = 2; XM$M_MDM_MAINT2 = 4; XM$M_MDM_MAINT1 = 8; XM$M_MDM_FREQ = 32; XM$M_MDM_RDY = 64; XM$M_MDM_POLL = 128; XM$M_MDM_SELM = 256; XM$M_MDM_INT = 2048; XM$M_MDM_V35 = 4096; XM$M_MDM_RS232 = 16384; XM$M_MDM_RS422 = 32768; XM$M_MDM_CARRDET = 1; XM$M_MDM_MSTNDBY = 2; XM$M_MDM_CTS = 4; XM$M_MDM_DSR = 8; XM$M_MDM_HDX = 16; XM$M_MDM_RTS = 32; XM$M_MDM_DTR = 64; XM$M_MDM_RING = 128; XM$M_MDM_CHRMOD = 256; XM$M_MDM_MCLOCK = 512; XM$M_MDM_MODTEST = 1024; XM$M_MDM_SIGQUAL = 16384; XM$M_MDM_SIGRATE = 32768; TYPE XM$TYPE = RECORD CASE INTEGER OF 1: (XM$R_XMDEF_BITS0 : [BYTE(3)] RECORD END; ); 2: (XM$V_CHR_MOP : [POS(0)] $BOOL; (* MOP MODE *) XM$V_CHR_LOOPB : [POS(1)] $BOOL; (* LOOP BACK *) XM$V_CHR_HDPLX : [POS(2)] $BOOL; (* HALF DUPLEX *) XM$V_CHR_SLAVE : [POS(3)] $BOOL; (* HALF DUPLEX SLAVE STATION *) XM$V_CHR_MBX : [POS(4)] $BOOL; (* MAILBOX IS ENABLED *) XM$V_CHR_DMC : [POS(5)] $BOOL; (* DMC-11 COMPATABILITY MODE *) XM$V_CHR_CTRL : [POS(6)] $BOOL; (* CONTROL STATION *) XM$V_CHR_TRIB : [POS(7)] $BOOL; (* TRIBUTARY STATION *) XM$V_STS_DCHK : [POS(8)] $BOOL; (* DATA CHECK OCCURED *) XM$V_STS_TIMO : [POS(9)] $BOOL; (* TIMEOUT OCCURED *) XM$V_STS_ORUN : [POS(10)] $BOOL; (* DATA OVER RUN OCCURED *) XM$V_STS_ACTIVE : [POS(11)] $BOOL; (* ACTIVE UNIT *) XM$V_STS_BUFFAIL : [POS(12)] $BOOL; (* BUFFER ALLOCATION FAILURE OCCURED *) XM$V_STS_RUNNING : [POS(13)] $BOOL; (* PROTOCOL RUNNING *) XM$V_STS_DISC : [POS(14)] $BOOL; (* LINE DISCONNECT OCCURED *) XM$V_ERR_FATAL : [POS(16)] $BOOL; (* HARDWARE ERROR *) XM$V_ERR_MAINT : [POS(19)] $BOOL; (* DDCMP MAINT MESSAGE RECEIVED *) XM$V_ERR_LOST : [POS(20)] $BOOL; (* DATA LOST BECAUSE OF BUFFER SIZE MISMATCH *) XM$V_ERR_THRESH : [POS(21)] $BOOL; (* THRESHOLD ERRORS *) XM$V_ERR_TRIB : [POS(22)] $BOOL; (* TRIBUTARY MALFUNCTIONING *) XM$V_ERR_START : [POS(23)] $BOOL; (* DDCMP START MESSAGE RECEIVED *) ); 3: (XM$R_XMDEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (XM$V_MDM_RTSHLD : [POS(0)] $BOOL; (* RTS HOLD *) XM$V_MDM_STNDBY : [POS(1)] $BOOL; (* SELECT STANDBY *) XM$V_MDM_MAINT2 : [POS(2)] $BOOL; (* MAINTENANCE MODE 2 *) XM$V_MDM_MAINT1 : [POS(3)] $BOOL; (* MAINTENANCE MODE 1 *) XM$V_MDM_FREQ : [POS(5)] $BOOL; (* SELECT FREQUENCY *) XM$V_MDM_RDY : [POS(6)] $BOOL; (* DATA TERMINAL READY *) XM$V_MDM_POLL : [POS(7)] $BOOL; (* SELECT POLLING MODEM MODE *) XM$V_MDM_SELM : [POS(8)] $BOOL; (* MODEM INTERFACE PROGRAM SELECTED *) XM$V_MDM_INT : [POS(11)] $BOOL; (* INTEGRAL MODEM *) XM$V_MDM_V35 : [POS(12)] $BOOL; (* V.35 *) XM$V_MDM_RS232 : [POS(14)] $BOOL; (* RS-232-C OR RS423 *) XM$V_MDM_RS422 : [POS(15)] $BOOL; (* RS-422 *) ); 5: (XM$R_XMDEF_BITS2 : [BYTE(2)] RECORD END; ); 6: (XM$V_MDM_CARRDET : [POS(0)] $BOOL; (* CARRIER DETECT *) XM$V_MDM_MSTNDBY : [POS(1)] $BOOL; (* MODEM STANDBY *) XM$V_MDM_CTS : [POS(2)] $BOOL; (* CLEAR TO SEND *) XM$V_MDM_DSR : [POS(3)] $BOOL; (* DATA SET READY *) XM$V_MDM_HDX : [POS(4)] $BOOL; (* HALF-DUPLEX *) XM$V_MDM_RTS : [POS(5)] $BOOL; (* REQUEST TO SEND *) XM$V_MDM_DTR : [POS(6)] $BOOL; (* DATA TERMINAL READY *) XM$V_MDM_RING : [POS(7)] $BOOL; (* RING *) XM$V_MDM_CHRMOD : [POS(8)] $BOOL; (* CHARACTER OR BIT PROTOCOL MODE *) XM$V_MDM_MCLOCK : [POS(9)] $BOOL; (* MAINTENANCE CLOCK *) XM$V_MDM_MODTEST : [POS(10)] $BOOL; (* MODEM TEST MODE *) XM$V_MDM_SIGQUAL : [POS(14)] $BOOL; (* SIGNAL QUALITY *) XM$V_MDM_SIGRATE : [POS(15)] $BOOL; (* SIGNAL RATE *) ) END; (*** MODULE $XWDEF ***) (*++ *) (* *) (* XWDEF - System definitions for software DDCMP *) (* *) (*-- *) CONST XW$M_CHA_FDX = 1; XW$M_CHA_XPR = 2; XW$M_CHA_DSR = 4; XW$M_FAT_STAT = 1023; XW$M_INFO_STAT = 64512; XW$M_EOT = 1; XW$M_DATACK = 2; XW$M_NODSR = 4; XW$M_DISCON = 8; XW$M_TRABINTMO = 16; XW$M_PIPE_MARK = 32; XW$M_BADCHAIN = 64; XW$M_ILLMOD = 128; XW$M_RVI = 1024; XW$M_CONACK = 2048; XW$M_XPR = 4096; XW$M_ETXEND = 8192; XW$M_PUNCH = 65536; XW$M_HOR_FOR = 131072; XW$M_IOMOD = 57344; TYPE XW$TYPE = RECORD CASE INTEGER OF 1: (XW$R_XWDEF_BITS0 : [BYTE(1)] RECORD END; ); 2: (XW$V_CHA_FDX : [POS(0)] $BOOL; (* Full duplex line *) XW$V_CHA_XPR : [POS(1)] $BOOL; (* Transparency *) XW$V_CHA_DSR : [POS(2)] $BOOL; (* Data Set Ready set *) (* *) (* Device dependent status *) (* *) ); 3: (XW$R_XWDEF_BITS1 : [BYTE(2)] RECORD END; ); 4: (XW$V_FAT_STAT : [POS(0)] $BIT10; (* Beginning of fatal stat flags *) XW$V_INFO_STAT : [POS(10)] $BIT6; (* Start of informational status *) (* *) (* Bit definitions for fatal and informational status fields *) (* *) ); 5: (XW$R_XWDEF_BITS2 : [BYTE(3)] RECORD END; ); 6: (XW$V_EOT : [POS(0)] $BOOL; (* EOT received *) XW$V_DATACK : [POS(1)] $BOOL; (* Retry threshold exceeded *) XW$V_NODSR : [POS(2)] $BOOL; (* Line not connected *) XW$V_DISCON : [POS(3)] $BOOL; (* Disconnect (DLE, EOT) rcvd *) XW$V_TRABINTMO : [POS(4)] $BOOL; (* Binary transmit timeout *) XW$V_PIPE_MARK : [POS(5)] $BOOL; (* Aborted because of pipe mark *) XW$V_BADCHAIN : [POS(6)] $BOOL; (* Bad record list *) XW$V_ILLMOD : [POS(7)] $BOOL; (* Illegal QIO modifier *) XW$V_RVI : [POS(10)] $BOOL; (* Buffer ACKed with RVI *) XW$V_CONACK : [POS(11)] $BOOL; (* Buffer ACKed with conver resp *) XW$V_XPR : [POS(12)] $BOOL; (* Buffer rcvd with transparency *) XW$V_ETXEND : [POS(13)] $BOOL; (* Rcvd block ended with ETX *) XW$V_PUNCH : [POS(16)] $BOOL; (* Punch select found *) XW$V_HOR_FOR : [POS(17)] $BOOL; (* Horizontal forms record rcvd *) (* *) (* Read/Write function modifier definition *) (* *) ); 7: (XW$R_XWDEF_BITS3 : [BYTE(2)] RECORD END; ); 8: (XW$V_IOMOD : [POS(13)] $BIT3; (* I/O modifier field start *) ) END; (* END. *) (* MODULE STARLET ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE STARLET ***) [HIDDEN] TYPE (**** SDL-Generated type names ****) STARLET$$TYP1 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP2 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP3 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP4 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP5 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP6 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP7 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP8 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP9 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP10 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP11 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP12 = [UNSAFE] ARRAY [1..4] OF $UWORD; STARLET$$TYP13 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP14 = ^INTEGER; STARLET$$TYP15 = [UNSAFE] ARRAY [1..4] OF $UBYTE; STARLET$$TYP16 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP17 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP18 = [UNSAFE] ARRAY [1..4] OF UNSIGNED; STARLET$$TYP19 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP20 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP21 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP22 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP23 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP24 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP25 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP26 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP27 = [UNSAFE] ARRAY [1..7] OF $UWORD; STARLET$$TYP28 = [UNSAFE] ARRAY [1..13] OF $UWORD; STARLET$$TYP29 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP30 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP31 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP32 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP33 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP34 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP35 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP36 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP37 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP38 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP39 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP40 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP41 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP42 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP43 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP44 = [UNSAFE] ARRAY [1..2] OF UNSIGNED; STARLET$$TYP45 = $DEFPTR; STARLET$$TYP46 = $DEFPTR; STARLET$$TYP47 = $DEFPTR; STARLET$$TYP48 = $DEFPTR; (* *) (* SYSTEM SERVICE ENTRY POINT DESCRIPTIONS *) (* *) (* *) (* $ACM[W] *) (* *) (* Authentication and Credentials Management *) (* *) (* $ACM[W] [efn], func, [contxt], itmlst, acmsb, *) (* [astadr], [astprm] *) (* *) (* efn = number of event flag to set at service completion *) (* (read only, passed by value) *) (* func = function code and modifiers specifying action *) (* to be performed *) (* (read only, passed by value) *) (* contxt = context longword, used to maintain service state *) (* across iterative calls *) (* (modify, passed by reference) *) (* itmlst = list of item descriptors *) (* (read only, passed by reference) *) (* acmsb = ACM status block *) (* (write only, passed by reference) *) (* astadr = procedure value for AST routine to be called at *) (* service completion *) (* (execute only, passed by reference) *) (* astprm = value to be passed as an argument to the AST routine *) (* (passed by value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ACM)] FUNCTION $ACM ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; VAR CONTXT : [VOLATILE] INTEGER := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; %REF ACMSB : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ACMW)] FUNCTION $ACMW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; VAR CONTXT : [VOLATILE] INTEGER := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; %REF ACMSB : [VOLATILE,UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ADD_HOLDER *) (* *) (* Add Holder Record To The Rights Database *) (* *) (* $ADD_HOLDER id, holder, [attrib] *) (* *) (* id = identifier longword to associate the *) (* holder record with *) (* holder = address of the holder identifier quadword *) (* attrib = attributes longword to grant to the holder *) [ASYNCHRONOUS,EXTERNAL(SYS$ADD_HOLDER)] FUNCTION $ADD_HOLDER ( %IMMED ID : UNSIGNED; HOLDER : $UQUAD; %IMMED ATTRIB : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ADD_IDENT *) (* *) (* Add Identifier To The Rights Database *) (* *) (* $ADD_IDENT name, [id], [attrib], [resid] *) (* *) (* name = address of the identifier name character *) (* string descriptor *) (* id = identifier longword to associate with 'name' *) (* attrib = attributes longword to grant to the *) (* identifier *) (* resid = address of a longword to return the assigned *) (* identifier *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADD_IDENT)] FUNCTION $ADD_IDENT ( NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED ID : UNSIGNED := %IMMED 0; %IMMED ATTRIB : UNSIGNED := %IMMED 0; VAR RESID : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ADD_MAPPING *) (* *) (* Add Mapping record to Mapping database *) (* *) (* $ADD_MAPPING initmlst *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADD_MAPPING)] FUNCTION $ADD_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADD_PROXY)] FUNCTION $ADD_PROXY ( REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; LOCAL_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ADJSTK *) (* *) (* Adjust Outer Mode Stack Pointer *) (* *) (* $ADJSTK [acmode] ,[adjust] ,newadr *) (* *) (* acmode = access mode for which to adjust stack pointer *) (* adjust = 16-bit signed adjustment value *) (* newadr = address of longword to store updated value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADJSTK)] FUNCTION $ADJSTK ( %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED ADJUST : INTEGER := %IMMED 0; VAR NEWADR : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ADJWSL *) (* *) (* Adjust Working Set Limit *) (* *) (* $ADJWSL [pagcnt] ,[wsetlm] *) (* *) (* pagcnt = number of pages to add to working set (if positive). *) (* Number of pages to subtract from working set (if *) (* negative). *) (* wsetlm = address of longword to receive new working set limit, *) (* or current working set limit if pagcnt not specified. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADJWSL)] FUNCTION $ADJWSL ( %IMMED PAGCNT : INTEGER := %IMMED 0; VAR WSETLM : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ALLOC *) (* *) (* Allocate Device *) (* *) (* $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] *) (* *) (* devnam = address of device name or logical name string *) (* descriptor *) (* phylen = address of word to receive length of physical name *) (* phybuf = address of physical name buffer descriptor *) (* acmode = access mode associated with allocated device *) (* flags = options flags longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ALLOC)] FUNCTION $ALLOC ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR PHYLEN : [VOLATILE] $UWORD := %IMMED 0; VAR PHYBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ASCEFC *) (* *) (* Associate Common Event Flag Cluster *) (* *) (* $ASCEFC efn ,name ,[prot] ,[perm] *) (* *) (* efn = number of any event flag in the cluster with which to *) (* associate *) (* name = address of the text name string descriptor *) (* prot = protection indicator for the cluster *) (* 0 -> default, any process in group *) (* 1 -> only owner's UIC *) (* perm = permanent indicator *) (* 0 -> temporary cluster *) (* 1 -> permanent cluster *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ASCEFC)] FUNCTION $ASCEFC ( %IMMED EFN : UNSIGNED; NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED PROT : INTEGER := %IMMED 0; %IMMED PERM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ASCTIM *) (* *) (* Convert Binary Time to ASCII String *) (* *) (* $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] *) (* *) (* timlen = address of a word to receive the number of characters *) (* inserted into the output buffer. *) (* timbuf = address of a character string descriptor describing *) (* the buffer to receive the converted time. *) (* timadr = address of the quadword containing the 64-bit time to *) (* be converted to ASCII. If 0, use current time. *) (* cvtflg = conversion indicator *) (* 0 -> return full date and time *) (* 1 -> return converted time only *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ASCTIM)] FUNCTION $ASCTIM ( VAR TIMLEN : [VOLATILE] $UWORD := %IMMED 0; VAR TIMBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; TIMADR : $UQUAD := %IMMED 0; %IMMED CVTFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ASCTOID *) (* *) (* Ascii To Identifier Conversion *) (* *) (* $ASCTOID name, [id], [attrib] *) (* *) (* name = address of the identifier name character *) (* string descriptor to be converted *) (* id = address to return the identifier longword *) (* attrib = address to return the attributes longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ASCTOID)] FUNCTION $ASCTOID ( NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR ID : [VOLATILE] UNSIGNED := %IMMED 0; VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ASCUTC *) (* *) (* Convert Binary UTC time into ASCII time string *) (* *) (* $ASCUTC [timlen], timbuf, [utcadr], [cvtflg] *) (* *) (* timlen = Length (in bytes) of the ASCII string *) (* returned by $ASCUTC. The timelen argument *) (* is the address of a word containing this length. *) (* timbuf = Buffer into which $ASCUTC writes the ASCII string. *) (* The timbuf argument is the address of a character *) (* string descriptor pointing to the bufer. The *) (* buffer length specified in the timbuf argument, *) (* together rwith the cvtflg argument, controls what *) (* information is returned. *) (* utcadr = Time value that $ASCUTC is to convert. The utcadr *) (* argument is the address of this 128-bit time value. *) (* Relative times are not permitted. If utcadr is *) (* not specified ( ie 0 ), $ASCUTC returns the current *) (* date and time. *) (* cvtflg = Conversion indicator specifying which date and time *) (* fields $ASCUTC should return. The cvtflg argument is *) (* a longword value, which is interpreted as Boolean. *) (* The value 1 specifies that ASCUTC should return only *) (* the hour,minute,second, and hundreths of a second fields. *) (* The default value 0 specifies that $ASCUTC should return *) (* the full date and time. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ASCUTC)] FUNCTION $ASCUTC ( VAR TIMLEN : [VOLATILE] $UWORD := %IMMED 0; TIMBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; UTCADR : $UOCTA := %IMMED 0; %IMMED CVTFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ASSIGN *) (* *) (* Assign I/O Channel *) (* *) (* $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] *) (* *) (* devnam = address of device name or logical name string *) (* descriptor *) (* chan = address of word to receive channel number assigned *) (* acmode = access mode associated with channel *) (* mbxnam = address of mailbox logical name string descriptor, if *) (* mailbox associated with device *) (* flags = optional channel flags longword for specifying options *) (* for the $ASSIGN operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ASSIGN)] FUNCTION $ASSIGN ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR CHAN : [VOLATILE] $UWORD; %IMMED ACMODE : UNSIGNED := %IMMED 0; MBXNAM : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $AUDIT_EVENT *) (* *) (* Audit Security Relevant Event *) (* *) (* $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* flags = input flags longword *) (* *) (* itmlst = address of list of item descriptors *) (* *) (* audsts = address of longword to receive final completion status *) (* *) (* astadr = address of AST completion routine *) (* *) (* astprm = unsigned longword to be passed to AST routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$AUDIT_EVENT)] FUNCTION $AUDIT_EVENT ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR AUDSTS : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$AUDIT_EVENTW)] FUNCTION $AUDIT_EVENTW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR AUDSTS : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $BINTIM *) (* *) (* Convert ASCII String to Binary Time *) (* *) (* $BINTIM timbuf ,timadr *) (* *) (* timbuf = address of string descriptor for ASCII time string *) (* timadr = address of quadword to receive 64-bit binary time *) (* value *) (* *) (* Absolute time strings are specified in the format: *) (* dd-mmm-yyyy hh:mm:ss.cc *) (* Delta time strings are specified in the format: *) (* dddd hh:mm:ss.cc *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$BINTIM)] FUNCTION $BINTIM ( TIMBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR TIMADR : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* *) (* $BINUTC *) (* *) (* Convert ASCII UTC time to a binary format *) (* *) (* $BINUTC timbuf, utcadr *) (* *) (* timbuf = Buffer that holds the ASCII time to be converted. *) (* The timbuf argument specifies the address of a *) (* character string descriptor pointing to the VMS *) (* time string. The VMS time string specifies the *) (* 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. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$BINUTC)] FUNCTION $BINUTC ( TIMBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR UTCADR : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; (* *) (* $BRDCST *) (* *) (* Broadcast *) (* *) (* $BRDCST msgbuf ,[devnam] *) (* *) (* msgbuf = address of message buffer string descriptor *) (* devnam = terminal device name string descriptor. If 0, send *) (* message to all terminals. If first word in *) (* descriptor is 0, send message to all allocated *) (* terminals. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$BRDCST)] FUNCTION $BRDCST ( MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED CARCON : UNSIGNED := %IMMED 32) : INTEGER; EXTERNAL; (* $BRKTHRU *) (* *) (* Write to terminal breakthru *) (* *) (* $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb], *) (* ($BRKTHRUW) [carcon], [flags], [reqid], [timout], *) (* [astadr], [astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* msgbuf = address of message buffer descriptor *) (* *) (* 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 *) (* *) (* reqid = broadcast class requestor id *) (* *) (* timout = address of timeout value *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as an argument *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$BRKTHRU)] FUNCTION $BRKTHRU ( %IMMED EFN : UNSIGNED := %IMMED 0; MSGBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; SENDTO : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED SNDTYP : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED CARCON : UNSIGNED := %IMMED 32; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REQID : UNSIGNED := %IMMED 0; %IMMED TIMOUT : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$BRKTHRUW)] FUNCTION $BRKTHRUW ( %IMMED EFN : UNSIGNED := %IMMED 0; MSGBUF : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; SENDTO : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED SNDTYP : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED CARCON : UNSIGNED := %IMMED 32; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REQID : UNSIGNED := %IMMED 0; %IMMED TIMOUT : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CANCEL *) (* *) (* Cancel I/O on Channel *) (* *) (* $CANCEL chan *) (* *) (* chan = number of the channel on which I/O is to be canceled *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANCEL)] FUNCTION $CANCEL ( %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; (* *) (* $CANCEL_SELECTIVE *) (* *) (* Selective Cancel I/O on Channel *) (* *) (* $CANCEL_SELECTIVE chan, [iosblst], [lenlst] *) (* *) (* chan = number of the channel on which I/O is to be canceled *) (* iosblst = address of a vector of IOSB pointers *) (* lenlst = number of entries in the vector pointed by iosblst *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANCEL_SELECTIVE)] FUNCTION $CANCEL_SELECTIVE ( %IMMED CHAN : INTEGER; %REF IOSBLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; %IMMED LENLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CANEVTAST *) (* *) (* Cancel an Event AST Routine *) (* *) (* $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] *) (* ,[evtid] *) (* *) (* evtnam = address of descriptor of event name *) (* *) (* evtadr = address of entry mask of event AST routine *) (* *) (* evtfac = address of event facility code *) (* *) (* acmode = access mode of event declaration *) (* *) (* flags = address of optional flags *) (* *) (* reqid = user provided identification of this request *) (* *) (* evtid = unique identification of this request *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANEVTAST)] FUNCTION $CANEVTAST ( EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR := %IMMED 0; EVTFAC : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0; %IMMED REQID : UNSIGNED := %IMMED 0; %IMMED EVTID : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CANEXH *) (* *) (* Cancel Exit Handler *) (* *) (* $CANEXH [desblk] *) (* *) (* desblk = address of exit control block describing exit handler *) (* to be deleted. If 0, delete all. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANEXH)] FUNCTION $CANEXH ( %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CANTIM *) (* *) (* Cancel Timer Request *) (* *) (* $CANTIM [reqidt] ,[acmode] *) (* *) (* reqidt = request identification for request to be canceled. *) (* If 0, all requests canceled. *) (* acmode = access mode of requests to be canceled *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANTIM)] FUNCTION $CANTIM ( %IMMED REQIDT : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CANWAK *) (* *) (* Cancel Wakeup *) (* *) (* $CANWAK [pidadr] ,[prcnam] *) (* *) (* pidadr = address of process identification of process for *) (* which wakeups are to be canceled *) (* prcnam = address of process name string descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANWAK)] FUNCTION $CANWAK ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $CHANGE_ACL *) (* *) (* Set or modify an object's ACL *) (* *) (* $CHANGE_ACL [chan], objtyp, [objnam], *) (* itmlst, [acmode], [iosb], *) (* [contxt] , [routin], [orbadr] *) (* *) (* chan = number of a channel 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 *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* acmode = address of a byte containing the access mode in *) (* which the arguments will be validated *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* contxt = address of a context long word (used for iterative *) (* calls or a multi-entry item list) *) (* *) (* routin = address of routine to be executed in kernel mode *) (* (obsolete) *) (* *) (* orbadr = address of a user supplied ORB *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHANGE_ACL)] FUNCTION $CHANGE_ACL ( %IMMED CHAN : INTEGER := %IMMED 0; OBJTYP : UNSIGNED; OBJNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; ACMODE : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0; ORBADR : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CHANGE_CLASS objtyp, [objnam], itmlst *) (* [acmode], [orbadr] *) (* *) (* Modify an objects access class *) (* *) (* objtyp = address of an object type code *) (* *) (* objnam = address of an object name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* acmode = address of a byte containing the access mode in *) (* which the arguments will be validated *) (* *) (* orbadr = address of routine to be executed in kernel mode *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHANGE_CLASS)] FUNCTION $CHANGE_CLASS ( OBJTYP : UNSIGNED; OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; %IMMED ACMODE : UNSIGNED := %IMMED 0; ORBADR : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CHECK_ACCESS *) (* *) (* $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt], *) (* [clsnam], [objpro], [usrpro] *) (* *) (* Check User Access to an Object *) (* *) (* objtyp = address of an object type code *) (* *) (* objnam = address of an object name descriptor *) (* *) (* usrnam = address of a user name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* contxt = address of longword for UAI context *) (* *) (* clsnam = address of object class name descriptor *) (* *) (* objpro = address of object profile descriptor(ORB TLV or channel) *) (* *) (* usrpro = address of user profile descriptor (ARB TLV) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHECK_ACCESS)] FUNCTION $CHECK_ACCESS ( OBJTYP : UNSIGNED := %IMMED 0; OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; CLSNAM : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; OBJPRO : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; USRPRO : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $CHECK_FEN *) (* *) (* Check if floating point enabled for current image *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHECK_FEN)] FUNCTION $CHECK_FEN ( VAR RETMASK : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CHECK_PRIVILEGE[W] *) (* *) (* Check for process privilege and perform security audit. *) (* *) (* $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] *) (* *) (* efn = event flag to set on asynchronous service completion *) (* prvadr = address of quadword privilege mask or longword identifier *) (* altprv = address of quadword privilege mask to check against *) (* flags = control flags *) (* itmlst = address of a list of item descriptors *) (* audsts = longword to receive final completion status *) (* astadr = address of AST routine to call on service completion *) (* astprm = longword to pass to AST routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHECK_PRIVILEGE)] FUNCTION $CHECK_PRIVILEGE ( %IMMED EFN : UNSIGNED := %IMMED 0; PRVADR : UNSIGNED; ALTPRV : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; VAR AUDSTS : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$CHECK_PRIVILEGEW)] FUNCTION $CHECK_PRIVILEGEW ( %IMMED EFN : UNSIGNED := %IMMED 0; PRVADR : UNSIGNED; ALTPRV : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; VAR AUDSTS : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CHKPRO *) (* *) (* Check Access Protection *) (* *) (* $CHKPRO itmlst, [objpro], [usrpro] *) (* *) (* itmlst = address of a list of item descriptors *) (* objpro = address of object handle descriptor (ORB TLV) *) (* usrpro = address of user handle descriptor (ARB TLV) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CHKPRO)] FUNCTION $CHKPRO ( %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED OBJPRO : UNSIGNED := %IMMED 0; %IMMED USRPRO : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CLEAR_SYSTEM_EVENT *) (* *) (* Clear System Event Notification *) (* *) (* $CLEAR_SYSTEM_EVENT [handle], [acmode], [event] *) (* *) (* handle = address of handle *) (* *) (* acmode = access mode of AST *) (* *) (* event = code indicating type of event *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CLEAR_SYSTEM_EVENT)] FUNCTION $CLEAR_SYSTEM_EVENT ( HANDLE : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED EVENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CLEAR_UNWIND_TABLE *) (* *) (* Clears unwind table (UT) information. *) (* *) (* $CLEAR_UNWIND_TABLE code_base_va *) (* *) (* code_base_va = process virtual address of the start of a registered code region *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CLEAR_UNWIND_TABLE)] FUNCTION $CLEAR_UNWIND_TABLE ( %IMMED CODE_BASE_VA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $CLRCLUEVT *) (* *) (* Clear Cluster Event Notification *) (* *) (* $CLRCLUEVT [handle], [acmode], [event] *) (* *) (* handle = address of handle *) (* *) (* acmode = access mode of AST *) (* *) (* event = code indicating type of event *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CLRCLUEVT)] FUNCTION $CLRCLUEVT ( HANDLE : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED EVENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CLREF *) (* *) (* Clear Event Flag *) (* *) (* $CLREF efn *) (* *) (* efn = number of event flag to be cleared *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CLREF)] FUNCTION $CLREF ( %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $CLOSE *) (* *) (* Close File *) (* *) (* $CLOSE fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CLOSE)] FUNCTION $CLOSE ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CMEXEC *) (* *) (* Change to Executive Mode *) (* *) (* $CMEXEC routin ,[arglst] *) (* *) (* routin = address of the routine to be executed in executive *) (* mode *) (* arglst = address of argument list to be supplied to the *) (* routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CMEXEC)] FUNCTION $CMEXEC ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN; %REF ARGLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CMEXEC_64 *) (* *) (* Change to Executive Mode with Quadword Argument List *) (* *) (* $CMEXEC_64 routin_64 ,[arglst_64] *) (* *) (* routin_64 = address of the routine to be executed in executive *) (* mode *) (* arglst_64 = address of quadword argument list to be supplied to the *) (* routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CMEXEC_64)] FUNCTION $CMEXEC_64 ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN_64; VAR ARGLST_64 : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $CMKRNL *) (* *) (* Change to Kernel Mode *) (* *) (* $CMKRNL routin ,[arglst] *) (* *) (* routin = address of routine to be executed in kernel mode *) (* *) (* arglst = address of argument list to be supplied to routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CMKRNL)] FUNCTION $CMKRNL ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN; %REF ARGLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $CMKRNL_64 *) (* *) (* Change to Kernel Mode with Quadword Argument List *) (* *) (* $CMKRNL_64 routin_64 ,[arglst_64] *) (* *) (* routin_64 = address of routine to be executed in kernel mode *) (* *) (* arglst_64 = address of quadword argument list to be supplied to routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CMKRNL_64)] FUNCTION $CMKRNL_64 ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN_64; ARGLST_64 : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CONNECT *) (* *) (* Connect File *) (* *) (* $CONNECT rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CONNECT)] FUNCTION $CONNECT ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $CNTREG *) (* *) (* Contract Program/Control Region *) (* *) (* $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] *) (* *) (* pagcnt = number of pages to be deleted from end of region *) (* *) (* retadr = address of 2-longword array to receive virtual *) (* addresses of starting and ending page of deleted area *) (* *) (* acmode = access mode for which service is performed *) (* *) (* region = region indicator *) (* 0 -> program (P0) region 1 -> control (P1) region *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CNTREG)] FUNCTION $CNTREG ( %IMMED PAGCNT : UNSIGNED; VAR RETADR : [VOLATILE] STARLET$$TYP1 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED REGION : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CPU_CAPABILITIES *) (* *) (* Modify CPU user capabilities *) (* *) (* $CPU_CAPABILITIES cpu_id,[select_mask],[modify_mask],[prev_mask],[flags] *) (* *) (* cpu_id = CPUID number of processor to be affected by changes *) (* select_mask = address of bitmask indicating which capabilities *) (* are to be involved in the specified operation *) (* modify_mask = address of bitmask indicating final state *) (* of those capabilities specified in select_mask *) (* prev_mask = address of user quadword that will hold the *) (* previous states of the individual capabilities *) (* flags = address of behavioral flags for this operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CPU_CAPABILITIES)] FUNCTION $CPU_CAPABILITIES ( %IMMED CPU_ID : INTEGER := %IMMED 0; SELECT_MASK : $UQUAD := %IMMED 0; MODIFY_MASK : $UQUAD := %IMMED 0; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CPU_TRANSITION *) (* $CPU_TRANSITIONW *) (* *) (* CPU State Transitions *) (* *) (* $CPU_TRANSITION tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm *) (* $CPU_TRANSITIONW tran_code,cpu_id,[node_id],flags,efn,iosb,astadr,astprm *) (* Inputs: tran_code - Transition code of operation to be initiated *) (* cpu_id - CPU ID of processor to affected *) (* nodename - ASCII descriptor name equivalent to node ID *) (* node_id - Galactic node ID *) (* flags - Quadword pointer to longword behavioral flags *) (* efn - Event flag number for completion notification *) (* iosb - IOSB block address for completion notification *) (* astadr - Address of AST routine name on completion *) (* astprm - AST parameter to be passed back on completion *) (* timout - Timeout count in seconds *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CPU_TRANSITION)] FUNCTION $CPU_TRANSITION ( %IMMED TRAN_CODE : INTEGER := %IMMED 0; %IMMED CPU_ID : INTEGER := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED NODE_ID : INTEGER := %IMMED -1; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED TIMOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$CPU_TRANSITIONW)] FUNCTION $CPU_TRANSITIONW ( %IMMED TRAN_CODE : INTEGER := %IMMED 0; %IMMED CPU_ID : INTEGER := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED NODE_ID : INTEGER := %IMMED -1; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED TIMOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CREATE *) (* *) (* Create File *) (* *) (* $CREATE fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE)] FUNCTION $CREATE ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CREATE_MAPPING *) (* *) (* Create Mapping record database *) (* *) (* $CREATE_MAPPING *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_MAPPING)] FUNCTION $CREATE_MAPPING : INTEGER; EXTERNAL; (* *) (* $CREATE_PROXY *) (* *) (* Create proxy database *) (* *) (* $CREATE_PROXY *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_PROXY)] FUNCTION $CREATE_PROXY : INTEGER; EXTERNAL; (* *) (* $CREATE_UID *) (* *) (* Create a Universal Identifier *) (* *) (* $CREATE_UID UID *) (* *) (* UID = address of the 16 byte buffer to receive the UID. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_UID)] FUNCTION $CREATE_UID ( VAR UID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; (* $CREATE_BUFOBJ *) (* *) (* Create I/O Buffer Object *) (* *) (* $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle *) (* *) (* inadr = address of 2-longword array containing starting and ending *) (* virtual addresses of existing VA to include in buffer object *) (* *) (* retadr = address of 2-longword array to receive addresses *) (* actually included in the buffer object *) (* *) (* acmode = access mode of owner of buffer object *) (* *) (* flags = request option flags *) (* *) (* Bit Meaning (if set) *) (* *) (* 0 Return system virtual address of buffer object in RETADR *) (* (Caller must be in kernel mode) *) (* *) (* buffer_handle = address of a quadword to receive the buffer handle *) (* that identifies the created buffer object *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BUFOBJ)] FUNCTION $CREATE_BUFOBJ ( INADR : STARLET$$TYP2 := %IMMED 0; VAR RETADR : [VOLATILE] STARLET$$TYP3 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR BUFFER_HANDLE : [VOLATILE] STARLET$$TYP4 := %IMMED 0) : INTEGER; EXTERNAL; (* $CREATE_BUFOBJ_64 *) (* *) (* Create I/O Buffer Object *) (* *) (* $CREATE_BUFOBJ_64 start_va_64, length_64, acmode, flags, return_va_64, return_length_64, *) (* buffer_handle_64 *) (* *) (* start_va_64 = Starting address of existing address to include in buffer object *) (* *) (* length_64 = Byte length of addresses to include in buffer object *) (* *) (* acmode = access mode of owner of buffer object *) (* *) (* flags = request option flags *) (* *) (* Flag Meaning (if specified) *) (* *) (* CBO_M_RETSVA Return system virtual address of buffer object in return_va_64 *) (* (Caller must be in kernel mode) *) (* 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 *) (* *) (* buffer_handle_64 = address of a quadword to receive the buffer handle *) (* that identifies the created buffer object *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BUFOBJ_64)] FUNCTION $CREATE_BUFOBJ_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; VAR BUFFER_HANDLE_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $CREATE_GFILE *) (* *) (* 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] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* file_offset_64 = Byte offset into file to start section *) (* *) (* length_64 = Byte length of section to create *) (* *) (* chan = Number of channel on which file is accessed *) (* *) (* acmode = Access mode for section *) (* *) (* flags = Section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_CRF Copy-on-reference section *) (* SEC$M_SYSGBL System global section *) (* SEC$M_WRT Read/write section *) (* *) (* return_length_64 = Length of section created *) (* *) (* fault_cluster = Page fault cluster size in bytes *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GFILE)] FUNCTION $CREATE_GFILE ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0; %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED FAULT_CLUSTER : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CREATE_GDZRO *) (* *) (* Create Permanent Global Demand Zero Section *) (* *) (* $CREATE_GDZRO gsdnam_64, ident_64, prot, length_64, acmode, flags[[, reserved_length], rad_mask] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* length_64 = Byte length of section to create *) (* *) (* acmode = Access mode for section *) (* *) (* flags = Section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_SYSGBL System global section *) (* *) (* SEC$M_RAD_HINT Use rad_mask argument as a hint of which RADs to allocate memory from *) (* *) (* 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 *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GDZRO)] FUNCTION $CREATE_GDZRO ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RESERVED_LENGTH_64 : [VOLATILE] $UQUAD := %IMMED 0; RAD_MASK : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $CREATE_GPFILE *) (* *) (* Create Permanent Global Page File Section *) (* *) (* $CREATE_GPFILE gsdnam_64, ident_64, prot, length_64, acmode, flags *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* length_64 = Byte length of section to create *) (* *) (* acmode = Access mode for section *) (* *) (* flags = Section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_SYSGBL System global section *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GPFILE)] FUNCTION $CREATE_GPFILE ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CREATE_GPFN *) (* *) (* Create Permanent Global Page Frame Section *) (* *) (* $CREATE_GPFN gsdnam_64, ident_64, prot, start_pfn, page_count, acmode, flags *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* start_pfn = Page frame number of first page in section *) (* *) (* page_count = Number of page frames in section *) (* *) (* acmode = Access mode for section *) (* *) (* flags = Section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_ARGS64 All arguments are passed as 64-bits *) (* SEC$M_SYSGBL System global section *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GPFN)] FUNCTION $CREATE_GPFN ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CREATE_RDB *) (* *) (* Create The Rights Database *) (* *) (* $CREATE_RDB [sysid] *) (* *) (* sysid = address of the quadword system identifier *) (* to store in the maintenance record *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_RDB)] FUNCTION $CREATE_RDB ( SYSID : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $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] *) (* *) (* length_64 = Byte length of region to create *) (* *) (* region_prot = Protection on region *) (* *) (* flags = Region characteristics *) (* *) (* return_region_id_64 = Region id associated with newly created region *) (* *) (* return_va_64 = Starting address of region created *) (* *) (* return_length_64 = Length of region created *) (* *) (* start_va_64 = Starting address to create region *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_REGION_64)] FUNCTION $CREATE_REGION_64 ( %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED REGION_PROT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_REGION_ID : [VOLATILE] $UQUAD; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $CREATE_USER_PROFILE *) (* *) (* Create a user security profile. *) (* *) (* $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] *) (* *) (* usrnam = address of username descriptor (optional with CHP$M_NOACCESS) *) (* itmlst = address of item list *) (* flags = flags longword *) (* usrpro = address of buffer to receive user profile (opaque byte string) *) (* usrprolen = address of longword to receive user profile length *) (* contxt = address of longword to receive UAI context *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_USER_PROFILE)] FUNCTION $CREATE_USER_PROFILE ( USRNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF USRPRO : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR USRPROLEN : [VOLATILE] UNSIGNED; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRELNM *) (* *) (* Create Logical Name *) (* *) (* $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] *) (* *) (* attr = address of logical name attributes *) (* *) (* Attribute Meaning *) (* LNM$M_CONFINE Logical name not to be copied into sub-process *) (* LNM$M_NO_ALIAS Logical name can not be aliased *) (* LNM$M_CRELOG Logical name created using $CRELOG *) (* *) (* tabnam = address of logical name table string descriptor *) (* *) (* lognam = address of logical name string descriptor *) (* *) (* acmode = address of access mode for logical name *) (* *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRELNM)] FUNCTION $CRELNM ( ATTR : UNSIGNED := %IMMED 0; TABNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; LOGNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $CRELNT *) (* *) (* Create Logical Name Table *) (* *) (* $CRELNT [attr], [resnam], [reslen], [quota], *) (* [promsk], [tabnam], [acmode], [partab], [uic] *) (* *) (* attr = address of logical name table attributes *) (* *) (* resnam = address of descriptor of a buffer to receive the *) (* created table's name *) (* *) (* reslen = address of word to recieve length of created table's *) (* name *) (* *) (* quota = address of quota associated with logical name table *) (* *) (* promsk = address of protection mask *) (* *) (* tabnam = address of descriptor of logical name table name to be created *) (* *) (* partab = address of name of table parent string descriptor *) (* *) (* acmode = address of access mode for logical name *) (* *) (* uic = owner of table created in response to remote request *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRELNT)] FUNCTION $CRELNT ( ATTR : UNSIGNED := %IMMED 0; VAR RESNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; VAR RESLEN : [VOLATILE] $UWORD := %IMMED 0; QUOTA : UNSIGNED := %IMMED 0; PROMSK : $UWORD := %IMMED 0; TABNAM : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; PARTAB : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0; UIC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRELOG *) (* *) (* Create Logical Name *) (* *) (* $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] *) (* *) (* tblflg = logical name table number *) (* 0 -> system (default) 1 -> group 2 -> process *) (* *) (* lognam = address of logical name string descriptor *) (* *) (* eqlnam = address of equivalence name string descriptor *) (* *) (* acmode = access mode for logical name (process table only) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRELOG)] FUNCTION $CRELOG ( %IMMED TBLFLG : UNSIGNED := %IMMED 0; LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; EQLNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CREMBX *) (* *) (* Create Mailbox and Assign Channel *) (* *) (* $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] *) (* *) (* prmflg = permanent flag *) (* 0 -> temporary (default) 1 -> permanent *) (* *) (* chan = address of word to receive channel *) (* *) (* maxmsg = maximum message size that may be received *) (* *) (* bufquo = number of bytes that can be used to buffer messages *) (* *) (* promsk = protection mask *) (* *) (* acmode = access mode of created mailbox *) (* *) (* lognam = address of logical name string descriptor for mailbox *) (* *) (* flags = optional flags for mailbox creation and channel assignment *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREMBX)] FUNCTION $CREMBX ( %IMMED PRMFLG : INTEGER := %IMMED 0; VAR CHAN : [VOLATILE] $UWORD; %IMMED MAXMSG : UNSIGNED := %IMMED 0; %IMMED BUFQUO : UNSIGNED := %IMMED 0; %IMMED PROMSK : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; LOGNAM : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CREPRC *) (* *) (* Create Process *) (* *) (* $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr] *) (* ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] *) (* ,[node], [home_rad]. [lt_limit] *) (* *) (* 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 *) (* *) (* prvadr = address of quadword privilege list *) (* *) (* quota = address of quota list *) (* *) (* prcnam = address of string descriptor for process name *) (* *) (* baspri = base priority (0-31) *) (* *) (* uic = user identification code. If 0, create a subprocess *) (* *) (* 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 swapping *) (* 3 disable accounting messages *) (* 4 batch process *) (* 5 cause created process to hibernate *) (* 6 allow login without authorization file check *) (* 7 process is a network connect object *) (* 22 start process on specified home rad *) (* 26 set kernel thread limit for the process *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* node = address of string descriptor for SCS node name *) (* *) (* home_rad = RAD to start process on, if bit 22 in stsflg is set *) (* *) (* kt_limit = kernel thread limit of the process, if bit 26 in stsflg is set *) [ASYNCHRONOUS,EXTERNAL(SYS$CREPRC)] FUNCTION $CREPRC ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; IMAGE : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; INPUT : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; OUTPUT : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; ERROR : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; PRVADR : $UQUAD := %IMMED 0; %REF QUOTA : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; %IMMED BASPRI : UNSIGNED := %IMMED 2; %IMMED UIC : UNSIGNED := %IMMED 0; %IMMED MBXUNT : INTEGER := %IMMED 0; %IMMED STSFLG : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l13..$u13:INTEGER] OF $UBYTE := %IMMED 0; NODE : [CLASS_S] PACKED ARRAY [$l14..$u14:INTEGER] OF CHAR := %IMMED 0; %IMMED HOME_RAD : UNSIGNED := %IMMED 0; %IMMED KT_LIMIT : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $CRETVA *) (* *) (* Create Virtual Address Space *) (* *) (* $CRETVA inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual address of pages to be created *) (* *) (* retadr = address of a 2-longword array to receive starting and *) (* ending virtual address of pages actually created *) (* *) (* acmode = access mode for the new pages (protection is *) (* read/write for acmode and more privileged modes) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRETVA)] FUNCTION $CRETVA ( INADR : STARLET$$TYP5; VAR RETADR : [VOLATILE] STARLET$$TYP6 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRETVA_64 *) (* *) (* Create Virtual Address Space *) (* *) (* $CRETVA_64 region_id_64, start_va_64, length_64, acmode, flags, return_va_64, return_length_64 *) (* [, page_prot] *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* start_va_64 = Starting address of address space to create *) (* *) (* length_64 = Byte length of addresses to create *) (* *) (* acmode = access mode for the new pages (protection is *) (* 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 *) (* *) (* page_prot = desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRETVA_64)] FUNCTION $CRETVA_64 ( REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC *) (* *) (* Create and Map Section *) (* *) (* $CRMPSC [inadr] ,[retadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident] *) (* ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of space to map section *) (* *) (* retadr = address of 2-longword array to receive addresses *) (* actually mapped *) (* *) (* acmode = access mode of owner of pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_GBL Global section *) (* SEC$M_CRF Copy-on-reference section *) (* SEC$M_DZRO Demand zero pages *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_PERM Permanent section *) (* SEC$M_PFNMAP Physical page frame section *) (* SEC$M_SYSGBL System global section *) (* SEC$M_WRT Read/write section *) (* *) (* gsdnam = address of global section name string descriptor *) (* *) (* ident = address of quadword containing version id and match control *) (* *) (* relpag = relative page number within section *) (* *) (* chan = number of channel on which file is accessed *) (* *) (* pagcnt = number of pages in section *) (* *) (* vbn = virtual block number of beginning of section or *) (* physical page frame number of beginning of section *) (* *) (* prot = protection mask *) (* *) (* pfc = page fault cluster size *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC)] FUNCTION $CRMPSC ( INADR : STARLET$$TYP7 := %IMMED 0; VAR RETADR : [VOLATILE] STARLET$$TYP8 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; GSDNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; IDENT : $UQUAD := %IMMED 0; %IMMED RELPAG : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; %IMMED PAGCNT : UNSIGNED := %IMMED 0; %IMMED VBN : UNSIGNED := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED PFC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_FILE_64 *) (* *) (* Create and Map Private Disk File Section *) (* *) (* $CRMPSC_FILE_64 region_id_64, file_offset_64, length_64, chan, acmode, flags, *) (* return_va_64, return_length_64 *) (* [, fault_cluster[, start_va_64[, page_prot]]] *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* file_offset_64 = Byte offset into file to start section *) (* *) (* length_64 = Byte length of addresses to create *) (* *) (* chan = number of channel on which file is accessed *) (* *) (* acmode = access mode for the new pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_CRF Copy-on-reference section *) (* SEC$M_DZRO Demand zero pages *) (* 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 *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_FILE_64)] FUNCTION $CRMPSC_FILE_64 ( REGION_ID_64 : $UQUAD; %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0; %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED FAULT_CLUSTER : UNSIGNED := %IMMED 0; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_GFILE_64 *) (* *) (* Create and Map Global Disk File Section *) (* *) (* $CRMPSC_GFILE_64 gsdnam_64, ident_64, file_offset_64, length_64, chan, region_id_64, *) (* section_offset_64, acmode, flags, return_va_64, return_length_64 *) (* [, fault_cluster[, start_va_64[, map_length_64[, page_prot]]]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* file_offset_64 = Byte offset into file to start section *) (* *) (* length_64 = Byte length of section to create *) (* *) (* chan = number of channel on which file is accessed *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* section_offset_64 = Relative byte within global section to start mapping *) (* *) (* acmode = access mode for the new pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_CRF Copy-on-reference section *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* SEC$M_PERM Permanent section *) (* SEC$M_SYSGBL System global section *) (* SEC$M_WRT Read/write section *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GFILE_64)] FUNCTION $CRMPSC_GFILE_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED FILE_OFFSET_64 : INTEGER := %IMMED 0; %IMMED LENGTH_64 : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER; REGION_ID_64 : $UQUAD; %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED FAULT_CLUSTER : UNSIGNED := %IMMED 0; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_GDZRO_64 *) (* *) (* Create and Map Global Demand Zero Section *) (* *) (* $CRMPSC_GDZRO_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, *) (* acmode, flags, return_va_64, return_length_64 *) (* [, start_va_64[, map_length_64[, reserved_length_64[, rad_mask[, page_prot]]]]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* length_64 = Byte length of section to create *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* section_offset_64 = Relative byte within global section to start mapping *) (* *) (* acmode = access mode for the new pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* SEC$M_PERM Permanent section *) (* SEC$M_SYSGBL System global section *) (* SEC$M_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 *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GDZRO_64)] FUNCTION $CRMPSC_GDZRO_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER := %IMMED 0; REGION_ID_64 : $UQUAD; %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0; VAR RESERVED_LENGTH_64 : [VOLATILE] $UQUAD := %IMMED 0; RAD_MASK : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_GPFILE_64 *) (* *) (* Create and Map Global Page File Section *) (* *) (* $CRMPSC_GPFILE_64 gsdnam_64, ident_64, prot, length_64, region_id_64, section_offset_64, *) (* acmode, flags, return_va_64, return_length_64 *) (* [, start_va_64[, map_length_64[, page_prot]]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* length_64 = Byte length of section to create *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* section_offset_64 = Relative byte within global section to start mapping *) (* *) (* acmode = access mode for the new pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* SEC$M_PERM Permanent section *) (* SEC$M_SYSGBL System global section *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GPFILE_64)] FUNCTION $CRMPSC_GPFILE_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED LENGTH_64 : INTEGER := %IMMED 0; REGION_ID_64 : $UQUAD; %IMMED SECTION_OFFSET_64 : INTEGER := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED MAP_LENGTH_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_GPFN_64 *) (* *) (* Create and Map Global Page Frame Section *) (* *) (* $CRMPSC_GPFN_64 gsdnam_64, ident_64, prot, start_pfn, page_count, region_id_64, relative_page, *) (* acmode, flags, return_va_64, return_length_64 *) (* [, start_va_64[, map_page_count[, page_prot]]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* prot = Protection mask *) (* *) (* start_pfn = Page frame number of first page in section *) (* *) (* page_count = Number of page frames in section *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* relative_page = Relative page within global section to start mapping *) (* *) (* acmode = Access mode of owner of mapped pages *) (* *) (* flags = Flags overriding default section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_ARGS64 All arguments are passed as 64-bits *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* 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 *) (* *) (* map_page_count = Number of page frames to map *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_GPFN_64)] FUNCTION $CRMPSC_GPFN_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0; %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER; REGION_ID_64 : $UQUAD; %IMMED RELATIVE_PAGE : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED MAP_PAGE_COUNT : INTEGER := %IMMED 0; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $CRMPSC_PFN_64 *) (* *) (* Create and Map Private Page Frame Section *) (* *) (* $CRMPSC_PFN_64 region_id_64, start_pfn, page_count, acmode, flags, *) (* return_va_64, return_length_64 *) (* [, start_va_64[, page_prot]] *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* start_pfn = Page frame number of first page in section *) (* *) (* page_count = Number of page frames in section *) (* *) (* acmode = access mode for the new pages *) (* *) (* flags = section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_ARGS64 All arguments are passed as 64-bits *) (* SEC$M_EXPREG Find first available space *) (* 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 *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CRMPSC_PFN_64)] FUNCTION $CRMPSC_PFN_64 ( REGION_ID_64 : $UQUAD; %IMMED START_PFN : INTEGER; %IMMED PAGE_COUNT : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DACEFC *) (* *) (* Disassociate Common Event Flag Cluster *) (* *) (* $DACEFC efn *) (* *) (* efn = number of any event flag in the cluster *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DACEFC)] FUNCTION $DACEFC ( %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; (* $DALLOC *) (* *) (* Deallocate Device *) (* *) (* $DALLOC [devnam] ,[acmode] *) (* *) (* devnam = address of device name descriptor. If 0, deallocate all *) (* *) (* acmode = access mode associated with device *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DALLOC)] FUNCTION $DALLOC ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DASSGN *) (* *) (* Deassign I/O Channel *) (* *) (* $DASSGN chan *) (* *) (* chan = number of channel to be deassigned *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DASSGN)] FUNCTION $DASSGN ( %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; (* $DCLAST *) (* *) (* Declare AST *) (* *) (* $DCLAST astadr ,[astprm] ,[acmode] *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* acmode = access mode for which the AST is to be declared *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DCLAST)] FUNCTION $DCLAST ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DCLCMH *) (* *) (* Declare Change Mode or Compatibility Mode Handler *) (* *) (* $DCLCMH addres ,[prvhnd] ,[type] *) (* *) (* addres = address of handler *) (* *) (* prvhnd = address of longword to receive previous handler address *) (* *) (* type = handler type indicator *) (* 0 -> change mode (current mode) 1 -> compatibility mode *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DCLCMH)] FUNCTION $DCLCMH ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ADDRES; VAR PRVHND : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED TYPE_ : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $DCLEVT *) (* *) (* Declare an Event *) (* *) (* $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags] *) (* ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] *) (* *) (* evtnam = address of descriptor of event name *) (* *) (* rcvacl = address of descriptor of ACL *) (* *) (* evtfac = address of event facility code *) (* *) (* acmode = access mode of event declaration *) (* *) (* flags = optional flags *) (* *) (* evtdata = address of descriptor of optional event data *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DCLEVT)] FUNCTION $DCLEVT ( EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; RCVACL : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; EVTFAC : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; EVTDATA : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; %IMMED NULLARG1 : UNSIGNED := %IMMED 0; %IMMED NULLARG2 : UNSIGNED := %IMMED 0; %IMMED NULLARG3 : UNSIGNED := %IMMED 0; %IMMED NULLARG4 : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $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 | *) (* +-------------------------------+ *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DCLEXH)] FUNCTION $DCLEXH ( %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $DEFINE_MAPPING *) (* *) (* Define Mapping record types in the Mapping database *) (* *) (* $DEFINE_MAPPING initmlst [,outitmlst] *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* outitmlst = address of a list of item descriptors for information *) (* from the operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DEFINE_MAPPING)] FUNCTION $DEFINE_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DELETE *) (* *) (* Delete Record *) (* *) (* $DELETE rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE)] FUNCTION $DELETE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DELETE_BITMAP *) (* *) (* Delete a Write Bitmap *) (* *) (* $DELETE_BITMAP handle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_BITMAP)] FUNCTION $DELETE_BITMAP ( %IMMED HANDLE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DELETE_INTRUSION *) (* *) (* Delete intrusion record *) (* *) (* $DELETE_INTRUSION user_criteria, [flags] *) (* *) (* user_criteria in address of user criteria descriptor *) (* flags in intrusion service flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_INTRUSION)] FUNCTION $DELETE_INTRUSION ( USER_CRITERIA : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DELETE_MAPPING *) (* *) (* Delete Mapping record from Mapping database *) (* *) (* $DELETE_MAPPING initmlst *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_MAPPING)] FUNCTION $DELETE_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $DELETE_PROXY *) (* *) (* Delete proxy record *) (* *) (* $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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_PROXY)] FUNCTION $DELETE_PROXY ( REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; LOCAL_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DELLNM *) (* *) (* Delete Logical Name and/or Table *) (* *) (* $DELLNM [tabnam], [lognam], [acmode] *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELLNM)] FUNCTION $DELLNM ( TABNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; ACMODE : $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $DELLOG *) (* *) (* Delete Logical Name *) (* *) (* $DELLOG [tblflg] ,[lognam] ,[acmode] *) (* *) (* tblflg = logical name table number *) (* 0 -> system 1 -> group 2 -> process *) (* *) (* lognam = address of logical name string descriptor. If 0, *) (* delete all names *) (* *) (* acmode = access mode of logical name (process table only) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELLOG)] FUNCTION $DELLOG ( %IMMED TBLFLG : UNSIGNED := %IMMED 0; LOGNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DELMBX *) (* *) (* Delete Mailbox *) (* *) (* $DELMBX chan *) (* *) (* chan = channel number assigned to the mailbox *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELMBX)] FUNCTION $DELMBX ( %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; (* $DELPRC *) (* *) (* Delete Process *) (* *) (* $DELPRC [pidadr] ,[prcnam] ,[flags] *) (* *) (* pidadr = address of longword containing id of process to be deleted *) (* *) (* prcnam = address of string descriptor for process name to be deleted *) (* *) (* flags = optional flags longword for specifying options *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELPRC)] FUNCTION $DELPRC ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DELTVA *) (* *) (* Delete Virtual Address Space *) (* *) (* $DELTVA inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to delete *) (* *) (* retadr = address of 2-longword array to receive starting and *) (* ending addresses of pages actually deleted *) (* *) (* acmode = access mode for which service is performed *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELTVA)] FUNCTION $DELTVA ( INADR : STARLET$$TYP9; VAR RETADR : [VOLATILE] STARLET$$TYP10 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DELTVA_64 *) (* *) (* Delete Virtual Address Space *) (* *) (* $DELTVA_64 region_id_64, start_va_64, length_64, acmode, return_va_64, return_length_64 *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* start_va_64 = Starting address of address space to delete *) (* *) (* length_64 = Byte length of addresses to delete *) (* *) (* acmode = access mode for which service is performed *) (* *) (* return_va_64 = Address of address space deleted *) (* *) (* return_length_64 = Length of address space deleted *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELTVA_64)] FUNCTION $DELTVA_64 ( REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $DELETE_BUFOBJ *) (* *) (* Delete I/O Buffer Object *) (* *) (* $DELETE_BUFOBJ buffer_handle *) (* *) (* buffer_handle = address of a quadword that contains the buffer handle *) (* identifying the buffer object to be deleted *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_BUFOBJ)] FUNCTION $DELETE_BUFOBJ ( BUFFER_HANDLE : STARLET$$TYP11 := %IMMED 0) : INTEGER; EXTERNAL; (* $DELETE_REGION_64 *) (* *) (* Delete Virtual Address Region *) (* *) (* $DELETE_REGION_64 region_id_64, acmode, return_va_64, return_length_64 *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* acmode = Access mode for which service is performed *) (* *) (* return_va_64 = Address of address space deleted *) (* *) (* return_length_64 = Length of address space deleted *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_REGION_64)] FUNCTION $DELETE_REGION_64 ( REGION_ID_64 : $UQUAD; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $DEQ *) (* *) (* Dequeue Lock *) (* *) (* $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] *) (* *) (* lkid = lock ID of the lock to be dequeued *) (* *) (* valblk = address of the lock value block *) (* *) (* acmode = access mode of the locks to be dequeued *) (* *) (* flags = optional flags. *) (* *) (* LCK$M_DEQALL *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DEQ)] FUNCTION $DEQ ( %IMMED LKID : UNSIGNED := %IMMED 0; %REF VALBLK : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DEVICE_SCAN *) (* *) (* Wildcard device scan *) (* *) (* $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] *) (* *) (* return_devnam = address of descriptor of returned device name buffer *) (* *) (* retlen = address to store length of device name returned *) (* *) (* search_devnam = address of descriptor of search device name *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* contxt = address of quadword context structures *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DEVICE_SCAN)] FUNCTION $DEVICE_SCAN ( VAR RETURN_DEVNAM : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR RETLEN : [VOLATILE] $UWORD; SEARCH_DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR CONTXT : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $DGBLSC *) (* *) (* Delete Global Section *) (* *) (* $DGBLSC [flags] ,gsdnam ,[ident] *) (* *) (* flags = type of section *) (* 0 -> group section SEC$M_SYSGBL -> system section *) (* *) (* gsdnam = address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident = address of quadword containing version id and match control *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DGBLSC)] FUNCTION $DGBLSC ( %IMMED FLAGS : UNSIGNED := %IMMED 0; GSDNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; IDENT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $DIAGNOSE *) (* System Service for Diagnostics Programmers *) (* *) (* $DIAGNOSE function, P2, [cpu_id, [flags]] *) (* *) (* function = DIAG$SETAFF or DIAG$_ACTVCPUS *) (* *) (* P2 = enable flag if function is DIAG$SETAFF, or *) (* 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. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DIAGNOSE)] FUNCTION $DIAGNOSE ( %IMMED FUNCTION_ : UNSIGNED := %IMMED 1; %IMMED P2 : UNSIGNED := %IMMED 1; %IMMED CPU_ID : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DISABLE_VP_USE *) (* *) (* Disable Use of the Vector Processor *) (* *) (* $DISABLE_VP_USE flags ,[curflg] ,[prvflg] *) (* *) (* flags = mask of facility(ies) that disabled vector use *) (* *) (* curflg = address of longword to receive current flags *) (* *) (* prvflg = address of longword to receive previous flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISABLE_VP_USE)] FUNCTION $DISABLE_VP_USE ( %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0; VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DISABLE_VP_USE_INT *) (* *) (* Disable Use of the Vector Processor, internal form *) (* *) (* $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] *) (* *) (* flags = mask of facility(ies) that disabled vector use *) (* *) (* curflg = address of longword to receive current flags *) (* *) (* prvflg = address of longword to receive previous flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISABLE_VP_USE_INT)] FUNCTION $DISABLE_VP_USE_INT ( %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0; VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DISCONNECT *) (* *) (* Disconnect Record Stream *) (* *) (* $DISCONNECT rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISCONNECT)] FUNCTION $DISCONNECT ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $DISMOU *) (* *) (* Dismount Volume *) (* *) (* $DISMOU [devnam], [flags], [itmlst] *) (* *) (* devnam = optional address of device name string descriptor *) (* *) (* flags = 32-bit status mask selecting options for the dismount *) (* The symbols for the flags are defined by the $DMTDEF *) (* macro. *) (* *) (* Flag Meaning *) (* *) (* DMT$M_NOUNLOAD Do not unload the volume. *) (* *) (* DMT$M_UNIT Dismount the specified device, rather *) (* than the entire volume set. *) (* *) (* itmlst = optional address of a list of item identifiers *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISMOU)] FUNCTION $DISMOU ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED := %IMMED 0; ITMLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DISPLAY *) (* *) (* Display File *) (* *) (* $DISPLAY fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISPLAY)] FUNCTION $DISPLAY ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DISPLAY_PROXY *) (* *) (* Display proxy record *) (* *) (* $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user, *) (* default_user, local_users, [flags], [context] *) (* *) (* rem_node in address of remote node descriptor *) (* rem_user in address of remote user descriptor *) (* buffer_sizes out address of array of words to receive output string lengths *) (* proxy_node out address of descriptor to receive matching proxy node *) (* proxy_user out address of descriptor to receive matching proxy user *) (* default_user out address of descriptor to receive default user *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DISPLAY_PROXY)] FUNCTION $DISPLAY_PROXY ( REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; VAR BUFFER_SIZES : [VOLATILE] STARLET$$TYP12; VAR PROXY_NODE : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR; VAR PROXY_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR; VAR DEFAULT_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR; VAR LOCAL_USERS : [VOLATILE] UNSIGNED; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DLCEFC *) (* *) (* Delete Common Event Flag Cluster *) (* *) (* $DLCEFC name *) (* *) (* name = address of cluster name string descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DLCEFC)] FUNCTION $DLCEFC ( NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* $DNS *) (* *) (* DNS Clerk system service *) (* *) (* $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] *) (* ($DNSW) *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* dnsb = address of quadword I/O status block to receive final *) (* completion status *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DNS)] FUNCTION $DNS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR DNSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$DNSW)] FUNCTION $DNSW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR DNSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $EMAA *) (* *) (* Call Entity Management Assist Agent *) (* *) (* $EMAA *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EMAA)] FUNCTION $EMAA ( ARGLIST : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; INVOKEID : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ENABLE_VP_USE *) (* *) (* Enable Use of the Vector Processor *) (* *) (* $ENABLE_VP_USE flags ,[curflg] ,[prvflg] *) (* *) (* flags = mask of facility(ies) that disabled vector use *) (* *) (* curflg = address of longword to receive current flags *) (* *) (* prvflg = address of longword to receive previous flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ENABLE_VP_USE)] FUNCTION $ENABLE_VP_USE ( %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0; VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ENABLE_VP_USE_INT *) (* *) (* Enable Use of the Vector Processor, internal form *) (* *) (* $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] *) (* *) (* flags = mask of facility(ies) that disabled vector use *) (* *) (* curflg = address of longword to receive current flags *) (* *) (* prvflg = address of longword to receive previous flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ENABLE_VP_USE_INT)] FUNCTION $ENABLE_VP_USE_INT ( %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CURFLG : [VOLATILE] UNSIGNED := %IMMED 0; VAR PRVFLG : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $ENQ *) (* *) (* Enqueue Lock Request *) (* *) (* $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid] *) (* ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id] *) (* ,[range] ,[priority] *) (* *) (* efn = event flag to be set at completion *) (* *) (* lkmode = type of lock mode requested. Modes are: *) (* *) (* LCK$K_NLMODE null lock *) (* LCK$K_CRMODE concurrent read *) (* LCK$K_CWMODE concurrent write *) (* LCK$K_PRMODE protected read *) (* LCK$K_PWMODE protected write *) (* LCK$K_EXMODE exclusive lock *) (* *) (* lksb = address of the lock status block or extended lock status block *) (* *) (* 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 *) (* *) (* resnam = address of string descriptor of the resource name *) (* (32-bit or 64-bit descriptor) *) (* *) (* parid = lock ID of the parent lock *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* blkast = address of entry mask of blocking AST routine *) (* *) (* acmode = Access mode to be associated with the lock *) (* *) (* rsdm_id = address of resource domain id *) (* *) (* range = optional range to be locked within resource *) (* *) (* priority = optional priority of request *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ENQ)] FUNCTION $ENQ ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED LKMODE : UNSIGNED; %REF LKSB : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; %IMMED FLAGS : UNSIGNED := %IMMED 0; RESNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; %IMMED PARID : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE BLKAST := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED RSDM_ID : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE RANGE := %IMMED 0; %IMMED PRIORITY : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ENQW)] FUNCTION $ENQW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED LKMODE : UNSIGNED; %REF LKSB : [VOLATILE,UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; %IMMED FLAGS : UNSIGNED := %IMMED 0; RESNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; %IMMED PARID : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE BLKAST := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED RSDM_ID : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE RANGE := %IMMED 0; %IMMED PRIORITY : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ENTER *) (* *) (* Enter File *) (* *) (* $ENTER fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ENTER)] FUNCTION $ENTER ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $ERAPAT *) (* *) (* Generate a security erase pattern. *) (* *) (* $ERAPAT type, [count], patadr *) (* *) (* type = type of security erase *) (* *) (* count = iteration count (seed for erase pattern) *) (* *) (* patadr = address of longword to receive erase pattern *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ERAPAT)] FUNCTION $ERAPAT ( %IMMED TYPE_ : INTEGER := %IMMED 0; %IMMED COUNT : UNSIGNED := %IMMED 1; VAR PATADR : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $ERASE *) (* *) (* Erase File *) (* *) (* $ERASE fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ERASE)] FUNCTION $ERASE ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $EVDPOSTEVENT *) (* *) (* Post Event to EVD *) (* *) (* $EVDPOSTEVENT EVENT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EVDPOSTEVENT)] FUNCTION $EVDPOSTEVENT ( EVENT : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* $EXIT *) (* *) (* Exit image *) (* *) (* $EXIT [code] *) (* *) (* code = longword completion status *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EXIT)] FUNCTION $EXIT ( %IMMED CODE : UNSIGNED := %IMMED 1) : INTEGER; EXTERNAL; (* $EXPREG *) (* *) (* Expand Program/Control Region *) (* *) (* $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] *) (* *) (* pagcnt = number of pages to add to end of specified region *) (* *) (* retadr = address of 2-longword array to receive virtual *) (* addresses of starting and ending pages *) (* *) (* acmode = access mode of the new pages *) (* *) (* region = region indicator *) (* 0 -> program (P0) region 1 -> control (P1) region *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EXPREG)] FUNCTION $EXPREG ( %IMMED PAGCNT : UNSIGNED; VAR RETADR : [VOLATILE] STARLET$$TYP13 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED REGION : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $EXPREG_64 *) (* *) (* Expand Addresses Within a Region *) (* *) (* EXPREG_64 region_id_64, length_64, acmode, flags, return_va_64, return_length_64 *) (* [, page_prot] *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* length_64 = Byte length of addresses *) (* *) (* acmode = access mode for the new pages (protection is *) (* 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 *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EXPREG_64)] FUNCTION $EXPREG_64 ( REGION_ID_64 : $UQUAD; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $EXTEND *) (* *) (* Extend File *) (* *) (* $EXTEND fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$EXTEND)] FUNCTION $EXTEND ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $FAO *) (* *) (* Formatted ASCII Output *) (* *) (* $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] *) (* *) (* ctrstr = address of string descriptor for control string *) (* (32-bit or 64-bit descriptor) *) (* *) (* outlen = address of word in which to store output length *) (* *) (* outbuf = address of output buffer string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* p1... = variable number of arguments to FAO *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FAO)] FUNCTION $FAO ( CTRSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0; VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED P1 : [LIST] INTEGER) : INTEGER; EXTERNAL; (* $FAOL *) (* *) (* Formatted ASCII Output With List Parameter *) (* *) (* $FAOL ctrstr ,[outlen] ,outbuf ,prmlst *) (* *) (* ctrstr = address of string descriptor for control string *) (* (32-bit or 64-bit descriptor) *) (* *) (* outlen = address of word to receive output string length *) (* *) (* outbuf = address of output buffer string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* prmlst = address of a list of longword parameters *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FAOL)] FUNCTION $FAOL ( CTRSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0; VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %REF PRMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $FAOL_64 *) (* *) (* Formatted ASCII Output With Quadword List Parameter *) (* *) (* $FAOL_64 ctrstr_64 ,[outlen_64] ,outbuf_64 ,prmlst_64 *) (* *) (* ctrstr_64 = address of string descriptor for control string *) (* (32-bit or 64-bit descriptor) *) (* *) (* outlen_64 = address of word to receive output string length *) (* *) (* outbuf_64 = address of output buffer string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* prmlst_64 = address of a list of quadword parameters *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FAOL_64)] FUNCTION $FAOL_64 ( %IMMED CTRSTR_64 : $DEFPTR; VAR OUTLEN_64 : [VOLATILE] $UWORD := %IMMED 0; %IMMED OUTBUF_64 : $DEFPTR; %IMMED PRMLST_64 : $DEFPTR) : INTEGER; EXTERNAL; (* $FILES_64 *) (* *) (* Call the Files-64 file system *) (* *) (* $FILES_64 [efn] ,func ,fsb ,[astadr] ,[astprm] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* fsb = address of File System Block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FILES_64)] FUNCTION $FILES_64 ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $FILESCAN *) (* *) (* Scan a string and identify a file specification *) (* *) (* $FILESCAN srcstr, [valuelst], [fldflags] [,auxout] [,retlen] *) (* *) (* srcstr = address of string descriptor for source string *) (* valuelst = address of a list of item descriptors *) (* fldflags = address of a longword to receive flags *) (* auxout = address of string descriptor for output string *) (* retlen = address to store length of returned output string *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FILESCAN)] FUNCTION $FILESCAN ( SRCSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %REF VALUELST : [VOLATILE,UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; VAR FLDFLAGS : [VOLATILE] UNSIGNED := %IMMED 0; VAR AUXOUT : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; VAR RETLEN : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FIND *) (* *) (* Find Record in File *) (* *) (* $FIND rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FIND)] FUNCTION $FIND ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FIND_HELD *) (* *) (* Find Identifiers Held By Holder *) (* *) (* $FIND_HELD holder, [id], [attrib], [contxt] *) (* *) (* holder = address of a quadword which specifies the holder *) (* id of the records to find *) (* id = address to return the identifier longword *) (* attrib = address to return the holder attributes longword *) (* contxt = address of a longword containing the record stream *) (* context. initially should be zero, value output *) (* on first call, value input on subsequent calls. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FIND_HELD)] FUNCTION $FIND_HELD ( HOLDER : $UQUAD; VAR ID : [VOLATILE] UNSIGNED := %IMMED 0; VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FIND_HOLDER *) (* *) (* Find Holder Of Identifier *) (* *) (* $FIND_HOLDER id, [holder], [attrib], [contxt] *) (* *) (* id = identifier longword whose holder records *) (* are to be found *) (* holder = address to return the holder id quadword *) (* attrib = address to return the attributes longword *) (* contxt = address of a longword containing the record stream *) (* context. initially should be zero, value output *) (* on first call, value input on subsequent calls. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FIND_HOLDER)] FUNCTION $FIND_HOLDER ( %IMMED ID : UNSIGNED; VAR HOLDER : [VOLATILE] $UQUAD := %IMMED 0; VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FINISH_RDB *) (* *) (* Clean up RMS Stream *) (* *) (* $FINISH_RDB contxt *) (* *) (* contxt = address of a longword containing the record stream *) (* context. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FINISH_RDB)] FUNCTION $FINISH_RDB ( VAR CONTXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $FORCEX *) (* *) (* Force Exit *) (* *) (* $FORCEX [pidadr] ,[prcnam] ,[code] *) (* *) (* pidadr = address of process id of process to be forced to exit *) (* *) (* prcnam = address of process name descriptor for forced process *) (* *) (* code = longword completion status for exit service *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FORCEX)] FUNCTION $FORCEX ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED CODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FORGE_WORD *) (* *) (* Forge random word. *) (* *) (* $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 flags *) (* retdata longword to receive actual amount of information in word *) (* outlen word to receive length of returned word *) (* outstr address of buffer to receive word *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FORGE_WORD)] FUNCTION $FORGE_WORD ( %IMMED MINLEN : UNSIGNED := %IMMED 0; %IMMED MAXLEN : UNSIGNED := %IMMED 0; %IMMED MINDATA : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETDATA : [VOLATILE] UNSIGNED := %IMMED 0; VAR OUTLEN : [VOLATILE] $UWORD; VAR OUTSTR : [CLASS_S,VOLATILE] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* *) (* $FORMAT_ACL *) (* *) (* Format an Access Control list Entry *) (* *) (* $FORMAT_ACL acl-entry, [acl-length], acl-string, *) (* [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 into *) (* which the output string is to be stored *) (* *) (* line-width = address of the maximum line width *) (* (0 = infinite) *) (* *) (* term_desc = address of a character descriptor containing *) (* a character string to be inserted whenever *) (* the line segment length exceeds the line-width *) (* *) (* line-indent = address of the number of columns to indent *) (* the output line segment *) (* *) (* bit-names = address of a access bit name table (32 entries) *) (* *) (* routin = address of routine to be executed in kernel mode *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_ACL)] FUNCTION $FORMAT_ACL ( ACLENT : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR ACLLEN : [VOLATILE] $UWORD := %IMMED 0; VAR ACLSTR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; WIDTH : $UWORD := %IMMED 0; TRMDSC : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; INDENT : $UWORD := %IMMED 0; %REF ACCNAM : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf, *) (* [width], [trmdsc], [routin], [fmtflg] *) (* *) (* Format security auditing event message *) (* *) (* fmttyp = format type *) (* *) (* audmsg = address of the message to format *) (* *) (* 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 flags *) [ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_AUDIT)] FUNCTION $FORMAT_AUDIT ( %IMMED FMTTYP : UNSIGNED; %REF AUDMSG : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0; VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR; WIDTH : $UWORD := %IMMED 0; TRMDSC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0; %IMMED FMTFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $FORMAT_CLASS itmlst, [routin] *) (* *) (* Format access class strings *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* routin = address of routine to be executed in kernel mode *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FORMAT_CLASS)] FUNCTION $FORMAT_CLASS ( %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FREE *) (* *) (* Free Record *) (* *) (* $FREE rab, [err], [suc] *) (* *) (* rab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FREE)] FUNCTION $FREE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FREE_USER_CAPABILITY *) (* *) (* Release a global user capability bit *) (* *) (* $FREE_USER_CAPABILITY [cap_num],[prev_mask],[flags] *) (* *) (* cap_num = address of cell with requested cap number to release *) (* prev_mask = address of user quadword that will hold the *) (* previous state of the reserved capabilities cell *) (* flags = address of behavioral flags for this operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FREE_USER_CAPABILITY)] FUNCTION $FREE_USER_CAPABILITY ( CAP_NUM : UNSIGNED := %IMMED 0; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FLUSH *) (* *) (* Flush Record *) (* *) (* $FLUSH rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FLUSH)] FUNCTION $FLUSH ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET_BITMAP_INFO *) (* *) (* GET Information about a Write Bitmap *) (* *) (* $GET_BITMAP_INFO handle, chan, devnam, name, index, itmlst *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_BITMAP_INFO)] FUNCTION $GET_BITMAP_INFO ( %IMMED HANDLE : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; %IMMED INDEX : UNSIGNED := %IMMED 0; ITMLST : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET_BITMAP_INFOW *) (* *) (* GET Information about a Write Bitmap and Wait *) (* *) (* $GET_BITMAP_INFOW devnam, name, index, handle, itmlst, status *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_BITMAP_INFOW)] FUNCTION $GET_BITMAP_INFOW ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED INDEX : UNSIGNED := %IMMED 0; %IMMED HANDLE : UNSIGNED := %IMMED 0; ITMLST : UNSIGNED := %IMMED 0; VAR STATUS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET_CPU_INFO *) (* *) (* GET Information about a CPU *) (* *) (* $GET_CPU_INFO func, flags, cpu_id, buffer, length, ret_length *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_CPU_INFO)] FUNCTION $GET_CPU_INFO ( %IMMED FUNC : UNSIGNED; %IMMED FLAGS : UNSIGNED; VAR CPU_ID : [VOLATILE] UNSIGNED; %IMMED BUFFER_LENGTH : UNSIGNED; BUFFER_ADDRESS_64 : $DEFPTR; VAR RETURN_LENGTH_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $GET_REGION_INFO *) (* *) (* Get Information About Virtual Address Region *) (* *) (* $GET_REGION_INFO function, region_id_64, start_va_64, ,buffer_length, *) (* buffer_address_64, return_length_64 *) (* *) (* function = Function code *) (* *) (* Code Meaning *) (* VA$_REGSUM_BY_ID Region summary, by ID *) (* 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 *) (* *) (* start_va_64 = Virtual address to use with VA$_REGSUM_BY_VA *) (* *) (* buffer_length = Length of user buffer *) (* *) (* buffer_address_64 = Address of user REGSUM buffer *) (* *) (* return_length_64 = Length of data written to user buffer *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_REGION_INFO)] FUNCTION $GET_REGION_INFO ( %IMMED FUNCTION_ : UNSIGNED; REGION_ID_64 : $UQUAD; %IMMED START_VA_64 : $DEFPTR; %IMMED RESERVED : $DEFPTR; %IMMED BUFFER_LENGTH : UNSIGNED; %IMMED BUFFER_ADDRESS_64 : $DEFPTR; VAR RETURN_LENGTH_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $GET_SECURITY *) (* *) (* Get Object Securty Profile *) (* *) (* $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_SECURITY)] FUNCTION $GET_SECURITY ( CLSNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; OBJHAN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET *) (* *) (* Get Record from File *) (* *) (* $GET rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET)] FUNCTION $GET ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET_ARITH_EXCEPTION *) (* *) (* Get AXP arithmetic exception context information *) (* *) (* $GET_ARITH_EXCEPTION sigarg, mcharg, buffer *) (* *) (* sigarg = address of signal array of the exception *) (* *) (* mcharg = address of mechanism array of the exception *) (* *) (* buffer = address of buffer to return information *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_ARITH_EXCEPTION)] FUNCTION $GET_ARITH_EXCEPTION ( SIGARG : INTEGER; MCHARG : INTEGER; VAR BUFFER : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* $GETCHN *) (* *) (* Get I/O Channel Information *) (* *) (* $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] *) (* *) (* chan = number of a channel assigned to the device *) (* *) (* prilen = address of word to receive length of primary buffer *) (* *) (* pribuf = address of primary buffer descriptor *) (* *) (* scdlen = address of word to receive length of secondary buffer *) (* *) (* scdbuf = address of secondary buffer descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETCHN)] FUNCTION $GETCHN ( %IMMED CHAN : INTEGER; VAR PRILEN : [VOLATILE] $UWORD := %IMMED 0; VAR PRIBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; VAR SCDLEN : [VOLATILE] $UWORD := %IMMED 0; VAR SCDBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $GETDEV *) (* *) (* Get I/O Device Information *) (* *) (* $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] *) (* *) (* devnam = address of device name or logical name descriptor *) (* *) (* prilen = address of word to receive length of primary buffer *) (* *) (* pribuf = address of primary buffer descriptor *) (* *) (* scdlen = address of word to receive length of secondary buffer *) (* *) (* scdbuf = address of secondary buffer descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETDEV)] FUNCTION $GETDEV ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR PRILEN : [VOLATILE] $UWORD := %IMMED 0; VAR PRIBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; VAR SCDLEN : [VOLATILE] $UWORD := %IMMED 0; VAR SCDBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GETDTI *) (* *) (* Get Distributed Transaction Information *) (* *) (* $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context, *) (* ($GETDTIW) search, itmlst *) (* *) (* efn = event flag to set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of the entry mask of an AST routine *) (* astprm = value to be passed to AST routine *) (* log_id = address of log id for TM log *) (* context = address of longword search context *) (* search = address of a list of search criteria items *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETDTI)] FUNCTION $GETDTI ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; LOG_ID : $UOCTA := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED; %REF SEARCH : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE; %REF ITMLST : [UNSAFE] ARRAY [$l9..$u9:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETDTIW)] FUNCTION $GETDTIW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; LOG_ID : $UOCTA := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED; %REF SEARCH : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE; %REF ITMLST : [UNSAFE] ARRAY [$l9..$u9:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $GETDVI *) (* *) (* Get Device/Volume Information *) (* *) (* $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr] *) (* ($GETDVIW) ,[astprm] ,[nullarg], [pathname] *) (* *) (* efn = event flag to be set at completion *) (* *) (* chan = number of a channel assigned to the device or *) (* 0 if device is specified by the devnam parameter *) (* *) (* devnam = address of device name or logical name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* nullarg = zilch *) (* *) (* pathname = optional address of a path name descriptor *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETDVI)] FUNCTION $GETDVI ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0; PATHNAME : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETDVIW)] FUNCTION $GETDVIW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0; PATHNAME : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $GETEVI *) (* *) (* Get Event Information *) (* *) (* $GETEVI itmlst ,[nullarg] *) (* *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETEVI)] FUNCTION $GETEVI ( %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETJPI *) (* *) (* Get Job/Process Information *) (* *) (* $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], *) (* ($GETJPIW) [astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* pidadr = address of process identification *) (* *) (* prcnam = address of process name string descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as an argument *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETJPI)] FUNCTION $GETJPI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETJPIW)] FUNCTION $GETJPIW ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETJPI_FAST *) (* *) (* Get Job/Process Information For The Current Process *) (* *) (* $GETJPI_FAST *) (* *) (* item_mask = Mask of current process info requested *) (* *) (* flags = MBZ for now *) (* *) (* return_buffer *) (* = Address of buffer to return array of longword info *) (* *) (* return_buffer_length *) (* = Length of return buffer array in bytes *) (* *) (* *) [ASYNCHRONOUS] FUNCTION SYS$GETJPI_FAST ( %IMMED ITEM_MASK : INTEGER; %IMMED FLAGS : UNSIGNED; VAR RETURN_BUFFER : [VOLATILE] STARLET$$TYP14; %IMMED RETURN_BUFFER_LENGTH : INTEGER) : INTEGER; EXTERNAL; (* $GETLKI *) (* *) (* Get Lock Information *) (* *) (* $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm], *) (* ($GETLKIW) [reserved] *) (* *) (* efn = event flag to be set at completion *) (* *) (* lkidadr = address of lock identification *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as an argument *) (* *) (* reserved = reserved parameter *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETLKI)] FUNCTION $GETLKI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR LKIDADR : [VOLATILE] UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RESERVED : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETLKIW)] FUNCTION $GETLKIW ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR LKIDADR : [VOLATILE] UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RESERVED : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETMSG *) (* *) (* Get Message *) (* *) (* $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] *) (* *) (* msgid = identification of message to be retrieved *) (* *) (* msglen = address of a word to receive length of string *) (* returned *) (* *) (* bufadr = address of buffer descriptor of buffer to receive *) (* string *) (* *) (* flags = flag bits for message content (macro default = 15) *) (* *) (* Bit Value/Meaning *) (* *) (* 0 1 Include text *) (* 0 Do not include text *) (* 1 1 Include identifier *) (* 0 Do not include identifier *) (* 2 1 Include severity *) (* 0 Do not include severity *) (* 3 1 Include component *) (* 0 Do not include component *) (* *) (* outadr = address of 4-byte array to receive the following values: *) (* *) (* Byte Contents *) (* *) (* 0 Reserved *) (* 1 Count of FAO arguments *) (* 2 User value *) (* 3 Reserved *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETMSG)] FUNCTION $GETMSG ( %IMMED MSGID : UNSIGNED; VAR MSGLEN : [VOLATILE] $UWORD; VAR BUFADR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED FLAGS : UNSIGNED := %IMMED 15; VAR OUTADR : [VOLATILE] STARLET$$TYP15 := %IMMED 0) : INTEGER; EXTERNAL; (* $GETPTI *) (* *) (* Get Page Table Information *) (* *) (* $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] *) (* *) (* inadr = address of two longwords containing starting *) (* and ending virtual address to operate on *) (* *) (* retadr = address of two longwords into which starting *) (* and ending address of pages operated on is returned *) (* *) (* acmode = access mode against which ownership is checked *) (* *) (* mask = mask of page table information control bits *) (* *) (* pagcnt = minimum page count *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETPTI)] FUNCTION $GETPTI ( INADR : STARLET$$TYP16; VAR RETADR : [VOLATILE] STARLET$$TYP17 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED MASK : UNSIGNED := %IMMED 0; %IMMED PAGCNT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETQUI *) (* *) (* Get Queue Information *) (* *) (* $GETQUI [efn], func, [context], [itmlst], *) (* ($GETQUIW) [iosb], [astadr], [astprm] *) (* *) (* efn = event flag to be set when request completes *) (* func = code specifying function to be performed *) (* context = address of a longword containing a context number *) (* itmlst = address of a list of item descriptors for the operation *) (* iosb = address of a quadword status block to receive the final status *) (* astadr = address of an ast routine to be called when request completes *) (* astprm = 32-bit ast parameter *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETQUI)] FUNCTION $GETQUI ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETQUIW)] FUNCTION $GETQUIW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETRMI *) (* *) (* Get Resource Monitor Information *) (* *) (* $GETRMI [efn] ,[nullarg] ,[nullarg] ,itmlst ,[iosb] ,[astadr] ,[astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* nullarg = reserved argument *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETRMI)] FUNCTION $GETRMI ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED NULLARG1 : UNSIGNED := %IMMED 0; %IMMED NULLARG2 : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETSYI *) (* *) (* Get System-Wide Information *) (* *) (* $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], *) (* ($GETSYIW) [astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* csidadr = address of cluster system identification *) (* *) (* nodename = address of node name string descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* *) (* The second and third arguments in the $GETSYI argument list are *) (* not used; they are reserved for future use. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETSYI)] FUNCTION $GETSYI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CSIDADR : [VOLATILE] UNSIGNED := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETSYIW)] FUNCTION $GETSYIW ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CSIDADR : [VOLATILE] UNSIGNED := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GETTIM *) (* *) (* Get Time *) (* *) (* $GETTIM timadr, [flags] *) (* *) (* timadr = address of a quadword to receive 64-bit current time value *) (* flags = optional flags to modify the type of time returned (initially Smithsonian time or time-since-boot) *) [ASYNCHRONOUS,EXTERNAL(SYS$GETTIM)] FUNCTION $GETTIM ( VAR TIMADR : [VOLATILE] $UQUAD; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* Get Time (High Precision) *) (* *) (* $GETTIM_PREC timadr *) (* *) (* timadr = address of a quadword to receive 64-bit current time value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETTIM_PREC)] FUNCTION $GETTIM_PREC ( VAR TIMADR : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* *) (* $GET_USER_CAPABILITY *) (* *) (* Reserve a global user capability bit *) (* *) (* $GET_USER_CAPABILITY [cap_num],[select_num],[select_mask],[prev_mask],[flags] *) (* *) (* cap_num = address of cell with requested cap number *) (* select_num = address of cell with selected cap number *) (* select_mask = address of bitmask indicating which capability *) (* bit selected by operation *) (* prev_mask = address of user quadword that will hold the *) (* previous state of the reserved capabilities cell *) (* flags = address of behavioral flags for this operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_USER_CAPABILITY)] FUNCTION $GET_USER_CAPABILITY ( CAP_NUM : UNSIGNED := %IMMED 0; VAR SELECT_NUM : [VOLATILE] UNSIGNED := %IMMED 0; VAR SELECT_MASK : [VOLATILE] $UQUAD := %IMMED 0; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $GETUTC *) (* *) (* Get UTC Time *) (* *) (* $GETUTC utcadr *) (* *) (* utcadr = address of a utc_date_time to receive 128-bit current UTC time *) (* value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETUTC)] FUNCTION $GETUTC ( VAR UTCADR : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; (* $GETUAI *) (* *) (* Get User Authorization Information *) (* *) (* $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] *) (* ,[astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* contxt = address of a context longword (UAF IFI & ISI) *) (* *) (* usrnam = address of user name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETUAI)] FUNCTION $GETUAI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GET_WBEM_INFO *) (* *) (* Get system information needed by WBEM providers *) (* *) (* $GET_WBEM_INFO itm_code, itm_param1, itm_param_buf, *) (* buf_addr, buf_len, ret_len_addr *) (* *) (* itm_code = Item code value, defined by $WBEMIDEF, wbemidef.h *) (* *) (* itm_param1 = Item code dependent input parameter value. *) (* If zero item code dependent parameters required, *) (* must be zero. *) (* If exactly one longword parameter required, *) (* parameter value. *) (* If more than one parameter required, size in *) (* bytes of the item parameter buffer. *) (* *) (* itm_param_buf = Address of item parameter buffer. Size of the *) (* buffer, in bytes, is given by the value of *) (* itm_param1. *) (* If the specified item code does not require *) (* 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. *) (* *) (* buf_len = Size of the output buffer in bytes. *) (* *) (* ret_len_addr = Address of a 32-bit longword into which the *) (* value of the number of bytes that have been *) (* written into the output buffer is returned. *) (* The caller should not assume that the remaining *) (* bytes in the output buffer have been zeroed. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_WBEM_INFO)] FUNCTION $GET_WBEM_INFO ( %IMMED ITM_CODE : UNSIGNED; %IMMED ITM_PARAM1 : UNSIGNED; %IMMED ITM_PARAM_BUF : $DEFPTR; %IMMED BUF_ADDR : $DEFPTR; %IMMED BUF_LEN : UNSIGNED; VAR RET_LEN_ADDR : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* Verified for IA64 port - KLN *) (* $GOTO_UNWIND *) (* *) (* General Unwind Call Stack *) (* *) (* $GOTO_UNWIND [target_invo], [target_pc], [new_r0], [new_r1] *) (* *) (* target_invo = address of longword containing the invocation *) (* handle (frame pointer) to unwind call stack *) (* *) (* target_pc = address of longword that contains the to be given *) (* control when the unwind is complete *) (* *) (* new_r0 = address of a location that contains the value to be *) (* placed in the saved R0 field of the mechanism array *) (* *) (* new_r1 = address of a location that contains the value to be *) (* placed in the saved R1 field of the mechanism array *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GOTO_UNWIND)] FUNCTION $GOTO_UNWIND ( TARGET_INVO : UNSIGNED := %IMMED 0; TARGET_PC : UNSIGNED := %IMMED 0; NEW_R0 : UNSIGNED := %IMMED 0; NEW_R1 : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* Alpha *) (* $GOTO_UNWIND_64 *) (* *) (* General Unwind Call Stack *) (* *) (* $GOTO_UNWIND_64 [target_invo_64], [target_pc_64], *) (* [newretval], [newretval2] *) (* *) (* target_invo_64 = address of longword (Alpha) or quadword (IPF) *) (* containing the invocation handle (frame pointer on *) (* Alpha) to unwind call stack *) (* *) (* target_pc_64 = address of quadword that contains the PC to be *) (* given control when the unwind is complete *) (* *) (* newretval = address of a location that contains the value to be *) (* placed in the saved R0 field of the mechanism array *) (* *) (* newretval2 = address of a location that contains the value to be *) (* placed in the saved R1 field of the mechanism array *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GOTO_UNWIND_64)] FUNCTION $GOTO_UNWIND_64 ( TARGET_INVO_64 : $UQUAD := %IMMED 0; TARGET_PC_64 : $UQUAD := %IMMED 0; NEWRETVAL : $UQUAD := %IMMED 0; NEWRETVAL2 : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GRANTID *) (* *) (* Grant Identifier to Process *) (* *) (* $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] *) (* *) (* pidadr = address of PID of affected process *) (* prcnam = address of string descriptor of process name *) (* id = address of quadword identifier and attributes *) (* name = address of string descriptor of identifier name *) (* prvatr = address to store attributes of superseded id *) (* segment = optional segment index, by value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GRANTID)] FUNCTION $GRANTID ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; VAR ID : [VOLATILE] $UQUAD := %IMMED 0; NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; VAR PRVATR : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED SEGMENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GRANT_LICENSE *) (* *) (* Grant authorization to execute licensed software product. *) (* *) (* $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] *) (* *) (* prdnam = address of descriptor for software product name *) (* prducer = address of descriptor for software producer name *) (* contxt = address of context buffer (4 longwords) *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GRANT_LICENSE)] FUNCTION $GRANT_LICENSE ( PRDNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; PRDUCER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; VAR CONTXT : [VOLATILE] STARLET$$TYP18 := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $HASH_PASSWORD *) (* *) (* Encrypt a user password to produce a quadword hash value. *) (* *) (* $HASH_PASSWORD pwd, alg, [salt], usrnam, hash *) (* *) (* pwd = address of descriptor for plaintext password *) (* alg = algorithm to use for hash *) (* salt = salt value for use by hash algorithm *) (* usrnam = address of descriptor of username *) (* hash = address of output quadword hash buffer *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$HASH_PASSWORD)] FUNCTION $HASH_PASSWORD ( PWD : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED ALG : INTEGER; %IMMED SALT : INTEGER := %IMMED 0; USRNAM : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR; VAR HASH : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $HIBER *) (* *) (* Hibernate *) (* *) (* $HIBER_S *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$HIBER)] FUNCTION $HIBER : INTEGER; EXTERNAL; (* *) (* $IDTOASC *) (* *) (* Identifier To Ascii Conversion *) (* *) (* $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] *) (* *) (* 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 wildcarding *) (* attrib = address to return the attributes longword *) (* contxt = address of a longword containing the record stream *) (* context. initially should be zero, value output *) (* on first call, value input on subsequent calls. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IDTOASC)] FUNCTION $IDTOASC ( %IMMED ID : UNSIGNED; VAR NAMLEN : [VOLATILE] $UWORD := %IMMED 0; VAR NAMBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; VAR RESID : [VOLATILE] UNSIGNED := %IMMED 0; VAR ATTRIB : [VOLATILE] UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $IEEE_SET_FP_CONTROL *) (* *) (* Set IEEE floating point control register *) (* *) (* $IEEE_SET_FP_CONTROL [clrmsk], [setmsk], [prvmsk] *) (* *) (* clrmsk = address of a quadword mask to clear *) (* setmsk = address of a quadword mask to set *) (* prvmsk = address of a quadword to return previous value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_FP_CONTROL)] FUNCTION $IEEE_SET_FP_CONTROL ( CLRMSK : $UQUAD := %IMMED 0; SETMSK : $UQUAD := %IMMED 0; VAR PRVMSK : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $IMGACT *) (* *) (* Image Activation *) (* *) (* $IMGACT name,[dflnam],hdrbuf,[imgctl],[inadr], *) (* [retadr], [ident], [acmode] *) (* *) (* *) (* name = address of descriptor for file name string *) (* *) (* dflnam = descriptor for file name string *) (* *) (* hdrbuf = address of 512 byte buffer to write in *) (* *) (* imgctl = image activation control flags *) (* *) (* inadr = address of quadword specifying virtual address *) (* range to be mapped *) (* *) (* retadr = address of quadword specifying virtual address *) (* range actually mapped *) (* *) (* ident = address of quadword holding image section match *) (* control and identifier *) (* *) (* acmode = access mode to be the owner of the created pages *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IMGACT)] FUNCTION $IMGACT ( NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; DFLNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; VAR HDRBUF : [VOLATILE] $DEFPTR; %IMMED IMGCTL : UNSIGNED := %IMMED 0; INADR : STARLET$$TYP19 := %IMMED 0; VAR RETADR : [VOLATILE] STARLET$$TYP20 := %IMMED 0; IDENT : $UQUAD := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $IMGFIX *) (* *) (* Image Address Fixup Service *) (* *) (* $IMGFIX *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IMGFIX)] FUNCTION $IMGFIX : INTEGER; EXTERNAL; (* $INIT_VOL *) (* *) (* Initialize Volume *) (* *) (* $INIT_VOL devnam, volnam, [itmlst] *) (* *) (* devnam = device name containing volume to initialize *) (* *) (* volnam = name to initialize the volume with *) (* *) (* itmlst = address of item code list for initialization options *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$INIT_VOL)] FUNCTION $INIT_VOL ( DEVNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VOLNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $IO_CLEANUP *) (* *) (* Cleanup a previously set-up I/O *) (* *) (* $IO_CLEANUP fandle *) (* *) (* fandle = fandle to clean up *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IO_CLEANUP)] FUNCTION $IO_CLEANUP ( %IMMED FANDL : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $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 pointer to longword *) (* containing CPU mask *) (* FP$K_BALANCE_PORTS = balance fastpath ports *) (* *) (* func = fastpath function code *) (* *) (* iosb = address of I/O status block *) (* *) (* astadr = address of AST completion routine *) (* *) (* astprm = AST routine parameter *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IO_FASTPATH)] FUNCTION $IO_FASTPATH ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CPU_MASK : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$IO_FASTPATHW)] FUNCTION $IO_FASTPATHW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CPU_MASK : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $IO_PERFORM *) (* *) (* Transfer data between device and buffer *) (* *) (* $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata *) (* ($IO_PERFORMW) *) (* *) (* fandle = fandle from previous $IO_SETUP *) (* *) (* chan = standard I/O channel *) (* *) (* iosadr = IOSA address *) (* *) (* bufadr = address of data buffer (64 bits) *) (* *) (* buflen = length of data buffer (64 bits) *) (* *) (* devdata= data passed to driver, e.g., media address *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IO_PERFORM)] FUNCTION $IO_PERFORM ( %IMMED FANDL : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; %IMMED IOSADR : INTEGER := %IMMED 0; %IMMED BUFADR : $DEFPTR := %IMMED 0; %IMMED BUFLEN : INTEGER := %IMMED 0; %IMMED DEVDATA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$IO_PERFORMW)] FUNCTION $IO_PERFORMW ( %IMMED FANDL : INTEGER := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; %IMMED IOSADR : INTEGER := %IMMED 0; %IMMED BUFADR : $DEFPTR := %IMMED 0; %IMMED BUFLEN : INTEGER := %IMMED 0; %IMMED DEVDATA : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $IO_SETUP *) (* *) (* Set up a fast I/O *) (* *) (* $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle *) (* *) (* func = function code *) (* *) (* bufobj = data buffer object (address of (vector of 2 ints)) *) (* *) (* iosobj = IOSA buffer object (address of (vector of 2 ints)) *) (* *) (* astadr = completion AST address (address of entry) *) (* *) (* flags = flags *) (* *) (* return_fandle = address of returned fandle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IO_SETUP)] FUNCTION $IO_SETUP ( %IMMED FUNC : UNSIGNED := %IMMED 0; %IMMED BUFOBJ : $DEFPTR := %IMMED 0; %IMMED IOSOBJ : $DEFPTR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_FANDLE : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $IPC *) (* *) (* Interprocess Communication Request *) (* *) (* $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] *) (* ($IPCW) *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* ipcb = address of Interprocess Communication Block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IPC)] FUNCTION $IPC ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; IPCB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$IPCW)] FUNCTION $IPCW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; IPCB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $LCKPAG *) (* *) (* Lock Pages in Memory *) (* *) (* $LCKPAG inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending addresses of pages to be locked *) (* *) (* retadr = address of 2-longword array to receive addresses of *) (* pages actually locked *) (* *) (* acmode = access mode to check against the owner of the pages *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LCKPAG)] FUNCTION $LCKPAG ( INADR : STARLET$$TYP21; VAR RETADR : [VOLATILE] STARLET$$TYP22 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $LCKPAG_64 *) (* *) (* Lock Pages in Memory *) (* *) (* $LCKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *) (* *) (* start_va_64 = Starting address of address space to lock *) (* *) (* length_64 = Byte length of addresses to lock *) (* *) (* acmode = Access mode to be checked against the page owner *) (* *) (* return_va_64 = Address of address space locked *) (* *) (* return_length_64 = Length of address space locked *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LCKPAG_64)] FUNCTION $LCKPAG_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $LFS *) (* *) (* Call the LFS file system *) (* *) (* $LFS [efn] ,func ,fsb ,[astadr] ,[astprm] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* fsb = address of File System Block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LFS)] FUNCTION $LFS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $LKWSET *) (* *) (* Lock Pages in Working Set *) (* *) (* $LKWSET inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to be locked *) (* *) (* retadr = address of a 2-longword array to receive starting and *) (* ending virtual addresses of pages actually locked *) (* *) (* acmode = access mode to be checked against the page owner *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LKWSET)] FUNCTION $LKWSET ( INADR : STARLET$$TYP23; VAR RETADR : [VOLATILE] STARLET$$TYP24 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $LKWSET_64 *) (* *) (* Lock Pages in Working Set *) (* *) (* $LKWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *) (* *) (* start_va_64 = Starting address of address space to lock *) (* *) (* length_64 = Byte length of addresses to lock *) (* *) (* acmode = Access mode to be checked against the page owner *) (* *) (* return_va_64 = Address of address space locked *) (* *) (* return_length_64 = Length of address space locked *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LKWSET_64)] FUNCTION $LKWSET_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* *) (* $LOOKUP_MAPPING *) (* *) (* Find single Mapping record in Mapping database *) (* *) (* $LOOKUP_MAPPING initmlst ,[outitmlst] *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* outitmlst = address of a list of item descriptors for the operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$LOOKUP_MAPPING)] FUNCTION $LOOKUP_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $MGBLSC *) (* *) (* Map Global Section *) (* *) (* $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending addresses of pages to be mapped *) (* *) (* retadr = address of 2-longword array to receive virtual *) (* addresses of pages mapped *) (* *) (* acmode = access mode of owner of mapped pages *) (* *) (* flags = flags overriding default section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_WRT Read/write section *) (* SEC$M_SYSGBL System global section *) (* SEC$M_EXPREG Find first available space *) (* *) (* gsdnam = address of global section name descriptor *) (* *) (* ident = address of quadword containing version id and match control *) (* *) (* relpag = relative page number within global section *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC)] FUNCTION $MGBLSC ( INADR : STARLET$$TYP25; VAR RETADR : [VOLATILE] STARLET$$TYP26 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; GSDNAM : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR; IDENT : $UQUAD := %IMMED 0; %IMMED RELPAG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $MGBLSC_64 *) (* *) (* Map Global Page or Disk File Section *) (* *) (* $MGBLSC_64 gsdnam_64, ident_64, region_id_64, section_offset_64, *) (* length_64, acmode, flags, return_va_64, return_length_64 *) (* [, start_va_64[, page_prot]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* section_offset_64 = Relative byte within global section to start mapping *) (* *) (* length_64 = Byte length of section to map *) (* *) (* acmode = Access mode of owner of mapped pages *) (* *) (* flags = Flags overriding default section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* 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 *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC_64)] FUNCTION $MGBLSC_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; REGION_ID_64 : $UQUAD; %IMMED SECTION_OFFSET_64 : INTEGER; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $MGBLSC_GPFN_64 *) (* *) (* Map Global Page Frame Section *) (* *) (* $MGBLSC_GPFN_64 gsdnam_64, ident_64, region_id_64, relative_page, page_count, *) (* acmode, flags, return_va_64, return_length_64 *) (* [, start_va_64[, page_prot]] *) (* *) (* gsdnam_64 = Address of global section name string descriptor *) (* (32-bit or 64-bit descriptor) *) (* *) (* ident_64 = Address of quadword containing version id and match control *) (* *) (* region_id_64 = Address of quadword region id *) (* *) (* relative_page = Relative page within global section to start mapping *) (* *) (* page_count = Number of page frames to map *) (* *) (* acmode = Access mode of owner of mapped pages *) (* *) (* flags = Flags overriding default section characteristics *) (* *) (* Flag Meaning *) (* *) (* SEC$M_EXPREG Find first available space *) (* SEC$M_NO_OVERMAP Do not overmap existing address space *) (* 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 *) (* *) (* page_prot = Desired page protection (optional) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MGBLSC_GPFN_64)] FUNCTION $MGBLSC_GPFN_64 ( %IMMED GSDNAM_64 : $DEFPTR; IDENT_64 : $UQUAD := %IMMED 0; REGION_ID_64 : $UQUAD; %IMMED RELATIVE_PAGE : INTEGER; %IMMED PAGE_COUNT : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED START_VA_64 : $DEFPTR := %IMMED 0; %IMMED PAGE_PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $MODIFY *) (* *) (* Modify File *) (* *) (* $MODIFY fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MODIFY)] FUNCTION $MODIFY ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $MODIFY_MAPPING *) (* *) (* Modify Mapping record in Mapping database *) (* *) (* $MODIFY_MAPPING initmlst, moditmlst *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* moditmlst = address of a list of item descriptors for the operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MODIFY_MAPPING)] FUNCTION $MODIFY_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %REF MODITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $MOD_HOLDER *) (* *) (* Modify Holder Record In Rights Database *) (* *) (* $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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MOD_HOLDER)] FUNCTION $MOD_HOLDER ( %IMMED ID : UNSIGNED; HOLDER : $UQUAD; %IMMED SET_ATTRIB : UNSIGNED := %IMMED 0; %IMMED CLR_ATTRIB : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $MOD_IDENT *) (* *) (* Modify Identifier Record In Rights Database *) (* *) (* $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] *) (* *) (* id = identifier longword *) (* set_attrib = longword containing the attributes *) (* to set into the identifier record *) (* clr_attrib = longword containing the attributes *) (* to clear in the identifier record *) (* new_name = address of the new identifier name character *) (* string descriptor *) (* new_value = new identifier value longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MOD_IDENT)] FUNCTION $MOD_IDENT ( %IMMED ID : UNSIGNED; %IMMED SET_ATTRIB : UNSIGNED := %IMMED 0; %IMMED CLR_ATTRIB : UNSIGNED := %IMMED 0; NEW_NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; %IMMED NEW_VALUE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $MOUNT *) (* *) (* Mount Volume *) (* *) (* $MOUNT itmlst *) (* *) (* itmlst = Address of a list of item identifiers *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MOUNT)] FUNCTION $MOUNT ( %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $MTACCESS *) (* *) (* 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. On *) (* output of labels this field is zero. The type *) (* of label is determined by the TYPE field. *) (* uic = This field contains the longword volme UIC passed *) (* by value. *) (* std_version = This field contains a byte value of the *) (* decimal equivalent of the version number *) (* gotten from the VOL1 label, passed by value. *) (* access_char = This field contins the byte value of the *) (* accessibility character specified by the user, *) (* passed by value. For output of labels only. *) (* 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. *) (* type = This field contains the type of accessibility to process, *) (* passed by value. It must contain one of the following *) (* values: *) (* MTA$K_INVOL1 = Input a VOL1 label *) (* MTA$K_INHDR1 = Input a HDR1 label *) (* MTA$K_OUTVOL1 = Output a VOL1 label *) (* MTA$K_OUTHDR1 = Output a HDR1 label *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MTACCESS)] FUNCTION $MTACCESS ( LBLNAM : UNSIGNED; %IMMED UIC : UNSIGNED := %IMMED 0; %IMMED STD_VERSION : UNSIGNED := %IMMED 3; %IMMED ACCESS_CHAR : UNSIGNED := %IMMED 32; %IMMED ACCESS_SPEC : UNSIGNED := %IMMED 0; %IMMED TYPE_ : UNSIGNED) : INTEGER; EXTERNAL; (* $NUMTIM *) (* *) (* Convert Binary Time to Numeric Time *) (* *) (* $NUMTIM timbuf ,[timadr] *) (* *) (* timbuf = address of a 7-word buffer to receive numeric time *) (* information *) (* *) (* timadr = address of a quadword containing the 64-bit time. If *) (* 0, use current time *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$NUMTIM)] FUNCTION $NUMTIM ( VAR TIMBUF : [VOLATILE] STARLET$$TYP27; TIMADR : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $NUMUTC *) (* *) (* Convert UTC Binary Time to Numeric Time *) (* *) (* $NUMUTC timbuf ,[utcadr] *) (* *) (* timbuf = address of a 11-word buffer to receive numeric time *) (* information *) (* *) (* 31 0 *) (* +---------------+---------------+ *) (* | month of year | year since 0 | 7 word Date (ala NUMTIM) *) (* +---------------+---------------+ *) (* | hour of day | day of month | *) (* +---------------+---------------+ *) (* | sec. of min. | min. of hour | *) (* +---------------+---------------+ *) (* | iDays | hund of Sec | *) (* +---------------+---------------+ *) (* | imins | ihours | 6 word Inaccuracy *) (* +---------------+---------------+ *) (* | ihund of sec | isecs | *) (* +---------------+---------------+ *) (* | TDF in Min | *) (* +---------------+ *) (* *) (* utcadr = address of a utc_date_time to convert. *) (* 0, use current time *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$NUMUTC)] FUNCTION $NUMUTC ( VAR TIMBUF : [VOLATILE] STARLET$$TYP28; UTCADR : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $NXTVOL *) (* *) (* Go to Next Volume *) (* *) (* $NXTVOL rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$NXTVOL)] FUNCTION $NXTVOL ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $OPEN *) (* *) (* Open File *) (* *) (* $OPEN fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) [ASYNCHRONOUS,EXTERNAL(SYS$OPEN)] FUNCTION $OPEN ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $PARSE *) (* *) (* Parse File Name *) (* *) (* $PARSE fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PARSE)] FUNCTION $PARSE ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $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 into *) (* which the converted ACE is to be written *) (* *) (* error-position = address of a word to receive the number of *) (* characters actually processed by the service. *) (* If the service fails, this count points to *) (* the failing point in the input string. *) (* *) (* bit-names = address of a access bit name table (32 entries) *) (* *) (* routin = address of routine to be executed in kernel mode *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PARSE_ACL)] FUNCTION $PARSE_ACL ( ACLSTR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR ACLENT : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; VAR ERRPOS : [VOLATILE] $UWORD := %IMMED 0; %REF ACCNAM : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; (* $PARSE_CLASS itmlst, [routin] *) (* *) (* Parse access class strings *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* routin = address of routine to be executed in kernel mode *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PARSE_CLASS)] FUNCTION $PARSE_CLASS ( %REF ITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ROUTIN := %IMMED 0) : INTEGER; EXTERNAL; (* $PERSONA_CREATE *) (* *) (* Create Persona *) (* *) (* $PERSONA_CREATE persona, [usrnam], [flags], [usrpro], [itmlst] *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* usrnam = address of user name descriptor *) (* *) (* flags = bitvector value *) (* *) (* usrpro = address of a descriptor pointing to a user profile block (TLV structure) *) (* *) (* itmlst = address of item list for modifications to persona *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE)] FUNCTION $PERSONA_CREATE ( VAR PERSONA : [VOLATILE] UNSIGNED; USRNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; USRPRO : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; ITMLST : $DEFPTR := %IMMED 0) : INTEGER; EXTERNAL; (* $PERSONA_CREATE_INT *) (* *) (* Create Persona Internal Service *) (* *) (* $PERSONA_CREATE_INT persona, itmlst *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* itmlst = address of item list containing persona data *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE_INT)] FUNCTION $PERSONA_CREATE_INT ( VAR PERSONA : [VOLATILE] UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $PERSONA_ASSUME *) (* *) (* Assume Persona *) (* *) (* $PERSONA_ASSUME persona, [flags], [previous], [acmode] *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* flags = longword value *) (* *) (* previous = address of longword to receive previous persona identifier *) (* *) (* acmode = access mode of code assuming persona *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_ASSUME)] FUNCTION $PERSONA_ASSUME ( PERSONA : UNSIGNED; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR PREVIOUS : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $PERSONA_DELETE *) (* *) (* Delete Persona *) (* *) (* $PERSONA_DELETE persona *) (* *) (* persona = address of longword holding persona identifier *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELETE)] FUNCTION $PERSONA_DELETE ( PERSONA : UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_EXPORT_ARB *) (* *) (* Move Persona data to ARB structures *) (* *) (* $PERSONA_EXPORT_ARB [level] *) (* *) (* level = level of ARB_SUPPORT to be provided *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_EXPORT_ARB)] FUNCTION $PERSONA_EXPORT_ARB ( %IMMED LEVEL : INTEGER := %IMMED -1) : INTEGER; EXTERNAL; (* $PERSONA_IMPORT_ARB *) (* *) (* Load Persona Block with ARB structures data *) (* *) (* $PERSONA_IMPORT_ARB [level] *) (* *) (* level = level of ARB_SUPPORT to be provided *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_IMPORT_ARB)] FUNCTION $PERSONA_IMPORT_ARB ( %IMMED LEVEL : INTEGER := %IMMED -1) : INTEGER; EXTERNAL; (* $PERSONA_CLONE *) (* *) (* Create duplicate Persona block *) (* *) (* $PERSONA_CLONE persona *) (* *) (* persona = address of location in which to store the persona id *) (* of the clone. *) (* *) (* input_id = address of location containing the persona ID to clone *) (* OPTIONAL! *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CLONE)] FUNCTION $PERSONA_CLONE ( VAR PERSONA : [VOLATILE] UNSIGNED; INPUT_ID : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $PROCESS_AFFINITY *) (* *) (* Modify process affinity *) (* *) (* $PROCESS_AFFINITY [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags],[mask_length] *) (* *) (* pidadr = address of process identification of process for *) (* which affinity is to be changed *) (* prcnam = address of process name string descriptor *) (* select_mask = address of bitmask indicating which capabilities *) (* are to be involved in the specified operation *) (* modify_mask = address of bitmask indicating final state *) (* of those capabilities specified in select_mask *) (* prev_mask = address of user quadword that will hold the *) (* previous states of the individual capabilities *) (* flags = address of behavioral flags for this operation *) (* mask_length = address of user longword that will hold the *) (* common length of all bitmaps - select,modify,prev *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PROCESS_AFFINITY)] FUNCTION $PROCESS_AFFINITY ( PIDADR : UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; SELECT_MASK : $UQUAD := %IMMED 0; MODIFY_MASK : $UQUAD := %IMMED 0; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0; MASK_LENGTH : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $PROCESS_CAPABILITIES *) (* *) (* Modify process user capabilities *) (* *) (* $PROCESS_CAPABILITIES [pidadr],[prcnam],[select_mask],[modify_mask],[prev_mask],[flags] *) (* *) (* pidadr = address of process identification of process for *) (* which capabilities are to be modified *) (* prcnam = address of process name string descriptor *) (* select_mask = address of bitmask indicating which capabilities *) (* are to be involved in the specified operation *) (* modify_mask = address of bitmask indicating final state *) (* of those capabilities specified in select_mask *) (* prev_mask = address of user quadword that will hold the *) (* previous states of the individual capabilities *) (* flags = address of behavioral flags for this operation *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PROCESS_CAPABILITIES)] FUNCTION $PROCESS_CAPABILITIES ( PIDADR : UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; SELECT_MASK : $UQUAD := %IMMED 0; MODIFY_MASK : $UQUAD := %IMMED 0; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0; FLAGS : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $PROCESS_SCAN *) (* *) (* Initialize Process_scan context *) (* *) (* $Process_scan pidctx , [itmlst ] *) (* *) (* pidctx = address of process ctx id *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PROCESS_SCAN)] FUNCTION $PROCESS_SCAN ( VAR PIDCTX : [VOLATILE] UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $PSHARED_REGISTER *) (* *) (* Register a process and global section *) (* *) (* $PSHARED_REGISTER addr *) (* *) (* 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 *) (* *) (* length_64 = Byte length of addresses to purge *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PURGE_WS)] FUNCTION $PURGE_WS ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER) : INTEGER; EXTERNAL; (* $PURGWS *) (* *) (* Purge Working Set *) (* *) (* $PURGWS inadr *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending addresses of pages to be removed *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PURGWS)] FUNCTION $PURGWS ( INADR : STARLET$$TYP29) : INTEGER; EXTERNAL; (* *) (* $PUT *) (* *) (* Put Record to File *) (* *) (* $PUT rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PUT)] FUNCTION $PUT ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $PUTMSG *) (* *) (* Put Message *) (* *) (* $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] *) (* *) (* msgvec = address of message argument vector *) (* *) (* actrtn = address of entry mask of action routine *) (* *) (* facnam = address of facility name string descriptor *) (* *) (* actprm = parameter to pass to action routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PUTMSG)] FUNCTION $PUTMSG ( %REF MSGVEC : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ACTRTN := %IMMED 0; FACNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED ACTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $QIO *) (* *) (* Queue I/O Request *) (* *) (* $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm] *) (* ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* chan = number of channel on which I/O is directed *) (* *) (* func = function code specifying action to be performed *) (* *) (* iosb = address of quadword I/O status block to receive final *) (* completion status *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) (* p1... = optional device- and function-specific parameters *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$QIO)] FUNCTION $QIO ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED FUNC : INTEGER; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %REF P1 : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0; %IMMED P2 : INTEGER := %IMMED 0; %IMMED P3 : INTEGER := %IMMED 0; %IMMED P4 : INTEGER := %IMMED 0; %IMMED P5 : INTEGER := %IMMED 0; %IMMED P6 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$QIOW)] FUNCTION $QIOW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED FUNC : INTEGER; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %REF P1 : [UNSAFE] ARRAY [$l7..$u7:INTEGER] OF $UBYTE := %IMMED 0; %IMMED P2 : INTEGER := %IMMED 0; %IMMED P3 : INTEGER := %IMMED 0; %IMMED P4 : INTEGER := %IMMED 0; %IMMED P5 : INTEGER := %IMMED 0; %IMMED P6 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $READ *) (* *) (* Read Block from File *) (* *) (* $READ rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$READ)] FUNCTION $READ ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $READEF *) (* *) (* Read Event Flag *) (* *) (* $READEF efn ,state *) (* *) (* efn = event flag number of any flag in the cluster *) (* *) (* state = address of a longword to receive current state of all *) (* flags in the cluster *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$READEF)] FUNCTION $READEF ( %IMMED EFN : UNSIGNED; VAR STATE : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $READ_THREAD_UNQ *) (* *) (* Read thread unique value *) (* *) (* $READ_THREAD_UNQ contxt *) (* *) (* contxt = address of quadword in which to return the *) (* thread unique value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$READ_THREAD_UNQ)] FUNCTION $READ_THREAD_UNQ ( VAR CONTXT : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $REGISTRY *) (* *) (* Interface to the Registry Database *) (* *) (* $REGISTRY [efn], func, [ntcredentials], itmlst, [iosb] *) (* [,astadr] [,astprm] [,timeout] *) (* ($REGISTRYW) *) (* *) (* efn = event flag to be set at completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* ntcredentials = address of an NT user credentials buffer *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* timeout = request timeout value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REGISTRY)] FUNCTION $REGISTRY ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; NTCREDENTIALS : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED TIMEOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$REGISTRYW)] FUNCTION $REGISTRYW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; NTCREDENTIALS : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED TIMEOUT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $RELEASE *) (* *) (* Release Record *) (* *) (* $RELEASE rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RELEASE)] FUNCTION $RELEASE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $RELEASE_LICENSE *) (* *) (* Release authorization to execute licensed software product. *) (* *) (* $RELEASE_LICENSE context *) (* *) (* contxt = address of context buffer returned by *) (* $grant_license (4 longwords) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_LICENSE)] FUNCTION $RELEASE_LICENSE ( %REF CONTXT : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $RELEASE_VP *) (* *) (* Release the Vector Processor *) (* *) (* $RELEASE_VP *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_VP)] FUNCTION $RELEASE_VP : INTEGER; EXTERNAL; (* *) (* $RELEASE_VP_INT *) (* *) (* Release the Vector Processor, internal form *) (* *) (* $RELEASE_VP_INT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_VP_INT)] FUNCTION $RELEASE_VP_INT : INTEGER; EXTERNAL; (* *) (* $REMOVE *) (* *) (* Remove File *) (* *) (* $REMOVE fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REMOVE)] FUNCTION $REMOVE ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $REM_HOLDER *) (* *) (* Remove Holder Record From Rights Database *) (* *) (* $REM_HOLDER id, holder *) (* *) (* id = identifier longword *) (* holder = address of the holder identifier quadword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REM_HOLDER)] FUNCTION $REM_HOLDER ( %IMMED ID : UNSIGNED; HOLDER : $UQUAD) : INTEGER; EXTERNAL; (* *) (* $REM_IDENT *) (* *) (* Remove Identifier From Rights Database *) (* *) (* $REM_IDENT id *) (* *) (* id = identifier longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REM_IDENT)] FUNCTION $REM_IDENT ( %IMMED ID : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $RENAME *) (* *) (* Rename File *) (* *) (* $RENAME oldfab, [err], [suc], newfab *) (* *) (* oldfab = address of oldfab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) (* newfab = address of new fab *) [ASYNCHRONOUS,EXTERNAL(SYS$RENAME)] FUNCTION $RENAME ( %REF OLDFAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0; %REF NEWFAB : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $RESTORE_VP_EXCEPTION *) (* *) (* Restore Vector Processor Exception State *) (* *) (* $RESTORE_VP_EXCEPTION excid *) (* *) (* excid = address of a context longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_EXCEPTION)] FUNCTION $RESTORE_VP_EXCEPTION ( EXCID : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $RESTORE_VP_EXC_INT *) (* *) (* Restore Vector Processor Exception State *) (* *) (* $RESTORE_VP_EXC_INT excid *) (* *) (* excid = address of a context longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_EXC_INT)] FUNCTION $RESTORE_VP_EXC_INT ( EXCID : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $RESTORE_VP_STATE *) (* *) (* Restore Mainline Vector State *) (* *) (* $RESTORE_VP_STATE *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESTORE_VP_STATE)] FUNCTION $RESTORE_VP_STATE : INTEGER; EXTERNAL; (* $RESUME *) (* *) (* Resume Suspended Process *) (* *) (* $RESUME [pidadr] ,[prcnam] *) (* *) (* pidadr = address of process id of process to be resumed *) (* *) (* prcnam = address of process name string descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESUME)] FUNCTION $RESUME ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $REVOKID *) (* *) (* Revoke Identifier from Process *) (* *) (* $REVOKID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] *) (* *) (* pidadr = address of PID of affected process *) (* prcnam = address of string descriptor of process name *) (* id = address of quadword identifier and attributes *) (* name = address of string descriptor of identifier name *) (* prvatr = address to store attributes of superseded id *) (* segment = optional segment index, by value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REVOKID)] FUNCTION $REVOKID ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; VAR ID : [VOLATILE] $UQUAD := %IMMED 0; NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; VAR PRVATR : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED SEGMENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $REWIND *) (* *) (* Rewind File *) (* *) (* $REWIND rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$REWIND)] FUNCTION $REWIND ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $RMSRUNDWN *) (* *) (* RMS rundown (close all files opened by OpenVMS RMS for *) (* the image or process and halts I/O activity. *) (* *) (* $RMSRUNDWN buf-addr, type-value *) (* *) (* buf-addr = a descriptor pointing to a 22-byte buffer *) (* that is to receive the device identification *) (* (16 bytes) and the file identification (6 bytes) *) (* bytes) of an improperly closed output file. *) (* type-value = a single byte code that specifies the type of *) (* I/O rundown to be performed. *) [ASYNCHRONOUS,EXTERNAL(SYS$RMSRUNDWN)] FUNCTION $RMSRUNDWN ( VAR BUFADDR : [CLASS_S,VOLATILE] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED TYPEVALUE : INTEGER) : INTEGER; EXTERNAL; (* $RUNDWN *) (* *) (* Rundown Process *) (* *) (* $RUNDWN [acmode] *) (* *) (* acmode = access mode to rundown; this and all less *) (* privileged access modes are rundown *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RUNDWN)] FUNCTION $RUNDWN ( %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SAVE_VP_EXCEPTION *) (* *) (* Save Vector Processor Exception State *) (* *) (* $SAVE_VP_EXCEPTION excid ,[flags] *) (* *) (* excid = address of a context longword *) (* *) (* flags = noallocation flag *) (* 0 -> allocate 1 -> don't allocate *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SAVE_VP_EXCEPTION)] FUNCTION $SAVE_VP_EXCEPTION ( VAR EXCID : [VOLATILE] UNSIGNED; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $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 flag *) (* 0 -> allocate 1 -> don't allocate *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SAVE_VP_EXC_INT)] FUNCTION $SAVE_VP_EXC_INT ( VAR EXCID : [VOLATILE] UNSIGNED; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SCAN_INTRUSION *) (* *) (* Scan intrusion database *) (* *) (* $SCAN_INTRUSION logfail_status, failed_user, job_type, *) (* [source_terminal], [source_node], [source_user], [source_addr], *) (* [failed_password], [parent_user], [parent_id], [flags] *) (* *) (* logfail_status in login failure status *) (* failed_user in address of failed username descriptor *) (* job_type in job type index *) (* source_terminal in address of source terminal descriptor *) (* source_node in address of source nodename descriptor *) (* source_user in address of source username descriptor *) (* source_address in address of source DECnet address *) (* failed_password in address of failed password (breakin attempts only) *) (* parent_user in address of parent username *) (* parent_id in parent PID *) (* flags in intrusion service flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SCAN_INTRUSION)] FUNCTION $SCAN_INTRUSION ( %IMMED LOGFAIL_STATUS : UNSIGNED; FAILED_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED JOB_TYPE : UNSIGNED; SOURCE_TERMINAL : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; SOURCE_NODE : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; SOURCE_USER : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; SOURCE_ADDRESS : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; FAILED_PASSWORD : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; PARENT_USER : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0; %IMMED PARENT_ID : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SCAN_MAPPING *) (* *) (* Locate Mapping records in Mapping database *) (* *) (* $SCAN_MAPPING initmlst. outitmlst [,contxt] *) (* *) (* initmlst = address of a list of item descriptors for the operation *) (* outitmlst = address of a list of item descriptors for the operation *) (* contxt = address of a context long word *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SCAN_MAPPING)] FUNCTION $SCAN_MAPPING ( %REF INITMLST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %REF OUTITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SCHDWK *) (* *) (* Schedule Wakeup *) (* *) (* $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] *) (* *) (* pidadr = address of process id of process to be awakened *) (* *) (* prcnam = address of process name string descriptor *) (* *) (* daytim = address of quadword containing time to wake *) (* *) (* reptim = address of quadword containing repeat time interval *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SCHDWK)] FUNCTION $SCHDWK ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; DAYTIM : $UQUAD; REPTIM : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SEARCH *) (* *) (* Search for File Name *) (* *) (* $SEARCH fab, [err], [suc] *) (* *) (* fab = address of fab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SEARCH)] FUNCTION $SEARCH ( %REF FAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $SETCLUEVT *) (* *) (* Set Cluster Event Notification *) (* *) (* $SETCLUEVT event, astadr, [astprm], [acmode], [handle] *) (* *) (* event = code indicating type of event *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as an argument *) (* *) (* acmode = access mode of AST *) (* *) (* handle = address of handle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETCLUEVT)] FUNCTION $SETCLUEVT ( %IMMED EVENT : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR HANDLE : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETDDIR *) (* *) (* Read and set the default directory string for the process. *) (* *) (* $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr] *) (* *) (* new-dir-addr = a descriptor of the new default directory. *) (* *) (* length-addr = a word that is to receive the length of the *) (* current default directory. *) (* *) (* cur-dir-addr = descriptor of a buffer that is to receive *) (* the current default directory. *) [ASYNCHRONOUS,EXTERNAL(SYS$SETDDIR)] FUNCTION $SETDDIR ( NEWDIRADDR : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; VAR LENGTHADDR : [VOLATILE] $UWORD := %IMMED 0; VAR CURDIRADDR : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $SETDFPROT *) (* *) (* Read and write the default file protection for the process. *) (* *) (* $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] *) (* *) (* new-def-prot-addr = a word that specifies the new default file *) (* protection specification. *) (* *) (* cur-def-prot-addr = a word that is to receive the current default file *) (* protection specification. *) [ASYNCHRONOUS,EXTERNAL(SYS$SETDFPROT)] FUNCTION $SETDFPROT ( NEWDEFPROTADDR : $UWORD := %IMMED 0; VAR CURDEFPROTADDR : [VOLATILE] $UWORD := %IMMED 0) : INTEGER; EXTERNAL; (* $SET_RETURN_VALUE *) (* *) (* Set return value/status in the Mechanism array *) (* *) (* $SET_RETURN_VALUE [mechanism_arg], [return_type], return_value *) (* *) (* mechanism_arg = Address of mechanism vector *) (* *) (* return_type = Address of a longword containing one of the values *) (* specified in the Function Return Signature Encoding tables *) (* of the OpenVMS calling standard. *) (* *) (* 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. *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_RETURN_VALUE)] FUNCTION $SET_RETURN_VALUE ( %IMMED MECHANISM_ARG : $DEFPTR := %IMMED 0; RETURN_TYPE : UNSIGNED := %IMMED 0; RETURN_VALUE : $DEFPTR) : INTEGER; EXTERNAL; (* $SET_SYSTEM_EVENT *) (* *) (* Set System Event Notification *) (* *) (* $SET_SYSTEM_EVENT event, astadr, [astprm], [acmode], handle *) (* *) (* event = code indicating type of event *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as an argument *) (* *) (* acmode = access mode of AST *) (* *) (* flags = flags longword (one example is to indicate whether the notification *) (* of the event should be done only once or should be repeated) *) (* *) (* event_handle = address of handle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_SYSTEM_EVENT)] FUNCTION $SET_SYSTEM_EVENT ( %IMMED EVENT : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ASTPRM : INTEGER := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR HANDLE : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $SET_IMPLICIT_AFFINITY *) (* *) (* Modify process implicit affinity *) (* *) (* $SET_IMPLICIT_AFFINITY [pidadr],[prcnam],[state],[cpu_id],[prev_mask] *) (* *) (* pidadr = address of process identification of process for *) (* which affinity is to be changed *) (* prcnam = address of process name string descriptor *) (* cpu_id = CPUID number process is to be assigned to initially *) (* prev_mask = address of user quadword that will hold the *) (* previous states of the individual capabilities *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_IMPLICIT_AFFINITY)] FUNCTION $SET_IMPLICIT_AFFINITY ( PIDADR : UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; STATE : $UQUAD := %IMMED 0; %IMMED CPU_ID : INTEGER := %IMMED -1; VAR PREV_MASK : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $SET_RESOURCE_DOMAIN *) (* *) (* Set Resource Domain *) (* *) (* $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] *) (* *) (* func = join or leave function to be performed *) (* 1 - Join the System Resource Domain *) (* 2 - Join the Process Default Domain *) (* 3 - Join a new Resource Domain (not System or Process) *) (* *) (* rsdm_id = address of the Resource Domain Id *) (* *) (* domain_number = number identifying target Resource Domain *) (* *) (* nullarg = Placeholder reserved to Digital *) (* *) (* access = Access desired (defined by RSDM$M macro *) (* *) (* acmode = requested access mode *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_RESOURCE_DOMAIN)] FUNCTION $SET_RESOURCE_DOMAIN ( %IMMED FUNC : UNSIGNED; VAR RSDM_ID : [VOLATILE] UNSIGNED; %IMMED DOMAIN_NUMBER : UNSIGNED; %IMMED NULLARG : UNSIGNED := %IMMED 0; %IMMED ACCESS : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SET_SECURITY *) (* *) (* Set Object Security Profile *) (* *) (* $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_SECURITY)] FUNCTION $SET_SECURITY ( CLSNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; OBJNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; OBJHAN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SET_UNWIND_TABLE *) (* *) (* Register or extend and unwind table (UT) information *) (* *) (* $SET_UNWIND_TABLE code_base_va, code_size, ut_base_va, ut_size, *) (* handler_base_va, unwind_info_base, name *) (* *) (* code_base_va = The process virtual address of the start of the code region *) (* *) (* code_size = Size of code region in bytes *) (* *) (* 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 condition *) (* handler procedure value must add up to the process virtual address *) (* of the condition handler's function value. *) (* *) (* unwind_info_base = The unwind_info_base plus a particular unwind table entry (UTE) *) (* unwind info block (UIB) offset must add up to the process virtual *) (* address of that UIB. *) (* *) (* name = Fixed length string, passed by descriptor. *) (* *) (* flags = MUTE flags, mask word, optional *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_UNWIND_TABLE)] FUNCTION $SET_UNWIND_TABLE ( %IMMED CODE_BASE_VA : INTEGER := %IMMED 0; %IMMED CODE_SIZE : INTEGER := %IMMED 0; %IMMED UT_BASE_VA : INTEGER := %IMMED 0; %IMMED UT_SIZE : INTEGER := %IMMED 0; %IMMED HANDLER_BASE_VA : INTEGER := %IMMED 0; %IMMED UNWIND_INFO_BASE : INTEGER := %IMMED 0; NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; %IMMED FLAGS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SETAST *) (* *) (* Set AST Enable *) (* *) (* $SETAST enbflg *) (* *) (* enbflg = AST enable indicator for current access mode *) (* 0 -> disable 1 -> enable *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETAST)] FUNCTION $SETAST ( %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; (* $SETEF *) (* *) (* Set Event Flag *) (* *) (* $SETEF efn *) (* *) (* efn = event flag number of flag to set *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETEF)] FUNCTION $SETEF ( %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; (* $GETENV *) (* *) (* Get an environment variable *) (* *) (* $GETENV ItemList *) (* *) (* ItemList = address of a zero terminated item list. *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETENV)] FUNCTION $GETENV ( %REF ITEMLIST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $SETENV *) (* *) (* Set an environment variable *) (* *) (* $SETENV ItemList *) (* *) (* ItemList = address of a zero terminated item list. *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETENV)] FUNCTION $SETENV ( %REF ITEMLIST : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $SETEVTAST *) (* *) (* Establish an Event AST Routine *) (* *) (* $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid] *) (* (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] *) (* ,[astprm], [nullarg] *) (* *) (* evtnam = address of descriptor of event name *) (* *) (* evtadr = address of entry mask of event AST routine *) (* *) (* evtfac = address of event facility code *) (* *) (* acmode = access mode of event declaration *) (* *) (* flags = optional flags *) (* *) (* reqid = user provided identification of this request *) (* *) (* 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 *) (* *) (* astadr = address of entry mask of completion AST routine *) (* *) (* astprm = value to be passed to completion AST routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETEVTAST)] FUNCTION $SETEVTAST ( EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR; EVTFAC : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REQID : UNSIGNED := %IMMED 0; VAR EVTID : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED EVTCRD : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SETEVTASTW)] FUNCTION $SETEVTASTW ( EVTNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVTADR; EVTFAC : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REQID : UNSIGNED := %IMMED 0; VAR EVTID : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED EVTCRD : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED NULLARG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETEXV *) (* *) (* Set Exception Vector *) (* *) (* $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] *) (* *) (* vector = vector number *) (* 0 -> primary vector 1 -> secondary 2 -> last chance *) (* *) (* addres = exception handler address (0 indicates deassign vector) *) (* *) (* acmode = access mode for which vector is set *) (* *) (* prvhnd = address of longword to receive previous handler address *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETEXV)] FUNCTION $SETEXV ( %IMMED VECTOR : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ADDRES := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR PRVHND : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETFLT *) (* *) (* Set Fault Characteristics on Pages *) (* *) (* $SETFLT inadr ,[retadr] ,[acmode] ,fault_flag *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to change *) (* *) (* retadr = address of 2-longword array containing starting and *) (* ending addresses of pages which were changed *) (* *) (* acmode = access mode of request *) (* *) (* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETFLT)] FUNCTION $SETFLT ( INADR : STARLET$$TYP30; VAR RETADR : [VOLATILE] STARLET$$TYP31 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FAULT_FLAG : UNSIGNED) : INTEGER; EXTERNAL; (* $SETFLT_64 *) (* *) (* Set Fault Characteristics on Pages *) (* *) (* $SETLFT_64 start_va_64, length_64, acmode, fault_flag, return_va_64, return_length_64 *) (* *) (* start_va_64 = Starting address of address space to set protection *) (* *) (* length_64 = Byte length of addresses to set protection *) (* *) (* acmode = Access mode of request *) (* *) (* fault_flag = New fault characteristic (FLT$M_EXECUTABLE or FLT$M_NO_EXECUTE) *) (* *) (* return_va_64 = Address of address space whose protection was set *) (* *) (* return_length_64 = Length of address space whose protection was set *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETFLT_64)] FUNCTION $SETFLT_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FAULT_FLAG : UNSIGNED; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $SETIME *) (* *) (* Set System Time *) (* *) (* $SETIME [timadr] *) (* *) (* timadr = address of quadword containing new system time in *) (* 64-bit format. If 0, recalibrate system time using *) (* hardware time-of-year clock. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETIME)] FUNCTION $SETIME ( TIMADR : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $SETIMR *) (* *) (* Set Timer *) (* *) (* $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] *) (* *) (* efn = event flag to set when timer expires *) (* *) (* daytim = address of quadword containing 64-bit time value *) (* *) (* 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, *) (* then this timer request is in terms of CPU time. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETIMR)] FUNCTION $SETIMR ( %IMMED EFN : UNSIGNED := %IMMED 0; DAYTIM : $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED REQIDT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPFM *) (* *) (* Set Page Fault Monitoring *) (* *) (* $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] *) (* *) (* pfmflg = function/subfunction bits *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* acmode = access mode for which the AST is to be declared *) (* *) (* bufcntadr = address of longword for which the number of *) (* page fault monitoring buffers allocated is stored. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPFM)] FUNCTION $SETPFM ( %IMMED PFMFLG : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED BUFCNTADR : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPRA *) (* *) (* Set Power Recovery AST *) (* *) (* $SETPRA astadr ,[acmode] *) (* *) (* astadr = address of power recovery AST routine *) (* *) (* acmode = access mode of AST *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRA)] FUNCTION $SETPRA ( %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPRI *) (* *) (* Set Priority *) (* *) (* $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri],[pol],[prvpol] *) (* *) (* pidadr = address of process id of process to be set *) (* *) (* prcnam = address of process name string descriptor *) (* *) (* pri = new base priority for the process *) (* *) (* prvpri = address of longword to receive previous base priority *) (* *) (* pol = address of new scheduling policy for the process *) (* *) (* prvpol = address of longword to receive previous sched policy *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRI)] FUNCTION $SETPRI ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED PRI : UNSIGNED; VAR PRVPRI : [VOLATILE] UNSIGNED := %IMMED 0; POL : UNSIGNED := %IMMED 0; VAR PRVPOL : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPRN *) (* *) (* Set Process Name *) (* *) (* $SETPRN [prcnam] *) (* *) (* prcnam = address of the process name string descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRN)] FUNCTION $SETPRN ( PRCNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPRT *) (* *) (* Set Protection on Pages *) (* *) (* $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to change *) (* *) (* retadr = address of 2-longword array containing starting and *) (* ending addresses of pages which were changed *) (* *) (* acmode = access mode of request *) (* *) (* prot = new protection *) (* *) (* prvprt = address of byte to receive previous protection of *) (* last page changed *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRT)] FUNCTION $SETPRT ( INADR : STARLET$$TYP32; VAR RETADR : [VOLATILE] STARLET$$TYP33 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED PROT : UNSIGNED; VAR PRVPRT : [VOLATILE] $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $SETPRT_64 *) (* *) (* Set Protection on Pages *) (* *) (* $SETPRT_64 start_va_64, length_64, acmode, prot, return_va_64, return_length_64, *) (* return_prot_64 *) (* *) (* start_va_64 = Starting address of address space to set protection *) (* *) (* length_64 = Byte length of addresses to set protection *) (* *) (* acmode = Access mode of request *) (* *) (* prot = New protection *) (* *) (* return_va_64 = Address of address space whose protection was set *) (* *) (* return_length_64 = Length of address space whose protection was set *) (* *) (* return_prot_64 = Address of longword to receive previous protection of *) (* last page changed *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRT_64)] FUNCTION $SETPRT_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED PROT : UNSIGNED; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; VAR RETURN_PROT_64 : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $SETPRV *) (* *) (* Set privileges. *) (* $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] *) (* *) (* enbflg = enable indicator *) (* 0 -> disable 1 -> enable *) (* *) (* prvadr = 64-bit mask defining the privileges to be enabled or *) (* disabled *) (* *) (* prmflg = permanent indicator *) (* 0 -> temporary (for this image) 1 -> permanent *) (* *) (* prvprv = address of quadword buffer to receive previous privileges *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETPRV)] FUNCTION $SETPRV ( %IMMED ENBFLG : INTEGER := %IMMED 0; PRVADR : $UQUAD := %IMMED 0; %IMMED PRMFLG : INTEGER := %IMMED 0; VAR PRVPRV : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $SETRWM *) (* *) (* Set Resource Wait Mode *) (* *) (* $SETRWM [watflg] *) (* *) (* watflg = wait indicator *) (* 0 -> wait for resources 1 -> return failure immediately *) (* (type is NUMBER rather than BOOLEAN since WATFLG=TRUE *) (* means don't wait, which is the opposite of what is seems) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETRWM)] FUNCTION $SETRWM ( %IMMED WATFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SETSFM *) (* *) (* Set System Service Failure Mode *) (* *) (* $SETSFM [enbflg] *) (* *) (* enbflg = enable indicator *) (* 0 -> disable generation of exceptions on service failures *) (* 1 -> generate exceptions for system service failures *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSFM)] FUNCTION $SETSFM ( %IMMED ENBFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SETSSF *) (* *) (* Set System Service Filter *) (* *) (* $SETSSF [mask] *) (* *) (* mask = flags for services to inhibit *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSSF)] FUNCTION $SETSSF ( %IMMED MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETSHLV *) (* *) (* Modify process default unshelving action *) (* *) (* $SETSHLV [pidadr] ,[prcnam], [shlvflg] *) (* *) (* pidadr = address of process id of process *) (* *) (* prcnam = address of name string descriptor of process *) (* *) (* shlvflg = longword containing the desired shelving mode *) (* in the bottom bit. If the bottom bit is set, *) (* then the default is not to automatically unshelve *) (* shelved files. If the bottom bit is clear, then *) (* the default is to automatically unshelve shelved *) (* files. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSHLV)] FUNCTION $SETSHLV ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED SHLVFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETSTK *) (* *) (* SET VIRTUAL STACK LIMITS *) (* *) (* $SETSTK inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual address of stack limits to set *) (* *) (* retadr = address of a 2-longword array to receive starting and *) (* ending virtual address of stack limits to set *) (* *) (* acmode = access mode for the stack to change *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSTK)] FUNCTION $SETSTK ( INADR : STARLET$$TYP34; VAR RETADR : [VOLATILE] STARLET$$TYP35 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SETSTK_64 *) (* *) (* SET VIRTUAL STACK LIMITS *) (* *) (* $SETSTK_64 start_va, length, acmode, flags, prev_start_va_64, prev_length_64 *) (* *) (* start_va_64 = lowest address for new stack limits *) (* *) (* length_64 = length of address range for new stack limits *) (* *) (* acmode = access mode for the stack to change *) (* *) (* flags = VA$M_SETSTK_REGISTER - set register stack limits (IA64 only) *) (* *) (* prev_start_va_64 = pointer to lowest address for previous stack limits *) (* *) (* prev_length_64 = pointer to length of previous stack limits *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSTK_64)] FUNCTION $SETSTK_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR PREV_START_VA_64 : [VOLATILE] $UQUAD; VAR PREV_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $SETSWM *) (* *) (* Set Process Swap Mode *) (* *) (* $SETSWM [swpflg] *) (* *) (* swpflg = swap indicator *) (* 0 -> enable swapping 1 -> disable swapping *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETSWM)] FUNCTION $SETSWM ( %IMMED SWPFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SETDTI *) (* *) (* Set Distributed Transaction Information *) (* *) (* $SETDTI [efn], [flags], iosb, [astadr], [astprm], context, *) (* ($SETDTIW) func, itmlst *) (* *) (* efn = event flag to set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of the entry mask of an AST routine *) (* astprm = value to be passed to AST routine *) (* context = address of longword search context *) (* func = function code to be performed *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETDTI)] FUNCTION $SETDTI ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; CONTXT : UNSIGNED; %IMMED FUNC : INTEGER; %REF ITMLST : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SETDTIW)] FUNCTION $SETDTIW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; CONTXT : UNSIGNED; %IMMED FUNC : INTEGER; %REF ITMLST : [UNSAFE] ARRAY [$l8..$u8:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $SETUAI *) (* *) (* Modify User Authorization Information *) (* *) (* $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] *) (* ,[astprm] *) (* *) (* efn = event flag to be set at completion *) (* *) (* contxt = address of a context longword (UAF IFI & ISI) *) (* *) (* usrnam = address of user name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETUAI)] FUNCTION $SETUAI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; USRNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SHOW_INTRUSION *) (* *) (* Show intrusion record *) (* *) (* $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context] *) (* *) (* user_criteria in address of user criteria descriptor *) (* intruder in out address of intruder descriptor *) (* intruder_len out address of word to receive intruder string length *) (* breakin_block out address of intrusion block *) (* flags in intrusion service flags *) (* context in out address of optional longword context *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SHOW_INTRUSION)] FUNCTION $SHOW_INTRUSION ( USER_CRITERIA : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR INTRUDER : [CLASS_S,VOLATILE] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; VAR INTRUDER_LEN : [VOLATILE] $UWORD; %REF BREAKIN_BLOCK : [VOLATILE,UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SNDACC *) (* *) (* Send Message to Accounting Manager *) (* *) (* $SNDACC msgbuf ,[chan] *) (* *) (* msgbuf = address of message buffer string descriptor *) (* *) (* chan = number of channel assigned to mailbox to receive reply *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SNDACC)] FUNCTION $SNDACC ( MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SNDERR *) (* *) (* Send Message to Error Logger *) (* *) (* $SNDERR msgbuf *) (* *) (* msgbuf = address of message buffer string descriptor *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SNDERR)] FUNCTION $SNDERR ( MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR) : INTEGER; EXTERNAL; (* $SNDOPR *) (* *) (* Send Message to Operator *) (* *) (* $SNDOPR msgbuf ,[chan] *) (* *) (* msgbuf = address of message buffer string descriptor *) (* *) (* chan = number of channel assigned to mailbox to receive reply *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SNDOPR)] FUNCTION $SNDOPR ( MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SNDSMB *) (* *) (* Send Message to Symbiont Manager *) (* *) (* $SNDSMB msgbuf ,[chan] *) (* *) (* msgbuf = address of message buffer string descriptor *) (* *) (* chan = number of channel assigned to mailbox to receive reply *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SNDSMB)] FUNCTION $SNDSMB ( MSGBUF : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED CHAN : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SNDJBC *) (* *) (* Send Message to Job Controller *) (* *) (* $SNDJBC [efn], func, [nullarg], [itmlst], *) (* ($SNDJBCW) [iosb], [astadr], [astprm] *) (* *) (* efn = event flag to be set when request completes *) (* func = code specifying function to be performed *) (* nullarg = reserved argument for similarity with $getxxx services *) (* itmlst = address of a list of item descriptors for the operation *) (* iosb = address of a quadword status block to receive the final status *) (* astadr = address of an ast routine to be called when request completes *) (* astprm = 32-bit ast parameter *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SNDJBC)] FUNCTION $SNDJBC ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; %IMMED NULLARG : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SNDJBCW)] FUNCTION $SNDJBCW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; %IMMED NULLARG : UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SPACE *) (* *) (* Space to Record in File *) (* *) (* $SPACE rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SPACE)] FUNCTION $SPACE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_FSYNC *) (* *) (* Synchronize file changes with the storage device for a file that *) (* has been opened for Shared Stream I/O (SSIO) access. *) (* *) (* $SSIO_FSYNC chan, iosa ,[ast] ,[astprm] *) (* ($SSIO_FSYNCW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_FSYNC)] FUNCTION $SSIO_FSYNC ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_FSYNCW)] FUNCTION $SSIO_FSYNCW ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_GETFL *) (* *) (* Get the current file status flags for a file that has been opened *) (* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with *) (* F_SETFL command parameter. *) (* *) (* $SSIO_GETFL chan ,iosa ,[ast] ,[astprm] *) (* ($SSIO_GETFLW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status and file status flags (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_GETFL)] FUNCTION $SSIO_GETFL ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_GETFLW)] FUNCTION $SSIO_GETFLW ( %IMMED CHAN : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_LSEEK *) (* *) (* Set the current file offset to a file that has been opened for *) (* Shared Stream I/O (SSIO) access. *) (* *) (* $SSIO_LSEEK chan ,offset_in ,whence ,iosa ,[ast] ,[astprm] *) (* ($SSIO_LSEEKW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* offset_in = signed offset value used in conjunction with the *) (* whence parameter to determine a new resultant file *) (* offset (64-bit value) *) (* *) (* whence = value that controls interpretation of offset_in *) (* Must be one of: *) (* 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 *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_LSEEK)] FUNCTION $SSIO_LSEEK ( %IMMED CHAN : UNSIGNED; %IMMED OFFSET_IN : INTEGER; %IMMED WHENCE : INTEGER; IOSA : $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_LSEEKW)] FUNCTION $SSIO_LSEEKW ( %IMMED CHAN : UNSIGNED; %IMMED OFFSET_IN : INTEGER; %IMMED WHENCE : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_READ *) (* *) (* Read a byte stream from the current file offset from a file that *) (* has been opened for Shared Stream I/O (SSIO) access *) (* *) (* $SSIO_READ chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] *) (* ($SSIO_READW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* buffer = address of data buffer to receive data (64-bit address) *) (* *) (* bufsiz = size of data buffer in bytes (64-bit value) *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_READ)] FUNCTION $SSIO_READ ( %IMMED CHAN : UNSIGNED; VAR BUFFER : [VOLATILE] $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_READW)] FUNCTION $SSIO_READW ( %IMMED CHAN : UNSIGNED; VAR BUFFER : [VOLATILE] $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_SETFL *) (* *) (* Set the current file status flags for a file that has been opened *) (* for Shared Stream I/O (SSIO) access. Similar to UNIX fcntl with *) (* F_SETFL command parameter. *) (* *) (* $SSIO_SETFL chan ,file_sts_flgs ,iosa ,[ast] ,[astprm] *) (* ($SSIO_SETFLW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* file_sts_flgs = desired file status flag value *) (* Only mask value that can be changed is SSIO$M_O_APPEND. *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SETFL)] FUNCTION $SSIO_SETFL ( %IMMED CHAN : UNSIGNED; %IMMED FILE_STS_FLGS : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SETFLW)] FUNCTION $SSIO_SETFLW ( %IMMED CHAN : UNSIGNED; %IMMED FILE_STS_FLGS : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_SYNC *) (* *) (* Synchronize file changes that have been made via prior calls to *) (* the $SSIO_WRITE and $SSIO_TRUNCATE services to all files on this *) (* system that have been opened for Shared Stream I/O (SSIO) access. *) (* The file changes are synchronized with the corresponding storage *) (* device. *) (* *) (* $SSIO_SYNC *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_SYNC)] FUNCTION $SSIO_SYNC : INTEGER; EXTERNAL; (* $SSIO_TRUNCATE *) (* *) (* Truncate (or extend) a file that has been opened for Shared *) (* Stream I/O (SSIO) access. *) (* *) (* $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) *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_TRUNCATE)] FUNCTION $SSIO_TRUNCATE ( %IMMED CHAN : UNSIGNED; %IMMED FILE_LENGTH : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_TRUNCATEW)] FUNCTION $SSIO_TRUNCATEW ( %IMMED CHAN : UNSIGNED; %IMMED FILE_LENGTH : INTEGER; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SSIO_WRITE *) (* *) (* Write a byte stream to the current file offset to a file that *) (* has been opened for Shared Stream I/O (SSIO) access *) (* *) (* $SSIO_WRITE chan ,buffer ,bufsiz ,iosa ,[ast] ,[astprm] *) (* ($SSIO_WRITEW) *) (* *) (* chan = channel number for SSIO accessed file *) (* *) (* buffer = address of data buffer to receive data (64-bit address) *) (* *) (* bufsiz = size of data buffer in bytes (64-bit value) *) (* *) (* iosa = address of I/O status area (4 quadwords) to receive final *) (* completion status (64-bit address) *) (* *) (* ast = address of AST routine (64-bit address) *) (* *) (* astprm = value to be passed to AST routine as argument (64-bit value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_WRITE)] FUNCTION $SSIO_WRITE ( %IMMED CHAN : UNSIGNED; BUFFER : $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SSIO_WRITEW)] FUNCTION $SSIO_WRITEW ( %IMMED CHAN : UNSIGNED; BUFFER : $DEFPTR; %IMMED BUFSIZ : UNSIGNED; VAR IOSA : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE AST := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $SUSPND *) (* *) (* Suspend Process *) (* *) (* $SUSPND [pidadr] ,[prcnam], [flags] *) (* *) (* pidadr = address of process id of process to be suspended *) (* *) (* prcnam = address of name string descriptor of process *) (* *) (* flags = longword of bit flags, of which only bit 0 is *) (* currently used. If bit 0 is set, then this *) (* is a hard suspend request; if clear this is *) (* a soft suspend request. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SUSPND)] FUNCTION $SUSPND ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $SYNCH *) (* *) (* Synchronize Event Completion *) (* *) (* $SYNCH [iosb] ,[efn] *) (* *) (* efn = event flag to be set at completion *) (* *) (* iosb = address of a quadword I/O status block *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SYNCH)] FUNCTION $SYNCH ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $SUBSYSTEM *) (* *) (* Modify Protected Subsystem Attributes *) (* *) (* $SUBSYSTEM enbflg *) (* *) (* enbflg = enable indicator *) (* 0 => disable image identifiers *) (* 1 => restore image identifiers *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SUBSYSTEM)] FUNCTION $SUBSYSTEM ( %IMMED ENBFLG : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $TIMCON *) (* *) (* Convert between binary UTC and Smithsonian times *) (* *) (* $TIMCON smntim, utctim, cvtflg *) (* *) (* For cvtflg = 0 (Convert UTC to Smithsonian) *) (* smnadr = Address of the output quadword to be written *) (* with the UTC time converted to date_time *) (* utcadr = Address of the input 128 bit utc_date_time time to *) (* be converted *) (* cvtflg = 0 *) (* *) (* For cvtflg = 1 (Convert Smithsonian to UTC) *) (* smnadr = Address of input 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TIMCON)] FUNCTION $TIMCON ( VAR SMNADR : [VOLATILE] $UQUAD; VAR UTCADR : [VOLATILE] $UOCTA; %IMMED CVTFLG : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $TRNLNM *) (* *) (* Translate Logical Name *) (* *) (* $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 *) (* *) (* tabnam = address of logical name table name string descriptor *) (* *) (* lognam = address of logical name string descriptor *) (* *) (* acmode = address of access mode for logical name *) (* *) (* itmlst = address of a list of item descriptors *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TRNLNM)] FUNCTION $TRNLNM ( ATTR : UNSIGNED := %IMMED 0; TABNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; LOGNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; ACMODE : $UBYTE := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* $TRNLOG *) (* *) (* Translate Logical Name *) (* *) (* $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] *) (* *) (* lognam = address of logical name string descriptor *) (* *) (* rsllen = address of word to receive length of resultant name *) (* *) (* rslbuf = address of descriptor for buffer to receive resultant *) (* string *) (* *) (* table = address of byte to receive logical name table number *) (* *) (* acmode = address of byte to receive access mode of entry *) (* (process table only) *) (* *) (* dsbmsk = table search disable mask *) (* *) (* Bit Set Meaning *) (* *) (* 0 Do not search system table *) (* 1 Do not search group table *) (* 2 Do not search process table *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TRNLOG)] FUNCTION $TRNLOG ( LOGNAM : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR RSLLEN : [VOLATILE] $UWORD := %IMMED 0; VAR RSLBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; VAR TABLE : [VOLATILE] $UBYTE := %IMMED 0; VAR ACMODE : [VOLATILE] $UBYTE := %IMMED 0; %IMMED DSBMSK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $TRUNCATE *) (* *) (* Truncate Record *) (* *) (* $TRUNCATE rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TRUNCATE)] FUNCTION $TRUNCATE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $ULKPAG *) (* *) (* Unlock Pages From Memory *) (* *) (* $ULKPAG inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to be unlocked *) (* *) (* retadr = address of a 2-longword array to receive starting and *) (* ending virtual addresses of pages actually unlocked *) (* *) (* acmode = access mode to check against the owner of the pages *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ULKPAG)] FUNCTION $ULKPAG ( INADR : STARLET$$TYP36; VAR RETADR : [VOLATILE] STARLET$$TYP37 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $ULKPAG_64 *) (* *) (* Unlock Pages in Memory *) (* *) (* $ULKPAG_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *) (* *) (* start_va_64 = Starting address of address space to unlock *) (* *) (* length_64 = Byte length of addresses to lock *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ULKPAG_64)] FUNCTION $ULKPAG_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $ULWSET *) (* *) (* Unlock Pages From Working Set *) (* *) (* $ULWSET inadr ,[retadr] ,[acmode] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending virtual addresses of pages to be unlocked *) (* *) (* retadr = address of a 2-longword array to receive starting and *) (* ending virtual addresses of pages actually unlocked *) (* *) (* acmode = access mode to check against the owner of the pages *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ULWSET)] FUNCTION $ULWSET ( INADR : STARLET$$TYP38; VAR RETADR : [VOLATILE] STARLET$$TYP39 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $ULWSET_64 *) (* *) (* Unlock Pages from Working Set *) (* *) (* $ULWSET_64 start_va_64, length_64, acmode, return_va_64, return_length_64 *) (* *) (* start_va_64 = Starting address of address space to unlock *) (* *) (* length_64 = Byte length of addresses to lock *) (* *) (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ULWSET_64)] FUNCTION $ULWSET_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD) : INTEGER; EXTERNAL; (* $UNWIND *) (* *) (* Unwind Call Stack *) (* *) (* $UNWIND [depadr] ,[newpc] *) (* *) (* depadr = address of longword containing number of logical frames *) (* (depth) to unwind call stack *) (* *) (* newpc = address to be given control when the unwind is complete *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$UNWIND)] FUNCTION $UNWIND ( DEPADR : UNSIGNED := %IMMED 0; NEWPC : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $UPDATE *) (* *) (* Update Record *) (* *) (* $UPDATE fab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$UPDATE)] FUNCTION $UPDATE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* $UPDSEC *) (* *) (* Update Section File on Disk *) (* *) (* $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb] *) (* ($UPDSECW) ,[astadr] ,[astprm] *) (* *) (* inadr = address of 2-longword array containing starting and *) (* ending addresses of the pages to be potentially *) (* written *) (* *) (* retadr = address of 2-longword array to receive addresses of *) (* the first and last page queued in the first I/O *) (* request *) (* *) (* acmode = access mode on behalf of which the service is *) (* performed *) (* *) (* updflg = update indicator for read/write global sections *) (* 0 -> write all read/write pages in the section *) (* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller *) (* *) (* efn = number of event flag to set when the section file is *) (* updated *) (* *) (* iosb = address of quadword I/O status block *) (* *) (* astadr = address of entry mask of an AST service routine *) (* *) (* astprm = AST parameter to be passed to the AST service routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC)] FUNCTION $UPDSEC ( INADR : STARLET$$TYP40; VAR RETADR : [VOLATILE] STARLET$$TYP41 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED UPDFLG : INTEGER := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$UPDSECW)] FUNCTION $UPDSECW ( INADR : STARLET$$TYP42; VAR RETADR : [VOLATILE] STARLET$$TYP43 := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED UPDFLG : INTEGER := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $UPDSEC_64 *) (* *) (* Update Section File on Disk *) (* *) (* $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 *) (* *) (* length_64 = Byte length of addresses to update *) (* *) (* acmode = access mode on behalf of which the service is *) (* performed *) (* *) (* updflg = update indicator for read/write global sections *) (* 0 -> write all read/write pages in the section *) (* UPDFLG$M_WRT_MODIFIED -> write all pages modified by the caller *) (* *) (* efn = number of event flag to set when the section file is *) (* updated *) (* *) (* iosa_64 = address of 4 quadword I/O status area *) (* *) (* return_va_64 = Address of address space queued in the first *) (* I/O request *) (* *) (* return_length_64 = Length of address space queued in the first *) (* I/O request *) (* *) (* astadr_64 = address of entry mask of an AST service routine *) (* *) (* astprm_64 = AST parameter to be passed to the AST service routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC_64)] FUNCTION $UPDSEC_64 ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED UPDFLG : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSA_64 : [VOLATILE] $UOCTA := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR_64 := %IMMED 0; %IMMED ASTPRM_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$UPDSEC_64W)] FUNCTION $UPDSEC_64W ( %IMMED START_VA_64 : $DEFPTR; %IMMED LENGTH_64 : INTEGER; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED UPDFLG : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSA_64 : [VOLATILE] $UOCTA := %IMMED 0; VAR RETURN_VA_64 : [VOLATILE] $UQUAD; VAR RETURN_LENGTH_64 : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR_64 := %IMMED 0; %IMMED ASTPRM_64 : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $VERIFY_PROXY *) (* *) (* Verify proxy record *) (* *) (* $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags *) (* *) (* rem_node in address of remote node descriptor *) (* rem_user in address of remote user descriptor *) (* proposed_user in address of optional proposed user descriptor *) (* local_user out address of descriptor to receive local user *) (* local_user_len out address of word to receive local user length *) (* flags in proxy service flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$VERIFY_PROXY)] FUNCTION $VERIFY_PROXY ( REM_NODE : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; REM_USER : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; PROPOSED_USER : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; VAR LOCAL_USER : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR; VAR LOCAL_USER_LEN : [VOLATILE] $UWORD; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $WAIT *) (* *) (* Wait on File *) (* *) (* $WAIT rab *) (* *) (* rab = address of rab *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WAIT)] FUNCTION $WAIT ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $WAITFR *) (* *) (* Wait for Single Event Flag *) (* *) (* $WAITFR efn *) (* *) (* efn = event flag number to wait for *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WAITFR)] FUNCTION $WAITFR ( %IMMED EFN : UNSIGNED) : INTEGER; EXTERNAL; (* $WAKE *) (* *) (* Wake *) (* *) (* $WAKE [pidadr] ,[prcnam] *) (* *) (* pidadr = address of process id of process to be awakened *) (* *) (* prcnam = address of name string descriptor of process to be *) (* awakened *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WAKE)] FUNCTION $WAKE ( VAR PIDADR : [VOLATILE] UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $WFLAND *) (* *) (* Wait for Logical AND of Event Flags *) (* *) (* $WFLAND efn ,mask *) (* *) (* efn = event flag number of any flag within the cluster *) (* *) (* mask = 32-bit mask of flags that must be set *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WFLAND)] FUNCTION $WFLAND ( %IMMED EFN : UNSIGNED; %IMMED MASK : UNSIGNED) : INTEGER; EXTERNAL; (* $WFLOR *) (* *) (* Wait for Logical OR of Event Flags *) (* *) (* $WFLOR efn ,mask *) (* *) (* efn = event flag number of any flag within the cluster *) (* *) (* mask = 32-bit mask of flags, any of which must be set *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WFLOR)] FUNCTION $WFLOR ( %IMMED EFN : UNSIGNED; %IMMED MASK : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $WRITE *) (* *) (* Write Block to File *) (* *) (* $WRITE rab, [err], [suc] *) (* *) (* rab = address of rab *) (* *) (* err = address of user error completion routine *) (* *) (* suc = address of user success completion routine *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WRITE)] FUNCTION $WRITE ( %REF RAB : [VOLATILE,UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ERR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE SUC := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $WRITE_THREAD_UNQ *) (* *) (* Write thread unique value *) (* *) (* $WRITE_THREAD_UNQ contxt *) (* *) (* contxt = address of quadword that contains the *) (* thread unique value to be written *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WRITE_THREAD_UNQ)] FUNCTION $WRITE_THREAD_UNQ ( CONTXT : UNSIGNED) : INTEGER; EXTERNAL; (* $XFS_CLIENT *) (* *) (* Call the XFS client *) (* *) (* $XFS_CLIENT [efn] ,func ,fsb ,[astadr] ,[astprm] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* fsb = address of File System Block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$XFS_CLIENT)] FUNCTION $XFS_CLIENT ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $XFS_SERVER *) (* *) (* Call the XFS server *) (* *) (* $XFS_SERVER [efn] ,func ,fsb ,[astadr] ,[astprm] *) (* *) (* efn = number of event flag to set on completion *) (* *) (* func = function code specifying action to be performed *) (* *) (* fsb = address of File System Block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine as argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$XFS_SERVER)] FUNCTION $XFS_SERVER ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : INTEGER; FSB : UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $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 | *) (* +-------------------------------+ *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DCLRNH)] FUNCTION $DCLRNH ( %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $CANRNH *) (* *) (* Cancel Restart Handler *) (* *) (* $CANRNH [desblk] *) (* *) (* desblk = address of handler control block describing *) (* handler to be deleted. If 0, delete all *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CANRNH)] FUNCTION $CANRNH ( %REF DESBLK : [UNSAFE] ARRAY [$l1..$u1:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ABORT_TRANS *) (* *) (* Abort a transaction *) (* *) (* $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm], *) (* ($ABORT_TRANSW) [tid], [reason], [bid]] *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = identifier of transaction to be aborted *) (* reason = optional extended abort reason code *) (* bid = identifier of transaction branch to be aborted *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ABORT_TRANS)] FUNCTION $ABORT_TRANS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0; %IMMED REASON : INTEGER := %IMMED 0; BID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ABORT_TRANSW)] FUNCTION $ABORT_TRANSW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0; %IMMED REASON : INTEGER := %IMMED 0; BID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ACK_EVENT *) (* *) (* Acknowledge a resource manager transaction event *) (* *) (* $ACK_REPORT [flags], report_id, report_reply, [, [reason], *) (* [beftime], [afttime], [part_name], [rm_context], *) (* [timout]] *) (* *) (* flags = operation flags *) (* report_id = participant id value *) (* report_reply = value of completion status *) (* reason = extended abort reason code (for veto vote) *) (* beftim = lower bound of commit timestamp *) (* afttim = upper bound of commit timestamp *) (* part_name = address of participant name descriptor *) (* rm_context = RM private value to be passed to evt_rtn *) (* timout = transaction execution time-out value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ACK_EVENT)] FUNCTION $ACK_EVENT ( %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED REPORT_ID : UNSIGNED; %IMMED REPORT_REPLY : INTEGER; %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0; AFTTIME : $UOCTA := %IMMED 0; PART_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; RM_CONTEXT : UNSIGNED := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $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 flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = transaction id for this branch *) (* tm_name = address of commit domain name descriptor *) (* bid = address to receive new branch identifier *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ADD_BRANCH)] FUNCTION $ADD_BRANCH ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0; TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; VAR BID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ADD_BRANCHW)] FUNCTION $ADD_BRANCHW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0; TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; VAR BID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; (* *) (* *************** NOTE: $CREATE_BRANCH(W) service definitions are obsolete ************** *) (* *) (* $CREATE_BRANCH *) (* *) (* Create a transaction branch *) (* *) (* $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm], *) (* ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = transaction id for this branch *) (* bid = address to receive new branch identifier *) (* timout = transaction execution time-out value *) (* acmode = access mode for $CREATE_BRANCH call *) (* tx_class= user transaction class name *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BRANCH)] FUNCTION $CREATE_BRANCH ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA; VAR BID : [VOLATILE] $UOCTA; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_BRANCHW)] FUNCTION $CREATE_BRANCHW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA; VAR BID : [VOLATILE] $UOCTA; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* $CVT_FILENAME *) (* *) (* Convert a string between RMS format and file-system format. *) (* *) (* $CVT_FILENAME cvttyp, srcstr, inflags, outbuf, outlen, outflags *) (* *) (* cvttyp = value indicating conversion type (RMS-to-filesys or *) (* filesys-to-RMS) *) (* srcstr = address of string descriptor for source string *) (* inflags = mask indicating source string characteristics *) (* outbuf = address of string descriptor for output string *) (* outlen = address to store length of returned output string *) (* outflags = address of a longword to receive flags describing *) (* output string *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CVT_FILENAME)] FUNCTION $CVT_FILENAME ( %IMMED CVTTYP : UNSIGNED := %IMMED 0; SRCSTR : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED INFLAGS : UNSIGNED := %IMMED 0; VAR OUTBUF : [CLASS_S,VOLATILE] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; VAR OUTLEN : [VOLATILE] $UWORD := %IMMED 0; VAR OUTFLAGS : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm], *) (* ($DECLARE_RMW) rm_id, event_handler [, [part_name], *) (* [rm_context], [acmode], [tm_log_id], [event_mask]] *) (* *) (* Declare Resource Manager to DDTM *) (* *) (* efn = event flag to set upon completion *) (* flags = operation flags *) (* iosb = address of I/O status block *) (* astadr = address of entry mask of AST routine *) (* astprm = value to be passed to AST routine *) (* rm_id = address of longword to receive resource manager id *) (* event_rtn = address of entry mask of transaction event routine *) (* part_name = address of resource manager name descriptor *) (* rm_context = RM private value to be passed to evt_rtn *) (* acmode = value of access mode in which to invoke evt_rtn *) (* tm_log_id = transaction manager log id for validation checks *) (* event_mask = mask of events required by this resource manager *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DECLARE_RM)] FUNCTION $DECLARE_RM ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR RM_ID : [VOLATILE] UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; VAR TM_LOG_ID : [VOLATILE] $UOCTA := %IMMED 0; %IMMED EVENT_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$DECLARE_RMW)] FUNCTION $DECLARE_RMW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR RM_ID : [VOLATILE] UNSIGNED; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; VAR TM_LOG_ID : [VOLATILE] $UOCTA := %IMMED 0; %IMMED EVENT_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $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 flags *) (* 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 identifier *) (* bid = address of transaction branch identifier *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$END_BRANCH)] FUNCTION $END_BRANCH ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; BID : $UOCTA) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$END_BRANCHW)] FUNCTION $END_BRANCHW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; BID : $UOCTA) : INTEGER; EXTERNAL; (* *) (* $END_TRANS *) (* *) (* Commit a transaction *) (* *) (* $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] *) (* ($END_TRANSW) *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = identifier of transaction to be committed *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$END_TRANS)] FUNCTION $END_TRANS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$END_TRANSW)] FUNCTION $END_TRANSW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FINISH_RMOP *) (* *) (* Finish resource manager transaction event operation *) (* *) (* $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm], *) (* ($FINISH_RMOPW) part_id, retsts [, [reason], *) (* [beftime], [afttime] *) (* *) (* efn = event flag to set upon completion *) (* flags = operation flags *) (* iosb = address of I/O status block *) (* astadr = address of entry mask of AST routine *) (* astprm = value to be passed to AST routine *) (* part_id = participant id value *) (* retsts = value of completion status *) (* reason = extended abort reason code (for veto vote) *) (* beftim = lower bound of commit timestamp *) (* afttim = upper bound of commit timestamp *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FINISH_RMOP)] FUNCTION $FINISH_RMOP ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED PART_ID : UNSIGNED; %IMMED RETSTS : INTEGER; %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0; AFTTIME : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$FINISH_RMOPW)] FUNCTION $FINISH_RMOPW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED PART_ID : UNSIGNED; %IMMED RETSTS : INTEGER; %IMMED REASON : INTEGER := %IMMED 0; BEFTIME : $UOCTA := %IMMED 0; AFTTIME : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $FORGET_RM *) (* *) (* Forget a resource manager previously declared to DECdtm *) (* *) (* $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id *) (* ($FORGET_RMW) *) (* *) (* efn = event flag to set upon completion *) (* flags = operation flags *) (* iosb = address of I/O status block *) (* astadr = address of entry mask of AST routine *) (* astprm = value to be passed to AST routine *) (* rm_id = resource manager id value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$FORGET_RM)] FUNCTION $FORGET_RM ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$FORGET_RMW)] FUNCTION $FORGET_RMW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $GET_DEFAULT_TRANS *) (* *) (* Get the current process default transaction *) (* *) (* $GET_DEFAULT_TRANS tid *) (* *) (* tid = identifier of the process default transaction *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_DEFAULT_TRANS)] FUNCTION $GET_DEFAULT_TRANS ( VAR TID : [VOLATILE] $UOCTA) : INTEGER; EXTERNAL; (* $GET_UNWIND_ENTRY_INFO *) (* *) (* Get fixed-up unwind entry information *) (* *) (* $GET_UNWIND_ENTRY_INFO pc, get_ue_block, name *) (* *) (* pc = target PC *) (* *) (* get_ue_block = address of a 4-quadword block to be filled in *) (* *) (* name = Fixed length string, passed by descriptor. *) (* *) (* ... *) (* flags = address of MUTE flags, mask word, optional. *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_UNWIND_ENTRY_INFO)] FUNCTION $GET_UNWIND_ENTRY_INFO ( %IMMED PC : INTEGER := %IMMED 0; %IMMED GET_UE_BLOCK : INTEGER := %IMMED 0; NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; %IMMED [UNBOUND, ASYNCHRONOUS] FUNCTION READTARGETMEM : INTEGER := %IMMED 0; %IMMED IDENT : INTEGER := %IMMED 0; FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $JOIN_RM *) (* *) (* Join a resource manager previously started transaction *) (* *) (* $JOIN_RM [efn], [flags], iosb, [astadr], [astprm], *) (* ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] *) (* *) (* efn = event flag to set upon completion *) (* flags = operation flags *) (* iosb = address of I/O status block *) (* astadr = address of entry mask of AST routine *) (* astprm = value to be passed to AST routine *) (* rm_id = resource manager id value *) (* tid = address of transaction id *) (* part_name = participant name string *) (* rm_context = RM private value to pass to event routine *) (* timout = transaction execution time-out value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$JOIN_RM)] FUNCTION $JOIN_RM ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED; TID : $UOCTA := %IMMED 0; PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$JOIN_RMW)] FUNCTION $JOIN_RMW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED RM_ID : UNSIGNED; TID : $UOCTA := %IMMED 0; PART_NAME : [CLASS_S] PACKED ARRAY [$l8..$u8:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $RECOVER *) (* *) (* Recover transaction state. *) (* *) (* $RECOVER [efn], [flags], iosb, [astadr], [astprm], *) (* ($RECOVERW) recovery_prefix, event_handler, tm_log_id [, *) (* [tid], [node], [rm_context], [acmode], [max_events]] *) (* *) (* efn = event flag to set upon completion *) (* flags = operation flags *) (* iosb = address of I/O status block *) (* astadr = address of entry mask of AST routine *) (* astprm = value to be passed to AST routine *) (* recovery_prefix = address of search name descriptor *) (* event_handler = address of entry mask of recovery event routine *) (* tm_log_id = address TM log identifier *) (* tid = address of transaction identifier *) (* node = address of node name descriptor *) (* rm_context = value to be passed via event block to event_handler *) (* acmode = value of access mode in which event ASTs should be delivered *) (* max_events = value of maximum number of events to be queued concurrently *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RECOVER)] FUNCTION $RECOVER ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECOVERY_PREFIX : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; TM_LOG_ID : $UOCTA; TID : $UOCTA := %IMMED 0; NODE : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; %IMMED MAX_EVENTS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$RECOVERW)] FUNCTION $RECOVERW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECOVERY_PREFIX : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE EVENT_HANDLER; TM_LOG_ID : $UOCTA; TID : $UOCTA := %IMMED 0; NODE : [CLASS_S] PACKED ARRAY [$l10..$u10:INTEGER] OF CHAR := %IMMED 0; %IMMED RM_CONTEXT : UNSIGNED := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; %IMMED MAX_EVENTS : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SET_DEFAULT_TRANS *) (* *) (* Set up the process default transaction *) (* *) (* $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm], *) (* ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* new_tid = identifier of new process default transaction *) (* old_tid = identifier of superceded process default transaction *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_DEFAULT_TRANS)] FUNCTION $SET_DEFAULT_TRANS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NEW_TID : $UOCTA := %IMMED 0; OLD_TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SET_DEFAULT_TRANSW)] FUNCTION $SET_DEFAULT_TRANSW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NEW_TID : $UOCTA := %IMMED 0; OLD_TID : $UOCTA := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $START_BITMAP *) (* *) (* Create and start a write bitmap *) (* *) (* $START_BITMAP handle_in, chan, devnam, name, cluster, flags, handle_out *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$START_BITMAP)] FUNCTION $START_BITMAP ( %IMMED HANDLE_IN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; NAME : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; %IMMED CLUSTER : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR HANDLE_OUT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $START_BRANCH *) (* *) (* Start a transaction branch *) (* *) (* $START_BRANCH [efn], [flags], iosb, [astadr], [astprm], *) (* ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = transaction id for this branch *) (* tm_name = address of parent commit domain name descriptor *) (* bid = address of branch identifier *) (* timout = transaction execution time-out value *) (* acmode = access mode for $READY_TO_COMMIT call *) (* tx_class= user transaction class name *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$START_BRANCH)] FUNCTION $START_BRANCH ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; BID : $UOCTA; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$START_BRANCHW)] FUNCTION $START_BRANCHW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; TM_NAME : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR; BID : $UOCTA; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l11..$u11:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $START_TRANS *) (* *) (* Start a new transaction *) (* *) (* $START_TRANS [efn], [flags], iosb [, [astadr], [astprm], *) (* ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] *) (* *) (* efn = event flag to be set at completion *) (* flags = operation flags *) (* iosb = address of a quadword I/O status block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = identifier of transaction just started *) (* timout = transaction execution time-out value *) (* acmode = outermost access mode allowed to end the transaction *) (* tx_class= user transaction class name *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$START_TRANS)] FUNCTION $START_TRANS ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$START_TRANSW)] FUNCTION $START_TRANSW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; VAR TID : [VOLATILE] $UOCTA := %IMMED 0; TIMOUT : $UQUAD := %IMMED 0; %IMMED ACMODE : INTEGER := %IMMED 0; TX_CLASS : [CLASS_S] PACKED ARRAY [$l9..$u9:INTEGER] OF CHAR := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $TRANS_EVENT *) (* *) (* Start a new transaction *) (* *) (* $TRANS_EVENT [efn], [flags], iosb, [astadr], [astprm], *) (* ($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 block *) (* astadr = address of an entry mask of AST routine *) (* astprm = value to be passed to AST routine as an argument *) (* tid = identifier of transaction just started *) (* rm_id = value of resource manager identifier returned by $DECLARE_RM *) (* tx_event = transaction transition event *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TRANS_EVENT)] FUNCTION $TRANS_EVENT ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; %IMMED RM_ID : UNSIGNED := %IMMED 0; %IMMED TX_EVENT : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$TRANS_EVENTW)] FUNCTION $TRANS_EVENTW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; TID : $UOCTA; %IMMED RM_ID : UNSIGNED := %IMMED 0; %IMMED TX_EVENT : UNSIGNED) : INTEGER; EXTERNAL; (* $TSTCLUEVT *) (* *) (* Test Cluster Event Notification *) (* *) (* $TSTCLUEVT [handle], [acmode], [event] *) (* *) (* handle = address of handle *) (* *) (* acmode = access mode of AST *) (* *) (* event = code indicating type of event *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$TSTCLUEVT)] FUNCTION $TSTCLUEVT ( HANDLE : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED EVENT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* PTD$CREATE *) (* *) (* Create a pseudo terminal *) (* *) (* PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST], *) (* [HANGUP_ASTPRM], [AST_ACMODE], INADR *) (* *) (* CHAN = Address of word to receive channel number assigned *) (* ACMODE = Access mode associated with channel *) (* CHARBUFF = Address ofa 3 - 5 longword array containing device *) (* characteristics. *) (* BUFLEN = Length of characteristics buffer in bytes either *) (* 12, 16, or 20 *) (* ASTADR = Address of entry mask of AST routine *) (* ASTPRM = Value to be passed to AST routine *) (* AST_ACMODE = Access mode for whjich the AST is to be delivered *) (* INADR = Address of 2-longword array containing starting and *) (* ending virtual address of pages to be used as *) (* I/O buffers *) [ASYNCHRONOUS,EXTERNAL(PTD$CREATE)] FUNCTION PTD$CREATE ( VAR CHAN : [VOLATILE] $UWORD; %IMMED ACMODE : UNSIGNED := %IMMED 0; %REF CHARBUFF : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0; %IMMED BUFLEN : INTEGER := %IMMED 12; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED AST_ACMODE : UNSIGNED := %IMMED 0; INADR : STARLET$$TYP44) : INTEGER; EXTERNAL; (* PTD$READ *) (* *) (* Read data from the pseudo terminal *) (* *) (* PTD$READ(W) [EFN], CHAN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN *) (* EFN = Number of event flag to set on completion *) (* CHAN = Word containing number of channel on which I/O is to be performed *) (* ASTADR = Address of entry mask of AST routine *) (* ASTPRM = Value to be passed to AST routine *) (* READBUF = Address character string to hold characters read *) (* READBUF_LEN = Number of character to be read from pseudo terminal *) [ASYNCHRONOUS,EXTERNAL(PTD$READ)] FUNCTION PTD$READ ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %REF READBUF : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; %IMMED READBUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(PTD$READW)] FUNCTION PTD$READW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %REF READBUF : [UNSAFE] ARRAY [$l5..$u5:INTEGER] OF $UBYTE := %IMMED 0; %IMMED READBUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* PTD$WRITE *) (* *) (* Write data to the pseudo terminal *) (* *) (* PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, *) (* [ECHOBUF], ECHOBUF_LEN] *) (* CHAN = Word containing number of channel on which I/O is to be performed *) (* ASTADR = Address of entry mask of AST routine *) (* ASTPRM = Value to be passed to AST routine *) (* WRTBUF = Address of character string containing character to write to *) (* pseudo terminal *) (* WRTBUF_LEN = Number of characters to write to pseudo terminal *) (* ECHOBUF = Address character string to hold characters read *) (* ECHOBUF_LEN = Number of character to be read from pseudo terminal *) [ASYNCHRONOUS,EXTERNAL(PTD$WRITE)] FUNCTION PTD$WRITE ( %IMMED CHAN : INTEGER; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %REF WRTBUF : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; %IMMED WRTBUF_LEN : UNSIGNED := %IMMED 0; %REF ECHOBUF : [UNSAFE] ARRAY [$l6..$u6:INTEGER] OF $UBYTE := %IMMED 0; %IMMED ECHOBUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* PTD$SET_EVENT_NOTIFICATION *) (* *) (* Enable or disable terminal event notification ASTs *) (* *) (* PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], *) (* TYPE *) (* CHAN = Word containing number of channel on which I/O is to be performed *) (* ASTADR = Address of entry mask of AST routine *) (* ASTPRM = Value to be passed to AST routine *) (* ACMODE = Access mode for whjich the AST is to be delivered *) (* TYPE = Longword containing *) [ASYNCHRONOUS,EXTERNAL(PTD$SET_EVENT_NOTIFICATION)] FUNCTION PTD$SET_EVENT_NOTIFICATION ( %IMMED CHAN : INTEGER; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0; %IMMED TYPE_ : UNSIGNED) : INTEGER; EXTERNAL; (* PTD$CANCEL *) (* *) (* Cancel queued control connection read request(s) *) (* *) (* PTD$CANCEL CHAN *) (* *) (* CHAN = Word containing number of channel on which I/O is to be performed *) [ASYNCHRONOUS,EXTERNAL(PTD$CANCEL)] FUNCTION PTD$CANCEL ( %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; (* PTD$DELETE *) (* *) (* Delete a pseudo terminal *) (* *) (* PTD$DELETE CHAN *) (* *) (* CHAN = Word containing number of channel on which I/O is to be performed *) [ASYNCHRONOUS,EXTERNAL(PTD$DELETE)] FUNCTION PTD$DELETE ( %IMMED CHAN : INTEGER) : INTEGER; EXTERNAL; (* PTD$DECTERM_SET_PAGE_SIZE *) (* *) (* Change terminal page length and width *) (* *) (* PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH *) (* *) (* CHAN = Word containing number of channel on which I/O is to be performed *) (* PAGE_LEN = Longword containing new page length of terminal *) (* PAGE_WIDTH = Longword containing new page width of terminal *) [ASYNCHRONOUS,EXTERNAL(PTD$DECTERM_SET_PAGE_SIZE)] FUNCTION PTD$DECTERM_SET_PAGE_SIZE ( %IMMED CHAN : INTEGER; %IMMED PAGE_LEN : UNSIGNED; %IMMED PAGE_WIDTH : UNSIGNED) : INTEGER; EXTERNAL; (* $POSIX_FORK_CONTROL *) (* *) (* Control POSIX fork() operations *) (* *) (* $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [ac *) (* *) (* cntrl = constant defining what control routine is to do *) (* *) (* when = bit array of when handler is to be called *) (* *) (* handler= handler address *) (* *) (* arg = arg value that is passed back to the handler *) (* *) (* acmode = access mode at which to make the specified callback *) [ASYNCHRONOUS,EXTERNAL(SYS$POSIX_FORK_CONTROL)] FUNCTION $POSIX_FORK_CONTROL ( %IMMED CNTRL : UNSIGNED; %IMMED WHEN : UNSIGNED := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE HANDLER := %IMMED 0; %IMMED ARG : UNSIGNED := %IMMED 0; %IMMED ACMODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $START_ALIGN_FAULT_REPORT *) (* *) (* Start user-image alignment fault reporting *) (* *) (* $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 fault *) (* data if the BUFFERED method is specified. *) (* *) (* buffer_length = the size in bytes of the user buffer *) [ASYNCHRONOUS,EXTERNAL(SYS$START_ALIGN_FAULT_REPORT)] FUNCTION $START_ALIGN_FAULT_REPORT ( %IMMED REPORT_METHOD : INTEGER; %IMMED REPORT_BUFFER : UNSIGNED := %IMMED 0; %IMMED BUFFER_LENGTH : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* $GET_ALIGN_FAULT_DATA *) (* *) (* 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. *) (* *) (* buffer_size = The size in bytes of the user buffer *) (* *) (* return_size = Address of a longword in which to return the *) (* size of the alignment fault data found. *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_ALIGN_FAULT_DATA)] FUNCTION $GET_ALIGN_FAULT_DATA ( %IMMED BUFFER : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER; %IMMED RETURN_SIZE : INTEGER) : INTEGER; EXTERNAL; (* $STOP_ALIGN_FAULT_REPORT *) (* *) (* Stop user-image alignment fault reporting *) (* *) (* $STOP_ALIGN_FAULT_REPORT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$STOP_ALIGN_FAULT_REPORT)] FUNCTION $STOP_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; (* $PERM_REPORT_ALIGN_FAULT *) (* *) (* Start process permanent alignment fault reporting. *) (* *) (* $PERM_REPORT_ALIGN_FAULT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERM_REPORT_ALIGN_FAULT)] FUNCTION $PERM_REPORT_ALIGN_FAULT : INTEGER; EXTERNAL; (* $PERM_DIS_ALIGN_FAULT_REPORT *) (* *) (* Start process permanent alignment fault reporting. *) (* *) (* $PERM_DIS_ALIGN_FAULT_REPORT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERM_DIS_ALIGN_FAULT_REPORT)] FUNCTION $PERM_DIS_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; (* $INIT_SYS_ALIGN_FAULT_REPORT *) (* *) (* Start system wide alignment fault reporting. *) (* *) (* $INIT_SYS_ALIGN_FAULT_REPORT match_table, buffer_size, flags *) (* *) (* match_table = Array of longwords used to restrict *) (* the alignment faults reported *) (* *) (* buffer_size = The number of bytes to use to save alignment *) (* fault data. *) (* flags = can be either 0 or AFR$M_USER_INFO *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$INIT_SYS_ALIGN_FAULT_REPORT)] FUNCTION $INIT_SYS_ALIGN_FAULT_REPORT ( MATCH_TABLE : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $GET_SYS_ALIGN_FAULT_DATA *) (* *) (* Get alignment fault data from the system wide collector. *) (* *) (* $GET_SYS_ALIGN_FAULT_DATA buffer, buffer_size, return_size *) (* *) (* buffer = Buffer in which to save the alignment fault *) (* data. *) (* *) (* buffer_size = The size in bytes of the user buffer *) (* *) (* return_size = Address of a longword in which to return the *) (* size of the alignment fault data found. *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_SYS_ALIGN_FAULT_DATA)] FUNCTION $GET_SYS_ALIGN_FAULT_DATA ( %IMMED BUFFER : UNSIGNED; %IMMED BUFFER_SIZE : INTEGER; %IMMED RETURN_SIZE : INTEGER) : INTEGER; EXTERNAL; (* $STOP_SYS_ALIGN_FAULT_REPORT *) (* *) (* Stop system-wide alignment fault reporting *) (* *) (* $STOP_SYS_ALIGN_FAULT_REPORT *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$STOP_SYS_ALIGN_FAULT_REPORT)] FUNCTION $STOP_SYS_ALIGN_FAULT_REPORT : INTEGER; EXTERNAL; (* $RESCHED *) (* *) (* Request voluntary preemption of current process *) (* *) (* $RESCHED *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESCHED)] FUNCTION $RESCHED : INTEGER; EXTERNAL; (* *) (* $SCHED *) (* *) (* Control class scheduler *) (* *) (* $SCHED func, P1, P2, P3 *) (* *) (* func = function code (see CSHDEFS in STARLET) *) (* *) (* P1 = buffer address, AST entry point address, or 0 *) (* *) (* P2 = buffer length address or AST acmode or PID or 0 *) (* *) (* P3 = entry size of a single buffer element or 0 *) [ASYNCHRONOUS,EXTERNAL(SYS$SCHED)] FUNCTION $SCHED ( %IMMED FUNC : UNSIGNED; %REF P1 : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE := %IMMED 0; %REF P2 : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE := %IMMED 0; %REF P3 : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SIGNAL_ARRAY_64 *) (* *) (* Return address of 64-bit signal array. *) (* *) (* $SIGNAL_ARRAY_64 mcharg, sigarg_64 *) (* *) (* mcharg = address of the mechanism array *) (* *) (* sigarg_64 = 64-bit pointer to which the address of *) (* 64-bit signal array is written. *) [ASYNCHRONOUS,EXTERNAL(SYS$SIGNAL_ARRAY_64)] FUNCTION $SIGNAL_ARRAY_64 ( MCHARG : $QUAD; VAR SIGARG_64 : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* $AVOID_PREEMPT *) (* *) (* Enable/disable preemption avoidance *) (* *) (* $AVOID_PREEMPT enbflg *) (* *) (* enbflg = Avoid preempt enable indicator *) (* 0 -> disable 1 -> enable *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$AVOID_PREEMPT)] FUNCTION $AVOID_PREEMPT ( %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; (* $SETUP_AVOID_PREEMPT *) (* *) (* Enable/disable preemption avoidance underpinnings *) (* *) (* $SETUP_AVOID_PREEMPT enbflg *) (* *) (* enbflg = Avoid preempt enable indicator *) (* 0 -> disable 1 -> enable *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETUP_AVOID_PREEMPT)] FUNCTION $SETUP_AVOID_PREEMPT ( %IMMED ENBFLG : INTEGER) : INTEGER; EXTERNAL; (* *) (* $ICC_ACCEPT *) (* *) (* Accept an ICC connection *) (* *) (* $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len] *) (* ,[User_Context] ,[Flags] *) (* *) (* Conn_Handle = Handle value associated with the Connection *) (* Accept_Buf = Address of user Accept data *) (* Accept_Len = Length of the accept data *) (* User_Context = User context value *) (* Flags = Flags argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_ACCEPT)] FUNCTION $ICC_ACCEPT ( %IMMED CONN_HANDLE : UNSIGNED; ACCEPT_BUF : $DEFPTR := %IMMED 0; %IMMED ACCEPT_LEN : UNSIGNED := %IMMED 0; %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ICC_CLOSE_ASSOC *) (* *) (* Close an ICC association *) (* *) (* $ICC_CLOSE_ASSOC Assoc_Handle *) (* *) (* Assoc_Handle = Handle representing the Association to close *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_CLOSE_ASSOC)] FUNCTION $ICC_CLOSE_ASSOC ( %IMMED ASSOC_HANDLE : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ICC_CONNECT[W] *) (* *) (* Initiate an ICC Connection attempt *) (* *) (* $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle *) (* ,conn_hndl_A ,remote_assoc ,[remote_node] *) (* ,[user_context] ,[conn_buf] ,[conn_buf_len] *) (* ,[return_buf] ,[return_buf_len] ,[retlen_addr] *) (* ,[flags] *) (* *) (* ios_icc = address of a IOS_ICC (Connect version) *) (* astadr = address of entry mask of users' completion AST *) (* routine *) (* astprm = value to be passed to the AST routine as an *) (* argument *) (* Assoc_Handle = Handle representing the Association to close *) (* Conn_Hndl_A = Address to return the handle value of the *) (* opened Connection *) (* Remote_Assoc = Pointer to a descriptor describing the remote *) (* association name string *) (* Remote_Node = Pointer to a descriptor describing the remote *) (* node name string *) (* User_Context = User context value *) (* Conn_Buf = Address of a buffer containing Connect data *) (* Conn_Buf_Len = Length of the connect data in Conn_Buf *) (* Return_Buf = Address of a buffer for return data *) (* Return_Buf_Len = Length of the buffer available for return data *) (* Retlen_Addr = Address to receive the actual length of any *) (* return data *) (* Flags = Flags argument *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_CONNECT)] FUNCTION $ICC_CONNECT ( VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ASSOC_HANDLE : UNSIGNED; VAR CONN_HNDL_A : [VOLATILE] UNSIGNED; REMOTE_ASSOC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; REMOTE_NODE : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0; CONN_BUF : $DEFPTR := %IMMED 0; %IMMED CONN_BUF_LEN : UNSIGNED := %IMMED 0; RETURN_BUF : $DEFPTR := %IMMED 0; %IMMED RETURN_BUF_LEN : UNSIGNED := %IMMED 0; VAR RETLEN_ADDR : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_CONNECTW)] FUNCTION $ICC_CONNECTW ( VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; %IMMED ASSOC_HANDLE : UNSIGNED; VAR CONN_HNDL_A : [VOLATILE] UNSIGNED; REMOTE_ASSOC : [CLASS_S] PACKED ARRAY [$l6..$u6:INTEGER] OF CHAR := %IMMED 0; REMOTE_NODE : [CLASS_S] PACKED ARRAY [$l7..$u7:INTEGER] OF CHAR := %IMMED 0; %IMMED USER_CONTEXT : UNSIGNED := %IMMED 0; CONN_BUF : $DEFPTR := %IMMED 0; %IMMED CONN_BUF_LEN : UNSIGNED := %IMMED 0; RETURN_BUF : $DEFPTR := %IMMED 0; %IMMED RETURN_BUF_LEN : UNSIGNED := %IMMED 0; VAR RETLEN_ADDR : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ICC_DISCONNECT[W] *) (* *) (* Initiate an ICC Disconnection *) (* *) (* $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm] *) (* ,[disc_buf] ,[disc_buf_len] *) (* *) (* Conn_Handle = Handle representing the Connection to terminate *) (* iosb = Address of a quadword I/O status block *) (* astadr = Address of entry mask of users' completion AST *) (* routine *) (* astprm = Value to be passed to the AST routine as an *) (* argument *) (* Disc_Buf = Address of an optional buffer containing *) (* Disconnect data *) (* Disc_Buf_Len = Length of the disconnect data in Disc_Buf *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_DISCONNECT)] FUNCTION $ICC_DISCONNECT ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; DISC_BUF : $DEFPTR := %IMMED 0; %IMMED DISC_BUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_DISCONNECTW)] FUNCTION $ICC_DISCONNECTW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOSB : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; DISC_BUF : $DEFPTR := %IMMED 0; %IMMED DISC_BUF_LEN : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ICC_REJECT *) (* *) (* Reject an ICC connection *) (* *) (* $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] *) (* ,[Reason] *) (* *) (* Conn_Handle = Handle value associated with the Connection *) (* Reject_Buf = Address of optional user Reject data *) (* Reject_Buf_Len = Length of the reject data *) (* Reason = Reason for the rejection *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_REJECT)] FUNCTION $ICC_REJECT ( %IMMED CONN_HANDLE : UNSIGNED; REJECT_BUF : $QUAD := %IMMED 0; %IMMED REJECT_BUF_LEN : UNSIGNED := %IMMED 0; %IMMED REASON : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ICC_OPEN_ASSOC *) (* *) (* Open an ICC association *) (* *) (* $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name] *) (* ,[logical_table] ,[conn_rtn] ,[disc_rtn] *) (* ,[recv_rtn] ,[maxflowbufcnt] ,[prot] *) (* *) (* Assoc_Handle = Address to return the handlevalue of the *) (* opened Association *) (* Assoc_Name = Pointer to a descriptor describing the *) (* association name string *) (* Logical_Name = Pointer to a descriptor describing a logical *) (* name for use by the ICC simple registry *) (* Logical_Table = Pointer to a descriptor describing a logical *) (* name table for use by the ICC simple registry *) (* Conn_Rtn = Address of the User's Connect AST routine *) (* Disc_Rtn = Address of the User's Disconnect AST routine *) (* Recv_Rtn = Address of the User's receive AST routine *) (* Maxflowbufcnt = Maximum number of pending inbound message *) (* buffers *) (* Prot = Default protection for association *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_OPEN_ASSOC)] FUNCTION $ICC_OPEN_ASSOC ( VAR ASSOC_HANDLE : [VOLATILE] UNSIGNED; ASSOC_NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; LOGICAL_NAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; LOGICAL_TABLE : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE CONN_RTN := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE DISC_RTN := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE RECV_RTN := %IMMED 0; %IMMED MAXFLOWBUFCNT : UNSIGNED := %IMMED 0; %IMMED PROT : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $ICC_RECEIVE[W] *) (* *) (* Receive data over an ICC connection *) (* *) (* $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *) (* ,recv_buf ,recv_buf_len *) (* *) (* conn_handle = Handle representing the Connection the data *) (* is being transferred over *) (* ios_icc = Address of an I/O status block (16-byte ICC *) (* RECEIVE layout) *) (* astadr = Address of entry mask of users' completion AST *) (* routine *) (* astprm = Value to be passed to the AST routine as an *) (* argument *) (* recv_buf = Address of a buffer to receive the data *) (* recv_buf_len = Length of the buffer receiving the data *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_RECEIVE)] FUNCTION $ICC_RECEIVE ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECV_BUF : UNSIGNED; %IMMED RECV_BUF_LEN : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_RECEIVEW)] FUNCTION $ICC_RECEIVEW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; RECV_BUF : UNSIGNED; %IMMED RECV_BUF_LEN : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ICC_REPLY[W] *) (* *) (* Send a reply over an ICC connection *) (* *) (* $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *) (* ,reply_buf ,reply_len *) (* *) (* conn_handle = Handle representing the Connection the data is *) (* being transferred over *) (* ios_icc = Address of an I/O status block (8-byte ICC *) (* REPLY layout) *) (* astadr = Address of entry mask of users' completion AST *) (* routine *) (* astprm = Value to be passed to the AST routine as an *) (* argument *) (* reply_buf = Address of a buffer containing the data *) (* reply_len = Length of the data in reply_buf *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_REPLY)] FUNCTION $ICC_REPLY ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; REPLY_BUF : $DEFPTR; %IMMED REPLY_LEN : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_REPLYW)] FUNCTION $ICC_REPLYW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; REPLY_BUF : $DEFPTR; %IMMED REPLY_LEN : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ICC_TRANSCEIVE[W] *) (* *) (* ICC transceive operation *) (* *) (* $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *) (* ,send_buf ,send_len *) (* *) (* conn_handle = Handle representing the Connection the data is *) (* being transferred over *) (* ios_icc = Address of an I/O status block (20-byte ICC *) (* TRANSCEIVE layout ) *) (* astadr = Address of entry mask of users' completion AST *) (* routine *) (* astprm = Value to be passed to the AST routine as an *) (* argument *) (* send_buf = Address of a buffer conta in ing the data *) (* send_len = Length of the data in send_buf *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSCEIVE)] FUNCTION $ICC_TRANSCEIVE ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR; %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSCEIVEW)] FUNCTION $ICC_TRANSCEIVEW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $DEFPTR; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR; %IMMED ASTPRM : INTEGER; SEND_BUF : $DEFPTR; %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; (* *) (* $ICC_TRANSMIT[W] *) (* *) (* Transmit data over an ICC connection *) (* *) (* $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] *) (* ,send_buf ,send_len *) (* *) (* conn_handle = Handle representing the Connection the data is *) (* being transferred over *) (* ios_icc = Address of a quadword I/O status block *) (* astadr = Address of entry mask of users' completion AST *) (* routine *) (* astprm = Value to be passed to the AST routine as an *) (* argument *) (* send_buf = Address of a buffer conta in ing the data *) (* send_len = Length of the data in send_buf *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSMIT)] FUNCTION $ICC_TRANSMIT ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR; %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$ICC_TRANSMITW)] FUNCTION $ICC_TRANSMITW ( %IMMED CONN_HANDLE : UNSIGNED; VAR IOS_ICC : [VOLATILE] $UQUAD; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0; SEND_BUF : $DEFPTR; %IMMED SEND_LEN : UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_QUERY *) (* *) (* Query Persona Information *) (* *) (* $PERSONA_QUERY persona, itmlst *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* itmlst = address of list of item descriptors *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_QUERY)] FUNCTION $PERSONA_QUERY ( PERSONA : UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* $PERSONA_FIND *) (* *) (* Locate Persona With Characteristic *) (* *) (* $PERSONA_FIND persona, itmlst *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* itmlst = address of list of item descriptors *) (* *) (* contxt = address of a context long word (used for iterative *) (* calls or a multi-entry item list) *) (* *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_FIND)] FUNCTION $PERSONA_FIND ( VAR PERSONA : [VOLATILE] UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $PERSONA_RESERVE *) (* *) (* Reserve Persona Slot For Delegation *) (* *) (* $PERSONA_RESERVE clientPID, persona *) (* *) (* clientPID = address of longword holding client's PID *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_RESERVE)] FUNCTION $PERSONA_RESERVE ( CLIENTPID : UNSIGNED; VAR PERSONA : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_DELEGATE *) (* *) (* Delegate Persona To Another Process *) (* *) (* $PERSONA_DELEGATE serverPID, persona, input_id *) (* *) (* serverPID = address of longword holding server's PID *) (* *) (* persona = address of longword holding persona identifier reserved by server *) (* *) (* input_id = address of longword holding persona identifier to delegate *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELEGATE)] FUNCTION $PERSONA_DELEGATE ( SERVERPID : UNSIGNED; PERSONA : UNSIGNED; INPUT_ID : UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_EXTENSION_LOOKUP *) (* *) (* Find Extension on the system *) (* *) (* $PERSONA_EXTENSION_LOOKUP extensionName, extensionID *) (* *) (* extensionName = address of string descriptor of name *) (* *) (* extensionID = address of longword the ID is written to *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_EXTENSION_LOOKUP)] FUNCTION $PERSONA_EXTENSION_LOOKUP ( EXTENSIONNAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; VAR EXTENSIONID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_CREATE_EXTENSION *) (* *) (* Create Persona Extension *) (* *) (* $PERSONA_CREATE_EXTENSION persona, extensionID, buffer, length, flags *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* extensionID = address of longword holding extension to create *) (* *) (* buffer = address of TLV buffer *) (* *) (* length = address of longword containing TLV size in bytes *) (* *) (* flags = address of a flags longword *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_CREATE_EXTENSION)] FUNCTION $PERSONA_CREATE_EXTENSION ( PERSONA : UNSIGNED; EXTENSIONID : UNSIGNED; BUFFER : $DEFPTR; LENGTH : UNSIGNED; FLAGS : UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_DELETE_EXTENSION *) (* *) (* Delete An Extension From A Persona *) (* *) (* $PERSONA_DELETE_EXTENSION persona, extensionID *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* extensionID = address of longword holding extension to delete *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_DELETE_EXTENSION)] FUNCTION $PERSONA_DELETE_EXTENSION ( PERSONA : UNSIGNED; EXTENSIONID : UNSIGNED) : INTEGER; EXTERNAL; (* $PERSONA_MODIFY *) (* *) (* Modify Persona *) (* *) (* $PERSONA_MODIFY persona, itmlst *) (* *) (* persona = address of longword holding persona identifier *) (* *) (* itmlst = address of list of item descriptors *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$PERSONA_MODIFY)] FUNCTION $PERSONA_MODIFY ( PERSONA : UNSIGNED; %REF ITMLST : [UNSAFE] ARRAY [$l2..$u2:INTEGER] OF $UBYTE) : INTEGER; EXTERNAL; (* *) (* $SET_PROCESS_PROPERTIES[W] *) (* *) (* Set a simple value associated with a process *) (* *) (* $SET_PROCESS_PROPERTIES[W] mbz1 ,pidadr ,prcnam ,property *) (* ,value, prev_value [,bufsiz] [,bufcnt] *) (* *) (* mbz1 = Reserved for future use by Digital. Must *) (* be specified as 0. *) (* pidadr = For system service logging, the address of *) (* the PID of the target process. Otherwise, 0. *) (* prcnam = For system service logging, the address of *) (* the process name descriptor of the target *) (* process. Otherwise, must be 0. *) (* property = A constant that selects which property to set *) (* value = A quadword value to set the property to *) (* prev_value = The address of a quadword which will receive the *) (* previous value of the property *) (* bufsiz = For PPROP$C_SS_ENABLE, the size in bytes of a log buffer *) (* bufcnt = For PPROP$C_SS_ENABLE, the number of log buffers *) (* flags = for PPROP$C_SS_ENABLE, the associated flags *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_PROPERTIES)] FUNCTION $SET_PROCESS_PROPERTIES ( %IMMED MBZ1 : UNSIGNED := %IMMED 0; PIDADR : UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED PROPERTY : INTEGER; %IMMED VALUE_ : INTEGER; VAR PREV_VALUE : [VOLATILE] $UQUAD; %IMMED BUFSIZ : UNSIGNED := %IMMED 0; %IMMED BUFCNT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_PROPERTIESW)] FUNCTION $SET_PROCESS_PROPERTIESW ( %IMMED MBZ1 : UNSIGNED := %IMMED 0; PIDADR : UNSIGNED := %IMMED 0; PRCNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED PROPERTY : INTEGER; %IMMED VALUE_ : INTEGER; VAR PREV_VALUE : [VOLATILE] $UQUAD; %IMMED BUFSIZ : UNSIGNED := %IMMED 0; %IMMED BUFCNT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* SYS$ACQUIRE_GALAXY_LOCK *) (* *) (* $ACQUIRE_GALAXY_LOCK lock_handle,timeout,flags *) (* *) (* lock_handle - GLOCK handle *) (* timeout - timeout value in 10 microsecond units *) (* flags - flags *) [ASYNCHRONOUS,EXTERNAL(SYS$ACQUIRE_GALAXY_LOCK)] FUNCTION $ACQUIRE_GALAXY_LOCK ( %IMMED LOCK_HANDLE : INTEGER; %IMMED TIMEOUT : UNSIGNED := %IMMED 0; %IMMED FLAGS : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* SYS$CREATE_GALAXY_LOCK *) (* *) (* $CREATE_GALAXY_LOCK lcktbl_handle,name,size,timeout,ipl,rank,lock_handle *) (* *) (* lcktbl_handle - handle of lock table in which to create the lock *) (* name - pointer to name of lock; 16 bytes. ASCIZ or Descriptor *) (* size - size of lock *) (* timeout - wait timeout value in 10 micro second units *) (* ipl - IPL to raise to when lock is acquired (kernel mode only) *) (* rank - rank of lock *) (* lock_handle - lock handle *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GALAXY_LOCK)] FUNCTION $CREATE_GALAXY_LOCK ( %IMMED LCKTBL_HANDLE : UNSIGNED; NAME : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR; %IMMED SIZE : UNSIGNED; %IMMED TIMEOUT : UNSIGNED := %IMMED 0; %IMMED IPL : UNSIGNED := %IMMED 0; %IMMED RANK : UNSIGNED := %IMMED 0; VAR LOCK_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$CREATE_GALAXY_LOCK_TABLE *) (* *) (* $CREATE_GALAXY_LOCK_TABLE name,accmode,section_size,section_type,prot,lock_size,lcktbl_handle *) (* *) (* name - pointer to name of section; 16 bytes. ASCIZ or Descriptor *) (* accmode - access mode *) (* section_size - virtual size of the section (bytes) *) (* section_type - glcktbl$c_process | glcktbl$c_system *) (* prot - page protection *) (* lock_size - size of locks in the section *) (* lcktbl_handle - handle of lock table *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$CREATE_GALAXY_LOCK_TABLE)] FUNCTION $CREATE_GALAXY_LOCK_TABLE ( NAME : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR; %IMMED ACCMODE : UNSIGNED; %IMMED SECTION_SIZE : INTEGER; %IMMED SECTION_TYPE : UNSIGNED; %IMMED PROT : UNSIGNED; %IMMED LOCK_SIZE : UNSIGNED; VAR LCKTBL_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$DELETE_GALAXY_LOCK *) (* *) (* $DELETE_GALAXY_LOCK lock_handle *) (* *) (* lock_handle - lock handle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_GALAXY_LOCK)] FUNCTION $DELETE_GALAXY_LOCK ( %IMMED LOCK_HANDLE : INTEGER) : INTEGER; EXTERNAL; (* SYS$DELETE_GALAXY_LOCK_TABLE *) (* *) (* $DELETE_GALAXY_LOCK_TABLE lcktbl_handle *) (* *) (* lcktbl_handle - handle of lock table *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DELETE_GALAXY_LOCK_TABLE)] FUNCTION $DELETE_GALAXY_LOCK_TABLE ( %IMMED LCKTBL_HANDLE : UNSIGNED) : INTEGER; EXTERNAL; (* SYS$GET_GALAXY_LOCK_INFO *) (* *) (* $GET_GALAXY_LOCK_INFO lcktbl_handle,name,timeout,size,ipl,rank,lock_handle, name_length *) (* *) (* lock_handle - lock handle *) (* name - pointer to name of lock; 16 bytes, zero terminated *) (* timeout - wait timeout value in 10 micro second units *) (* size - size of lock *) (* ipl - IPL to raise to when lock is acquired (kernel mode only) *) (* rank - rank of lock *) (* flags - flags from lock *) (* name_length - pointer to a word where the length of the name will be returned *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_GALAXY_LOCK_INFO)] FUNCTION $GET_GALAXY_LOCK_INFO ( %IMMED LOCK_HANDLE : INTEGER; VAR NAME : [VOLATILE] CHAR; VAR TIMEOUT : [VOLATILE] $QUAD; VAR SIZE : [VOLATILE] $QUAD; VAR IPL : [VOLATILE] $QUAD; VAR RANK : [VOLATILE] $QUAD; VAR FLAGS : [VOLATILE] $QUAD; VAR NAME_LENGTH : [VOLATILE] $QUAD := %IMMED 0) : INTEGER; EXTERNAL; (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GET_GALAXY_LOCK_SIZE)] FUNCTION $GET_GALAXY_LOCK_SIZE ( VAR MIN_SIZE : [VOLATILE] $QUAD; VAR MAX_SIZE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$INIT_GALAXY_LOCK *) (* *) (* $INIT_GALAXY_LOCK va,name,size,timeout,ipl,rank,lock_handle *) (* *) (* va - local va of memory to be initialized *) (* name - pointer to name of lock; 16 bytes, zero terminated *) (* size - size of lock *) (* timeout - wait timeout value in 10 micro second units *) (* ipl - IPL to raise to when lock is acquired (kernel mode only) *) (* rank - rank of lock *) (* lock_handle - lock handle *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$INIT_GALAXY_LOCK)] FUNCTION $INIT_GALAXY_LOCK ( VA : $QUAD; NAME : CHAR; %IMMED SIZE : UNSIGNED; %IMMED TIMEOUT : UNSIGNED := %IMMED 0; %IMMED IPL : UNSIGNED := %IMMED 0; %IMMED RANK : UNSIGNED := %IMMED 0; VAR LOCK_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$INIT_GALAXY_LOCK_TABLE *) (* *) (* $INIT_GALAXY_LOCK_TABLE region_va,reg_phys_size,reg_virt_size,section_type,lock_size,lcktbl_handle *) (* *) (* region_va - local va of shared memory region where the locks reside *) (* reg_phys_size - physical size of the region (bytes) *) (* reg_virt_size - virtual size of the region (bytes) *) (* section_type - glcktbl$c_process | glcktbl$c_system *) (* lock_size - size of locks in the section *) (* lcktbl_handle - handle of lock table *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$INIT_GALAXY_LOCK_TABLE)] FUNCTION $INIT_GALAXY_LOCK_TABLE ( REGION_VA : $QUAD; %IMMED REG_PHYS_SIZE : INTEGER; %IMMED REG_VIRT_SIZE : INTEGER; %IMMED SECTION_TYPE : UNSIGNED; %IMMED LOCK_SIZE : UNSIGNED; VAR LCKTBL_HANDLE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$RELEASE_GALAXY_LOCK *) (* *) (* $RELEASE_GALAXY_LOCK lock_handle *) (* *) (* lock_handle - lock handle *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RELEASE_GALAXY_LOCK)] FUNCTION $RELEASE_GALAXY_LOCK ( %IMMED LOCK_HANDLE : INTEGER) : INTEGER; EXTERNAL; (* SYS$RESET_GALAXY_LOCK *) (* *) (* $RESET_GALAXY_LOCK lock_handle *) (* *) (* lock_handle - lock handle *) (* lock_va - local address of lock *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$RESET_GALAXY_LOCK)] FUNCTION $RESET_GALAXY_LOCK ( %IMMED LOCK_HANDLE : INTEGER; VAR LOCK_VA : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* SYS$WAIT_ON_GLOCK *) (* *) (* $WAIT_ON_GLOCK lock_handle,timeout *) (* *) (* lock_handle - lock handle *) (* timeout - timeout value; overrides the value in the lock *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$WAIT_ON_GLOCK)] FUNCTION $WAIT_ON_GLOCK ( %IMMED LOCK_HANDLE : INTEGER; %IMMED TIMEOUT : UNSIGNED) : INTEGER; EXTERNAL; (* SYS$NOTIFY_GLOCK_WAITERS *) (* *) (* $NOTIFY_GLOCK_WAITERS lock_handle,waiters *) (* *) (* lock_handle - lock handle *) (* waiters - bitmask of galaxy nodes with waiters for this lock *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$NOTIFY_GLOCK_WAITERS)] FUNCTION $NOTIFY_GLOCK_WAITERS ( %IMMED LOCK_HANDLE : INTEGER; %IMMED WAITERS : INTEGER) : INTEGER; EXTERNAL; (* $QIOSERVER *) (* *) (* QIOserver Control and Information *) (* *) (* $QIOSERVER [efn], func, [context], [itmlst], *) (* ($QIOSERVERW) [iosb], [astadr], [astprm] *) (* *) (* efn = event flag to be set when request completes *) (* func = code specifying function to be performed *) (* context = address of a longword containing a context number *) (* itmlst = address of a list of item descriptors for the operation *) (* iosb = address of a quadword status block to receive the final status *) (* astadr = address of an ast routine to be called when request completes *) (* astprm = 32-bit (VAX) or 64-bit (ALPHA) ast parameter *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$QIOSERVER)] FUNCTION $QIOSERVER ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$QIOSERVERW)] FUNCTION $QIOSERVERW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED FUNC : UNSIGNED; VAR CONTEXT : [VOLATILE] UNSIGNED := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $DEVICE_PATH_SCAN *) (* *) (* SCAN Device Path Information *) (* *) (* $DEVICE_PATH_SCAN [chan] ,[devnam] ,itmlst ,[contxt] ,[nullarg] *) (* *) (* chan = number of a channel assigned to the device or *) (* 0 if device is specified by the devnam parameter *) (* *) (* devnam = address of device name or logical name descriptor *) (* *) (* 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 *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$DEVICE_PATH_SCAN)] FUNCTION $DEVICE_PATH_SCAN ( %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l3..$u3:INTEGER] OF $UBYTE; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* $SET_DEVICE *) (* $SET_DEVICEW *) (* *) (* SET Device Information *) (* *) (* $SET_DEVICE [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr], *) (* $SET_DEVICEW [astprm] ,[nullarg] *) (* *) (* efn = event flag to be set at completion *) (* *) (* chan = number of a channel assigned to the device or *) (* 0 if device is specified by the devnam parameter *) (* *) (* devnam = address of device name or logical name descriptor *) (* *) (* itmlst = address of a list of item descriptors *) (* *) (* iosb = address of a quadword I/O status block *) (* *) (* astadr = address of entry mask of AST routine *) (* *) (* astprm = value to be passed to AST routine *) (* *) (* nullarg = reserved argument *) (* *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_DEVICE)] FUNCTION $SET_DEVICE ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SET_DEVICEW)] FUNCTION $SET_DEVICEW ( %IMMED EFN : UNSIGNED := %IMMED 0; %IMMED CHAN : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : UNSIGNED := %IMMED 0; NULLARG : $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $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: *) (* 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 ID *) (* flags - Quadword pointer to longword behavioral flags *) (* efn - Event flag number for completion notification *) (* iosb - IOSB block address for completion notification *) (* astadr - Address of AST routine name on completion *) (* astprm - AST parameter to be passed back on completion *) (* contxt - Context longword *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IO_TRANSITION)] FUNCTION $IO_TRANSITION ( %IMMED TRAN_CODE : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED NODE_ID : INTEGER := %IMMED -1; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$IO_TRANSITIONW)] FUNCTION $IO_TRANSITIONW ( %IMMED TRAN_CODE : INTEGER := %IMMED 0; DEVNAM : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; NODENAME : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %IMMED NODE_ID : INTEGER := %IMMED -1; %IMMED FLAGS : UNSIGNED := %IMMED 0; %IMMED EFN : UNSIGNED := %IMMED 0; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0; VAR CONTXT : [VOLATILE] UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* 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 *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MAP_UIC)] FUNCTION $MAP_UIC ( UIC : UNSIGNED; VAR UID : [VOLATILE] UNSIGNED; VAR GID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* 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 into *) (* username - address of a string descriptor to write matching username into *) (* retlen - address of a word to write the length of the username into *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$MAP_UID)] FUNCTION $MAP_UID ( UID : UNSIGNED; VAR UIC : [VOLATILE] UNSIGNED; VAR USERNAME : [CLASS_S,VOLATILE] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR; VAR RETLEN : [VOLATILE] $UWORD) : INTEGER; EXTERNAL; (* SYS$SET_SESSION_ID - Create new POSIX session *) (* *) (* $SET_SESSION_ID sid *) (* *) (* sid - address of a longword written with the newly created Session ID. *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_SESSION_ID)] FUNCTION $SET_SESSION_ID ( VAR SID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* SYS$SET_PROCESS_GROUP - Create or change POSIX process group *) (* *) (* $SET_PROCESS_GROUP pid, pgid, retpgid *) (* *) (* pid - address of a PID that is the target of this call *) (* pgid - address of a longword Process Group ID (also a PID) to have target join *) (* retpgid - address of a longword written with PGID of a new group (also a PID) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_PROCESS_GROUP)] FUNCTION $SET_PROCESS_GROUP ( PID : UNSIGNED; PGID : UNSIGNED; VAR RETPGID : [VOLATILE] UNSIGNED) : INTEGER; EXTERNAL; (* SYS$SET_POSIX_IDS - Set POSIX UID and GID values *) (* *) (* $SET_POSIX_IDS itmlst, flags *) (* *) (* itlmst - address of an item list 3 of POSIX ID values to set *) (* flags - flags signed longword, by value *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SET_POSIX_IDS)] FUNCTION $SET_POSIX_IDS ( ITMLST : UNSIGNED; %IMMED FLAGS : INTEGER) : INTEGER; EXTERNAL; (* SYS$LOG_SYSTEM_SERVICE - Log system service request *) (* *) (* $LOG_SYSTEM_SERVICE logtype, [bufseqnum], [logentry], [service_status], [service_ra], *) (* [arglist_add],[vector_index], [prev_mode] *) (* *) (* logtype - type of log entry, e.g., SSLOG$C_SS_ENTRY *) (* bufseqnum - address to store/fetch longword sequence number assoc. *) (* with log's buffer *) (* logentry - address to fetch/store 64-bit log buffer entry address *) (* service_status - completion status of service being logged *) (* service_ra - address corresponding to return address from call to *) (* service being logged *) (* arglist_add - address of VAX-style argument list to service being logged *) (* vector_index - position of system service vector in SYS$PUBLIC_VECTORS of *) (* service being logged *) (* prev_mode - mode from which service being logged was called *) [ASYNCHRONOUS,EXTERNAL(SYS$LOG_SYSTEM_SERVICE)] FUNCTION $LOG_SYSTEM_SERVICE ( %IMMED LOGTYP : UNSIGNED; VAR BUFSEQNUM : [VOLATILE] UNSIGNED := %IMMED 0; VAR LOGENTRY : [VOLATILE] UNSIGNED := %IMMED 0; %IMMED SERVICE_STATUS : UNSIGNED := %IMMED 0; %IMMED SERVICE_RA : $DEFPTR := %IMMED 0; %IMMED ARGLIST_ADD : UNSIGNED := %IMMED 0; %IMMED VECTOR_INDEX : UNSIGNED := %IMMED 0; %IMMED PREV_MODE : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $GETLMI *) (* $GETLMIW *) (* *) (* Get License Management Information *) (* *) (* $GETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm *) (* $GETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm *) (* Inputs: *) (* efn - Event flag number. (optional, by value) *) (* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) *) (* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) *) (* itmlst - Item list containing information to fully describe the requested function. (required, by reference) *) (* iosb - I/O status block. (optional, by reference) *) (* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) *) (* astprm - AST parameter for the AST routine. (optional, by value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$GETLMI)] FUNCTION $GETLMI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] STARLET$$TYP45 := %IMMED 0; RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$GETLMIW)] FUNCTION $GETLMIW ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] STARLET$$TYP46 := %IMMED 0; RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $SETLMI *) (* $SETLMIW *) (* *) (* Set License Management Information *) (* *) (* $SETLMI efn, contxt, 0, itmlst, iosb, astadr, astprm *) (* $SETLMIW efn, contxt, 0, itmlst, iosb, astadr, astprm *) (* Inputs: *) (* efn - Event flag number. (optional, by value) *) (* contxt - Context block used for subsequent calls for wildcard license type. (optional by reference) *) (* reserved - String passed by descriptor. May be used for nodename in the future. (optional, by descriptor) *) (* itmlst - Item list containing information to fully describe the requested function. (required, by reference) *) (* iosb - I/O status block. (optional, by reference) *) (* astadr - AST routine to be delivered and executed in the caller's mode. (optional, by reference) *) (* astprm - AST parameter for the AST routine. (optional, by value) *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$SETLMI)] FUNCTION $SETLMI ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] STARLET$$TYP47 := %IMMED 0; RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$SETLMIW)] FUNCTION $SETLMIW ( %IMMED EFN : UNSIGNED := %IMMED 0; VAR CONTXT : [VOLATILE] STARLET$$TYP48 := %IMMED 0; RESERVED : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; %REF ITMLST : [UNSAFE] ARRAY [$l4..$u4:INTEGER] OF $UBYTE; VAR IOSB : [VOLATILE] $UQUAD := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE ASTADR := %IMMED 0; %IMMED ASTPRM : INTEGER := %IMMED 0) : INTEGER; EXTERNAL; (* *) (* $IEEE_SET_ROUNDING_MODE *) (* $IEEE_SET_PRECISION_MODE *) (* *) (* Set and retrieve the IEEE rounding/precision mode for the current kernel thread *) (* *) (* $IEEE_SET_ROUNDING_MODE( value, prev_value ) *) (* *) (* value = A longword constant specifying the rounding mode for the thread *) (* prev_value = The address of a longword which will receive the *) (* previous rounding mode *) (* *) [ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_ROUNDING_MODE)] FUNCTION $IEEE_SET_ROUNDING_MODE ( %IMMED VALUE_ : INTEGER; VAR PREV_VALUE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; [ASYNCHRONOUS,EXTERNAL(SYS$IEEE_SET_PRECISION_MODE)] FUNCTION $IEEE_SET_PRECISION_MODE ( %IMMED VALUE_ : UNSIGNED; VAR PREV_VALUE : [VOLATILE] $QUAD) : INTEGER; EXTERNAL; (* $DEBUG_BREAK *) (* *) (* Manipulate hardware debug resources *) (* *) (* $DEBUG_BREAK func, handle, addr, addr_mask, mode_mask, access_mask *) (* *) (* func = what function to perform *) (* *) (* handle = address of handle *) (* *) (* addr = address to be debugged *) (* *) (* addr_mask = which bits in the address are significant *) (* *) (* mode_mask = which mode(s) are to generate an exception *) (* *) (* access_mask = are we monitoring reads or writes? *) [ASYNCHRONOUS,EXTERNAL(SYS$DEBUG_BREAK)] FUNCTION $DEBUG_BREAK ( %IMMED FUNC : INTEGER := %IMMED 0; VAR HANDLE : [VOLATILE] $UQUAD := %IMMED 0; ADDR : UNSIGNED := %IMMED 0; %IMMED ADDR_MASK : INTEGER := %IMMED 0; %IMMED MODE_MASK : INTEGER := %IMMED 0; %IMMED ACCESS_MASK : UNSIGNED := %IMMED 0) : INTEGER; EXTERNAL; (* $POWER_CONTROL *) (* *) (* Manipulate the platform's power and performance settings *) (* *) (* $DEBUG_BREAK power_setting, current_value *) (* *) (* 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) *) [ASYNCHRONOUS,EXTERNAL(SYS$POWER_CONTROL)] FUNCTION $POWER_CONTROL ( %IMMED POWER_SETTING : INTEGER; VAR CURRENT_VALUE : [VOLATILE] $UQUAD := %IMMED 0) : INTEGER; EXTERNAL; (* END. *) (* MODULE STRMSG ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE $STRDEF ***) (* *) (* This SDL File Generated by VAX-11 Message V04-00 on 30-MAR-2010 17:29:37.43 *) (* *) (* FILE: STRMSG.MSG EDIT: JWN2008 *) (* *) (***************************************************************************** *) (** * *) (** COPYRIGHT (C) 1978, 1980, 1982, 1984 BY * *) (** DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (** ALL RIGHTS RESERVED. * *) (** * *) (** THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (** ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (** INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (** COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (** OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (** TRANSFERRED. * *) (** * *) (** THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (** AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (** CORPORATION. * *) (** * *) (** DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (** SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (** * *) (** * *) (***************************************************************************** *) (* *) (* *) (* 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG *) (* VERSION 1-004. SBL 22-APR-1981 *) (* 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 *) (* 2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR. SBL 27-APR-1981 *) (* 2-003 - ADD STR$_MATCH AND STR$_NOMATCH. RKR 2-JUL-1982 *) (* 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982 *) (* 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND *) (* STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE *) (* USED BY STR$ELEMENT. ROW 03-NOV-1986 *) (* 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRING *) (* WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING *) (* AT SOME ARBITRARY MEMORY. *) (* 2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES. *) (* JWN 26-APR-1987 *) (*+ *) (* SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: *) (* *) (* STR$_ABCMNOXYZ *) (* *) (* IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno", *) (* AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR *) (* MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. *) (* *) (* *) (* MACRO-32 PROGRAMMING: *) (* *) (* THE MACRO CALL: *) (* *) (* $STRDEF *) (* *) (* WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE. *) (* THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL; *) (* THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. *) (*- *) (* *) (* THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED. *) (* *) (* ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES!!! *) CONST STR$_FACILITY = 36; STR$_FATINTERR = 2392132; STR$_DIVBY_ZER = 2392140; STR$_ILLSTRCLA = 2392148; STR$_STRIS_INT = 2392156; STR$_WRONUMARG = 2392164; STR$_INSVIRMEM = 2392172; STR$_STRTOOLON = 2392180; STR$_ERRFREDYN = 2392188; (* *) (* THE FOLLOWING ARE WARNING ERRORS. *) (* *) (* ; GO IN STEPS OF 8. *) CONST STR$_TRU = 2392576; STR$_NOMATCH = 2392584; STR$_INVDELIM = 2392592; STR$_NOELEM = 2392600; (* *) (* THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES *) (* *) (* ; GO IN STEPS OF 8. *) CONST STR$_NEGSTRLEN = 2393089; STR$_ILLSTRPOS = 2393097; STR$_ILLSTRSPE = 2393105; STR$_MATCH = 2393113; (* *) (* DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL. *) (* *) CONST STR$_NORMAL = 1; (* *) (* END. *) (* MODULE UTIL$ROUTINES ; *) (* [HIDDEN] TYPE (**** Pre-declared data types ***?? *) (* $BYTE = [BYTE] -128..127; *) (* $WORD = [WORD] -32768..32767; *) (* $QUAD = [QUAD,UNSAFE] RECORD *) (* L0:UNSIGNED; L1:INTEGER; END; *) (* $OCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2:UNSIGNED; L3:INTEGER; END; *) (* $UBYTE = [BYTE] 0..255; *) (* $UWORD = [WORD] 0..65535; *) (* $UQUAD = [QUAD,UNSAFE] RECORD *) (* L0,L1:UNSIGNED; END; *) (* $UOCTA = [OCTA,UNSAFE] RECORD *) (* L0,L1,L2,L3:UNSIGNED; END; *) (* $UOCTAQUAD = [OCTA(2),UNSAFE] RECORD *) (* L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END; *) (* $PACKED_DEC = [BIT(4),UNSAFE] 0..15; *) (* $DEFTYP = [UNSAFE] INTEGER; *) (* $DEFPTR = [UNSAFE] ^$DEFTYP; *) (* $BOOL = [BIT(1),UNSAFE] BOOLEAN; *) (* $BIT2 = [BIT(2),UNSAFE] 0..3; *) (* $BIT3 = [BIT(3),UNSAFE] 0..7; *) (* $BIT4 = [BIT(4),UNSAFE] 0..15; *) (* $BIT5 = [BIT(5),UNSAFE] 0..31; *) (* $BIT6 = [BIT(6),UNSAFE] 0..63; *) (* $BIT7 = [BIT(7),UNSAFE] 0..127; *) (* $BIT8 = [BIT(8),UNSAFE] 0..255; *) (* $BIT9 = [BIT(9),UNSAFE] 0..511; *) (* $BIT10 = [BIT(10),UNSAFE] 0..1023; *) (* $BIT11 = [BIT(11),UNSAFE] 0..2047; *) (* $BIT12 = [BIT(12),UNSAFE] 0..4095; *) (* $BIT13 = [BIT(13),UNSAFE] 0..8191; *) (* $BIT14 = [BIT(14),UNSAFE] 0..16383; *) (* $BIT15 = [BIT(15),UNSAFE] 0..32767; *) (* $BIT16 = [BIT(16),UNSAFE] 0..65535; *) (* $BIT17 = [BIT(17),UNSAFE] 0..131071; *) (* $BIT18 = [BIT(18),UNSAFE] 0..262143; *) (* $BIT19 = [BIT(19),UNSAFE] 0..524287; *) (* $BIT20 = [BIT(20),UNSAFE] 0..1048575; *) (* $BIT21 = [BIT(21),UNSAFE] 0..2097151; *) (* $BIT22 = [BIT(22),UNSAFE] 0..4194303; *) (* $BIT23 = [BIT(23),UNSAFE] 0..8388607; *) (* $BIT24 = [BIT(24),UNSAFE] 0..16777215; *) (* $BIT25 = [BIT(25),UNSAFE] 0..33554431; *) (* $BIT26 = [BIT(26),UNSAFE] 0..67108863; *) (* $BIT27 = [BIT(27),UNSAFE] 0..134217727; *) (* $BIT28 = [BIT(28),UNSAFE] 0..268435455; *) (* $BIT29 = [BIT(29),UNSAFE] 0..536870911; *) (* $BIT30 = [BIT(30),UNSAFE] 0..1073741823; *) (* $BIT31 = [BIT(31),UNSAFE] 0..2147483647; *) (* $BIT32 = [BIT(32),UNSAFE] UNSIGNED; *) (*** MODULE util$routines IDENT X01-02 ***) (**************************************************************************** *) (* * *) (* COPYRIGHT (c) 1998 BY * *) (* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * *) (* ALL RIGHTS RESERVED. * *) (* * *) (* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * *) (* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * *) (* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * *) (* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * *) (* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * *) (* TRANSFERRED. * *) (* * *) (* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * *) (* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * *) (* CORPORATION. * *) (* * *) (* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * *) (* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * *) (* * *) (* * *) (**************************************************************************** *) (* *) (* UTIL$CQUAL_FILE_PARSE *) (* *) [ASYNCHRONOUS] FUNCTION util$cqual_file_parse ( flags : UNSIGNED; VAR context : [VOLATILE] UNSIGNED; VAR found_flags : [VOLATILE] UNSIGNED := %IMMED 0; VAR flags_value : [VOLATILE] UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; (* *) (* UTIL$CQUAL_FILE_MATCH *) (* *) [ASYNCHRONOUS] FUNCTION util$cqual_file_match ( context : UNSIGNED; fab : UNSIGNED := %IMMED 0; file_name : [CLASS_S] PACKED ARRAY [$l3..$u3:INTEGER] OF CHAR := %IMMED 0; prompt_1 : [CLASS_S] PACKED ARRAY [$l4..$u4:INTEGER] OF CHAR := %IMMED 0; prompt_2 : [CLASS_S] PACKED ARRAY [$l5..$u5:INTEGER] OF CHAR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE prompt_rtn := %IMMED 0; VAR current_form : [VOLATILE] UNSIGNED := %IMMED 0; disable : UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; (* *) (* UTIL$CQUAL_FILE_END *) (* *) [ASYNCHRONOUS] FUNCTION util$cqual_file_end ( VAR context : [VOLATILE] UNSIGNED) : UNSIGNED; EXTERNAL; (* *) (* UTIL$CQUAL_CONFIRM_ACT *) (* *) [ASYNCHRONOUS] FUNCTION util$cqual_confirm_act ( prompt_1 : [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR := %IMMED 0; prompt_2 : [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR := %IMMED 0; %IMMED [UNBOUND, ASYNCHRONOUS] PROCEDURE prompt_rtn := %IMMED 0; VAR current_form : [VOLATILE] UNSIGNED := %IMMED 0) : UNSIGNED; EXTERNAL; (* END. *) (* RMSUSR.PAS was created by-hand by John Reagan in Sept 2004 from the *) (* RMSUSR.SDL in the 8.2 stream. The changes from the standard SDL are: *) (* 1: Add the RMS$TYPE record. It doesn't come from any SDL. *) (* 2: Merge all the various XAB records into a single XAB$TYPE and move *) (* the various XAB constants to one place for readability. *) TYPE RMS$TYPE = RECORD CASE INTEGER OF 1: (RMS$_RMSDEF_BITS : [BYTE(2)] RECORD END); 2: (RMS$V_STVSTATUS : [POS(14)] $BOOL) END; (*** MODULE $CVTFNMDEF ***) (* *) (* String characteristic flags for SYS$CVT_FILENAME *) (* *) CONST CVTFNM$M_WORD_CHARS = 1; CVTFNM$M_NO_DELIMITERS = 2; CVTFNM$M_FORCE_UPCASE = 4; TYPE INOUTFLAGS$TYPE = RECORD CVTFNM$V_WORD_CHARS : [POS(0)] $BOOL; (* characters are word-width *) CVTFNM$V_NO_DELIMITERS : [POS(1)] $BOOL; (* string does/should contain no fnm delimiters *) CVTFNM$V_FORCE_UPCASE : [POS(2)] $BOOL; (* do upcasing (ACPQIO-to-RMS onoly) *) CVTFNM$$_FILL1 : [POS(3)] $BIT29; END; (* *) (* Control codes for SYS$CVT_FILENAME *) (* *) CONST CVTFNM$C_RMS_TO_ACPQIO = 1; CVTFNM$C_ACPQIO_TO_RMS = 2; CVTFNM$K_RMS_TO_ACPQIO = 1; CVTFNM$K_ACPQIO_TO_RMS = 2; (*** MODULE $FABDEF ***) (* *) (* *) (* file access block (fab) definitions *) (* *) (* the fields thru ctx must not be modified due to *) (* commonality between fab/rab/xab *) (* *) CONST FAB$C_BID = 3; (* code for fab *) FAB$M_PPF_RAT = 16320; FAB$M_PPF_IND = 16384; FAB$M_PPIFI = 32768; FAB$M_ASY = 1; FAB$M_MXV = 2; FAB$M_SUP = 4; FAB$M_TMP = 8; FAB$M_TMD = 16; FAB$M_DFW = 32; FAB$M_SQO = 64; FAB$M_RWO = 128; FAB$M_POS = 256; FAB$M_WCK = 512; FAB$M_NEF = 1024; FAB$M_RWC = 2048; FAB$M_DMO = 4096; FAB$M_SPL = 8192; FAB$M_SCF = 16384; FAB$M_DLT = 32768; FAB$M_NFS = 65536; FAB$M_UFO = 131072; FAB$M_PPF = 262144; FAB$M_INP = 524288; FAB$M_CTG = 1048576; FAB$M_CBT = 2097152; FAB$M_SYNCSTS = 4194304; FAB$M_RCK = 8388608; FAB$M_NAM = 16777216; FAB$M_CIF = 33554432; FAB$M_ESC = 134217728; FAB$M_TEF = 268435456; FAB$M_OFP = 536870912; FAB$M_KFO = 1073741824; FAB$M_ERL = 32768; FAB$M_PUT = 1; FAB$M_GET = 2; FAB$M_DEL = 4; FAB$M_UPD = 8; FAB$M_TRN = 16; FAB$M_BIO = 32; FAB$M_BRO = 64; FAB$M_EXE = 128; FAB$M_SHRPUT = 1; FAB$M_SHRGET = 2; FAB$M_SHRDEL = 4; FAB$M_SHRUPD = 8; FAB$M_MSE = 16; FAB$M_NIL = 32; FAB$M_UPI = 64; FAB$M_NQL = 128; FAB$M_ORG = 240; FAB$C_SEQ = 0; (* sequential *) FAB$C_REL = 16; (* relative *) FAB$C_IDX = 32; (* indexed *) FAB$C_HSH = 48; (* hashed *) FAB$C_SPECIAL = 64; (* special file *) FAB$M_FTN = 1; FAB$M_CR = 2; FAB$M_PRN = 4; FAB$M_BLK = 8; FAB$M_MSB = 16; FAB$C_FIFO = 1; (* FIFO special file *) FAB$C_CHAR_SPECIAL = 2; (* character special file *) FAB$C_BLOCK_SPECIAL = 3; (* block special file *) FAB$C_SYMLINK = 4; (* symbolic link special file for pre-V8.2 *) FAB$C_SYMBOLIC_LINK = 5; (* symbolic link special file for V8.2 and beyond *) FAB$C_RFM_DFLT = 2; (* var len is default *) FAB$C_UDF = 0; (* undefined (also stream binary) *) FAB$C_FIX = 1; (* fixed length records *) FAB$C_VAR = 2; (* variable length records *) FAB$C_VFC = 3; (* variable fixed control *) FAB$C_STM = 4; (* RMS-11 stream (valid only for sequential org) *) FAB$C_STMLF = 5; (* LF stream (valid only for sequential org) *) FAB$C_STMCR = 6; (* CR stream (valid only for sequential org) *) FAB$C_MAXRFM = 6; (* maximum rfm supported *) FAB$M_ONLY_RU = 1; FAB$M_RU = 2; FAB$M_BI = 4; FAB$M_AI = 8; FAB$M_AT = 16; FAB$M_NEVER_RU = 32; FAB$M_JOURNAL_FILE = 64; FAB$M_RCF_RU = 1; FAB$M_RCF_AI = 2; FAB$M_RCF_BI = 4; TYPE FAB$TYPE = RECORD CASE INTEGER OF 1: (FAB$B_BID : $UBYTE; (* block id *) FAB$B_BLN : $UBYTE; (* block len *) FAB$R_IFI_OVERLAY : [BYTE(2)] RECORD END; FAB$R_FOP_OVERLAY : [BYTE(4)] RECORD END; FAB$L_STS : UNSIGNED; (* status *) FAB$L_STV : UNSIGNED; (* status value *) FAB$L_ALQ : UNSIGNED; (* allocation quantity *) FAB$W_DEQ : $UWORD; (* default allocation quantity *) FAB$R_FAC_OVERLAY : [BYTE(1)] RECORD END; FAB$R_SHR_OVERLAY : [BYTE(1)] RECORD END; FAB$L_CTX : UNSIGNED; (* user context *) (*-----***** *) FAB$B_RTV : $BYTE; (* retrieval window size *) FAB$R_ORG_OVERLAY : [BYTE(1)] RECORD END; FAB$R_RAT_OVERLAY : [BYTE(1)] RECORD END; FAB$B_RFM : $UBYTE; (* record format *) FAB$R_JOURNAL_OVERLAY : [BYTE(1)] RECORD END; FAB$B_RU_FACILITY : $UBYTE; (* recoverable facility id number *) FABDEF$$_FILL_7 : $WORD; (* (spare) *) FAB$L_XAB : UNSIGNED; (* xab address *) FAB$R_NAM_OVERLAY : [BYTE(4)] RECORD END; FAB$L_FNA : UNSIGNED; (* file name string address *) FAB$L_DNA : UNSIGNED; (* default file name string addr *) FAB$B_FNS : $UBYTE; (* file name string size *) FAB$B_DNS : $UBYTE; (* default name string size *) FAB$W_MRS : $UWORD; (* maximum record size *) FAB$L_MRN : INTEGER; (* maximum record number *) FAB$W_BLS : $UWORD; (* blocksize for tape *) FAB$B_BKS : $UBYTE; (* bucket size *) FAB$B_FSZ : $UBYTE; (* fixed header size *) FAB$L_DEV : UNSIGNED; (* device characteristics *) FAB$L_SDC : UNSIGNED; (* spooling device characteristics *) FAB$W_GBC : $UWORD; (* Global buffer count *) FAB$R_ACMODES_OVERLAY : [BYTE(1)] RECORD END; FAB$R_RCF_OVERLAY : [BYTE(1)] RECORD END; (* recovery control flags *) FABDEF$$_FILL_9 : UNSIGNED; (* (spare) *) ); 2: (FAB$W_IFI : [POS(16)] $UWORD; (* internal file index *) FAB$L_FOP : [POS(32)] UNSIGNED; (* file options *) FAB$B_FAC : [POS(176)] $UBYTE; (* file access *) FAB$B_SHR : [POS(184)] $UBYTE; (* file sharing *) FAB$B_ORG : [POS(232)] $UBYTE; (* file organization *) FAB$B_RAT : [POS(240)] $UBYTE; (* record format *) FAB$B_JOURNAL : [POS(256)] $UBYTE; (* journaling options (from FH2$B_JOURNAL) *) FAB$L_NAM : [POS(320)] UNSIGNED; (* nam block address *) FAB$B_ACMODES : [POS(592)] $UBYTE; (* agent access modes *) FAB$B_RCF : [POS(600)] $UBYTE; (* (only for use by RMS Recovery) *) ); 3: (FAB$R_IFI_BITS : [POS(16), BYTE(2)] RECORD END; FAB$R_FOP_BITS : [POS(32), BYTE(4)] RECORD END; FAB$R_FAC_BITS : [POS(176), BYTE(1)] RECORD END; FAB$R_SHR_BITS : [POS(184), BYTE(1)] RECORD END; FAB$R_ORG_BITS : [POS(232), BYTE(1)] RECORD END; FAB$R_RAT_BITS : [POS(240), BYTE(1)] RECORD END; FAB$R_JOURNAL_BITS : [POS(256), BYTE(1)] RECORD END; (* note: only one of RU, ONLY_RU, NEVER_RU *) FAB$L_NAML : [POS(320)] UNSIGNED; (* naml block address *) FAB$R_ACMODES_BITS : [POS(592), BYTE(1)] RECORD END; FAB$R_RCF_BITS : [POS(600), BYTE(1)] RECORD END; ); 4: (FAB$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *) FAB$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file *) (* (i.e., restricted operations) *) FAB$V_PPIFI : [POS(31)] $BOOL; (* indicates that this is PPF file *) FAB$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *) FAB$V_MXV : [POS(33)] $BOOL; (* maximize version number *) FAB$V_SUP : [POS(34)] $BOOL; (* supersede existing file *) FAB$V_TMP : [POS(35)] $BOOL; (* create temporary file *) FAB$V_TMD : [POS(36)] $BOOL; (* create temp file marked for delete *) FAB$V_DFW : [POS(37)] $BOOL; (* deferred write (rel and idx) *) FAB$V_SQO : [POS(38)] $BOOL; (* sequential access only *) FAB$V_RWO : [POS(39)] $BOOL; (* rewind mt on open *) FAB$V_POS : [POS(40)] $BOOL; (* use next magtape position *) FAB$V_WCK : [POS(41)] $BOOL; (* write checking *) FAB$V_NEF : [POS(42)] $BOOL; (* inhibit end of file positioning *) FAB$V_RWC : [POS(43)] $BOOL; (* rewind mt on close *) FAB$V_DMO : [POS(44)] $BOOL; (* dismount mt on close (not implemented) *) FAB$V_SPL : [POS(45)] $BOOL; (* spool file on close *) FAB$V_SCF : [POS(46)] $BOOL; (* submit command file on close *) FAB$V_DLT : [POS(47)] $BOOL; (* delete sub-option *) FAB$V_NFS : [POS(48)] $BOOL; (* non-file structured operation *) FAB$V_UFO : [POS(49)] $BOOL; (* user file open - no rms operations *) FAB$V_PPF : [POS(50)] $BOOL; (* process permanent file (pio segment) *) FAB$V_INP : [POS(51)] $BOOL; (* process-permanent file is 'input' *) FAB$V_CTG : [POS(52)] $BOOL; (* contiguous extension *) FAB$V_CBT : [POS(53)] $BOOL; (* contiguous best try *) FAB$V_SYNCSTS : [POS(54)] $BOOL; (* Synchronous status notification for asynchronous routines. *) FAB$V_RCK : [POS(55)] $BOOL; (* read checking *) FAB$V_NAM : [POS(56)] $BOOL; (* use name block dvi, did, and/or fid fields for open *) FAB$V_CIF : [POS(57)] $BOOL; (* create if non-existent *) FAB$V_ESC : [POS(59)] $BOOL; (* 'escape' to non-standard function ($modify) *) FAB$V_TEF : [POS(60)] $BOOL; (* truncate at eof on close (write-accessed seq. disk file only) *) FAB$V_OFP : [POS(61)] $BOOL; (* output file parse (only name type sticky) *) FAB$V_KFO : [POS(62)] $BOOL; (* known file open (image activator only release 1) *) FAB$V_PUT : [POS(176)] $BOOL; (* put access *) FAB$V_GET : [POS(177)] $BOOL; (* get access *) FAB$V_DEL : [POS(178)] $BOOL; (* delete access *) FAB$V_UPD : [POS(179)] $BOOL; (* update access *) FAB$V_TRN : [POS(180)] $BOOL; (* truncate access *) FAB$V_BIO : [POS(181)] $BOOL; (* block i/o access *) FAB$V_BRO : [POS(182)] $BOOL; (* block and record i/o access *) FAB$V_EXE : [POS(183)] $BOOL; (* execute access (caller must be exec or kernel mode, *) (* ufo must also be set) *) FAB$V_SHRPUT : [POS(184)] $BOOL; (* put access *) FAB$V_SHRGET : [POS(185)] $BOOL; (* get access *) FAB$V_SHRDEL : [POS(186)] $BOOL; (* delete access *) FAB$V_SHRUPD : [POS(187)] $BOOL; (* update access *) FAB$V_MSE : [POS(188)] $BOOL; (* multi-stream connects enabled *) FAB$V_NIL : [POS(189)] $BOOL; (* no sharing *) FAB$V_UPI : [POS(190)] $BOOL; (* user provided interlocking (allows multiple *) (* writers to seq. files) *) FAB$V_NQL : [POS(191)] $BOOL; (* no query locking (file level) *) FAB$V_ORG : [POS(236)] $BIT4; FAB$V_FTN : [POS(240)] $BOOL; (* fortran carriage-ctl *) FAB$V_CR : [POS(241)] $BOOL; (* lf-record-cr carriage ctl *) FAB$V_PRN : [POS(242)] $BOOL; (* print-file carriage ctl *) FAB$V_BLK : [POS(243)] $BOOL; (* records don't cross block boundaries *) FAB$V_MSB : [POS(244)] $BOOL; (* MSB formatted byte count *) (* may be set at a time *) FAB$V_ONLY_RU : [POS(256)] $BOOL; (* file is accessible only in recovery unit *) FAB$V_RU : [POS(257)] $BOOL; (* enable recovery unit journal *) FAB$V_BI : [POS(258)] $BOOL; (* enable before image journal *) FAB$V_AI : [POS(259)] $BOOL; (* enable after image journal *) FAB$V_AT : [POS(260)] $BOOL; (* enable audit trail journal *) FAB$V_NEVER_RU : [POS(261)] $BOOL; (* file is never accessible in recovery unit *) FAB$V_JOURNAL_FILE : [POS(262)] $BOOL; (* this is a journal file *) FAB$V_LNM_MODE : [POS(592)] $BIT2; (* ACMODE for log nams *) FAB$V_CHAN_MODE : [POS(594)] $BIT2; (* ACMODE for channel *) FAB$V_FILE_MODE : [POS(596)] $BIT2; (* ACMODE to use for determining file accessibility *) FAB$V_CALLERS_MODE : [POS(598)] $BIT2; (* ACMODE for user structure probing; *) (* maximized with actual mode of caller *) FAB$V_RCF_RU : [POS(600)] $BOOL; (* recovery unit recovery *) FAB$V_RCF_AI : [POS(601)] $BOOL; (* after image recovery *) FAB$V_RCF_BI : [POS(602)] $BOOL; (* before image recovery *) ); 5: (FAB$R_FOP_BITS_OVERLAY : [POS(32), BYTE(4)] RECORD END; FAB$B_SPECIAL_TYPE : [POS(240)] $UBYTE; (* type of special file *) ); 6: (FAB$V_ERL : [POS(47)] $BOOL; (* Erase Regardless of Lock *) ) END; (* basealign on aggregate FABDEF operates after aggregate end *) CONST FAB$K_BLN = 80; (* length of fab *) FAB$C_BLN = 80; (* length of fab *) (*** MODULE $RABDEF ***) (* *) (* record access block (rab) definitions *) (* *) (* there is one rab per connected stream *) (* it is used for all communications between the user *) (* and rms concerning operations on the stream *) (* *) (* the fields thru ctx cannot be changed due to commonality *) (* with the fab *) (* *) CONST RAB$C_BID = 1; (* code for rab *) RAB$M_PPF_RAT = 16320; RAB$M_PPF_IND = 16384; RAB$M_PPISI = 32768; RAB$M_ASY = 1; RAB$M_TPT = 2; RAB$M_REA = 4; RAB$M_RRL = 8; RAB$M_UIF = 16; RAB$M_MAS = 32; RAB$M_FDL = 64; RAB$M_REV = 128; RAB$M_EOF = 256; RAB$M_RAH = 512; RAB$M_WBH = 1024; RAB$M_BIO = 2048; RAB$M_CDK = 4096; RAB$M_LOA = 8192; RAB$M_LIM = 16384; RAB$M_SYNCSTS = 32768; RAB$M_LOC = 65536; RAB$M_WAT = 131072; RAB$M_ULK = 262144; RAB$M_RLK = 524288; RAB$M_NLK = 1048576; RAB$M_KGE = 2097152; RAB$M_KGT = 4194304; RAB$M_NXR = 8388608; RAB$M_RNE = 16777216; RAB$M_TMO = 33554432; RAB$M_CVT = 67108864; RAB$M_RNF = 134217728; RAB$M_ETO = 268435456; RAB$M_PTA = 536870912; RAB$M_PMT = 1073741824; RAB$M_CCO = -2147483648; RAB$M_EQNXT = 2097152; RAB$M_NXT = 4194304; RAB$M_NQL = 1; RAB$M_NODLCKWT = 2; RAB$M_NODLCKBLK = 4; RAB$C_SEQ = 0; (* sequential access *) RAB$C_KEY = 1; (* keyed access *) RAB$C_RFA = 2; (* rfa access *) RAB$C_STM = 3; (* stream access (valid only for sequential org) *) RAB$C_MAXRAC = 2; (* Maximum RAC value currently supported by RMS *) TYPE RAB$TYPE = RECORD CASE INTEGER OF 1: (RAB$B_BID : $UBYTE; (* block id *) RAB$B_BLN : $UBYTE; (* block length *) RAB$R_ISI_OVERLAY : [BYTE(2)] RECORD END; RAB$R_ROP_OVERLAY : [BYTE(4)] RECORD END; RAB$L_STS : UNSIGNED; (* status *) RAB$R_STV_OVERLAY : [BYTE(4)] RECORD END; RAB$R_RFA_OVERLAY : [BYTE(6)] RECORD END; RABDEF$$_FILL_4 : $WORD; (* (reserved - rms release 1 optimizes stores *) (* to the rfa field to be a move quad, overwriting *) (* this reserved word) *) RAB$L_CTX : UNSIGNED; (* user context *) (*-----***** *) RAB$R_ROP_2_OVERLAY : [BYTE(2)] RECORD END; (* *) RAB$B_RAC : $UBYTE; (* record access *) RAB$B_TMO : $UBYTE; (* time-out period *) RAB$W_USZ : $UWORD; (* user buffer size *) RAB$W_RSZ : $UWORD; (* record buffer size *) RAB$L_UBF : UNSIGNED; (* user buffer address *) RAB$L_RBF : UNSIGNED; (* record buffer address *) RAB$L_RHB : UNSIGNED; (* record header buffer addr *) RAB$R_KBF_OVERLAY : [BYTE(4)] RECORD END; RAB$R_KSZ_OVERLAY : [BYTE(1)] RECORD END; RAB$B_KRF : $UBYTE; (* key of reference *) RAB$B_MBF : $BYTE; (* multi-buffer count *) RAB$B_MBC : $UBYTE; (* multi-block count *) RAB$R_BKT_OVERLAY : [BYTE(4)] RECORD END; RAB$L_FAB : UNSIGNED; (* related fab for connect *) RAB$L_XAB : UNSIGNED; (* XAB address *) ); 2: (RAB$W_ISI : [POS(16)] $UWORD; (* internal stream index *) (* (ifi in fab) *) RAB$L_ROP : [POS(32)] UNSIGNED; (* record options *) RAB$L_STV : [POS(96)] UNSIGNED; (* status value *) RAB$W_RFA : [POS(128)] ARRAY [1..3] OF $UWORD; (* record's file address *) RAB$W_ROP_2 : [POS(224)] $UWORD; (* extension to record options in traditional RAB *) RAB$L_KBF : [POS(384)] UNSIGNED; (* key buffer address *) RAB$B_KSZ : [POS(416)] $UBYTE; (* key buffer size *) RAB$L_BKT : [POS(448)] UNSIGNED; (* bucket hash code, vbn, or rrn *) ); 3: (RAB$R_ISI_BITS : [POS(16), BYTE(2)] RECORD END; RAB$R_ROP_BITS0 : [POS(32), BYTE(4)] RECORD END; RAB$R_STV_FIELDS : [POS(96), BYTE(4)] RECORD END; RAB$R_RFA_FIELDS : [POS(128), BYTE(6)] RECORD END; RAB$R_ROP_2_BITS0 : [POS(224), BYTE(2)] RECORD END; RAB$L_PBF : [POS(384)] UNSIGNED; (* prompt buffer addr *) RAB$B_PSZ : [POS(416)] $UBYTE; (* prompt buffer size *) RAB$L_DCT : [POS(448)] UNSIGNED; (* duplicates count on key accessed on alternate key *) ); 4: (RAB$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *) RAB$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file *) (* (i.e., restricted operations) *) RAB$V_PPISI : [POS(31)] $BOOL; (* indicates that this is process-permanent stream *) RAB$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *) RAB$V_TPT : [POS(33)] $BOOL; (* truncate put - allow sequential put not at *) (* eof, thus truncating file (seq. org only) *) (* *) (* these next two should be in the byte for bits *) (* input to $find or $get, but there is no room there *) (* *) RAB$V_REA : [POS(34)] $BOOL; (* lock record for read only, allow other readers *) RAB$V_RRL : [POS(35)] $BOOL; (* read record regardless of lock *) (* *) RAB$V_UIF : [POS(36)] $BOOL; (* update if existent *) RAB$V_MAS : [POS(37)] $BOOL; (* mass-insert mode *) RAB$V_FDL : [POS(38)] $BOOL; (* fast record deletion *) RAB$V_REV : [POS(39)] $BOOL; (* reverse-search - can only be set with NXT or EQNXT *) (* *) RAB$V_EOF : [POS(40)] $BOOL; (* connect to eof *) RAB$V_RAH : [POS(41)] $BOOL; (* read ahead *) RAB$V_WBH : [POS(42)] $BOOL; (* write behind *) RAB$V_BIO : [POS(43)] $BOOL; (* connect for bio only *) RAB$V_CDK : [POS(44)] $BOOL; (* check for duplicate keys on $GET *) RAB$V_LOA : [POS(45)] $BOOL; (* use bucket fill percentage *) RAB$V_LIM : [POS(46)] $BOOL; (* compare for key limit reached on $get/$find seq. (idx only) *) RAB$V_SYNCSTS : [POS(47)] $BOOL; (* Synchronous status notification for asynchronous routines. *) (* *) (* the following bits are input to *) (* $find or $get, (see above also REA and RRL) *) (* (separate byte) *) (* *) RAB$V_LOC : [POS(48)] $BOOL; (* use locate mode *) RAB$V_WAT : [POS(49)] $BOOL; (* wait if record not available *) RAB$V_ULK : [POS(50)] $BOOL; (* manual unlocking *) RAB$V_RLK : [POS(51)] $BOOL; (* allow readers for this locked record *) RAB$V_NLK : [POS(52)] $BOOL; (* do not lock record *) RAB$V_KGE : [POS(53)] $BOOL; (* key > or = *) RAB$V_KGT : [POS(54)] $BOOL; (* key greater than *) RAB$V_NXR : [POS(55)] $BOOL; (* get non-existent record *) (* *) (* the following bits are terminal qualifiers only *) (* (separate byte) *) (* *) RAB$V_RNE : [POS(56)] $BOOL; (* read no echo *) RAB$V_TMO : [POS(57)] $BOOL; (* use time-out period *) RAB$V_CVT : [POS(58)] $BOOL; (* convert to upper case *) RAB$V_RNF : [POS(59)] $BOOL; (* read no filter *) RAB$V_ETO : [POS(60)] $BOOL; (* extended terminal operation *) RAB$V_PTA : [POS(61)] $BOOL; (* purge type ahead *) RAB$V_PMT : [POS(62)] $BOOL; (* use prompt buffer *) RAB$V_CCO : [POS(63)] $BOOL; (* cancel control o on output *) RAB$W_STV0 : [POS(96)] $UWORD; (* low word of stv *) RAB$W_STV2 : [POS(112)] $UWORD; (* high word of stv *) RAB$L_RFA0 : [POS(128)] UNSIGNED; RAB$W_RFA4 : [POS(160)] $UWORD; RAB$V_NQL : [POS(224)] $BOOL; (* no query locking (record level) *) RAB$V_NODLCKWT : [POS(225)] $BOOL; (* no deadlock wait *) RAB$V_NODLCKBLK : [POS(226)] $BOOL; (* no deadlock blocking *) ); 5: (RAB$R_ROP_BITS1 : [POS(32), BYTE(3)] RECORD END; ); 6: (RAB$V_EQNXT : [POS(53)] $BOOL; (* Synonyms for KGE and *) RAB$V_NXT : [POS(54)] $BOOL; (* KGT *) (* the following bits may be *) (* input to various rab-related *) (* operations *) (* *) ); 7: (RAB$R_ROP_FIELDS : [POS(32), BYTE(4)] RECORD END; ); 8: (RAB$B_ROP1 : [POS(40)] $UBYTE; (* various options *) RAB$B_ROP2 : [POS(48)] $UBYTE; (* get/find options (use of this field discouraged *) (* due to REA and RRL being in a different byte) *) RAB$B_ROP3 : [POS(56)] $UBYTE; (* terminal read options *) (* *) ) END; (* end of traditional 32-bit rab *) CONST RAB$K_BLN = 68; (* length of traditional 32-bit rab *) RAB$C_BLN = 68; (* length of traditional 32-bit rab *) (* *) (* 64-bit variant of the record access block (rab) definitions *) (* *) (* The 64-bit rab consists of the traditional 32-bit rab *) (* followed by additional cells, added mainly to provide *) (* support for a 64-bit address for user buffers (UBF, RBF, *) (* KBF, RHB). *) (* *) (* *) CONST RAB64$C_BID = 1; (* code for rab *) RAB64$M_PPF_RAT = 16320; RAB64$M_PPF_IND = 16384; RAB64$M_PPISI = 32768; RAB64$M_ASY = 1; RAB64$M_TPT = 2; RAB64$M_REA = 4; RAB64$M_RRL = 8; RAB64$M_UIF = 16; RAB64$M_MAS = 32; RAB64$M_FDL = 64; RAB64$M_REV = 128; RAB64$M_EOF = 256; RAB64$M_RAH = 512; RAB64$M_WBH = 1024; RAB64$M_BIO = 2048; RAB64$M_CDK = 4096; RAB64$M_LOA = 8192; RAB64$M_LIM = 16384; RAB64$M_SYNCSTS = 32768; RAB64$M_LOC = 65536; RAB64$M_WAT = 131072; RAB64$M_ULK = 262144; RAB64$M_RLK = 524288; RAB64$M_NLK = 1048576; RAB64$M_KGE = 2097152; RAB64$M_KGT = 4194304; RAB64$M_NXR = 8388608; RAB64$M_RNE = 16777216; RAB64$M_TMO = 33554432; RAB64$M_CVT = 67108864; RAB64$M_RNF = 134217728; RAB64$M_ETO = 268435456; RAB64$M_PTA = 536870912; RAB64$M_PMT = 1073741824; RAB64$M_CCO = -2147483648; RAB64$M_EQNXT = 2097152; RAB64$M_NXT = 4194304; RAB64$M_NQL = 1; RAB64$M_NODLCKWT = 2; RAB64$M_NODLCKBLK = 4; RAB64$C_SEQ = 0; (* sequential access *) RAB64$C_KEY = 1; (* keyed access *) RAB64$C_RFA = 2; (* rfa access *) RAB64$C_STM = 3; (* stream access (valid only for sequential org) *) RAB64$C_MAXRAC = 2; (* Maximum RAC value currently supported by RMS *) RAB64$M_RESERVED29 = 536870912; RAB64$M_RESERVED30 = 1073741824; RAB64$M_RESERVED31 = -2147483648; RAB$M_RESERVED29 = 536870912; RAB$M_RESERVED30 = 1073741824; RAB$M_RESERVED31 = -2147483648; TYPE RAB64$TYPE = RECORD CASE INTEGER OF 1: (RAB64$B_BID : $UBYTE; (* block id *) RAB64$B_BLN : $UBYTE; (* block length *) RAB64$R_ISI_OVERLAY : [BYTE(2)] RECORD END; RAB64$R_ROP_OVERLAY : [BYTE(4)] RECORD END; RAB64$L_STS : UNSIGNED; (* status *) RAB64$R_STV_OVERLAY : [BYTE(4)] RECORD END; RAB64$R_RFA_OVERLAY : [BYTE(6)] RECORD END; RAB64DEF$$_FILL_4 : $WORD; (* (reserved - rms release 1 optimizes stores *) (* to the rfa field to be a move quad, overwriting *) (* this reserved word) *) RAB64$L_CTX : UNSIGNED; (* user context *) (*-----***** *) RAB64$R_ROP_2_OVERLAY : [BYTE(2)] RECORD END; (* *) RAB64$B_RAC : $UBYTE; (* record access *) RAB64$B_TMO : $UBYTE; (* time-out period *) RAB64$W_USZ : $UWORD; (* user buffer size *) RAB64$W_RSZ : $UWORD; (* record buffer size *) RAB64$L_UBF : UNSIGNED; (* user buffer address *) RAB64$L_RBF : UNSIGNED; (* record buffer address *) RAB64$L_RHB : UNSIGNED; (* record header buffer addr *) RAB64$R_KBF_OVERLAY : [BYTE(4)] RECORD END; RAB64$R_KSZ_OVERLAY : [BYTE(1)] RECORD END; RAB64$B_KRF : $UBYTE; (* key of reference *) RAB64$B_MBF : $BYTE; (* multi-buffer count *) RAB64$B_MBC : $UBYTE; (* multi-block count *) RAB64$R_BKT_OVERLAY : [BYTE(4)] RECORD END; RAB64$L_FAB : UNSIGNED; (* related fab for connect *) RAB64$L_XAB : UNSIGNED; (* XAB address *) RAB64$R_VERSION64_OVERLAY : [BYTE(4)] RECORD END; RAB64$R_UBF64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_USZ64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_RBF64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_RSZ64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_KBF64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_RHB64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_CTX64_OVERLAY : [BYTE(8)] RECORD END; RAB64$R_ROPEXT_OVERLAY_RAB64 : [BYTE(4)] RECORD END; RAB64$R_MBF_OVERLAY : [BYTE(4)] RECORD END; RAB64$R_MBC_OVERLAY : [BYTE(4)] RECORD END; RAB64$R_RESERVED_1_OVERLAY : [BYTE(4)] RECORD END; ); 2: (RAB64$W_ISI : [POS(16)] $UWORD; (* internal stream index *) (* (ifi in fab) *) RAB64$L_ROP : [POS(32)] UNSIGNED; (* record options *) RAB64$L_STV : [POS(96)] UNSIGNED; (* status value *) RAB64$W_RFA : [POS(128)] ARRAY [1..3] OF $UWORD; (* record's file address *) RAB64$W_ROP_2 : [POS(224)] $UWORD; (* extension to record options in traditional RAB *) RAB64$L_KBF : [POS(384)] UNSIGNED; (* key buffer address *) RAB64$B_KSZ : [POS(416)] $UBYTE; (* key buffer size *) RAB64$L_BKT : [POS(448)] UNSIGNED; (* bucket hash code, vbn, or rrn *) RAB64$L_VERSION : [POS(544)] UNSIGNED; (* 64-bit rab extension version *) RAB64$PQ_UBF : [POS(576)] $QUAD; (* 64-bit user buffer address *) RAB64$Q_USZ : [POS(640)] $UQUAD; (* 64-bit user buffer size *) RAB64$PQ_RBF : [POS(704)] $QUAD; (* 64-bit record buffer address *) RAB64$Q_RSZ : [POS(768)] $UQUAD; (* 64-bit record buffer size *) RAB64$PQ_KBF : [POS(832)] $QUAD; (* 64-bit key buffer address *) RAB64$PQ_RHB : [POS(896)] $QUAD; (* 64-bit record header buffer addr *) RAB64$Q_CTX : [POS(960)] $UQUAD; (* 64-bit user context *) RAB64$L_ROPEXT : [POS(1024)] UNSIGNED; (* extended record options *) RAB64$L_MBF : [POS(1056)] UNSIGNED; (* longword multi-buffer count *) RAB64$L_MBC : [POS(1088)] UNSIGNED; (* longword multi-block count *) RAB64$L_RESERVED_1 : [POS(1120)] UNSIGNED; (* MBZ - reserved for Digital *) ); 3: (RAB64$R_ISI_BITS : [POS(16), BYTE(2)] RECORD END; RAB64$R_ROP_BITS0 : [POS(32), BYTE(4)] RECORD END; RAB64$R_STV_FIELDS : [POS(96), BYTE(4)] RECORD END; RAB64$R_RFA_FIELDS : [POS(128), BYTE(6)] RECORD END; RAB64$R_ROP_2_BITS0 : [POS(224), BYTE(2)] RECORD END; RAB64$L_PBF : [POS(384)] UNSIGNED; (* prompt buffer addr *) RAB64$B_PSZ : [POS(416)] $UBYTE; (* prompt buffer size *) RAB64$L_DCT : [POS(448)] UNSIGNED; (* duplicates count on key accessed on alternate key *) RAB$L_VERSION : [POS(544)] UNSIGNED; (* 64-bit rab extension version *) RAB$PQ_UBF : [POS(576)] $QUAD; (* 64-bit user buffer address *) RAB$Q_USZ : [POS(640)] $UQUAD; (* 64-bit user buffer size *) RAB$PQ_RBF : [POS(704)] $QUAD; (* 64-bit record buffer address *) RAB$Q_RSZ : [POS(768)] $UQUAD; (* 64-bit record buffer size *) RAB$PQ_KBF : [POS(832)] $QUAD; (* 64-bit key buffer address *) RAB$PQ_RHB : [POS(896)] $QUAD; (* 64-bit record header buffer addr *) RAB$Q_CTX : [POS(960)] $UQUAD; (* 64-bit user context *) RAB$L_ROPEXT : [POS(1024)] UNSIGNED; (* extended record options *) RAB$L_MBF : [POS(1056)] UNSIGNED; (* longword multi-buffer count *) RAB$L_MBC : [POS(1088)] UNSIGNED; (* longword multi-block count *) RAB$L_RESERVED_1 : [POS(1120)] UNSIGNED; (* MBZ - reserved for Digital *) ); 4: (RAB64$V_PPF_RAT : [POS(22)] $BIT8; (* rat value for process-permanent files *) RAB64$V_PPF_IND : [POS(30)] $BOOL; (* indirect access to process-permanent file *) (* (i.e., restricted operations) *) RAB64$V_PPISI : [POS(31)] $BOOL; (* indicates that this is process-permanent stream *) RAB64$V_ASY : [POS(32)] $BOOL; (* asynchronous operations *) RAB64$V_TPT : [POS(33)] $BOOL; (* truncate put - allow sequential put not at *) (* eof, thus truncating file (seq. org only) *) (* *) (* these next two should be in the byte for bits *) (* input to $find or $get, but there is no room there *) (* *) RAB64$V_REA : [POS(34)] $BOOL; (* lock record for read only, allow other readers *) RAB64$V_RRL : [POS(35)] $BOOL; (* read record regardless of lock *) (* *) RAB64$V_UIF : [POS(36)] $BOOL; (* update if existent *) RAB64$V_MAS : [POS(37)] $BOOL; (* mass-insert mode *) RAB64$V_FDL : [POS(38)] $BOOL; (* fast record deletion *) RAB64$V_REV : [POS(39)] $BOOL; (* reverse-search - can only be set with NXT or EQNXT *) (* *) RAB64$V_EOF : [POS(40)] $BOOL; (* connect to eof *) RAB64$V_RAH : [POS(41)] $BOOL; (* read ahead *) RAB64$V_WBH : [POS(42)] $BOOL; (* write behind *) RAB64$V_BIO : [POS(43)] $BOOL; (* connect for bio only *) RAB64$V_CDK : [POS(44)] $BOOL; (* check for duplicate keys on $GET *) RAB64$V_LOA : [POS(45)] $BOOL; (* use bucket fill percentage *) RAB64$V_LIM : [POS(46)] $BOOL; (* compare for key limit reached on $get/$find seq. (idx only) *) RAB64$V_SYNCSTS : [POS(47)] $BOOL; (* Synchronous status notification for asynchronous routines. *) (* *) (* the following bits are input to *) (* $find or $get, (see above also REA and RRL) *) (* (separate byte) *) (* *) RAB64$V_LOC : [POS(48)] $BOOL; (* use locate mode *) RAB64$V_WAT : [POS(49)] $BOOL; (* wait if record not available *) RAB64$V_ULK : [POS(50)] $BOOL; (* manual unlocking *) RAB64$V_RLK : [POS(51)] $BOOL; (* allow readers for this locked record *) RAB64$V_NLK : [POS(52)] $BOOL; (* do not lock record *) RAB64$V_KGE : [POS(53)] $BOOL; (* key > or = *) RAB64$V_KGT : [POS(54)] $BOOL; (* key greater than *) RAB64$V_NXR : [POS(55)] $BOOL; (* get non-existent record *) (* *) (* the following bits are terminal qualifiers only *) (* (separate byte) *) (* *) RAB64$V_RNE : [POS(56)] $BOOL; (* read no echo *) RAB64$V_TMO : [POS(57)] $BOOL; (* use time-out period *) RAB64$V_CVT : [POS(58)] $BOOL; (* convert to upper case *) RAB64$V_RNF : [POS(59)] $BOOL; (* read no filter *) RAB64$V_ETO : [POS(60)] $BOOL; (* extended terminal operation *) RAB64$V_PTA : [POS(61)] $BOOL; (* purge type ahead *) RAB64$V_PMT : [POS(62)] $BOOL; (* use prompt buffer *) RAB64$V_CCO : [POS(63)] $BOOL; (* cancel control o on output *) RAB64$W_STV0 : [POS(96)] $UWORD; (* low word of stv *) RAB64$W_STV2 : [POS(112)] $UWORD; (* high word of stv *) RAB64$L_RFA0 : [POS(128)] UNSIGNED; RAB64$W_RFA4 : [POS(160)] $UWORD; RAB64$V_NQL : [POS(224)] $BOOL; (* no query locking (record level) *) RAB64$V_NODLCKWT : [POS(225)] $BOOL; (* no deadlock wait *) RAB64$V_NODLCKBLK : [POS(226)] $BOOL; (* no deadlock blocking *) RAB64$R_VERSION_FIELDS_1 : [POS(544), BYTE(4)] RECORD END; RAB64$R_ROPEXT_BITS0_1 : [POS(1024), BYTE(4)] RECORD END; ); 5: (RAB64$R_ROP_BITS1 : [POS(32), BYTE(3)] RECORD END; RAB64$W_VERMINOR : [POS(544)] $UWORD; (* minor version ident *) RAB64$W_VERMAJOR : [POS(560)] $UWORD; (* major version ident *) RAB64$V_RESERVED29 : [POS(1053)] $BOOL; (* MBZ - reserved for Digital *) RAB64$V_RESERVED30 : [POS(1054)] $BOOL; (* MBZ - reserved for Digital *) RAB64$V_RESERVED31 : [POS(1055)] $BOOL; (* MBZ - reserved for Digital *) ); 6: (RAB64$V_EQNXT : [POS(53)] $BOOL; (* Synonyms for KGE and *) RAB64$V_NXT : [POS(54)] $BOOL; (* KGT *) (* the following bits may be *) (* input to various rab-related *) (* operations *) (* *) RAB64$R_VERSION_FIELDS_2 : [POS(544), BYTE(4)] RECORD END; RAB64$R_ROPEXT_BITS0_2 : [POS(1024), BYTE(4)] RECORD END; ); 7: (RAB64$R_ROP_FIELDS : [POS(32), BYTE(4)] RECORD END; RAB$W_VERMINOR : [POS(544)] $UWORD; (* minor version ident *) RAB$W_VERMAJOR : [POS(560)] $UWORD; (* major version ident *) RAB$V_RESERVED29 : [POS(1053)] $BOOL; (* MBZ - reserved for Digital *) RAB$V_RESERVED30 : [POS(1054)] $BOOL; (* MBZ - reserved for Digital *) RAB$V_RESERVED31 : [POS(1055)] $BOOL; (* MBZ - reserved for Digital *) ); 8: (RAB64$B_ROP1 : [POS(40)] $UBYTE; (* various options *) RAB64$B_ROP2 : [POS(48)] $UBYTE; (* get/find options (use of this field discouraged *) (* due to REA and RRL being in a different byte) *) RAB64$B_ROP3 : [POS(56)] $UBYTE; (* terminal read options *) (* *) ) END; (* end of 64-bit rab variant *) CONST RAB64$K_BLN64 = 144; (* length of 64-bit rab variant *) RAB64$C_BLN64 = 144; (* length of 64-bit rab variant *) RAB$K_BLN64 = 144; (* length of 64-bit rab variant *) RAB$C_BLN64 = 144; (* length of 64-bit rab variant *) RAB$K_MAXBLN = 144; (* current maximum length of rab *) RAB$C_MAXBLN = 144; (* current maximum length of rab *) (*** MODULE $NAMDEF ***) (* *) (* name block field definitions *) (* *) (* the nam block is used to communicate optional *) (* filename-related information *) (* *) CONST NAM$C_BID = 2; (* code for nam block *) NAM$C_MAXRSS = 255; (* maximum resultant name string size (network) *) NAM$C_MAXRSSLCL = 255; (* maximum resultant name string size (local) *) NAM$M_PWD = 1; NAM$M_FILL_1 = 2; NAM$M_FILL_2 = 4; NAM$M_SYNCHK = 8; NAM$M_NOCONCEAL = 16; NAM$M_SLPARSE = 32; NAM$M_SRCHXABS = 64; NAM$M_NO_SHORT_UPCASE = 128; NAM$C_UFS = 0; (* Unknown file system for remote file access or *) (* not applicable for local file access or *) CONST NAM$C_NO_RFS = 0; (* task-to-task operation *) NAM$C_RMS11 = 1; (* RMS-11 *) NAM$C_RMS20 = 2; (* RMS-20 *) NAM$C_RMS32 = 3; (* RMS-32 *) NAM$C_FCS11 = 4; (* FCS-11 *) NAM$C_RT11FS = 5; (* RT-11 file system *) NAM$C_TOPS20FS = 7; (* TOPS-20 file system *) NAM$C_TOPS10FS = 8; (* TOPS-10 file system *) NAM$C_RMS32S = 10; (* RMS-32 subset (e.g., VAXELAN) *) NAM$C_CPMFS = 11; (* CP/M file system *) NAM$C_MS_DOSFS = 12; (* MS/DOS file system *) NAM$C_ULTRIX32_FS = 13; (* Ultrix-32 file system *) NAM$C_ULTRIX11_FS = 14; (* Ultrix-11 file system *) DAP$K_SNADTF_FS = 15; (* SNADTF compatable FS *) (*+++++++++++++++++++++++ *) CONST NAM$C_DVI = 16; (* length of dvi field *) (*+++++***** *) CONST NAM$M_IFI = 65536; NAM$M_SRCHNMF = 1073741824; NAM$M_SVCTX = -2147483648; NAM$K_BLN_V2 = 56; (* Version 2 name block length *) NAM$C_BLN_V2 = 56; (* Version 2 name block length *) NAM$M_EXP_VER = 1; NAM$M_EXP_TYPE = 2; NAM$M_EXP_NAME = 4; NAM$M_WILD_VER = 8; NAM$M_WILD_TYPE = 16; NAM$M_WILD_NAME = 32; NAM$M_EXP_DIR = 64; NAM$M_EXP_DEV = 128; NAM$M_WILDCARD = 256; NAM$M_DIR_LVLS_G7 = 512; NAM$M_WILD_SFDG7 = 1024; NAM$M_SEARCH_LIST = 2048; NAM$M_CNCL_DEV = 4096; NAM$M_ROOT_DIR = 8192; NAM$M_LOWVER = 16384; NAM$M_HIGHVER = 32768; NAM$M_PPF = 65536; NAM$M_NODE = 131072; NAM$M_QUOTED = 262144; NAM$M_GRP_MBR = 524288; NAM$M_WILD_DIR = 1048576; NAM$M_DIR_LVLS = 14680064; NAM$M_WILD_UFD = 16777216; NAM$M_WILD_SFD1 = 33554432; NAM$M_WILD_SFD2 = 67108864; NAM$M_WILD_SFD3 = 134217728; NAM$M_WILD_SFD4 = 268435456; NAM$M_WILD_SFD5 = 536870912; NAM$M_WILD_SFD6 = 1073741824; NAM$M_WILD_SFD7 = -2147483648; NAM$M_WILD_GRP = 16777216; NAM$M_WILD_MBR = 33554432; NAM$M_DID = 1; NAM$M_FID = 2; NAM$M_RES_DID = 4; NAM$M_RES_FID = 8; NAM$M_RES_ESCAPE = 16; NAM$M_RES_UNICODE = 32; TYPE NAM$TYPE = RECORD CASE INTEGER OF 1: (NAM$B_BID : $UBYTE; (* block id *) NAM$B_BLN : $UBYTE; (* block length *) (*+++++++++++++++++++++++ *) (* the following 3 fields must not be rearranged relative to each other *) (* *) NAM$B_RSS : $UBYTE; (* resultant string area size *) NAM$B_RSL : $UBYTE; (* resultant string length *) NAM$L_RSA : UNSIGNED; (* resultant string area address *) (*----------------------- *) NAM$R_NOP_OVERLAY : [BYTE(1)] RECORD END; NAM$B_RFS : $UBYTE; (* Remote file system type (currently not documented) *) (* Note: This field is reserved for use by Digital *) (* the following 3 fields must not be rearranged relative to each other *) (* *) NAM$B_ESS : $UBYTE; (* expanded string area size *) NAM$B_ESL : $UBYTE; (* expanded string length *) NAM$L_ESA : UNSIGNED; (* expanded string area address *) (*----------------------- *) NAM$R_RLF_OVERLAY : [BYTE(4)] RECORD END; NAM$T_DVI : PACKED ARRAY [1..16] OF CHAR; (* device id *) (* the location of the following fields must not *) (* be changed due to their commonality with the fib *) NAM$R_FID_OVERLAY : [BYTE(6)] RECORD END; NAM$R_DID_OVERLAY : [BYTE(6)] RECORD END; NAM$R_WCC_OVERLAY : [BYTE(4)] RECORD END; NAM$R_FNB_OVERLAY : [BYTE(4)] RECORD END; NAM$B_NODE : $UBYTE; (* Nodespec length *) NAM$B_DEV : $UBYTE; (* Device length *) NAM$B_DIR : $UBYTE; (* Directory length *) NAM$B_NAME : $UBYTE; (* Filename length *) NAM$B_TYPE : $UBYTE; (* Filetype length *) NAM$B_VER : $UBYTE; (* Version number length *) NAM$R_NMC_OVERLAY : [BYTE(1)] RECORD END; (* Name characteristics *) NAMDEF$$_FILL_6 : ARRAY [1..1] OF $BYTE; (* Currently unused *) NAM$L_NODE : UNSIGNED; (* Nodespec address *) NAM$L_DEV : UNSIGNED; (* Device address *) NAM$L_DIR : UNSIGNED; (* Directory address *) NAM$L_NAME : UNSIGNED; (* Filename address *) NAM$L_TYPE : UNSIGNED; (* Filetype address *) NAM$L_VER : UNSIGNED; (* Version number address *) NAM$W_FIRST_WILD_DIR : $UWORD; (*First wild directory in related nam *) NAM$W_LONG_DIR_LEVELS : $UWORD; (*Total number of directories *) NAMDEF$$_FILL_7 : ARRAY [1..1] OF UNSIGNED; (* Currently unused *) ); 2: (NAM$B_NOP : [POS(64)] $UBYTE; (* Name options *) NAM$L_RLF : [POS(128)] UNSIGNED; (* related file nam block addr *) NAM$W_FID : [POS(288)] ARRAY [1..3] OF $UWORD; (* file id *) NAM$W_DID : [POS(336)] ARRAY [1..3] OF $UWORD; (* directory id *) NAM$L_WCC : [POS(384)] UNSIGNED; (* wild card context *) NAM$L_FNB : [POS(416)] UNSIGNED; (* file name status bits *) NAM$B_NMC : [POS(496)] $UBYTE; ); 3: (NAM$R_NOP_BITS : [POS(64), BYTE(1)] RECORD END; NAM$L_RLF_NAML : [POS(128)] UNSIGNED; (* related file naml block addr *) NAM$R_FID_FIELDS : [POS(288), BYTE(6)] RECORD END; NAM$R_DID_FIELDS : [POS(336), BYTE(6)] RECORD END; NAM$R_WCC_BITS : [POS(384), BYTE(4)] RECORD END; NAM$R_FNB_BITS0 : [POS(416), BYTE(3)] RECORD END; NAM$R_NMC_BITS : [POS(496), BYTE(1)] RECORD END; ); 4: (NAM$V_PWD : [POS(64)] $BOOL; (* Return password if present in nodespec string and any *) (* 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) *) NAM$V_FILL_1 : [POS(65)] $BOOL; (* unused. (used to be undocumented ROD) *) NAM$V_FILL_2 : [POS(66)] $BOOL; (* unused. (used to be undocumented SOD) *) NAM$V_SYNCHK : [POS(67)] $BOOL; (* Only do syntax check on $parse operation *) NAM$V_NOCONCEAL : [POS(68)] $BOOL; (* Do not conceal device/root directory *) NAM$V_SLPARSE : [POS(69)] $BOOL; (* Parse search list (not documented) -- used by BACKUP. *) NAM$V_SRCHXABS : [POS(70)] $BOOL; (* Fill in attached XABS on $SEARCH operations over the *) (* network (not documented) -- used by directory. *) NAM$V_NO_SHORT_UPCASE : [POS(71)] $BOOL; (* Don't upcase the ESA *) NAM$W_FID_NUM : [POS(288)] $UWORD; (* file number *) NAM$W_FID_SEQ : [POS(304)] $UWORD; (* sequence number *) NAM$R_FID_RVN_OVERLAY : [POS(320), BYTE(2)] RECORD END; NAM$W_DID_NUM : [POS(336)] $UWORD; (* file number *) NAM$W_DID_SEQ : [POS(352)] $UWORD; (* sequence number *) NAM$R_DID_RVN_OVERLAY : [POS(368), BYTE(2)] RECORD END; NAM$V_IFI : [POS(400)] $BOOL; (* the first word contains an IFI *) NAM$V_SRCHNMF : [POS(414)] $BOOL; (* no-more-files has been encountered on a search *) NAM$V_SVCTX : [POS(415)] $BOOL; (* save context across search calls *) NAM$V_EXP_VER : [POS(416)] $BOOL; (* version was explicit *) NAM$V_EXP_TYPE : [POS(417)] $BOOL; (* type was explicit *) NAM$V_EXP_NAME : [POS(418)] $BOOL; (* name was explicit *) NAM$V_WILD_VER : [POS(419)] $BOOL; (* version contained a wild card *) NAM$V_WILD_TYPE : [POS(420)] $BOOL; (* type contained a wild card *) NAM$V_WILD_NAME : [POS(421)] $BOOL; (* name contained a wild card *) NAM$V_EXP_DIR : [POS(422)] $BOOL; (* directory was explicit *) NAM$V_EXP_DEV : [POS(423)] $BOOL; (* device was explicit *) NAM$V_WILDCARD : [POS(424)] $BOOL; (* filename string included a wild card *) (* (inclusive or of other wild card bits) *) NAM$V_DIR_LVLS_G7 : [POS(425)] $BOOL; (* Dir levels greater than 7 *) NAM$V_WILD_SFDG7 : [POS(426)] $BOOL; (* A subdir greater than 7 has a wildcard *) NAM$V_SEARCH_LIST : [POS(427)] $BOOL; (* search list present *) NAM$V_CNCL_DEV : [POS(428)] $BOOL; (* concealed device present *) NAM$V_ROOT_DIR : [POS(429)] $BOOL; (* root directory present *) NAM$V_LOWVER : [POS(430)] $BOOL; (* lower numbered version(s) of file exist(s) *) NAM$V_HIGHVER : [POS(431)] $BOOL; (* higher " *) (* *) NAM$V_PPF : [POS(432)] $BOOL; (* process-permanent file referenced indirectly *) NAM$V_NODE : [POS(433)] $BOOL; (* filename specification included a nodename *) NAM$V_QUOTED : [POS(434)] $BOOL; (* filename spec included a quoted string *) NAM$V_GRP_MBR : [POS(435)] $BOOL; (* directory spec was of group-member format *) NAM$V_WILD_DIR : [POS(436)] $BOOL; (* directory spec included a wild card *) NAM$V_DIR_LVLS : [POS(437)] $BIT3; (* number of directory levels (0=ufd only) *) NAM$V_DID : [POS(496)] $BOOL; (* Input file spec DIDed *) NAM$V_FID : [POS(497)] $BOOL; (* Input file spec FIDed *) NAM$V_RES_DID : [POS(498)] $BOOL; (* Result or Exp string spec DIDed *) NAM$V_RES_FID : [POS(499)] $BOOL; (* Result or Exp string spec FIDed *) NAM$V_RES_ESCAPE : [POS(500)] $BOOL; (* Result or Exp string spec has "^" *) NAM$V_RES_UNICODE : [POS(501)] $BOOL; (* Result or Exp string spec contains ^U *) ); 5: (NAM$W_FID_RVN : [POS(320)] $UWORD; (* relative volume number *) NAM$W_DID_RVN : [POS(368)] $UWORD; (* relative volume number *) NAM$R_FNB_BITS1 : [POS(416), BYTE(4)] RECORD END; ); 6: (NAM$R_FID_RVN_FIELDS : [POS(320), BYTE(2)] RECORD END; NAM$R_DID_RVN_FIELDS : [POS(368), BYTE(2)] RECORD END; NAM$V_WILD_UFD : [POS(440)] $BOOL; (* ufd included a wild card *) NAM$V_WILD_SFD1 : [POS(441)] $BOOL; (* sfd1 included a wild card *) NAM$V_WILD_SFD2 : [POS(442)] $BOOL; (* sfd2 included a wild card *) NAM$V_WILD_SFD3 : [POS(443)] $BOOL; (* sfd3 included a wild card *) NAM$V_WILD_SFD4 : [POS(444)] $BOOL; (* sfd4 included a wild card *) NAM$V_WILD_SFD5 : [POS(445)] $BOOL; (* sfd5 included a wild card *) NAM$V_WILD_SFD6 : [POS(446)] $BOOL; (* sfd6 included a wild card *) NAM$V_WILD_SFD7 : [POS(447)] $BOOL; (* sfd7 included a wild card *) ); 7: (NAM$B_FID_RVN : [POS(320)] $UBYTE; (* alternate format RVN *) NAM$B_FID_NMX : [POS(328)] $UBYTE; (* alternate format file number extension *) NAM$B_DID_RVN : [POS(368)] $UBYTE; (* alternate format RVN *) NAM$B_DID_NMX : [POS(376)] $UBYTE; (* alternate format file number extension *) NAM$R_FNB_BITS2 : [POS(416), BYTE(4)] RECORD END; ); 8: (NAM$V_WILD_GRP : [POS(440)] $BOOL; (* group contained a wild card *) NAM$V_WILD_MBR : [POS(441)] $BOOL; (* member contained a wild card *) (*-----***** *) (* (prior to 40 byte extension) *) (* *) (* Extend the NAM block by 40 bytes. *) (* *) ) END; (* basealign on aggregate NAMDEF operates after aggregate end *) CONST NAM$K_BLN_DIRWC = 96; (* Not documented optional length *) NAM$C_BLN_DIRWC = 96; (* Not documented optional length *) NAM$K_BLN = 96; (* Name block length *) NAM$C_BLN = 96; (* Name block length *) (* Start NAML here *) (* *) (* name block field definitions *) (* *) (* The naml block is an extended version of the NAM *) (* block used to communicate optional filename-related *) (* 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 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). There *) (* are also some additional flags available. *) (* *) (* In order for RMS to recognize this block as a NAML, it must *) (* have NAML$B_BLN set to NAML$C_BLN, and must have *) (* NAML$B_BID set to NAML$C_BID. *) (* *) CONST NAML$C_BID = 4; (* code for naml block *) (* (Same as nam) *) CONST NAML$C_MAXRSS = 4095; (* maximum resultant name string size *) NAML$M_PWD = 1; NAML$M_FILL_1 = 2; NAML$M_FILL_2 = 4; NAML$M_SYNCHK = 8; NAML$M_NOCONCEAL = 16; NAML$M_SLPARSE = 32; NAML$M_SRCHXABS = 64; NAML$M_NO_SHORT_UPCASE = 128; NAML$C_UFS = 0; (* Unknown file system for remote file access or *) (* not applicable for local file access or *) CONST NAML$C_NO_RFS = 0; (* task-to-task operation *) NAML$C_RMS11 = 1; (* RMS-11 *) NAML$C_RMS20 = 2; (* RMS-20 *) NAML$C_RMS32 = 3; (* RMS-32 *) NAML$C_FCS11 = 4; (* FCS-11 *) NAML$C_RT11FS = 5; (* RT-11 file system *) NAML$C_TOPS20FS = 7; (* TOPS-20 file system *) NAML$C_TOPS10FS = 8; (* TOPS-10 file system *) NAML$C_RMS32S = 10; (* RMS-32 subset (e.g., VAXELAN) *) NAML$C_CPMFS = 11; (* CP/M file system *) NAML$C_MS_DOSFS = 12; (* MS/DOS file system *) NAML$C_ULTRIX32_FS = 13; (* Ultrix-32 file system *) NAML$C_ULTRIX11_FS = 14; (* Ultrix-11 file system *) (*+++++++++++++++++++++++ *) CONST NAML$C_DVI = 16; (* length of dvi field *) (*+++++***** *) CONST NAML$M_IFI = 65536; NAML$M_SRCHNMF = 1073741824; NAML$M_SVCTX = -2147483648; NAML$K_BLN_V2 = 56; (* Version 2 name block length *) NAML$C_BLN_V2 = 56; (* Version 2 name block length *) NAML$M_EXP_VER = 1; NAML$M_EXP_TYPE = 2; NAML$M_EXP_NAME = 4; NAML$M_WILD_VER = 8; NAML$M_WILD_TYPE = 16; NAML$M_WILD_NAME = 32; NAML$M_EXP_DIR = 64; NAML$M_EXP_DEV = 128; NAML$M_WILDCARD = 256; NAML$M_DIR_LVLS_G7 = 512; NAML$M_WILD_SFDG7 = 1024; NAML$M_SEARCH_LIST = 2048; NAML$M_CNCL_DEV = 4096; NAML$M_ROOT_DIR = 8192; NAML$M_LOWVER = 16384; NAML$M_HIGHVER = 32768; NAML$M_PPF = 65536; NAML$M_NODE = 131072; NAML$M_QUOTED = 262144; NAML$M_GRP_MBR = 524288; NAML$M_WILD_DIR = 1048576; NAML$M_DIR_LVLS = 14680064; NAML$M_WILD_UFD = 16777216; NAML$M_WILD_SFD1 = 33554432; NAML$M_WILD_SFD2 = 67108864; NAML$M_WILD_SFD3 = 134217728; NAML$M_WILD_SFD4 = 268435456; NAML$M_WILD_SFD5 = 536870912; NAML$M_WILD_SFD6 = 1073741824; NAML$M_WILD_SFD7 = -2147483648; NAML$M_WILD_GRP = 16777216; NAML$M_WILD_MBR = 33554432; NAML$M_DID = 1; NAML$M_FID = 2; NAML$M_RES_DID = 4; NAML$M_RES_FID = 8; NAML$M_RES_ESCAPE = 16; NAML$M_RES_UNICODE = 32; NAML$M_LONG_RESULT_ESCAPE = 1; NAML$M_FILESYS_NAME_UCS2 = 2; NAML$M_LONG_RESULT_DID = 4; NAML$M_LONG_RESULT_FID = 8; NAML$M_LONG_RESULT_UNICODE = 16; NAML$M_MP_IN_PATH = 32; NAML$M_SYMLNK_IN_PATH = 64; NAML$M_OBJECT_SYMLINK = 128; NAML$M_NO_SHORT_OUTPUT = 1; NAML$C_CASE_LOOKUP_BLIND = 2; (* case blind *) NAML$C_CASE_LOOKUP_SENSITIVE = 3; (* case sensitive *) NAML$M_OPEN_SPECIAL = 8; NAML$M_SEARCH_SYMLINK = 16; TYPE NAML$TYPE = RECORD CASE INTEGER OF 1: (NAML$B_BID : $UBYTE; (* block id *) NAML$B_BLN : $UBYTE; (* block length *) (*+++++++++++++++++++++++ *) (* the following 3 fields must not be rearranged relative to each other *) (* *) NAML$B_RSS : $UBYTE; (* resultant string area size *) NAML$B_RSL : $UBYTE; (* resultant string length *) NAML$L_RSA : UNSIGNED; (* resultant string area address *) (*----------------------- *) NAML$R_NOP_OVERLAY : [BYTE(1)] RECORD END; NAML$B_RFS : $UBYTE; (* Remote file system type (currently not documented) *) (* Note: This field is reserved for use by Digital *) (* the following 3 fields must not be rearranged relative to each other *) (* *) NAML$B_ESS : $UBYTE; (* espanded string area size *) NAML$B_ESL : $UBYTE; (* expanded string length *) NAML$L_ESA : UNSIGNED; (* expanded string area address *) (*----------------------- *) NAML$R_RLF_OVERLAY : [BYTE(4)] RECORD END; NAML$T_DVI : PACKED ARRAY [1..16] OF CHAR; (* device id *) (* the location of the following fields must not *) (* be changed due to their commonality with the fib *) NAML$R_FID_OVERLAY : [BYTE(6)] RECORD END; NAML$R_DID_OVERLAY : [BYTE(6)] RECORD END; NAML$R_WCC_OVERLAY : [BYTE(4)] RECORD END; NAML$R_FNB_OVERLAY : [BYTE(4)] RECORD END; NAML$B_NODE : $UBYTE; (* Nodespec length *) NAML$B_DEV : $UBYTE; (* Device length *) NAML$B_DIR : $UBYTE; (* Directory length *) NAML$B_NAME : $UBYTE; (* Filename length *) NAML$B_TYPE : $UBYTE; (* Filetype length *) NAML$B_VER : $UBYTE; (* Version number length *) NAML$R_NMC_OVERLAY : [BYTE(1)] RECORD END; (* Name characteristics *) NAMLDEF$$_FILL_6 : ARRAY [1..1] OF $BYTE; (* Currently unused *) NAML$L_NODE : UNSIGNED; (* Nodespec address *) NAML$L_DEV : UNSIGNED; (* Device address *) NAML$L_DIR : UNSIGNED; (* Directory address *) NAML$L_NAME : UNSIGNED; (* Filename address *) NAML$L_TYPE : UNSIGNED; (* Filetype address *) NAML$L_VER : UNSIGNED; (* Version number address *) NAML$W_FIRST_WILD_DIR : $UWORD; (*First wild directory in related nam *) NAML$W_LONG_DIR_LEVELS : $UWORD; (*Total number of directories *) NAMLDEF$$_FILL_7 : ARRAY [1..1] OF UNSIGNED; (* Currently unused *) (* New NAML-only items: *) NAML$L_LONG_DEFNAME_SIZE : UNSIGNED; (*Analogous to FAB$B_DNS *) NAML$L_LONG_DEFNAME : UNSIGNED; (*Analogous to FAB$L_DNS *) NAML$L_LONG_FILENAME_SIZE : UNSIGNED; (*Analogous to FAB$B_FNS *) NAML$L_LONG_FILENAME : UNSIGNED; (*Analogous to FAB$L_FNS *) NAML$L_LONG_NODE_SIZE : UNSIGNED; (*Analogous to NAM$B_NODE *) NAML$L_LONG_NODE : UNSIGNED; (*Analogous to NAM$L_NODE *) NAML$L_LONG_DEV_SIZE : UNSIGNED; (*Analogous to NAM$B_DEV *) NAML$L_LONG_DEV : UNSIGNED; (*Analogous to NAM$L_DEV *) NAML$L_LONG_DIR_SIZE : UNSIGNED; (*Analogous to NAM$B_DIR *) NAML$L_LONG_DIR : UNSIGNED; (*Analogous to NAM$L_DIR *) NAML$L_LONG_NAME_SIZE : UNSIGNED; (*Analogous to NAM$B_NAME *) NAML$L_LONG_NAME : UNSIGNED; (*Analogous to NAM$L_NAME *) NAML$L_LONG_TYPE_SIZE : UNSIGNED; (*Analogous to NAM$B_TYPE *) NAML$L_LONG_TYPE : UNSIGNED; (*Analogous to NAM$L_TYPE *) NAML$L_LONG_VER_SIZE : UNSIGNED; (*Analogous to NAM$B_VER *) NAML$L_LONG_VER : UNSIGNED; (*Analogous to NAM$L_VER *) (*The following three "LONG_EXPAND" fields must be fixed relative to each other *) NAML$L_LONG_EXPAND_SIZE : UNSIGNED; (*Analogous to NAM$B_ESL *) NAML$L_LONG_EXPAND : UNSIGNED; (*Analogous to NAM$L_ESA *) NAML$L_LONG_EXPAND_ALLOC : UNSIGNED; (*Analogous to NAM$B_ESS *) NAML$L_RESERVED_MBZ_9 : INTEGER; (*The following three "LONG_RESULT" fields must be fixed relative to each other *) NAML$L_LONG_RESULT_SIZE : UNSIGNED; (*Analogous to NAM$B_RSL *) NAML$L_LONG_RESULT : UNSIGNED; (*Analogous to NAM$L_RSA *) NAML$L_LONG_RESULT_ALLOC : UNSIGNED; (*Analogous to NAM$B_RSS *) NAML$L_RESERVED_MBZ_8 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) (*The following three "FILESYS_NAME" fields must be fixed relative to each other *) NAML$L_FILESYS_NAME_SIZE : UNSIGNED; NAML$L_FILESYS_NAME : UNSIGNED; NAML$L_FILESYS_NAME_ALLOC : UNSIGNED; NAML$R_OUTPUT_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flags set or cleared by RMS *) NAML$R_INPUT_FLAGS_OVERLAY : [BYTE(4)] RECORD END; (* Flags specified by user to RMS *) NAML$L_RESERVED_MBZ_7 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$Q_USER_CONTEXT : $UQUAD; NAML$L_RESERVED_MBZ_6 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$L_RESERVED_MBZ_5 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$L_RESERVED_MBZ_4 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$L_RESERVED_MBZ_3 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$L_RESERVED_MBZ_2 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) NAML$L_RESERVED_MBZ_1 : INTEGER; (* Reserved to Digital for future use. Must be zero. *) ); 2: (NAML$B_NOP : [POS(64)] $UBYTE; (* Name options *) NAML$L_RLF : [POS(128)] UNSIGNED; (* related file nam block addr *) NAML$W_FID : [POS(288)] ARRAY [1..3] OF $UWORD; (* file id *) NAML$W_DID : [POS(336)] ARRAY [1..3] OF $UWORD; (* directory id *) NAML$L_WCC : [POS(384)] UNSIGNED; (* wild card context *) NAML$L_FNB : [POS(416)] UNSIGNED; (* file name status bits *) NAML$B_NMC : [POS(496)] $UBYTE; NAML$L_OUTPUT_FLAGS : [POS(1632)] UNSIGNED; NAML$L_INPUT_FLAGS : [POS(1664)] UNSIGNED; ); 3: (NAML$R_NOP_BITS : [POS(64), BYTE(1)] RECORD END; NAML$L_RLF_NAML : [POS(128)] UNSIGNED; (* related file naml block addr *) NAML$R_FID_FIELDS : [POS(288), BYTE(6)] RECORD END; NAML$R_DID_FIELDS : [POS(336), BYTE(6)] RECORD END; NAML$R_WCC_BITS : [POS(384), BYTE(4)] RECORD END; NAML$R_FNB_BITS0 : [POS(416), BYTE(3)] RECORD END; NAML$R_NMC_BITS : [POS(496), BYTE(1)] RECORD END; NAML$R_OUTPUT_FLAGS_BITS : [POS(1632), BYTE(1)] RECORD END; NAML$R_INPUT_FLAGS_BITS : [POS(1664), BYTE(1)] RECORD END; ); 4: (NAML$V_PWD : [POS(64)] $BOOL; (* Return password if present in nodespec string and any *) (* 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) *) NAML$V_FILL_1 : [POS(65)] $BOOL; (* unused. (used to be undocumented ROD) *) NAML$V_FILL_2 : [POS(66)] $BOOL; (* unused. (used to be undocumented SOD) *) NAML$V_SYNCHK : [POS(67)] $BOOL; (* Only do syntax check on $parse operation *) NAML$V_NOCONCEAL : [POS(68)] $BOOL; (* Do not conceal device/root directory *) NAML$V_SLPARSE : [POS(69)] $BOOL; (* Parse search list (not documented) -- used by BACKUP. *) NAML$V_SRCHXABS : [POS(70)] $BOOL; (* Fill in attached XABS on $SEARCH operations over the *) (* network (not documented) -- used by directory. *) NAML$V_NO_SHORT_UPCASE : [POS(71)] $BOOL; (* Don't upcase the ESA *) NAML$W_FID_NUM : [POS(288)] $UWORD; (* file number *) NAML$W_FID_SEQ : [POS(304)] $UWORD; (* sequence number *) NAML$R_FID_RVN_OVERLAY : [POS(320), BYTE(2)] RECORD END; NAML$W_DID_NUM : [POS(336)] $UWORD; (* file number *) NAML$W_DID_SEQ : [POS(352)] $UWORD; (* sequence number *) NAML$R_DID_RVN_OVERLAY : [POS(368), BYTE(2)] RECORD END; NAML$V_IFI : [POS(400)] $BOOL; (* the first word contains an IFI *) NAML$V_SRCHNMF : [POS(414)] $BOOL; (* no-more-files has been encountered on a search *) NAML$V_SVCTX : [POS(415)] $BOOL; (* save context across search calls *) NAML$V_EXP_VER : [POS(416)] $BOOL; (* version was explicit *) NAML$V_EXP_TYPE : [POS(417)] $BOOL; (* type was explicit *) NAML$V_EXP_NAME : [POS(418)] $BOOL; (* name was explicit *) NAML$V_WILD_VER : [POS(419)] $BOOL; (* version contained a wild card *) NAML$V_WILD_TYPE : [POS(420)] $BOOL; (* type contained a wild card *) NAML$V_WILD_NAME : [POS(421)] $BOOL; (* name contained a wild card *) NAML$V_EXP_DIR : [POS(422)] $BOOL; (* directory was explicit *) NAML$V_EXP_DEV : [POS(423)] $BOOL; (* device was explicit *) NAML$V_WILDCARD : [POS(424)] $BOOL; (* filename string included a wild card *) (* (inclusive or of other wild card bits) *) NAML$V_DIR_LVLS_G7 : [POS(425)] $BOOL; (* Dir levels greater than 7 *) NAML$V_WILD_SFDG7 : [POS(426)] $BOOL; (* A subdir greater than 7 has a wildcard *) NAML$V_SEARCH_LIST : [POS(427)] $BOOL; (* search list present *) NAML$V_CNCL_DEV : [POS(428)] $BOOL; (* concealed device present *) NAML$V_ROOT_DIR : [POS(429)] $BOOL; (* root directory present *) NAML$V_LOWVER : [POS(430)] $BOOL; (* lower numbered version(s) of file exist(s) *) NAML$V_HIGHVER : [POS(431)] $BOOL; (* higher " *) (* *) NAML$V_PPF : [POS(432)] $BOOL; (* process-permanent file referenced indirectly *) NAML$V_NODE : [POS(433)] $BOOL; (* filename specification included a nodename *) NAML$V_QUOTED : [POS(434)] $BOOL; (* filename spec included a quoted string *) NAML$V_GRP_MBR : [POS(435)] $BOOL; (* directory spec was of group-member format *) NAML$V_WILD_DIR : [POS(436)] $BOOL; (* directory spec included a wild card *) NAML$V_DIR_LVLS : [POS(437)] $BIT3; (* number of directory levels (0=ufd only) *) NAML$V_DID : [POS(496)] $BOOL; (* Input file spec DIDed *) NAML$V_FID : [POS(497)] $BOOL; (* Input file spec FIDed *) NAML$V_RES_DID : [POS(498)] $BOOL; (* Result or Exp string spec DIDed *) NAML$V_RES_FID : [POS(499)] $BOOL; (* Result or Exp string spec FIDed *) NAML$V_RES_ESCAPE : [POS(500)] $BOOL; (* Result or Exp string spec has "^" *) NAML$V_RES_UNICODE : [POS(501)] $BOOL; (* Result or Exp string spec contains ^U *) NAML$V_LONG_RESULT_ESCAPE : [POS(1632)] $BOOL; (* There is an escape character in the long output *) NAML$V_FILESYS_NAME_UCS2 : [POS(1633)] $BOOL; (* The filesys name output is 2-byte Unicode *) NAML$V_LONG_RESULT_DID : [POS(1634)] $BOOL; (* There is DIDding in the long output *) NAML$V_LONG_RESULT_FID : [POS(1635)] $BOOL; (* There is FIDding in the long output *) NAML$V_LONG_RESULT_UNICODE : [POS(1636)] $BOOL; (* Long Result or Exp string spec contains ^U *) NAML$V_MP_IN_PATH : [POS(1637)] $BOOL; (* mount point encountered in directory path *) NAML$V_SYMLNK_IN_PATH : [POS(1638)] $BOOL; (* symlink encountered in directory path *) NAML$V_OBJECT_SYMLINK : [POS(1639)] $BOOL; (* The specified object is a symlink ($OPEN, $SEARCH) *) (* The rest of the longword also reserved. *) NAML$V_NO_SHORT_OUTPUT : [POS(1664)] $BOOL; (* Don't write to RSA and ESA *) NAML$V_CASE_LOOKUP : [POS(1665)] $BIT2; (* name case lookup mode *) NAML$V_OPEN_SPECIAL : [POS(1667)] $BOOL; (* $OPEN a special file, rather than the *) (* object referred to by the special file. *) NAML$V_SEARCH_SYMLINK : [POS(1668)] $BOOL; (* Cause $SEARCH to check resultant files *) (* for symlinks, and return DVI/FID for the *) (* referenced file. *) (* The rest of the longword also reserved and must be zero. *) ); 5: (NAML$W_FID_RVN : [POS(320)] $UWORD; (* relative volume number *) NAML$W_DID_RVN : [POS(368)] $UWORD; (* relative volume number *) NAML$R_FNB_BITS1 : [POS(416), BYTE(4)] RECORD END; ); 6: (NAML$R_FID_RVN_FIELDS : [POS(320), BYTE(2)] RECORD END; NAML$R_DID_RVN_FIELDS : [POS(368), BYTE(2)] RECORD END; NAML$V_WILD_UFD : [POS(440)] $BOOL; (* ufd included a wild card *) NAML$V_WILD_SFD1 : [POS(441)] $BOOL; (* sfd1 included a wild card *) NAML$V_WILD_SFD2 : [POS(442)] $BOOL; (* sfd2 included a wild card *) NAML$V_WILD_SFD3 : [POS(443)] $BOOL; (* sfd3 included a wild card *) NAML$V_WILD_SFD4 : [POS(444)] $BOOL; (* sfd4 included a wild card *) NAML$V_WILD_SFD5 : [POS(445)] $BOOL; (* sfd5 included a wild card *) NAML$V_WILD_SFD6 : [POS(446)] $BOOL; (* sfd6 included a wild card *) NAML$V_WILD_SFD7 : [POS(447)] $BOOL; (* sfd7 included a wild card *) ); 7: (NAML$B_FID_RVN : [POS(320)] $UBYTE; (* alternate format RVN *) NAML$B_FID_NMX : [POS(328)] $UBYTE; (* alternate format file number extension *) NAML$B_DID_RVN : [POS(368)] $UBYTE; (* alternate format RVN *) NAML$B_DID_NMX : [POS(376)] $UBYTE; (* alternate format file number extension *) NAML$R_FNB_BITS2 : [POS(416), BYTE(4)] RECORD END; ); 8: (NAML$V_WILD_GRP : [POS(440)] $BOOL; (* group contained a wild card *) NAML$V_WILD_MBR : [POS(441)] $BOOL; (* member contained a wild card *) ) END; (* basealign on aggregate NAMLDEF operates after aggregate end *) CONST NAML$K_BLN = 248; (* Name block length *) NAML$C_BLN = 248; (* Name block length *) (*** MODULE $XABDEF ***) CONST XAB$C_CXT_VER1 = 1; (* RMS Context Extraction version 1 *) (* $xabfhcdef *) CONST XAB$C_FHC = 29; (* xabfhc id code *) XAB$M_FTN = 1; XAB$M_CR = 2; XAB$M_PRN = 4; XAB$M_BLK = 8; XAB$K_FHCLEN = 44; (* length of xabfhc *) XAB$C_FHCLEN = 44; (* length of xabfhc *) (* $xaballdef *) CONST XAB$C_ALL = 20; (* xaball id code *) XAB$M_HRD = 1; XAB$M_ONC = 2; XAB$M_CBT = 32; XAB$M_CTG = 128; XAB$C_ANY = 0; (* any allocation o.k. *) XAB$C_CYL = 1; (* cylinder boundary *) XAB$C_LBN = 2; (* allocate at specified lbn *) XAB$C_VBN = 3; (* allocate near specified vbn *) XAB$C_RFI = 4; (* allocate near related file *) XAB$K_ALLLEN = 32; (* length of xaball *) XAB$C_ALLLEN = 32; (* length of xaball *) (* $xabdatdef *) CONST XAB$C_DAT = 18; (* xabdat id code *) XAB$K_DATLEN_V2 = 36; (* Version 2 XABDAT length *) XAB$C_DATLEN_V2 = 36; (* Version 2 XABDAT length *) XAB$K_DATLEN_V54 = 44; (* length of XABDAT *) XAB$C_DATLEN_V54 = 44; (* length of XABDAT *) XAB$K_DATLEN_PRE_ACCDATES = 60; (* XABDAT length before addition of 3 access dates *) XAB$C_DATLEN_PRE_ACCDATES = 60; (* XABDAT length before addition of 3 access dates *) XAB$K_DATLEN_POST_ACCDATES = 84; (* XABDAT length after addition of 3 access dates *) XAB$C_DATLEN_POST_ACCDATES = 84; (* XABDAT length after addition of 3 access dates *) XAB$K_DATLEN = 84; (* length of XABDAT *) XAB$C_DATLEN = 84; (* length of XABDAT *) (* $xabrdtdef *) CONST XAB$C_RDT = 30; (* xabrdt id code *) XAB$K_RDTLEN = 20; (* length of rdt xab *) XAB$C_RDTLEN = 20; (* length of rdt xab *) (* $xabprodef *) CONST XAB$C_PRO = 19; (* xabpro id code *) XAB$M_NOREAD = 1; XAB$M_NOWRITE = 2; XAB$M_NOEXE = 4; XAB$M_NODEL = 8; CONST XAB$M_PROPAGATE = 1; XAB$K_PROLEN_V3 = 16; (* V3a xabpro length *) XAB$C_PROLEN_V3 = 16; (* V3a xabpro length *) XAB$K_PROLEN = 88; (* xabpro length *) XAB$C_PROLEN = 88; (* xabpro length *) (* $xabtrmdef *) CONST XAB$C_TRM = 31; (*XABTRM ID CODE *) XAB$K_TRMLEN = 36; (* length of xab of type terminal control *) XAB$C_TRMLEN = 36; (* length of xab of type terminal control *) (* $xabsumdef *) CONST XAB$C_SUM = 22; (* xabsum id code *) XAB$K_SUMLEN = 12; (* xabsum length *) XAB$C_SUMLEN = 12; (* xabsum length *) (* $xabkeydef *) CONST XAB$C_KEY = 21; (* xabkey id code *) XAB$M_DUP = 1; XAB$M_CHG = 2; XAB$M_NUL = 4; XAB$M_IDX_NCMPR = 8; XAB$M_KEY_NCMPR = 64; XAB$M_DAT_NCMPR = 128; XAB$C_STG = 0; (* string *) XAB$C_IN2 = 1; (* signed 15 bit integer (2 bytes) *) XAB$C_BN2 = 2; (* 2 byte binary *) XAB$C_IN4 = 3; (* signed 31 bit integer (4 bytes) *) XAB$C_BN4 = 4; (* 4 byte binary *) XAB$C_PAC = 5; (* packed decimal (1-16 bytes) *) XAB$C_IN8 = 6; (* signed 63 bit integer (4 bytes) *) XAB$C_BN8 = 7; (* 8 byte binary *) XAB$C_COL = 8; (* collated *) XAB$C_MAX_ASCEND = 8; (* maximum ascending type *) XAB$C_DSTG = 32; (* descending string *) XAB$C_DIN2 = 33; (* " signed word *) XAB$C_DBN2 = 34; (* " unsigned word *) XAB$C_DIN4 = 35; (* " signed longword *) XAB$C_DBN4 = 36; (* " unsigned longword *) XAB$C_DPAC = 37; (* " packed decimal *) XAB$C_DIN8 = 38; (* " signed quadword *) XAB$C_DBN8 = 39; (* " unsigned quadword *) XAB$C_DCOL = 40; (* " collated *) XAB$C_MAXDTP = 40; (* max. legal data type *) XAB$K_KEYLEN_V2 = 64; (* old xabkey length *) XAB$C_KEYLEN_V2 = 64; (* old xabkey length *) CONST XAB$C_PRG3 = 3; (* Prologue version three *) XAB$C_PRG2 = 2; (* Prologue version two *) XAB$C_PRG1 = 1; (* Prologue versoin one *) XAB$K_KEYLEN_V4 = 76; (* xabkey length until V5 *) XAB$C_KEYLEN_V4 = 76; (* xabkey length until V5 *) XAB$K_KEYLEN = 100; (* xabkey length for V5 *) XAB$C_KEYLEN = 100; (* xabkey length for V5 *) (* $xabcxfdef *) CONST XAB$C_CXF = 32; (* XABCXF id code *) XAB$M_CXFRST = 1; XAB$K_CXFLEN = 60; (* length of xab type CXF *) XAB$C_CXFLEN = 60; (* length of xab type CXF *) (* $xabcxrdef *) CONST XAB$C_CXR = 33; (* XABCXR id code *) XAB$M_CXRRST = 1; XAB$C_CXB_VER1 = 1; XAB$C_CXRBLEN = 512; (* Length of CXRBUF (bytes) *) XAB$K_CXRLEN = 84; (* Length of XAB type CXR *) XAB$C_CXRLEN = 84; (* Length of XAB type CXR *) (* $xabjnldef *) CONST XAB$C_JNL = 34; (* xabjnl id code *) XAB$C_JNL_TYPE_NONE = 0; XAB$C_AI = 1; (* AI journal *) XAB$C_BI = 2; (* BI journal *) XAB$C_AT = 3; (* AT journal *) XAB$C_RU_DEFAULT = 4; (* default RU volume *) XAB$M_JOURNAL_DISABLED = 1; XAB$M_BACKUP_DONE = 2; XAB$K_JNLLEN = 80; XAB$C_JNLLEN = 80; CONST XAB$C_ITM = 36; (* xabitm id code *) (* $xabrudef *) CONST XAB$C_RU = 35; (* xabru id code *) XAB$M_NOJOIN = 1; XAB$K_RULEN = 48; XAB$C_RULEN = 48; (* *) (* definitions for all xabs *) (* $xabdef *) (* *) (* the first four fields are shared in common between all xabs *) (* and hence are defined only once *) (* (the only exception is that the spare word may be used by some xabs) *) (* *) TYPE XAB$TYPE = RECORD CASE INTEGER OF 1: (XAB$B_COD : $UBYTE; (* xab id code *) XAB$B_BLN : $UBYTE; (* block length *) XABDEF$$_FILL_1 : $WORD; (* (spare) *) XAB$L_NXT : UNSIGNED; (* xab chain link *) XAB$W_RVN : $UWORD; XABDEF$$_FILL_2 : $WORD; XAB$R_RDT_OVERLAY : [BYTE(8)] RECORD END; ); 2: (XAB$Q_RDT : [POS(96)] $QUAD; ); 3: (XAB$R_RDT_FIELDS : [POS(96), BYTE(8)] RECORD END; ); 4: (XAB$L_RDT0 : [POS(96)] UNSIGNED; XAB$L_RDT4 : [POS(128)] UNSIGNED; (*COMMON AMONG DAT AND RDT XABS *) ); 5: (XAB$B_BKZ : [POS(176)] $UBYTE; (*COMMON TO FHC AND ALQ XABS *) ); (*** MODULE $XABFHCDEF ***) 6: (XAB$R_XABFHCDEF : [BYTE(44)] RECORD END; ); 7: (XABFHCDEF$$_FILL_1 : $BYTE; XABFHCDEF$$_FILL_2 : $BYTE; XABFHCDEF$$_FILL_3 : $WORD; XABFHCDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$B_RFO : $UBYTE; (* record format and file org *) XAB$R_FILL_8_ : [BYTE(1)] RECORD END; XAB$W_LRL : $UWORD; (* longest record's length *) XAB$R_HBK_OVERLAY : [BYTE(4)] RECORD END; XAB$R_EBK_OVERLAY : [BYTE(4)] RECORD END; XAB$W_FFB : $UWORD; (* first free byte in eof block *) XABFHCDEF$$_FILL_5 : $BYTE; (* bucket size for fhc ( note: field name is bkz, *) (* defined above in $xabdef,since it is shared by the fhc *) (* xab and has the same offset, of course) *) (*-----***** *) (*HAVE BEEN DEFINED BY $XABDEF *) (* defined above in $xabdef, since it is shared *) (* by the all xab) *) XAB$B_HSZ : $UBYTE; (* header size for vfc *) XAB$W_MRZ : $UWORD; (* max record size *) XAB$W_DXQ : $UWORD; (* default extend quantity *) XAB$W_GBC : $UWORD; (* global buffer count *) XABFHCDEF$$_FILL_6 : ARRAY [1..8] OF $BYTE; (* spares (pad to last word) *) XAB$W_VERLIMIT : $UWORD; (* version limit for file. *) (*-----***** *) XAB$L_SBN : UNSIGNED; (* starting lbn if contiguous *) ); 8: (XAB$B_ATR : [POS(72)] $UBYTE; (* record attributes *) XAB$L_HBK : [POS(96)] UNSIGNED; (* hi vbn allocated *) (* (n.b. reversed on disk!) *) XAB$L_EBK : [POS(128)] UNSIGNED; (* eof vbn *) (* (n.b. reversed on disk) *) ); 9: (XAB$R_HBK_FIELDS : [POS(96), BYTE(4)] RECORD END; XAB$R_EBK_FIELDS : [POS(128), BYTE(4)] RECORD END; ); 10: (XAB$V_FTN : [POS(72)] $BOOL; (* fortran carriage-ctl *) XAB$V_CR : [POS(73)] $BOOL; (* lf-record-cr carriage ctl *) XAB$V_PRN : [POS(74)] $BOOL; (* print-file carriage ctl *) XAB$V_BLK : [POS(75)] $BOOL; (* records don't cross block boundaries *) XAB$W_HBK0 : [POS(96)] $UWORD; XAB$W_HBK2 : [POS(112)] $UWORD; XAB$W_EBK0 : [POS(128)] $UWORD; XAB$W_EBK2 : [POS(144)] $UWORD; ); (*** MODULE $XABALLDEF ***) 11:(XAB$R_XABALLDEF : [BYTE(32)] RECORD END; ); 12: (XABALLDEF$$_FILL_1 : $BYTE; XABALLDEF$$_FILL_2 : $BYTE; XABALLDEF$$_FILL_3 : $WORD; XABALLDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$R_AOP_OVERLAY : [BYTE(1)] RECORD END; XAB$B_ALN : $UBYTE; (* alignment type *) XAB$W_VOL : $UWORD; (* relative volume no. for allocation *) (* (not applicable if aln = vbn or rfi) *) XAB$L_LOC : UNSIGNED; (* allocation location *) XAB$L_ALQ : UNSIGNED; (* allocation quantity *) XAB$W_DEQ : $UWORD; (* default allocation quantity *) XABALLDEF$$_FILL_7 : $BYTE; (* 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 *) XAB$B_AID : $UBYTE; (* area id number *) XAB$R_RFI_OVERLAY : [BYTE(6)] RECORD END; XABALLDEF$$_FILL_8 : $WORD; (* (spare) *) ); 13: (XAB$B_AOP : [POS(64)] $UBYTE; (* allocation options *) XAB$W_RFI : [POS(192)] ARRAY [1..3] OF $UWORD; (* related file id *) ); 14: (XAB$R_AOP_BITS : [POS(64), BYTE(1)] RECORD END; XAB$R_RFI_FIELDS : [POS(192), BYTE(6)] RECORD END; ); 15: (XAB$V_HRD : [POS(64)] $BOOL; (* fail if requested alignment impossible *) XAB$V_ONC : [POS(65)] $BOOL; (* locate allocated space within a cylinder *) XAB$V_CBT : [POS(69)] $BOOL; (* contiguous alllocation, best try *) XAB$V_CTG : [POS(71)] $BOOL; (* contiguous allocation *) XAB$W_RFI0 : [POS(192)] $UWORD; (* file number *) XAB$W_RFI2 : [POS(208)] $UWORD; (* seq number *) XAB$W_RFI4 : [POS(224)] $UWORD; (* rev number *) ); (*** MODULE $XABDATDEF ***) 16:(XAB$R_XABDATDEF : [BYTE(84)] RECORD END; ); 17: (XABDATDEF$$_FILL_1 : $BYTE; XABDATDEF$$_FILL_2 : $BYTE; XABDATDEF$$_FILL_3 : $WORD; XABDATDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XABDATDEF$$_FILL_5 : $WORD; (*REVISION !,DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT *) XABDATDEF$$_FILL_6 : $WORD; (* spare *) XABDATDEF$$_FILL_7 : $QUAD; (* revision date & time,defined in $xabdef *) XAB$R_CDT_OVERLAY : [BYTE(8)] RECORD END; XAB$R_EDT_OVERLAY : [BYTE(8)] RECORD END; XAB$R_BDT_OVERLAY : [BYTE(8)] RECORD END; XAB$R_RCD_OVERLAY : [BYTE(8)] RECORD END; XAB$R_EFF_OVERLAY : [BYTE(8)] RECORD END; XAB$R_ACC_OVERLAY : [BYTE(8)] RECORD END; XAB$R_ATT_OVERLAY : [BYTE(8)] RECORD END; XAB$R_MOD_OVERLAY : [BYTE(8)] RECORD END; ); 18: (XAB$Q_CDT : [POS(160)] $QUAD; (* creation date & time *) XAB$Q_EDT : [POS(224)] $QUAD; (* expiration date & time *) XAB$Q_BDT : [POS(288)] $QUAD; (* backup date and time *) XAB$Q_RCD : [POS(352)] $QUAD; (* Recorded date and time *) XAB$Q_EFF : [POS(416)] $QUAD; (* Effective date and time *) XAB$Q_ACC : [POS(480)] $QUAD; (* Access date and time *) XAB$Q_ATT : [POS(544)] $QUAD; (* Attribute change date and time *) XAB$Q_MOD : [POS(608)] $QUAD; (* data Modification date and time *) ); 19: (XAB$R_CDT_FIELDS : [POS(160), BYTE(8)] RECORD END; XAB$R_EDT_FIELDS : [POS(224), BYTE(8)] RECORD END; XAB$R_BDT_FIELDS : [POS(288), BYTE(8)] RECORD END; XAB$R_RCD_FIELDS : [POS(352), BYTE(8)] RECORD END; XAB$R_EFF_FIELDS : [POS(416), BYTE(8)] RECORD END; XAB$R_ACC_FIELDS : [POS(480), BYTE(8)] RECORD END; XAB$R_ATT_FIELDS : [POS(544), BYTE(8)] RECORD END; XAB$R_MOD_FIELDS : [POS(608), BYTE(8)] RECORD END; ); 20: (XAB$L_CDT0 : [POS(160)] UNSIGNED; XAB$L_CDT4 : [POS(192)] UNSIGNED; XAB$L_EDT0 : [POS(224)] UNSIGNED; XAB$L_EDT4 : [POS(256)] UNSIGNED; XAB$L_BDT0 : [POS(288)] UNSIGNED; XAB$L_BDT4 : [POS(320)] UNSIGNED; XAB$L_RCD0 : [POS(352)] UNSIGNED; XAB$L_RCD4 : [POS(384)] UNSIGNED; XAB$L_EFF0 : [POS(416)] UNSIGNED; XAB$L_EFF4 : [POS(448)] UNSIGNED; XAB$L_ACC0 : [POS(480)] UNSIGNED; XAB$L_ACC4 : [POS(512)] UNSIGNED; XAB$L_ATT0 : [POS(544)] UNSIGNED; XAB$L_ATT4 : [POS(576)] UNSIGNED; XAB$L_MOD0 : [POS(608)] UNSIGNED; XAB$L_MOD4 : [POS(640)] UNSIGNED; ); (*** MODULE $XABRDTDEF ***) 21:(XAB$R_XABRDTDEF : [BYTE(20)] RECORD END; ); (*** MODULE $XABPRODEF ***) 22: (XAB$R_XABPRODEF_BITS : [BYTE(1)] RECORD END; ); 23: (XAB$V_NOREAD : [POS(0)] $BOOL; (* deny read access *) XAB$V_NOWRITE : [POS(1)] $BOOL; (* deny write access *) XAB$V_NOEXE : [POS(2)] $BOOL; (* deny execution access *) XAB$V_NODEL : [POS(3)] $BOOL; (* deny delete access *) ); 24:(XAB$R_XABPRODEF : [BYTE(88)] RECORD END; ); 25: (XABPRODEF$$_FILL_1 : $BYTE; XABPRODEF$$_FILL_2 : $BYTE; XABPRODEF$$_FILL_3 : $WORD; XABPRODEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$R_PRO_OVERLAY : [BYTE(2)] RECORD END; XAB$B_MTACC : $UBYTE; (* Magtape access control char. *) XAB$R_PROT_OPT_OVERLAY : [BYTE(1)] RECORD END; XAB$R_UIC_OVERLAY : [BYTE(4)] RECORD END; XAB$R_PROT_MODE_OVERLAY : [BYTE(8)] RECORD END; (* RWED/mode protection for file *) XAB$L_ACLBUF : UNSIGNED; (* address of user's ACL buffer *) XAB$W_ACLSIZ : $UWORD; (* size of user's ACL buffer *) XAB$W_ACLLEN : $UWORD; (* return length of entire ACL *) XAB$L_ACLCTX : UNSIGNED; (* ACL context field *) XAB$L_ACLSTS : UNSIGNED; (* ACL return err status *) XABPRODEF$$_FILL_10 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_11 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_12 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_13 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_14 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_15 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_16 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_17 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_18 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_19 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_20 : UNSIGNED; (* spare *) XABPRODEF$$_FILL_21 : UNSIGNED; (* spare *) ); 26: (XAB$W_PRO : [POS(64)] $UWORD; (* protection mask *) XAB$B_PROT_OPT : [POS(88)] $UBYTE; (* XABPRO options field *) XAB$L_UIC : [POS(96)] UNSIGNED; (* uic code *) XAB$Q_PROT_MODE : [POS(128)] $QUAD; (* eventually may be a quadword *) ); 27: (XAB$R_PRO_BITS : [POS(64), BYTE(2)] RECORD END; XAB$R_PROT_OPT_FIELDS : [POS(88), BYTE(1)] RECORD END; XAB$R_UIC_FIELDS : [POS(96), BYTE(4)] RECORD END; XAB$R_PROT_MODE_FIELDS : [POS(128), BYTE(1)] RECORD END; ); 28: (XAB$V_SYS : [POS(64)] $BIT4; (* system *) XAB$V_OWN : [POS(68)] $BIT4; (* owner *) XAB$V_GRP : [POS(72)] $BIT4; (* group *) XAB$V_WLD : [POS(76)] $BIT4; (* world *) XAB$V_PROPAGATE : [POS(88)] $BOOL; (* Propagate security attributes on $ENTER and $RENAME *) XAB$W_MBM : [POS(96)] $UWORD; (* member code *) XAB$W_GRP : [POS(112)] $UWORD; (* group code *) XAB$B_PROT_MODE : [POS(128)] $UBYTE; (* but currently only a byte *) ); (*** MODULE $XABTRMDEF ***) 29: (XAB$R_XABTRMDEF : [BYTE(36)] RECORD END; ); 30: (XABTRMDEF$$_FILL_1 : $BYTE; XABTRMDEF$$_FILL_2 : $BYTE; XABTRMDEF$$_FILL_3 : $WORD; XABTRMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$L_ITMLST : UNSIGNED; (* item list address *) XAB$W_ITMLST_LEN : $UWORD; (* item list length *) XABTRMDEF$$_FILL_5 : $WORD; (* spare *) XABTRMDEF$$_FILL_6 : UNSIGNED; (* spare *) XABTRMDEF$$_FILL_7 : UNSIGNED; (* spare *) XABTRMDEF$$_FILL_8 : UNSIGNED; (* spare *) XABTRMDEF$$_FILL_9 : UNSIGNED; (* spare *) XABTRMDEF$$_FILL_10 : UNSIGNED; (* spare *) ); (*** MODULE $XABSUMDEF ***) 31: (XAB$R_XABSUMDEF : [BYTE(12)] RECORD END; ); 32: (XABSUMDEF$$_FILL_1 : $BYTE; XABSUMDEF$$_FILL_2 : $BYTE; XABSUMDEF$$_FILL_3 : $WORD; XABSUMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$B_NOA : $UBYTE; (* number of defined areas for index file *) XAB$B_NOK : $UBYTE; (* number of defined keys for index file *) XAB$W_PVN : $UWORD; (* prologue version number (relative and index files) *) ); (*** MODULE $XABKEYDEF ***) 33: (XAB$R_XABKEYDEF : [BYTE(100)] RECORD END; ); 34: (XABKEYDEF$$_FILL_1 : $BYTE; XABKEYDEF$$_FILL_2 : $BYTE; XABKEYDEF$$_FILL_3 : $WORD; XABKEYDEF$$_FILL_4 : UNSIGNED; (*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. *) (* *) XAB$B_IAN : $UBYTE; (* index level area number *) XAB$B_LAN : $UBYTE; (* lowest index level area number *) XAB$B_DAN : $UBYTE; (* data level area number *) XAB$B_LVL : $UBYTE; (* level of root bucket *) XAB$B_IBS : $UBYTE; (* size of index buckets in virtual blocks *) XAB$B_DBS : $UBYTE; (* size of data buckets in virtual blocks *) XAB$L_RVB : UNSIGNED; (* root bucket start vbn *) XAB$R_FLG_OVERLAY : [BYTE(1)] RECORD END; XAB$B_DTP : $UBYTE; (* key field data type *) XAB$B_NSG : $UBYTE; (* number of key segments *) XAB$B_NUL : $UBYTE; (* nul key character *) XAB$B_TKS : $UBYTE; (* total key field size (bytes) *) XAB$B_REF : $UBYTE; (* key of reference (0=prim key, *) (* 1-254 = alternate keys) *) XAB$W_MRL : $UWORD; (* minimun record length to contain key field *) XAB$W_IFL : $UWORD; (* index bucket fill size (bytes) *) XAB$W_DFL : $UWORD; (* data bucket fil size (bytes) *) XAB$R_POS_OVERLAY : [BYTE(16)] RECORD END; XAB$R_SIZ_OVERLAY : [BYTE(8)] RECORD END; XABKEYDEF$$_FILL_11 : $WORD; (* spare *) (* *) (* the positions of the above fields are dictated by the key descriptor *) (* record layout in the index file prologue. *) (* *) XAB$L_KNM : UNSIGNED; (* pointer to 32 character key name buffer *) XAB$L_DVB : UNSIGNED; (* first data bucket start vbn *) (* Additions for prologue 3 files *) (* *) XAB$R_TYP_OVERLAY : [BYTE(8)] RECORD END; XAB$B_PROLOG : $UBYTE; (* indicate prologue version desired (primary key only) *) XABKEYDEF$$_FILL_12 : $BYTE; (* spare *) XABKEYDEF$$_FILL_13 : $WORD; (* spare *) XAB$L_COLTBL : UNSIGNED; (* address of collate table *) XAB$L_COLSIZ : UNSIGNED; (* size of collate table *) XAB$L_COLNAM : UNSIGNED; (* name of collate table *) XABKEYDEF$$_FILL_14 : UNSIGNED; (* spare *) XABKEYDEF$$_FILL_15 : UNSIGNED; (* spare *) XABKEYDEF$$_FILL_16 : UNSIGNED; (* spare *) (*-- *) (*++ *) ); 35: (XAB$B_FLG : [POS(144)] $UBYTE; (* key option flags *) XAB$W_POS : [POS(240)] ARRAY [1..8] OF $UWORD; (* key field record offset positions *) XAB$B_SIZ : [POS(368)] ARRAY [1..8] OF $UBYTE; (* key field segment sizes *) XAB$B_TYP : [POS(512)] ARRAY [1..8] OF $UBYTE; (* key field segment types *) ); 36: (XAB$R_FLG_BITS0 : [POS(144), BYTE(1)] RECORD END; XAB$R_POS_FIELDS : [POS(240), BYTE(16)] RECORD END; XAB$R_SIZ_FIELDS : [POS(368), BYTE(8)] RECORD END; XAB$R_TYP_FIELDS : [POS(512), BYTE(8)] RECORD END; ); 37: (XAB$V_DUP : [POS(144)] $BOOL; (* duplicate key values allowed *) XAB$V_CHG : [POS(145)] $BOOL; (* alt key only --key field may change on update *) XAB$V_NUL : [POS(146)] $BOOL; (* alt key only --null key value enable *) XAB$V_IDX_NCMPR : [POS(147)] $BOOL; (* indicate index records for given key are not compressed *) XAB$V_KEY_NCMPR : [POS(150)] $BOOL; (* indicates key is not compressed in data record *) XAB$W_POS0 : [POS(240)] $UWORD; (* segment 0 *) XAB$W_POS1 : [POS(256)] $UWORD; (* segment 1 *) XAB$W_POS2 : [POS(272)] $UWORD; (* segment 2 *) XAB$W_POS3 : [POS(288)] $UWORD; (* segment 3 *) XAB$W_POS4 : [POS(304)] $UWORD; (* segment 4 *) XAB$W_POS5 : [POS(320)] $UWORD; (* segment 5 *) XAB$W_POS6 : [POS(336)] $UWORD; (* segment 6 *) XAB$W_POS7 : [POS(352)] $UWORD; (* segment 7 *) XAB$B_SIZ0 : [POS(368)] $UBYTE; (* segment 0 *) XAB$B_SIZ1 : [POS(376)] $UBYTE; (* segment 1 *) XAB$B_SIZ2 : [POS(384)] $UBYTE; (* segment 2 *) XAB$B_SIZ3 : [POS(392)] $UBYTE; (* segment 3 *) XAB$B_SIZ4 : [POS(400)] $UBYTE; (* segment 4 *) XAB$B_SIZ5 : [POS(408)] $UBYTE; (* segment 5 *) XAB$B_SIZ6 : [POS(416)] $UBYTE; (* segment 6 *) XAB$B_SIZ7 : [POS(424)] $UBYTE; (* segment 7 *) XAB$B_TYP0 : [POS(512)] $UBYTE; (* segment 0 *) XAB$B_TYP1 : [POS(520)] $UBYTE; (* segment 1 *) XAB$B_TYP2 : [POS(528)] $UBYTE; (* segment 2 *) XAB$B_TYP3 : [POS(536)] $UBYTE; (* segment 3 *) XAB$B_TYP4 : [POS(544)] $UBYTE; (* segment 4 *) XAB$B_TYP5 : [POS(552)] $UBYTE; (* segment 5 *) XAB$B_TYP6 : [POS(560)] $UBYTE; (* segment 6 *) XAB$B_TYP7 : [POS(568)] $UBYTE; (* segment 7 *) ); 38: (XAB$R_FLG_BITS1 : [POS(144), BYTE(1)] RECORD END; ); 39: (XAB$V_DAT_NCMPR : [POS(151)] $BOOL; (* data record is not compressed *) ); (*** MODULE $XABCXFDEF ***) 40: (XAB$R_XABCXFDEF : [BYTE(60)] RECORD END; ); 41: (XABCXFDEF$$_FILL_1 : $BYTE; (* COD - xab id code *) XABCXFDEF$$_FILL_2 : $BYTE; (* BLN - block length *) XABCXFDEF$$_FILL_3 : $WORD; (* (spare) *) XABCXFDEF$$_FILL_4 : UNSIGNED; (* NXT - xab chain link *) (* UP TILL NOW COMMON AMONG ALL XABS *) (* *) (* Following in common with the CXR block, too. *) (* Do not rearrange without changing both. *) (* *) XAB$L_CXFSTS : UNSIGNED; (* Status of the last file operation. *) XAB$L_CXFSTV : UNSIGNED; (* Status Value of the last file operation. *) (* *) (* Top four bits of the options longword are reserved for the XABCXR. These *) (* bits describe the version of the key buffer. *) (* *) XAB$R_CXFCOP_OVERLAY : [BYTE(4)] RECORD END; XAB$L_CXFBKP : UNSIGNED; (* Bookkeeping bits *) XAB$W_CXFIFI : $UWORD; (* Internal File Identifier *) XAB$B_CXFVER : $UBYTE; (* prologue version num *) XABCXFDEF$$_FILL_5 : $BYTE; (* spare to longword align commonality *) XABCXFDEF$$_FILL_6 : UNSIGNED; (* spare *) (* *) (* Up Till now in common with XABCXR, too. *) (* *) (* The following fields correspond to those in the FAB or IFB *) (* They should not be rearranged as their order is assumed for *) (* purposes of moving large chunks of data rather than a byte *) (* or word at a time. Note: ASSUME is used in the actual code *) (* *) XAB$W_CXFDEQ : $UWORD; (* Default extention quantity *) XAB$B_CXFFAC : $UBYTE; (* File access *) XAB$B_CXFSHR : $UBYTE; (* File Sharing *) XAB$W_CXFRTE : $UWORD; (* (Not used) *) XABCXFDEF$$_FILL_7 : $BYTE; (* spare *) XAB$B_CXFORG : $UBYTE; (* file organization *) XAB$W_CXFGBC : $UWORD; (* global buffer count *) XAB$B_CXFRTV : $UBYTE; (* retrieval window *) XABCXFDEF$$_FILL_8 : $BYTE; XABCXFDEF$$_FILL_9 : ARRAY [1..4] OF UNSIGNED; (* spares *) ); 42: (XAB$L_CXFCOP : [POS(128)] UNSIGNED; (* Context Options. *) ); 43: (XAB$R_CXFCOP_BITS : [POS(128), BYTE(1)] RECORD END; ); 44: (XAB$V_CXFRST : [POS(128)] $BOOL; (* Restore file state - use context blk as input. *) ); (*** MODULE $XABCXRDEF ***) 45: (XAB$R_XABCXRDEF : [BYTE(84)] RECORD END; ); 46: (XABCXRDEF$$_FILL_1 : $BYTE; (* COD - xab id code *) XABCXRDEF$$_FILL_2 : $BYTE; (* BLN - block length *) XABCXRDEF$$_FILL_3 : $WORD; (* (spare) *) XABCXRDEF$$_FILL_4 : UNSIGNED; (* NXT - xab chain link *) (* UP TILL NOW COMMON AMONG ALL XABS *) (* *) (* Following in common with the CXF block, too. *) (* Do not rearrange without changing it. *) (* *) XAB$L_CXRSTS : UNSIGNED; (* Status of the last record operation. *) XAB$L_CXRSTV : UNSIGNED; (* Status Value of the last record operation. *) XAB$R_CXRCOP_OVERLAY : [BYTE(4)] RECORD END; XAB$L_CXRBKP : UNSIGNED; (* Bookkeeping bits *) XAB$W_CXRISI : $UWORD; (* Internal Record Identifier *) XAB$B_CXRVER : $UBYTE; (* prologue version num. *) XABCXRDEF$$_FILL_6 : $BYTE; (* spare to longword align commonality *) XABCXRDEF$$_FILL_7 : UNSIGNED; (* spare *) (* *) (* Up Till now in common with XABCXF, too. *) (* *) (* *) (* The following elements are arranged such that large amounts of *) (* data can be moved at a time rather than words or bytes. Do not *) (* rearrange them without this consideration in mind. *) (* *) (* The following elements are stream dependent regardless of file org. *) (* *) XAB$B_CXRMBF : $UBYTE; (* Multibuffer count *) XAB$B_CXRMBC : $UBYTE; (* Multiblock count *) XAB$W_CXRBFZ : $UWORD; (* sz in byte of CXRBUF *) (* *) (* The following elements are necessary for saving the NRP context for *) (* Sequential and Relative files. *) (* *) XAB$L_CXRVBN : UNSIGNED; (* NRP VBN *) XAB$W_CXROFF : $UWORD; (* NRP offset in VBN *) XAB$W_FILL_8 : $UWORD; (* mbz - longword align *) (* *) (* The following elements are necessary for saving the NRP context for *) (* ISAM files. *) (* *) XAB$L_CXRPOS0 : UNSIGNED; (* Primary Positioning RFA *) XAB$W_CXRPOS4 : $UWORD; XABCXRDEF$$_FILL_9 : $WORD; (* Spare MBZ *) XAB$L_CXRCUR0 : UNSIGNED; (* Current Positioning RFA *) XAB$W_CXRCUR4 : $UWORD; XABCXRDEF$$_FILL_10 : $WORD; (* Spare MBZ *) XAB$L_CXRSID0 : UNSIGNED; (* SIDR positioning RFA *) XAB$W_CXRSID4 : $UWORD; XABCXRDEF$$_FILL_11 : $WORD; (* Spare MBZ *) XAB$W_CXRCNT : $UWORD; (* SIDR array count *) XAB$B_CXRKREF : $UBYTE; (* Cur Key of Reference *) XAB$B_CXRKLEN : $UBYTE; (* Length of key *) XAB$L_CXRBUF : UNSIGNED; (* address of key buf *) XABCXRDEF$$_FILL_12 : ARRAY [1..2] OF UNSIGNED; (* Spares *) ); 47: (XAB$L_CXRCOP : [POS(128)] UNSIGNED; (* Context Options. *) ); 48: (XAB$R_CXRCOP_BITS : [POS(128), BYTE(4)] RECORD END; ); 49: (XAB$V_CXRRST : [POS(128)] $BOOL; (* Restore file/record state - use context blk as input. *) XAB$V_CXRBVER : [POS(156)] $BIT4; (* Version of Key buffer *) ); (*** MODULE $XABJNLDEF ***) 50: (XAB$R_XABJNLDEF : [BYTE(80)] RECORD END; ); 51: (XABJNLDEF$$_FILL_1 : $BYTE; XABJNLDEF$$_FILL_2 : $BYTE; XABJNLDEF$$_FILL_3 : $WORD; XABJNLDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$B_XABJNL_TYPE : $UBYTE; (* type of $XABJNL *) XABJNLDEF$$_FILL_5 : $BYTE; XAB$R_JNL_FLAGS_OVERLAY : [BYTE(2)] RECORD END; XAB$L_JNL_FAB : UNSIGNED; (* address of journal file FAB *) XAB$L_VOLNAM_BUF : UNSIGNED; (* address of journal volume name buffer *) XAB$W_VOLNAM_SIZ : $UWORD; (* size of journal volume name buffer *) XAB$W_VOLNAM_LEN : $UWORD; (* return length of journal volume name *) XAB$Q_JNL_VERIFY_CDATE : $UQUAD; (* journal file creation date (from ACE$Q_CDATE) *) (* (to match with journal file's creation date) *) XAB$L_JNLIDX : UNSIGNED; (* Journal stream index within journal file *) XAB$L_BACKUP_SEQNO : UNSIGNED; (* Backup sequence number. *) XAB$Q_JNL_MOD_TIME : $UQUAD; (* Timestamp of last backup or last journal *) (* entry recovered. *) XABJNLDEF$$_FILL_7 : UNSIGNED; XABJNLDEF$$_FILL_8 : UNSIGNED; XABJNLDEF$$_FILL_9 : UNSIGNED; XABJNLDEF$$_FILL_10 : UNSIGNED; XABJNLDEF$$_FILL_11 : UNSIGNED; XABJNLDEF$$_FILL_12 : UNSIGNED; XABJNLDEF$$_FILL_13 : UNSIGNED; XABJNLDEF$$_FILL_14 : UNSIGNED; ); 52: (XAB$W_JNL_FLAGS : [POS(80)] $UWORD; (* journal flags (from ACE$W_RMSJNL_FLAGS) *) ); 53: (XAB$R_JNL_FLAGS_BITS : [POS(80), BYTE(1)] RECORD END; ); 54: (XAB$V_JOURNAL_DISABLED : [POS(80)] $BOOL; (* journaling disabled by BACKUP (AI/BI/AT) *) XAB$V_BACKUP_DONE : [POS(81)] $BOOL; (* Backup done since last $OPEN *) ); (*** MODULE $XABITMDEF ***) 55: (XAB$R_XABITMDEF : [BYTE(32)] RECORD END; ); 56: (XABITMDEF$$_FILL_1 : $BYTE; XABITMDEF$$_FILL_2 : $BYTE; XABITMDEF$$_FILL_3 : $WORD; XABITMDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$L_ITEMLIST : UNSIGNED; (* Address of the item list *) (* In the user interface, item codes are arbitrary integer values, so *) (* we may as well allow logical groups to have contiguous codes, with *) (* room for expansion (to allow table driven code). *) XAB$B_MODE : $UBYTE; (* must be either SETMODE or SENSEMODE *) XAB$B_ITM_FILL1 : ARRAY [1..3] OF $BYTE; (* Reserved space for future definition *) XAB$IL_ITM_FILL2 : ARRAY [1..4] OF UNSIGNED; (* Reserved space for future definition *) ); (*** MODULE $XABRUDEF ***) 57: (XAB$R_XABRUDEF : [BYTE(48)] RECORD END; ); 58: (XABRUDEF$$_FILL_1 : $BYTE; XABRUDEF$$_FILL_2 : $BYTE; XABRUDEF$$_FILL_3 : $WORD; XABRUDEF$$_FILL_4 : UNSIGNED; (*HAS SAME COD, BLN, SPARE AND NXT FIELD *) (*THESE 4 FIELDS ARE COMMON TO ALL XABS AND *) (*HAVE BEEN DEFINED BY $XABDEF *) XAB$R_RU_FLAGS_OVERLAY : [BYTE(2)] RECORD END; XABRUDEF$$_FILL_5 : $WORD; XAB$L_RU_HANDLE : UNSIGNED; (* RU handle to join (input field) *) XAB$L_RU_HANDLE_JOINED : UNSIGNED; (* RU handle joined (output field) *) XABRUDEF$$_FILL_7 : UNSIGNED; XABRUDEF$$_FILL_8 : UNSIGNED; XABRUDEF$$_FILL_9 : UNSIGNED; XABRUDEF$$_FILL_10 : UNSIGNED; XABRUDEF$$_FILL_11 : UNSIGNED; XABRUDEF$$_FILL_12 : UNSIGNED; XABRUDEF$$_FILL_13 : UNSIGNED; ); 59: (XAB$W_RU_FLAGS : [POS(64)] $UWORD; (* Flags *) ); 60: (XAB$R_RU_FLAGS_BITS : [POS(64), BYTE(1)] RECORD END; ); 61: (XAB$V_NOJOIN : [POS(64)] $BOOL; (* Do not join any recovery unit *) ) END; (* The following set of flags exactly mimic the FCHDEF flags defined in STARLET. *) (* They are here to provide an unsupported interface to the UCHAR longword maintained *) (* by the file system. *) (* *) (* Note: RESERVED6 is the counterpart of FCH$x_SCRATCH. This SCRATCH bit *) (* means the file is a temporary file that should only exist within the *) (* context of an XQP operation. This bit should NEVER be visible to a user. *) (* (It was implemented by XQP for ACP MOVEFILE subfunction. A 'scratch' *) (* file is created with the scratch bit set in the file header. This is *) (* made to be the 'moved' file, then the original file is replaced by the *) (* moved file, and finally everything is cleaned up. If a crash occurs, *) (* the scratch file is left lying around; the scratch bit is used to signal *) (* to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should *) (* not provide any interface to sense or set this bit. *) (* *) CONST XAB$M_WASCONTIG = 1; XAB$M_NOBACKUP = 2; XAB$M_WRITEBACK = 4; XAB$M_READCHECK = 8; XAB$M_WRITCHECK = 16; XAB$M_CONTIGB = 32; XAB$M_LOCKED = 64; XAB$M_CONTIG = 128; XAB$M_RESERVED1 = 256; XAB$M_RESERVED2 = 512; XAB$M_RESERVED3 = 1024; XAB$M_BADACL = 2048; XAB$M_SPOOL = 4096; XAB$M_DIRECTORY = 8192; XAB$M_BADBLOCK = 16384; XAB$M_MARKDEL = 32768; XAB$M_NOCHARGE = 65536; XAB$M_ERASE = 131072; XAB$M_RESERVED4 = 262144; XAB$M_SHELVED = 524288; XAB$M_RESERVED6 = 1048576; XAB$M_NOMOVE = 2097152; XAB$M_NOSHELVABLE = 4194304; XAB$M_PRESHELVED = 8388608; CONST XAB$_NET_BUFFER_SIZE = 1; (* (sense) negociated buffer size *) XAB$_NET_BLOCK_COUNT = 2; (* (set,sense) requested block count *) XAB$_NET_REMOTE_SYSTEM = 3; (* (sense) remote system type *) XAB$_NET_REMOTE_FILE_SYSTEM = 4; (* (sense) remote file system type *) XAB$_NET_EXTPROT = 5; (* (set,sense) actual extended protection *) XAB$_NET_SYSCAP_LOCAL = 6; (* (sense) DAP SYSCAP of local system *) XAB$_NET_SYSCAP_REMOTE = 7; (* (sense) DAP SYSCAP of remote system *) XAB$_NET_DAPVER_LOCAL = 8; (* (sense) DAP version - local system *) XAB$_NET_DAPVER_REMOTE = 9; (* (sense) DAP version - remote system *) XAB$_NET_LINK_TIMEOUT = 10; (* (set,sense) logical link timeout (seconds) *) XAB$_NET_DATA_CRC_ENABLE = 11; (* (set,sense) DAP level CRC *) XAB$_NET_LINK_CACHE_ENABLE = 12; (* (set,sense) Logical link cache enable *) CONST XAB$K_NET_MIN = 1; XAB$K_NET_MAX = 12; XAB$_STAT_ENABLE = 64; (* (set,sense) Read statistics enable *) XAB$_FILE_LENGTH_HINT = 65; (* (set,sense) File length hint (set of 2 quadword fields) *) XAB$K_STAT_MIN = 64; XAB$K_STAT_MAX = 65; XAB$_UCHAR = 128; (* (sense) Read file characteristics (obsolete) *) XAB$_UCHAR_WASCONTIG = 129; (* (sense) FCH$V_WASCONTIG *) XAB$_UCHAR_NOBACKUP = 130; (* (set,sense) FCH$V_NOBACKUP *) XAB$_UCHAR_WRITEBACK = 131; (* (sense) FCH$V_WRITEBACK *) XAB$_UCHAR_READCHECK = 132; (* (set,sense) FCH$V_READCHECK *) XAB$_UCHAR_WRITECHECK = 133; (* (set,sense) FCH$V_WRITECHECK *) XAB$_UCHAR_CONTIGB = 134; (* (set,sense) FCH$V_CONTIGB *) XAB$_UCHAR_LOCKED = 135; (* (set,sense) FCH$V_LOCKED *) XAB$_UCHAR_CONTIG = 136; (* (sense) FCH$V_CONTIG *) XAB$_UCHAR_BADACL = 137; (* (sense) FCH$V_BADACL *) XAB$_UCHAR_SPOOL = 138; (* (sense) FCH$V_SPOOL *) XAB$_UCHAR_DIRECTORY = 139; (* (sense) FCH$V_DIRECTORY *) XAB$_UCHAR_BADBLOCK = 140; (* (sense) FCH$V_BADBLOCK *) XAB$_UCHAR_MARKDEL = 141; (* (sense) FCH$V_BADBLOCK *) XAB$_UCHAR_NOCHARGE = 142; (* (sense) FCH$V_NOCHARGE *) XAB$_UCHAR_ERASE = 143; (* (set,sense) FCH$V_ERASE *) XAB$_UCHAR_NOMOVE = 144; (* (set,sense) FCH$V_NOMOVE *) XAB$_UCHAR_SHELVED = 145; (* (sense) FCH$V_SHELVED *) XAB$_UCHAR_NOSHELVABLE = 146; (* (set,sense) FCH$V_NOSHELVABLE *) XAB$_UCHAR_PRESHELVED = 147; (* (sense) FCH$V_PRESHELVED *) XAB$K_UCHAR_MIN = 128; XAB$K_UCHAR_MAX = 147; XAB$_STORED_SEMANTICS = 192; (* (set,sense) Stored semantics of the file *) XAB$_ACCESS_SEMANTICS = 193; (* (set,sense) Access semantics of the file *) XAB$_RMS_EXTENSION = 194; (* (set,sense) Required RMS processing extension *) XAB$K_XLATE_MIN = 192; XAB$K_XLATE_MAX = 194; XAB$C_SEMANTICS_MAX_LEN = 64; (* max length for stored or access semantics *) XAB$K_SEMANTICS_MAX_LEN = 64; (* max length for stored or access semantics *) XAB$_MULTIBUFFER_COUNT = 256; (* (set-only) Multibuffer count (not limited to 127) *) (* legal only on $CONNECT *) CONST XAB$_NORECORD = 257; (* (set-only) Norecord suppresses update of the expiration d/t, passed in on *) (* on $OPEN or $CLOSE *) CONST XAB$_RECOVERY = 258; (* Used to indicate type of *) (* recovery in progress. *) CONST XAB$_RUJVOLNAM = 259; (* Used to control RUJ placement *) XAB$_GBC32 = 260; (* (set/sense) GBC longword implementation *) XAB$_LINKCOUNT = 261; (* (set/sense) ODS-5 (hard) link count *) XAB$K_MISC_MIN = 256; XAB$K_MISC_MAX = 261; XAB$_TID = 320; (* (set/sense) TID *) XAB$K_TID_MIN = 320; XAB$K_TID_MAX = 320; XAB$_CACHING_OPTIONS = 384; (* (set,sense) VDC runtime caching options *) XAB$_CACHING_ATTRIBUTE = 385; (* (set, sense) VDC perm caching attribute *) XAB$K_CACHING_OPTIONS_MIN = 384; XAB$K_CACHING_OPTIONS_MAX = 385; XAB$_ACCDATE = 448; (* (set,sense) access date *) XAB$_ATTDATE = 449; (* (set,sense) attribute change date *) XAB$_MODDATE = 450; (* (set,sense) data modification date *) XAB$K_DATE_MIN = 448; XAB$K_DATE_MAX = 450; XAB$K_SENSEMODE = 1; XAB$K_SETMODE = 2; CONST XAB$K_ITMLEN = 32; XAB$C_ITMLEN = 32; (* Define fields and constant values for XAB$_CACHING_OPTIONS longword. *) (* These must match [STARLET]FIBDEF.SDL exactly *) CONST XAB$M_FILE_ATTRIBUTES = 15; XAB$M_FILE_CONTENTS = 240; XAB$K_DEFAULT = 0; XAB$K_WRITETHROUGH = 1; XAB$K_WRITEBEHIND = 2; XAB$K_NOCACHING = 3; XAB$M_FLUSH_ON_CLOSE = 3840; XAB$K_FLUSH = 1; XAB$K_NOFLUSH = 2; XAB$M_CACHECTL_MBZ = -4096; TYPE XAB_CACHING_OPTIONS_FLAGS$TYPE = RECORD XAB$V_FILE_ATTRIBUTES : [POS(0)] $BIT4; XAB$V_FILE_CONTENTS : [POS(4)] $BIT4; XAB$V_FLUSH_ON_CLOSE : [POS(8)] $BIT4; XAB$V_CACHECTL_MBZ : [POS(12)] $BIT20; END; CONST XAB$K_DISABLE = 0; XAB$K_ENABLE = 1; XAB$K_RT11 = 1; XAB$K_RSTS = 2; XAB$K_RSX11S = 3; XAB$K_RSX11M = 4; XAB$K_RSX11D = 5; XAB$K_IAS = 6; XAB$K_VAXVMS = 7; XAB$K_TOPS20 = 8; XAB$K_TOPS10 = 9; XAB$K_RTS8 = 10; XAB$K_OS8 = 11; XAB$K_RSX11MP = 12; XAB$K_COPOS11 = 13; XAB$K_P_OS = 14; XAB$K_VAXELN = 15; XAB$K_CPM = 16; XAB$K_MS_DOS = 17; XAB$K_ULTRIX_32 = 18; XAB$K_ULTRIX_11 = 19; XAB$K_RMS11 = 1; XAB$K_RMS20 = 2; XAB$K_RMS32 = 3; XAB$K_FCS11 = 4; XAB$K_RT11FS = 5; XAB$K_NO_FS = 6; XAB$K_TOPS20FS = 7; XAB$K_TOPS10FS = 8; XAB$K_OS8FS = 9; XAB$K_RMS32S = 10; XAB$K_CPMFS = 11; XAB$K_MS_DOSFS = 12; XAB$K_ULTRIX32_FS = 13; XAB$K_ULTRIX11_FS = 14; XAB$M_NET_NOREAD = 1; XAB$M_NET_NOWRITE = 2; XAB$M_NET_NOEXECUTE = 4; XAB$M_NET_NODELETE = 8; XAB$M_NET_NOAPPEND = 16; XAB$M_NET_NODIRECTORY = 32; XAB$M_NET_NOUPDATE = 64; XAB$M_NET_NOCHANGE = 128; XAB$M_NET_NOEXTEND = 256; CONST XAB$S_BUFFER_SIZE = 4; XAB$S_NETWORK_BLOCK_COUNT = 4; XAB$S_REMOTE_SYSTEM = 4; XAB$S_REMOTE_FILE_SYSTEM = 4; XAB$S_EXTPROT_LOCAL = 8; XAB$S_EXTPROT_REMOTE = 8; XAB$S_CAPABIL_LOCAL = 8; XAB$S_CAPABIL_REMOTE = 8; XAB$S_DAPVER_LOCAL = 5; XAB$S_DAPVER_REMOTE = 5; XAB$S_CACHE_TMO = 4; XAB$S_HINT_LENGTH = 16; XAB$S_GBC32_LENGTH = 4; TYPE UCHAR_FLAGS$TYPE = RECORD (* mimics $FCHDEF *) XAB$V_WASCONTIG : [POS(0)] $BOOL; XAB$V_NOBACKUP : [POS(1)] $BOOL; XAB$V_WRITEBACK : [POS(2)] $BOOL; XAB$V_READCHECK : [POS(3)] $BOOL; XAB$V_WRITCHECK : [POS(4)] $BOOL; XAB$V_CONTIGB : [POS(5)] $BOOL; XAB$V_LOCKED : [POS(6)] $BOOL; XAB$V_CONTIG : [POS(7)] $BOOL; XAB$V_RESERVED1 : [POS(8)] $BOOL; XAB$V_RESERVED2 : [POS(9)] $BOOL; XAB$V_RESERVED3 : [POS(10)] $BOOL; XAB$V_BADACL : [POS(11)] $BOOL; XAB$V_SPOOL : [POS(12)] $BOOL; XAB$V_DIRECTORY : [POS(13)] $BOOL; XAB$V_BADBLOCK : [POS(14)] $BOOL; XAB$V_MARKDEL : [POS(15)] $BOOL; XAB$V_NOCHARGE : [POS(16)] $BOOL; XAB$V_ERASE : [POS(17)] $BOOL; XAB$V_RESERVED4 : [POS(18)] $BOOL; XAB$V_SHELVED : [POS(19)] $BOOL; XAB$V_RESERVED6 : [POS(20)] $BOOL; XAB$V_NOMOVE : [POS(21)] $BOOL; XAB$V_NOSHELVABLE : [POS(22)] $BOOL; XAB$V_PRESHELVED : [POS(23)] $BOOL; END; (* The following set of flags mimic the IFB$B_RECVRFLGS flags. *) (* They are here to provide an interface for RECOVER. *) CONST XAB$M_RCF_RU = 1; XAB$M_RCF_AI = 2; XAB$M_RCF_BI = 4; XAB$M_RCF_NOPAD = 8; TYPE XAB_RCF_FLAGS$TYPE = RECORD XAB$V_RCF_RU : [POS(0)] $BOOL; XAB$V_RCF_AI : [POS(1)] $BOOL; XAB$V_RCF_BI : [POS(2)] $BOOL; XAB$V_RCF_NOPAD : [POS(3)] $BOOL; XAB$V_FILL_16_ : [POS(4)] $BIT4; END; TYPE XABNETEXTPROT$TYPE = RECORD CASE INTEGER OF 1: (XAB$R_FILL_17_ : [BYTE(2)] RECORD END; XAB$W_OWNER_ACC : $UWORD; XAB$W_GROUP_ACC : $UWORD; XAB$W_WORLD_ACC : $UWORD; ); 2: (XAB$W_SYSTEM_ACC : [POS(0)] $UWORD; ); 3: (); 4: (XAB$V_NET_NOREAD : [POS(0)] $BOOL; XAB$V_NET_NOWRITE : [POS(1)] $BOOL; XAB$V_NET_NOEXECUTE : [POS(2)] $BOOL; XAB$V_NET_NODELETE : [POS(3)] $BOOL; XAB$V_NET_NOAPPEND : [POS(4)] $BOOL; XAB$V_NET_NODIRECTORY : [POS(5)] $BOOL; XAB$V_NET_NOUPDATE : [POS(6)] $BOOL; XAB$V_NET_NOCHANGE : [POS(7)] $BOOL; XAB$V_NET_NOEXTEND : [POS(8)] $BOOL; ) END; XABNETDAPVER$TYPE = RECORD XAB$B_VER_DAP : $UBYTE; XAB$B_VER_ECO : $UBYTE; XAB$B_VER_CUS : $UBYTE; XAB$B_VER_DSV : $UBYTE; XAB$B_VER_CSV : $UBYTE; END; XABNETCAP$TYPE = RECORD XAB$V_CAP_FILALL : [POS(0)] $BOOL; XAB$V_CAP_SEQORG : [POS(1)] $BOOL; XAB$V_CAP_RELORG : [POS(2)] $BOOL; XAB$V_CAP_FILL_21 : [POS(3)] $BOOL; XAB$V_CAP_EXTEND : [POS(4)] $BOOL; XAB$V_CAP_SEQFIL : [POS(5)] $BOOL; XAB$V_CAP_RANRRN : [POS(6)] $BOOL; XAB$V_CAP_RANVBN : [POS(7)] $BOOL; XAB$V_CAP_RANKEY : [POS(8)] $BOOL; XAB$V_CAP_FILL_22 : [POS(9)] $BOOL; XAB$V_CAP_RANRFA : [POS(10)] $BOOL; XAB$V_CAP_IDXORG : [POS(11)] $BOOL; XAB$V_CAP_SWMODE : [POS(12)] $BOOL; XAB$V_CAP_APPEND : [POS(13)] $BOOL; XAB$V_CAP_SUBMIT : [POS(14)] $BOOL; XAB$V_CAP_FILL_23 : [POS(15)] $BOOL; XAB$V_CAP_MDS : [POS(16)] $BOOL; XAB$V_CAP_DISPLAY : [POS(17)] $BOOL; XAB$V_CAP_MSGBLK : [POS(18)] $BOOL; XAB$V_CAP_UNRBLK : [POS(19)] $BOOL; XAB$V_CAP_BIGBLK : [POS(20)] $BOOL; XAB$V_CAP_DAPCRC : [POS(21)] $BOOL; XAB$V_CAP_KEYXAB : [POS(22)] $BOOL; XAB$V_CAP_ALLXAB : [POS(23)] $BOOL; XAB$V_CAP_SUMXAB : [POS(24)] $BOOL; XAB$V_CAP_DIRECTORY : [POS(25)] $BOOL; XAB$V_CAP_TIMXAB : [POS(26)] $BOOL; XAB$V_CAP_PROXAB : [POS(27)] $BOOL; XAB$V_CAP_FILL_24 : [POS(28)] $BOOL; XAB$V_CAP_FOPSPL : [POS(29)] $BOOL; XAB$V_CAP_FOPSCF : [POS(30)] $BOOL; XAB$V_CAP_FOPDLT : [POS(31)] $BOOL; XAB$V_CAP_FILL_26 : [POS(32)] $BOOL; XAB$V_CAP_SEQRAC : [POS(33)] $BOOL; XAB$V_CAP_FILL_27 : [POS(34)] $BOOL; XAB$V_CAP_BITOPT : [POS(35)] $BOOL; XAB$V_CAP_WARNING : [POS(36)] $BOOL; XAB$V_CAP_RENAME : [POS(37)] $BOOL; XAB$V_CAP_WILDCARD : [POS(38)] $BOOL; XAB$V_CAP_GNGOPT : [POS(39)] $BOOL; XAB$V_CAP_NAMMSG : [POS(40)] $BOOL; XAB$V_CAP_SEGMSG : [POS(41)] $BOOL; XAB$V_CAP_CHGATTCLS : [POS(42)] $BOOL; XAB$V_CAP_CHGTIMCLS : [POS(43)] $BOOL; XAB$V_CAP_CHGPROCLS : [POS(44)] $BOOL; XAB$V_CAP_CHGNAMCLS : [POS(45)] $BOOL; XAB$V_CAP_MODATTCRE : [POS(46)] $BOOL; XAB$V_CAP_NAM3PART : [POS(47)] $BOOL; XAB$V_CAP_CHGATTREN : [POS(48)] $BOOL; XAB$V_CAP_CHGTIMREN : [POS(49)] $BOOL; XAB$V_CAP_CHGPROREN : [POS(50)] $BOOL; XAB$V_CAP_CTLBLKCNT : [POS(51)] $BOOL; XAB$V_CAP_OCTALVER : [POS(52)] $BOOL; XAB$V_FILL_20_ : [POS(53)] $BIT3; END; (*** MODULE $FSCNDEF ***) (* *) (* Descriptor codes for SYS$FILESCAN *) (* *) CONST FSCN$M_NODE = 1; FSCN$M_DEVICE = 2; FSCN$M_ROOT = 4; FSCN$M_DIRECTORY = 8; FSCN$M_NAME = 16; FSCN$M_TYPE = 32; FSCN$M_VERSION = 64; FSCN$M_NODE_PRIMARY = 128; FSCN$M_NODE_ACS = 256; FSCN$M_NODE_SECONDARY = 512; TYPE FLDFLAGS$TYPE = RECORD FSCN$V_NODE : [POS(0)] $BOOL; (* Node name present *) FSCN$V_DEVICE : [POS(1)] $BOOL; (* Device name present *) FSCN$V_ROOT : [POS(2)] $BOOL; (* Root directory present *) FSCN$V_DIRECTORY : [POS(3)] $BOOL; (* Directory present *) FSCN$V_NAME : [POS(4)] $BOOL; (* File name present *) FSCN$V_TYPE : [POS(5)] $BOOL; (* File type present *) FSCN$V_VERSION : [POS(6)] $BOOL; (* File version present *) FSCN$V_NODE_PRIMARY : [POS(7)] $BOOL; (* Primary (first) node present *) FSCN$V_NODE_ACS : [POS(8)] $BOOL; (* Primary ACS present *) FSCN$V_NODE_SECONDARY : [POS(9)] $BOOL; (* Secondary node present *) FSCNDEF$$_FILL_1 : [POS(10)] $BIT22; (* Fill out longword *) END; CONST FSCN$_FILESPEC = 1; (* complete filespec *) FSCN$_NODE = 2; (* node:: field *) FSCN$_DEVICE = 3; (* device: field *) FSCN$_ROOT = 4; (* [root.] field *) FSCN$_DIRECTORY = 5; (* [directory] field *) FSCN$_NAME = 6; (* name field *) FSCN$_TYPE = 7; (* .typ field *) FSCN$_VERSION = 8; (* ;version field *) FSCN$_NODE_PRIMARY = 9; (* primary node field *) FSCN$_NODE_ACS = 10; (* acc. cont. str. fld. *) FSCN$_NODE_SECONDARY = 11; (* secondary node field *) FSCN$S_ITEM_LEN = 8; TYPE FSCN$TYPE = RECORD FSCN$W_LENGTH : $UWORD; (* return length word *) FSCN$W_ITEM_CODE : $UWORD; (* item code value *) FSCN$L_ADDR : UNSIGNED; (* component address *) END; (*** MODULE $RMEDEF ***) CONST RME$C_SETRFM = 1; RME$C_PPFECHO = 2; RME$C_SETRCF = 3; RME$C_KEEP_LOCK_ON = 4; RME$C_KEEP_LOCK_OFF = 5; RME$C_RU_ACE_ON = 6; RME$C_RU_ACE_OFF = 7; RME$C_SET_RECATTR = 8; END.