
 PROCEDURE [XREF] cmp$dummy_up_pp
  (VAR element_reservation: ARRAY [1 .. *] OF cmt$element_reservation;
   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 ??
