PROCEDURE [XREF] csp$set_menu (menu_classes: cst$menu_class;
     menu_list: cst$menu_list; VAR status: ost$status);
*copyc cst$menu_class
*copyc cst$menu_list
*copyc ost$status
