
  TYPE
    clt$application_info = record
      lock: ost$signature_lock,
      identifier: llt$application_identifier,
      nested_identifier: llt$application_identifier,
      library_privilege: ost$name,
      task_link_head: ^clt$block,
      previous_info: ^clt$application_info,
      application_scheduling: boolean,
      application_index: jmt$application_index,
      service_accumulator: jmt$service_accumulator,
      previous_scheduled_block: ^clt$block,
      accumulated_cp_time: pmt$task_cp_time,
      accumulated_paging_stats: ost$paging_statistics,
      unit_info: ^clt$application_unit_info,
      case module_kind: llt$library_module_kind of
      = llc$applic_command_procedure, llc$applic_command_description =
        procedure_cp_time: pmt$task_cp_time,
        procedure_paging_stats: ost$paging_statistics,
      = llc$applic_program_description =
        ,
      = llc$load_module =
        ,
      casend,
    recend;

*copyc clt$block
*copyc clt$application_unit_info
*copyc jmt$application_index
*copyc jmt$service_accumulator
*copyc llt$application_identifier
*copyc ost$name
*copyc ost$paging_statistics
*copyc ost$signature_lock
*copyc pmt$task_cp_time
