

  PROCEDURE [XREF] pmp$remove_entry_point (name: pmt$program_name;
    VAR status {control} : ost$status);
*copyc pmt$program_name
*copyc ost$status
