

  PROCEDURE [XREF] pmp$open_common_block_file
    (    file: fst$file_reference;
         common_block: pmt$program_name;
     VAR segment_pointer: amt$segment_pointer;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amc$condition_code_limits
*copyc ame$access_validation_errors
*copyc ame$improper_file_id
*copyc ame$ring_validation_errors
*copyc ame$segment_validation_errors
*copyc amt$segment_pointer
*copyc fst$file_reference
*copyc ost$status
*copyc pme$execution_exceptions
*copyc pmt$program_name

?? POP ??
