! *** 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 UTIL$M_CQF_CONFIRM = x'00000001'
      DECLARE LONG CONSTANT UTIL$M_CQF_EXCLUDE = x'00000002'
      DECLARE LONG CONSTANT UTIL$M_CQF_BEFORE = x'00000004'
      DECLARE LONG CONSTANT UTIL$M_CQF_SINCE = x'00000008'
      DECLARE LONG CONSTANT UTIL$M_CQF_CREATED = x'00000010'
      DECLARE LONG CONSTANT UTIL$M_CQF_MODIFIED = x'00000020'
      DECLARE LONG CONSTANT UTIL$M_CQF_EXPIRED = x'00000040'
      DECLARE LONG CONSTANT UTIL$M_CQF_BACKUP = x'00000080'
      DECLARE LONG CONSTANT UTIL$M_CQF_BYOWNER = x'00000100'
      DECLARE LONG CONSTANT UTIL$M_CQF_ACCESSED = x'00000200'
      DECLARE LONG CONSTANT UTIL$M_CQF_ATTRIBUTES = x'00000400'
      DECLARE LONG CONSTANT UTIL$M_CQF_UPDATE_DATA = x'00000800'
      DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_SEARCH = x'00001000'
      DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_TARGET = x'00002000'
      DECLARE LONG CONSTANT UTIL$S_CFQUALS = 4
      record CFQUALS
         group UTIL$R_FLAGS_OVERLAY
            variant
               case
                  group UTIL$L_QUALIFIER_FLAGS
                     LONG CQF_CONFIRM_bits   ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL
                  end group UTIL$L_QUALIFIER_FLAGS
               case
                  group UTIL$R_QF_OVERLAY2
                     LONG CQF_ASSIGNED_bits   ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through  &
 ! CQF_UNASSIGNED
                  end group UTIL$R_QF_OVERLAY2
            end variant
         end group UTIL$R_FLAGS_OVERLAY
      end record CFQUALS
    
    ! 
    !  define prompt parameter values
    ! 
      DECLARE LONG CONSTANT UTIL$K_CQF_UNSPECIFIED = 0
      DECLARE LONG CONSTANT UTIL$K_CQF_SHORT = 1
      DECLARE LONG CONSTANT UTIL$K_CQF_LONG = 2
      DECLARE LONG CONSTANT UTIL$K_CQF_CONDENSED = 1
      DECLARE LONG CONSTANT UTIL$K_CQF_EXPANDED = 2
      DECLARE LONG CONSTANT UTIL$K_CQF_MAX_FORM = 2
    ! 
    !  Flag values output argument
    ! 
      DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_DEFAULT = 0  !  use process default
      DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_NONE = 1  !  use no symlinks
      DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_ALL = 2  !  use symlinks always
      DECLARE LONG CONSTANT UTIL$K_SEARCH_SYMLINK_NOELLIPS = 3  !  use symlinks except in ellipsis
      DECLARE LONG CONSTANT UTIL$M_CQF_SYMLINK_NOTARGET = x'00000004'
      DECLARE LONG CONSTANT UTIL$S_CFVALS = 4
      record CFVALS
         group UTIL$R_FILL_0_
            variant
               case
                  LONG UTIL$L_FLAG_VALUES
               case
                  group UTIL$R_FILL_1_
    !  NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,
    !  $LIBFILDEF, $PPROPDEF, and $NAMLDEF.
                     BYTE CQF_SYMLINK_MODE_bits   ! COMMENT ADDED BY SDL - CQF_SYMLINK_MODE_bits contains bits CQF_SYMLINK_MODE  &
 ! through FILL_2_
                  end group UTIL$R_FILL_1_
            end variant
         end group UTIL$R_FILL_0_
      end record CFVALS
    
    ! 
    !  TO BE REMOVED
      DECLARE LONG CONSTANT LIB$M_CQF_CONFIRM = x'00000001'
      DECLARE LONG CONSTANT LIB$M_CQF_EXCLUDE = x'00000002'
      DECLARE LONG CONSTANT LIB$M_CQF_BEFORE = x'00000004'
      DECLARE LONG CONSTANT LIB$M_CQF_SINCE = x'00000008'
      DECLARE LONG CONSTANT LIB$M_CQF_CREATED = x'00000010'
      DECLARE LONG CONSTANT LIB$M_CQF_MODIFIED = x'00000020'
      DECLARE LONG CONSTANT LIB$M_CQF_EXPIRED = x'00000040'
      DECLARE LONG CONSTANT LIB$M_CQF_BACKUP = x'00000080'
      DECLARE LONG CONSTANT LIB$M_CQF_BYOWNER = x'00000100'
      DECLARE LONG CONSTANT LIB$S_CQUALS = 4
      record CQUALS
         group LIB$R_FLAGS_OVERLAY
            variant
               case
                  group LIB$L_QUALIFIER_FLAGS
                     LONG CQF_CONFIRM_bits   ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL
                  end group LIB$L_QUALIFIER_FLAGS
               case
                  group LIB$R_QF_OVERLAY2
                     LONG CQF_ASSIGNED_bits   ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through  &
 ! CQF_UNASSIGNED
                  end group LIB$R_QF_OVERLAY2
            end variant
         end group LIB$R_FLAGS_OVERLAY
      end record CQUALS