! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %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
    
    
    ! 
    !  Create options table
    ! 
      DECLARE LONG CONSTANT CRE$C_VMSV2 = 2  !  VMS version V04-000 format 
      DECLARE LONG CONSTANT CRE$C_VMSV3 = 3  !  VMS version 3 format 
      DECLARE LONG CONSTANT CRE$C_VMSV4 = 4  !  VMS version 4 format for an ELF files.
      DECLARE LONG CONSTANT CRE$C_VMSV5 = 5  !  VMS version 5 format for an ELF files.
      DECLARE LONG CONSTANT CRE$C_VMSV6 = 6  !  VMS version 6 format for an ELF files.
      DECLARE LONG CONSTANT CRE$M_NOCASECMP = x'00000001'
      DECLARE LONG CONSTANT CRE$M_NOCASENTR = x'00000002'
      DECLARE LONG CONSTANT CRE$M_UPCASNTRY = x'00000004'
      DECLARE LONG CONSTANT CRE$C_HLPCASING = 6  !  Treat upper casing as it is for HELP libs 
      DECLARE LONG CONSTANT CRE$C_OBJCASING = 3  !  Treat upper casing as it is for OBJECT libs 
      DECLARE LONG CONSTANT CRE$C_MACTXTCAS = 0  !  Treat upper casing as it is for MACRO and TEXT libs 
      DECLARE LONG CONSTANT CRE$K_LENGTH = 80  !  
      DECLARE LONG CONSTANT CRE$C_LENGTH = 80  !  
      DECLARE LONG CONSTANT CRE$S_CREDEF = 80
      record CREDEF
         LONG CRE$L_TYPE                    !  Type of library 
    !   (library types defined in $LBRDEF)
         LONG CRE$L_KEYLEN                  !  Length of keys in library 
         LONG CRE$L_ALLOC                   !  Initial file allocation 
         LONG CRE$L_IDXMAX                  !  Maximum number of indices 
         LONG CRE$L_UHDMAX                  !  Size of additional module header data 
         LONG CRE$L_ENTALL                  !  Number of index entries to pre-allocate 
         LONG CRE$L_LUHMAX                  !  Number of library update history records to store 
         LONG CRE$L_VERTYP                  !  Version type of library to create 
         group CRE$R_IDXOPT_OVERLAY
            variant
               case
                  LONG CRE$L_IDXOPT         !  Index options 
               case
                  group CRE$R_IDXOPT_BITS
                      !  Do not upper case the match key 
                      !  Do not upper case the index key when comparing with a match key 
                      !  Upper case the index key when entering it into the library 
                     BYTE NOCASECMP_bits   ! COMMENT ADDED BY SDL - NOCASECMP_bits contains bits NOCASECMP through FILL_4_
                  end group CRE$R_IDXOPT_BITS
            end variant
         end group CRE$R_IDXOPT_OVERLAY
         LONG CREDEF$$_FILL_1 ( 1 to 11 )      !  Reserved 11 longwords 
      end record CREDEF