
  TYPE
    jmt$qfile_attribute_results = array [1 .. * ] of ^array [1 .. * ] of
          jmt$qfile_attribute_result;

  TYPE
    jmt$qfile_attribute_result = record
      case key: jmt$attribute_keys of
      = jmc$application_attributes_1, jmc$application_attributes_2,
            jmc$application_attributes_3, jmc$application_attributes_4,
            jmc$application_attributes_5, jmc$application_attributes_6,
            jmc$application_attributes_7, jmc$application_attributes_8,
            jmc$application_attributes_9, jmc$application_attributes_10 =
        application_attributes: jmt$qfile_application_attrs,
      = jmc$application_name =
        application_name: ost$name,
      = jmc$application_status =
        application_status: ^ost$status,
      = jmc$control_family =
        control_family: ost$name,
      = jmc$control_user =
        control_user: ost$name,
      = jmc$data_mode =
        data_mode: jmt$data_mode,
      = jmc$deferred_by_application =
        deferred_by_application: boolean,
      = jmc$deferred_by_operator =
        deferred_by_operator: boolean,
      = jmc$deferred_by_user =
        deferred_by_user: boolean,
      = jmc$destination =
        destination: ost$name,
      = jmc$earliest_run_time =
        earliest_run_time: jmt$date_time,
      = jmc$latest_run_time =
        latest_run_time: jmt$date_time,
      = jmc$login_family =
        login_family: ost$name,
      = jmc$login_user =
        login_user: ost$name,
      = jmc$null_attribute =
        ,
      = jmc$purge_delay =
        purge_delay: ^jmt$time_increment,
      = jmc$qfile_state =
        qfile_state: jmt$qfile_state,
      = jmc$remote_host_directive =
        remote_host_directive: ^jmt$remote_host_directive,
      = jmc$system_file_name =
        system_file_name: jmt$system_supplied_name,
      casend,
    recend;

*copyc jmt$attribute_keys
*copyc jmt$data_mode
*copyc jmt$date_time
*copyc jmt$qfile_application_attrs
*copyc jmt$qfile_state
*copyc jmt$remote_host_directive
*copyc jmt$system_supplied_name
*copyc jmt$time_increment
*copyc ost$name
