
  PROCEDURE [XREF] clp$define_application_menu
    (VAR work_area_ptr: ^SEQ ( * );
         menu_name: ost$status_condition_name;
         module_name: pmt$program_name;
     VAR number_of_classes: cst$max_classes;
     VAR number_of_items: cst$menu_item_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cst$max_classes
*copyc cst$menu_item_number
*copyc ost$status
*copyc ost$status_condition_name
*copyc pmt$program_name
?? POP ??
