! *** 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
    
    
    ! +
    !  Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility.
    ! -
      DECLARE LONG CONSTANT USG$K_IDENT = 1  !  Identification record 
      DECLARE LONG CONSTANT USG$K_FILE = 2  !  File record 
      DECLARE LONG CONSTANT USG$K_IDENT_LEN = 61  !  Length of IDENT record 
      DECLARE LONG CONSTANT USG$C_IDENT_LEN = 61  !  Length of IDENT record 
      DECLARE LONG CONSTANT USG$S_USGDEF = 61
      record USGDEF
         BYTE USG$B_TYPE                    !  Record type 
         LONG USG$L_SERIALNUM               !  Pack serial number 
         STRING USG$T_STRUCNAME = 12        !  Volume set name 
         STRING USG$T_VOLNAME = 12          !  Volume name 
         STRING USG$T_OWNERNAME = 12        !  Volume owner name 
         STRING USG$T_FORMAT = 12           !  Volume format type 
    !  *** Preceding same as home block ***
         BASIC$QUADWORD USG$Q_TIME          !  Time usage file created 
      end record USGDEF
    
      DECLARE LONG CONSTANT USG$K_FILE_LEN = 423  !  Maximum length of FILE record 
      DECLARE LONG CONSTANT USG$C_FILE_LEN = 423  !  Maximum length of FILE record 
      DECLARE LONG CONSTANT USG$S_USGDEF1 = 423
      record USGDEF1
         BYTE USGDEF$$_FILL_1
         group USG$R_FILEOWNER_OVERLAY
            variant
               case
                  LONG USG$L_FILEOWNER      !  File owner UIC 
               case
                  group USG$R_FILEOWNER_FIELDS
                     WORD USG$W_UICMEMBER   !  UIC member number 
                     WORD USG$W_UICGROUP    !  UIC group number 
                  end group USG$R_FILEOWNER_FIELDS
            end variant
         end group USG$R_FILEOWNER_OVERLAY
         LONG USG$L_ALLOCATED               !  Blocks allocated, including headers 
         LONG USG$L_USED                    !  Blocks used 
         WORD USG$W_DIR_LEN                 !  Length of directory string 
         WORD USG$W_SPEC_LEN                !  Length of complete file specification 
         STRING USG$T_FILESPEC = 406        !  File spec "[dir]nam.typ;ver" 
      end record USGDEF1