
  TYPE
    lgt$open_log_file_descriptor = record
      log_file_identifier: lgt$log_file_identifier,
      backward: ^lgt$open_log_file_descriptor,
      forward: ^lgt$open_log_file_descriptor,
      open_ring: ost$valid_ring,
      log_data: ^SEQ ( * ),
      case active_log: boolean of
      = TRUE =
        log: pmt$logs,
        global_log: boolean,
        log_cycle: lgt$log_cycle,
      = FALSE =
        bam_file_identifier: amt$file_identifier,
        file_reference: fst$path,
      casend,
    recend;

*copyc amt$file_identifier
*copyc fst$path
*copyc lgt$log_cycle
*copyc lgt$log_file_identifier
*copyc osd$virtual_address
*copyc pmt$logs

