

  PROCEDURE [XREF] pmp$disestablish_segment_access
    (    common_block: pmt$program_name;
     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 ost$status
*copyc pme$execution_exceptions
*copyc pmt$program_name

?? POP ??
