
  TYPE
    jmt$qfile_status_updates = array [1 .. * ] of jmt$qfile_status_update;

  TYPE
    jmt$qfile_status_update = 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_status =
        application_status: ^ost$status,
      = jmc$null_attribute =
        ,
      casend,
    recend;

*copyc jmt$qfile_application_attrs
*copyc jmt$attribute_keys
