
{ This constant is the maximum size of the application_attributes field
{ in the qfile system label. It is calculated as follows.
{   (10 * SIZE (jmt$attribute_keys))
{ + (10 * SIZE (jmt$qfile_appl_attr_size))
{ + (jmc$max_qfile_appl_attr_size)

  CONST
    jmc$qsl_appl_attr_contents_size = 10040;

  TYPE
    jmt$qsl_appl_attr_contents_size = 0 .. jmc$qsl_appl_attr_contents_size;

  TYPE
    jmt$qsl_appl_attr_contents = SEQ (REP jmc$qsl_appl_attr_contents_size of cell);

  TYPE
    jmt$qfile_system_label = record
      data_mode: jmt$data_mode,
      deferred_by_application: boolean,
      deferred_by_operator: boolean,
      deferred_by_user: boolean,
      destination: ost$name,
      disposition_time: jmt$date_time,
      earliest_run_time: jmt$date_time,
      latest_run_time: jmt$date_time,
      login_user_identification: ost$user_identification,
      qfile_controller: ost$user_identification,
      application_name: ost$name,
      purge_delay: jmt$time_increment,
      remote_host_directive: jmt$remote_host_directive,
      system_file_name: jmt$system_supplied_name,
      application_status: ost$status,
      application_attributes: jmt$qsl_appl_attr_contents,
    recend;

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