! *** 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
    
    
      DECLARE LONG CONSTANT LMF$_PROD_TOKEN = 1
      DECLARE LONG CONSTANT LMF$_HW_ID = 2
      DECLARE LONG CONSTANT LMF$_PROD_VERSION = 3
      DECLARE LONG CONSTANT LMF$_PROD_DATE = 4
      DECLARE LONG CONSTANT LMF$_CHARGE_TYPE = 5
      DECLARE LONG CONSTANT LMF$_UNITS_IN_USE = 6
      DECLARE LONG CONSTANT LMF$_USERNAME = 7
      DECLARE LONG CONSTANT LMF$_CHECK_TOKEN = 8
      DECLARE LONG CONSTANT LMF$_CHECK_HWID = 9
      DECLARE LONG CONSTANT LMF$_NO_RELEASE = 10
      DECLARE LONG CONSTANT LMF$C_PRDNAMLEN = 24
      DECLARE LONG CONSTANT LMF$K_PRDNAMLEN = 24
      DECLARE LONG CONSTANT LMF$C_PRDUCERLEN = 24
      DECLARE LONG CONSTANT LMF$K_PRDUCERLEN = 24
      DECLARE LONG CONSTANT LMF$C_CONTEXTLEN = 16
      DECLARE LONG CONSTANT LMF$K_CONTEXTLEN = 16
      DECLARE LONG CONSTANT LMF$C_TOKENLEN = 31
      DECLARE LONG CONSTANT LMF$K_TOKENLEN = 31
      DECLARE LONG CONSTANT LMF$C_HW_IDLEN = 31
      DECLARE LONG CONSTANT LMF$K_HW_IDLEN = 31
      DECLARE LONG CONSTANT LMF$C_VERSIONLEN = 4
      DECLARE LONG CONSTANT LMF$K_VERSIONLEN = 4
      DECLARE LONG CONSTANT LMF$K_DATELEN = 8
      DECLARE LONG CONSTANT LMF$C_DATELEN = 8
      DECLARE LONG CONSTANT LMF$M_RETURN_FAILURES = x'00000001'
      DECLARE LONG CONSTANT LMF$M_BROADCAST_FAILURES = x'00000002'
      DECLARE LONG CONSTANT LMF$M_OUTPUT_FAILURES = x'00000004'
      DECLARE LONG CONSTANT LMF$M_KERNEL_GRANT = x'00000008'
      DECLARE LONG CONSTANT LMF$M_LOOKUP_LICENSE_SPARE = x'FFFFFFF0'
      DECLARE LONG CONSTANT LMF$s_dvspm_masks = 4
      record dvspm_masks
          !  return status .vs. signal
          !  do an OPCOM
          !  do a PUTMSG
          !  grant in kernel mode
          !  spare area
         LONG RETURN_FAILURES_bits   ! COMMENT ADDED BY SDL - RETURN_FAILURES_bits contains bits RETURN_FAILURES through  &
 ! LOOKUP_LICENSE_SPARE
      end record dvspm_masks