
  PROCEDURE [XREF] pmp$update_program_description
    (    new_program_description: pmt$program_description);

?? PUSH (LISTEXT := ON) ??
*copyc pmt$program_description
?? POP ??
