
  TYPE
    jmt$qfile_status_results = array [1 .. * ] of ^array [1 .. * ] of
          jmt$qfile_status_result;

  TYPE
    jmt$qfile_status_result = record
      case key: jmt$attribute_keys of
      = jmc$application_name =
        application_name: ost$name,
      = jmc$client_mainframe_id =
        client_mainframe_id: pmt$mainframe_id,
      = jmc$control_family =
        control_family: ost$name,
      = jmc$control_user =
        control_user: ost$name,
      = 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$login_family =
        login_family: ost$name,
      = jmc$login_user =
        login_user: ost$name,
      = jmc$null_attribute =
        ,
      = jmc$qfile_state =
        qfile_state: jmt$qfile_state,
      = jmc$system_file_name =
        system_file_name: jmt$system_supplied_name,
      casend,
    recend;

*copyc jmt$attribute_keys
*copyc jmt$qfile_state
*copyc jmt$system_supplied_name
*copyc ost$name
*copyc pmt$mainframe_id
