
  TYPE
    jmt$qfile_attribute_options = array [1 .. * ] of
          jmt$qfile_attribute_option;

  TYPE
    jmt$qfile_attribute_option = record
      case key: jmt$attribute_keys of
      = jmc$application_name =
        application_name: ost$name,
      = jmc$null_attribute =
        ,
      = jmc$continue_request_to_servers =
        continue_request_to_servers: boolean,
      = 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$qfile_state_set =
        qfile_state_set: jmt$qfile_state_set,
      = jmc$system_supplied_name_list =
        system_supplied_name_list: ^jmt$system_supplied_name_list,
      casend,
      recend;

*copyc jmt$attribute_keys
*copyc jmt$qfile_state_set
*copyc jmt$system_supplied_name_list
*copyc ost$name
*copyc ost$user_identification
