! *** 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
    
    
    ! +
    ! 
    !  Object Indictment Definitions
    ! 
    !  This file is in [STARLET] to allow other outside developers call the
    !  sys$indict_object call properly.  Today the only group who calls that
    !  object is Compaq Analyze.
    ! 
    !  **** NOTE ****
    ! 
    !         New items must always be added to the END of each item list
    !         so that users will not have to relink.
    ! 
    ! -
      DECLARE LONG CONSTANT INDICT$_VERSION = 1  !  Request information version
      DECLARE LONG CONSTANT INDICT$_OBJTYPE = 2  !  Indictment Object type
      DECLARE LONG CONSTANT INDICT$_HANDLE = 3  !  Indicted object or failing PFN Page
      DECLARE LONG CONSTANT INDICT$_COMPONENT_ID = 4  !  Component Handle ID
      DECLARE LONG CONSTANT INDICT$_COMPONENT_TYPE = 5  !  Component Handle Type
      DECLARE LONG CONSTANT INDICT$_COMPONENT_SUBTYPE = 6  !  Component Handle Subtype
      DECLARE LONG CONSTANT INDICT$_MODULE_ID = 7  !  Module Handle Id
      DECLARE LONG CONSTANT INDICT$_MODULE_TYPE = 8  !  Module Handle Type
      DECLARE LONG CONSTANT INDICT$_MODULE_SUBTYPE = 9  !  Module Handle Subtype
      DECLARE LONG CONSTANT INDICT$_URGENCY = 10  !  Urgency of the indictment request
      DECLARE LONG CONSTANT INDICT$_PROBABILITY = 11  !  Probability of correct fault
      DECLARE LONG CONSTANT INDICT$_TOTALINDICTMENTS = 12  !  Total number to be indicted
      DECLARE LONG CONSTANT INDICT$_DESCRIPTION = 13  !  Readable description of the problem
      DECLARE LONG CONSTANT INDICT$_REPORTHANDLE = 14  !  report_handle program name
      DECLARE LONG CONSTANT INDICT$_INITIATOR = 15  !  Who called us (e.g. Compaq Analyze).