

  PROCEDURE [XREF] pmp$close_common_block_file
    (    common_block: pmt$program_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amc$condition_code_limits
*copyc ame$put_program_actions
*copyc ame$ring_validation_errors
*copyc ost$status
*copyc pme$execution_exceptions
*copyc pmt$program_name

?? POP ??
