
  TYPE
    tmt$signal = record
      originator: ost$global_task_id,
      signal: pmt$signal,
    recend;

*copyc PMT$SIGNAL
*copyc OST$GLOBAL_TASK_ID
