
  PROCEDURE [XREF] pmp$get_program_description (VAR program_description:
    pmt$program_description;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc PMT$PROGRAM_DESCRIPTION
*copyc OST$STATUS
*copyc PME$EXECUTION_EXCEPTIONS
?? POP ??
