! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %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
    
    
    ! 
    !  EVAX Global symbol definition record (EGSD)
    ! 
      DECLARE LONG CONSTANT EGSD$K_ENTRIES = 2  ! Offset to first entry in record 
      DECLARE LONG CONSTANT EGSD$C_ENTRIES = 2  ! Offset to first entry in record 
      DECLARE LONG CONSTANT EGSD$C_PSC = 0  ! Psect definition 
      DECLARE LONG CONSTANT EGSD$C_SYM = 1  ! Symbol specification 
      DECLARE LONG CONSTANT EGSD$C_IDC = 2  ! Random entity check 
      DECLARE LONG CONSTANT EGSD$C_SPSC = 5  ! Shareable image psect definition 
      DECLARE LONG CONSTANT EGSD$C_SYMV = 6  ! Vectored (dual-valued) versions of SYM,
      DECLARE LONG CONSTANT EGSD$C_SYMM = 7  ! Masked versions of SYM,
      DECLARE LONG CONSTANT EGSD$C_SYMG = 8  ! EGST - gst version of SYM
      DECLARE LONG CONSTANT EGSD$C_PSC64 = 9  ! Psect with 64-bit length
      DECLARE LONG CONSTANT EGSD$C_SPSC64 = 10  ! Shareable image psect definition w/64b len/base
      DECLARE LONG CONSTANT EGSD$C_MAXRECTYP = 10  ! Maximum entry type defined 
      DECLARE LONG CONSTANT EGSD$S_EGSDEF = 12
      record EGSDEF
         WORD EGSD$W_RECTYP                 ! Record type (OBJ$C_GSD) 
         WORD EGSD$W_RECSIZ                 ! Size of theis EVAX EGSD
         LONG EGSD$L_ALIGNLW                ! Insure that subrecords are QW aligned
         WORD EGSD$W_GSDTYP                 ! Type of entry (first byte of entry) 
         WORD EGSD$W_GSDSIZ                 ! Size of this entry 
      end record EGSDEF