
  TYPE
    clt$lock = record
      case state: clt$lock_state of
      = clc$lock_clear =
        ,
      = clc$lock_set, clc$lock_expired =
        set_by_job: jmt$system_supplied_name,
        set_by_task: pmt$task_id,
        expiration_date_time_rel_gmt: ost$date_time,
      casend,
    recend;

*copyc clt$lock_state
*copyc jmt$system_supplied_name
*copyc ost$date_time
*copyc pmt$task_id
