! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF ! ! This SDL File Generated by VAX-11 Message V04-00 on 9-MAR-2021 22:26:46.01 ! ! ! 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 ! -- DECLARE LONG CONSTANT 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. ! - DECLARE LONG CONSTANT FAL$_OFFSET_A = 1024 ! MICCODE = 0000 (OCTAL) DECLARE LONG CONSTANT FAL$_DAPFAIL = 33005572 DECLARE LONG CONSTANT FAL$_RMSABO = 33005580 ! MICCODE = 0011 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSAST = 33005644 DECLARE LONG CONSTANT FAL$_RMSBPA = 33005652 DECLARE LONG CONSTANT FAL$_RMSBPS = 33005660 ! MICCODE = 0026 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSCLS = 33005748 ! MICCODE = 0056 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSFID = 33005940 ! MICCODE = 0071 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSINI = 33006028 ! MICCODE = 0102 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSLBL = 33006100 DECLARE LONG CONSTANT FAL$_RMSLBY = 33006108 DECLARE LONG CONSTANT FAL$_RMSLCH = 33006116 ! MICCODE = 0106 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSLOC = 33006132 DECLARE LONG CONSTANT FAL$_RMSMAP = 33006140 ! MICCODE = 0115 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSNID = 33006188 ! MICCODE = 0117 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSOPN = 33006204 ! MICCIDE = 0124 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSPRM = 33006244 ! MICCODE = 0153 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSSTK = 33006428 ! MICCODE = 0162 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSVOL = 33006484 ! MICCODE = 0170 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSCAA = 33006532 ! MICCODE = 0231 (OCTAL) DECLARE LONG CONSTANT FAL$_RMSBLK = 33006796 DECLARE LONG CONSTANT FAL$_RMSBSZ = 33006804 DECLARE LONG CONSTANT FAL$_RMSCDR = 33006812 DECLARE LONG CONSTANT FAL$_RMSCGJ = 33006820 DECLARE LONG CONSTANT FAL$_RMSCOF = 33006828 DECLARE LONG CONSTANT FAL$_RMSJFN = 33006836 DECLARE LONG CONSTANT FAL$_RMSPEF = 33006844 DECLARE LONG CONSTANT FAL$_RMSTRU = 33006852 DECLARE LONG CONSTANT FAL$_RMSUDF = 33006860 DECLARE LONG CONSTANT FAL$_RMSXCL = 33006868 DECLARE LONG CONSTANT FAL$_DAPDIRFUL = 33006876 DECLARE LONG CONSTANT FAL$_FCSHWR = 33006884 DECLARE LONG CONSTANT FAL$_FCSFHE = 33006892 DECLARE LONG CONSTANT FAL$_DAPWRTEOF = 33006900 DECLARE LONG CONSTANT FAL$_FCSONP = 33006908 DECLARE LONG CONSTANT FAL$_FCSDNA = 33006916 DECLARE LONG CONSTANT FAL$_FCSDAA = 33006924 DECLARE LONG CONSTANT FAL$_FCSDUN = 33006932 DECLARE LONG CONSTANT FAL$_FCSRSU = 33006940 DECLARE LONG CONSTANT FAL$_FCSOVR = 33006948 DECLARE LONG CONSTANT FAL$_FCSBCC = 33006956 DECLARE LONG CONSTANT FAL$_FCSNOD = 33006964 DECLARE LONG CONSTANT FAL$_FCSIFU = 33006972 DECLARE LONG CONSTANT FAL$_FCSHFU = 33006980 DECLARE LONG CONSTANT FAL$_FCSWAC = 33006988 DECLARE LONG CONSTANT FAL$_FCSCKS = 33006996 DECLARE LONG CONSTANT FAL$_FCSWAT = 33007004 DECLARE LONG CONSTANT FAL$_FCSALN = 33007012 DECLARE LONG CONSTANT FAL$_FCSBTF = 33007020 DECLARE LONG CONSTANT FAL$_FCSILL = 33007028 DECLARE LONG CONSTANT FAL$_FCS2DV = 33007036 DECLARE LONG CONSTANT FAL$_FCSFEX = 33007044 DECLARE LONG CONSTANT FAL$_FCSRNM = 33007052 DECLARE LONG CONSTANT FAL$_FCSFOP = 33007060 DECLARE LONG CONSTANT FAL$_FCSVER = 33007068 DECLARE LONG CONSTANT FAL$_FCSEOV = 33007076 DECLARE LONG CONSTANT FAL$_FCSDAO = 33007084 DECLARE LONG CONSTANT FAL$_FCSBBE = 33007092 DECLARE LONG CONSTANT FAL$_FCSEOT = 33007100 DECLARE LONG CONSTANT FAL$_FCSNBF = 33007108 DECLARE LONG CONSTANT FAL$_FCSNBK = 33007116 DECLARE LONG CONSTANT FAL$_FCSNST = 33007124 DECLARE LONG CONSTANT FAL$_FCSULK = 33007132 DECLARE LONG CONSTANT FAL$_FCSNLN = 33007140 DECLARE LONG CONSTANT FAL$_FCSSRE = 33007148 ! MICCODE = 0311 (OCTAL) DECLARE LONG CONSTANT FAL$_DAPQUOEXC = 33007180 ! MICCODE = 0346 (OCTAL) DECLARE LONG CONSTANT FAL$_DAPDIRCAF = 33007412 DECLARE LONG CONSTANT FAL$_DAPDIRCRA = 33007420 DECLARE LONG CONSTANT FAL$_DAPDIRPRO = 33007428 DECLARE LONG CONSTANT FAL$_DAPDIRPRA = 33007436 DECLARE LONG CONSTANT FAL$_DAPDIRNFA = 33007444 DECLARE LONG CONSTANT FAL$_DAPDIRCON = 33007452 ! MICCODE = 0416 (OCTAL) DECLARE LONG CONSTANT FAL$_TENFILMOD = 33007732 DECLARE LONG CONSTANT FAL$_TENDEVNA = 33007740 DECLARE LONG CONSTANT FAL$_TENDEVNF = 33007748 DECLARE LONG CONSTANT FAL$_TENPARALL = 33007756 DECLARE LONG CONSTANT FAL$_TENBNFREE = 33007764 DECLARE LONG CONSTANT FAL$_TENCSDF = 33007772 DECLARE LONG CONSTANT FAL$_TENCDDF = 33007780 DECLARE LONG CONSTANT FAL$_TENSFDNF = 33007788 DECLARE LONG CONSTANT FAL$_TENSLE = 33007796 DECLARE LONG CONSTANT FAL$_TENSFDCNT = 33007804 DECLARE LONG CONSTANT FAL$_TENNCESL = 33007812 DECLARE LONG CONSTANT FAL$_TENCUPFIL = 33007820 DECLARE LONG CONSTANT FAL$_TENNETCAP = 33007828 DECLARE LONG CONSTANT FAL$_TENTSKNA = 33007836 DECLARE LONG CONSTANT FAL$_TENNODNF = 33007844 DECLARE LONG CONSTANT FAL$_TENSFDREN = 33007852 DECLARE LONG CONSTANT FAL$_TENCDFNDR = 33007860 DECLARE LONG CONSTANT FAL$_TENJCREAD = 33007868 DECLARE LONG CONSTANT FAL$_TENRENSFD = 33007876 DECLARE LONG CONSTANT FAL$_TENDEVDWN = 33007884 DECLARE LONG CONSTANT FAL$_TENDEVRES = 33007892 DECLARE LONG CONSTANT FAL$_TENDEVMDA = 33007900 DECLARE LONG CONSTANT FAL$_TENDEVALL = 33007908 DECLARE LONG CONSTANT FAL$_TENILLDM = 33007916 DECLARE LONG CONSTANT FAL$_TENLPTPAG = 33007924 DECLARE LONG CONSTANT FAL$_TENLPTVFU = 33007932 DECLARE LONG CONSTANT FAL$_TENLPTCHR = 33007940 DECLARE LONG CONSTANT FAL$_TENLPTRAM = 33007948 DECLARE LONG CONSTANT FAL$_TENFILSPC = 33007956 ! MICCODE = 0453 (OCTAL) DECLARE LONG CONSTANT FAL$_TENNSNOD = 33007964 DECLARE LONG CONSTANT FAL$_TENANODI = 33007972 DECLARE LONG CONSTANT FAL$_TENSNODI = 33007980 DECLARE LONG CONSTANT FAL$_TENNSDEV = 33007988 DECLARE LONG CONSTANT FAL$_TENADEVI = 33007996 DECLARE LONG CONSTANT FAL$_TENSDEVI = 33008004 DECLARE LONG CONSTANT FAL$_TENNSDIR = 33008012 DECLARE LONG CONSTANT FAL$_TENADIRI = 33008020 DECLARE LONG CONSTANT FAL$_TENSDIRI = 33008028 DECLARE LONG CONSTANT FAL$_TENNSFIL = 33008036 DECLARE LONG CONSTANT FAL$_TENAFILI = 33008044 DECLARE LONG CONSTANT FAL$_TENSFILI = 33008052 DECLARE LONG CONSTANT FAL$_TENAFILR = 33008060 DECLARE LONG CONSTANT FAL$_TENSFILR = 33008068 ! MICCODE = 475 (OCTAL) DECLARE LONG CONSTANT FAL$_DTFFALSHT = 33008108 DECLARE LONG CONSTANT FAL$_DTFNOFIL = 33008116 DECLARE LONG CONSTANT FAL$_DTFNOREC = 33008124 DECLARE LONG CONSTANT FAL$_DTFNOTREG = 33008132 DECLARE LONG CONSTANT FAL$_DTFOPRABO = 33008140 ! MICCODE = 504 (OCTAL) DECLARE LONG CONSTANT 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. ! - DECLARE LONG CONSTANT FAL$_OFFSET_B = 2048 ! MICCODE = 0222 (OCTAL) DECLARE LONG CONSTANT FAL$_ORG = 33014932 DECLARE LONG CONSTANT FAL$_RFM = 33014940 DECLARE LONG CONSTANT FAL$_RAT = 33014948 DECLARE LONG CONSTANT FAL$_BLS = 33014956 DECLARE LONG CONSTANT FAL$_MRS = 33014964 DECLARE LONG CONSTANT FAL$_ALQ1 = 33014972 DECLARE LONG CONSTANT FAL$_BKS = 33014980 DECLARE LONG CONSTANT FAL$_FSZ = 33014988 DECLARE LONG CONSTANT FAL$_MRN = 33014996 ! MICCODE = 0234 (OCTAL) DECLARE LONG CONSTANT FAL$_DEQ1 = 33015012 DECLARE LONG CONSTANT FAL$_FOP1 = 33015020 ! MICCODE = 0241 (OCTAL) DECLARE LONG CONSTANT FAL$_LRL = 33015052 ! MICCODE = 0320 (OCTAL) DECLARE LONG CONSTANT FAL$_ACCFUNC = 33015428 ! MICCODE = 0323 (OCTAL) DECLARE LONG CONSTANT FAL$_FAC = 33015452 DECLARE LONG CONSTANT FAL$_SHR = 33015460 ! MICCODE = 0420 (OCTAL) DECLARE LONG CONSTANT FAL$_CTLFUNC = 33015940 ! MICCODE = 0422 (OCTAL) DECLARE LONG CONSTANT FAL$_RAC = 33015956 DECLARE LONG CONSTANT FAL$_KEY = 33015964 DECLARE LONG CONSTANT FAL$_KRF = 33015972 DECLARE LONG CONSTANT FAL$_ROP = 33015980 ! MICCODE = 0520 (OCTAL) DECLARE LONG CONSTANT FAL$_CONFUNC = 33016452 ! MICCODE = 0720 (OCTAL) DECLARE LONG CONSTANT FAL$_CMPFUNC = 33017476 DECLARE LONG CONSTANT FAL$_FOP2 = 33017484 ! MICCODE = 1221 (OCTAL) DECLARE LONG CONSTANT FAL$_FLG = 33019020 DECLARE LONG CONSTANT FAL$_DFL = 33019028 DECLARE LONG CONSTANT FAL$_IFL = 33019036 ! MICCODE = 1225 (OCTAL) DECLARE LONG CONSTANT FAL$_POS = 33019052 DECLARE LONG CONSTANT FAL$_SIZ = 33019060 DECLARE LONG CONSTANT FAL$_REF = 33019068 DECLARE LONG CONSTANT FAL$_KNM = 33019076 DECLARE LONG CONSTANT FAL$_NUL = 33019084 DECLARE LONG CONSTANT FAL$_IAN = 33019092 DECLARE LONG CONSTANT FAL$_LAN = 33019100 DECLARE LONG CONSTANT FAL$_DAN = 33019108 DECLARE LONG CONSTANT FAL$_DTP = 33019116 ! MICCODE = 1321 (OCTAL) DECLARE LONG CONSTANT FAL$_VOL = 33019532 DECLARE LONG CONSTANT FAL$_ALN = 33019540 DECLARE LONG CONSTANT FAL$_AOP = 33019548 DECLARE LONG CONSTANT FAL$_LOC = 33019556 ! MICCODE = 1326 (OCTAL) DECLARE LONG CONSTANT FAL$_ALQ2 = 33019572 DECLARE LONG CONSTANT FAL$_AID = 33019580 DECLARE LONG CONSTANT FAL$_BKZ = 33019588 DECLARE LONG CONSTANT FAL$_DEQ2 = 33019596 ! MICCODE = 1521 (OCTAL) DECLARE LONG CONSTANT FAL$_CDT = 33020556 DECLARE LONG CONSTANT FAL$_RDT = 33020564 DECLARE LONG CONSTANT FAL$_EDT = 33020572 DECLARE LONG CONSTANT FAL$_RVN = 33020580 ! MICCODE = 1621 (OCTAL) DECLARE LONG CONSTANT FAL$_OWNER = 33021068 DECLARE LONG CONSTANT FAL$_PROTSYS = 33021076 DECLARE LONG CONSTANT FAL$_PROTOWN = 33021084 DECLARE LONG CONSTANT FAL$_PROTGRP = 33021092 DECLARE LONG CONSTANT FAL$_PROTWLD = 33021100