 PROCEDURE [XREF] cmp$execute_pp_program (VAR program_description:
    {input, output} array [1 .. * ] OF cmt$pp_program_description;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$pp_program_description
*copyc ost$status
?? POP ??
