  PROCEDURE [XREF] pmp$record_program_termination
    (    status: ost$status;
         program_termination_mode: pmt$program_termination_mode);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pmt$task_state
?? POP ??
