! *** 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
    
    
    ! 
    !  FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE.
    ! 
      DECLARE LONG CONSTANT DMT$M_NOUNLOAD = x'00000001'
      DECLARE LONG CONSTANT DMT$M_UNIT = x'00000002'
      DECLARE LONG CONSTANT DMT$M_ABORT = x'00000004'
      DECLARE LONG CONSTANT DMT$M_CLUSTER = x'00000008'
      DECLARE LONG CONSTANT DMT$M_UNLOAD = x'00000010'
      DECLARE LONG CONSTANT DMT$M_OVR_CHECKS = x'00000020'
      DECLARE LONG CONSTANT DMT$M_CHECK_ONLY = x'00000040'
      DECLARE LONG CONSTANT DMT$M_REMOTE = x'00000080'
      DECLARE LONG CONSTANT DMT$M_MINICOPY_REQUIRED = x'00000100'
      DECLARE LONG CONSTANT DMT$M_MINICOPY_OPTIONAL = x'00000200'
      DECLARE LONG CONSTANT DMT$M_FORCE = x'00000400'
      DECLARE LONG CONSTANT DMT$S_DMTDEF = 2
      record DMTDEF
         variant
            case
               group DMT$R_DMTDEF_BITS
                   !  DO NOT UNLOAD (SPIN DOWN) THE VOLUME 
                   !  DISMOUNT ONLY THE SPECIFIED VOLUME 
                   !  FORCED DISMOUNT	
                   !  CLUSTER-WIDE DISMOUNT
                   !  EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD)
                   !  OVERRIDE OPEN FILE CHECKS
                   !  CHECK ONLY FOR OPEN FILES - DON'T DISMOUNT
                   !  CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR
                   !  BITMAP REQUIRED
                   !  BITMAP OPTIONAL
                   !  FORCE dismount of SSM
                  WORD NOUNLOAD_bits   ! COMMENT ADDED BY SDL - NOUNLOAD_bits contains bits NOUNLOAD through FILL_117_
               end group DMT$R_DMTDEF_BITS
         end variant
      end record DMTDEF