
  TYPE
    jmt$executing_task_entry=record
      task_name: pmt$program_name,
      task_id: pmt$task_id,
      task_status: pmt$task_status,
    recend;

*copyc PMT$PROGRAM_NAME
*copyc PMT$TASK_ID
*copyc PMT$TASK_STATUS

