
  TYPE
    pmt$system_log_entry = packed record
      time: ost$millisecond_time,
      delimiter_1: string (1),
      job_sequence_number: jmt$system_supplied_name,
      delimiter_2: string (1),
      origin: string (2),
      delimiter_3: string (1),
      text: pmt$log_msg_text,
    recend;

*copyc jmt$system_supplied_name
*copyc ost$time
*copyc pmt$log_msg_text

