! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %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:27:59.64
    ! 
    ! 
    !  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
    ! 
    ! ****
      DECLARE LONG CONSTANT FDL$_FACILITY = 180
      DECLARE LONG CONSTANT FDL$_BADLOGIC = 11800866  ! <internal logic error detected>
      DECLARE LONG CONSTANT FDL$_CLOSEIN = 11800658  ! <error closing ?AS as input> /FAO=1
      DECLARE LONG CONSTANT FDL$_CLOSEOUT = 11800666  ! <error closing ?AS as output> /FAO=1
      DECLARE LONG CONSTANT FDL$_CREATED = 11800691  ! <?AS created> /FAO=1
      DECLARE LONG CONSTANT FDL$_CREATEDSTM = 11801339  ! <?AS has been created in stream format> /FAO=1
      DECLARE LONG CONSTANT FDL$_INSVIRMEM = 11801330  ! <insufficient virtual memory>
      DECLARE LONG CONSTANT FDL$_OPENIN = 11800730  ! <error opening ?AS as input> /FAO=1
      DECLARE LONG CONSTANT FDL$_OPENOUT = 11800738  ! <error opening ?AS as output> /FAO=1
      DECLARE LONG CONSTANT FDL$_READERR = 11800754  ! <error reading ?AS> /FAO=1
      DECLARE LONG CONSTANT FDL$_VALERR = 11801066  ! <specified value is out of legal range>
      DECLARE LONG CONSTANT FDL$_WRITEERR = 11800786  ! <error writing ?AS> /FAO=1
      DECLARE LONG CONSTANT FDL$_FAO_MAX = 5
      DECLARE LONG CONSTANT FDL$_TITLE = 11829259
      DECLARE LONG CONSTANT FDL$_ABKW = 11829264
      DECLARE LONG CONSTANT FDL$_INVDATIM = 11829272
      DECLARE LONG CONSTANT FDL$_MULSEC = 11829280
      DECLARE LONG CONSTANT FDL$_NOQUAL = 11829288
      DECLARE LONG CONSTANT FDL$_NULLPRI = 11829296
      DECLARE LONG CONSTANT FDL$_RFLOC = 11829304
      DECLARE LONG CONSTANT FDL$_VALPRI = 11829312
      DECLARE LONG CONSTANT FDL$_UNQUAKW = 11829320
      DECLARE LONG CONSTANT FDL$_UNSECKW = 11829328
      DECLARE LONG CONSTANT FDL$_WARNING = 11829336
      DECLARE LONG CONSTANT FDL$_ABPRIKW = 11829346
      DECLARE LONG CONSTANT FDL$_CREATE = 11829354
      DECLARE LONG CONSTANT FDL$_FDLERROR = 11829362
      DECLARE LONG CONSTANT FDL$_ILL_ARG = 11829370
      DECLARE LONG CONSTANT FDL$_MULPRI = 11829378
      DECLARE LONG CONSTANT FDL$_OPENFDL = 11829386
      DECLARE LONG CONSTANT FDL$_OUTORDER = 11829394
      DECLARE LONG CONSTANT FDL$_SYNTAX = 11829402
      DECLARE LONG CONSTANT FDL$_UNPRIKW = 11829410
      DECLARE LONG CONSTANT FDL$_INVBLK = 11829418
      DECLARE LONG CONSTANT FDL$_UNKNOWN_TAG = 11829426