  PROCEDURE [XREF] ocp$obtain_library_list
    (VAR module_description: oct$module_description;
         changed_info: ^oct$changed_info;
     VAR library_list: oct$name_list;
         retain: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc occ$retain
*copyc oct$changed_info
*copyc oct$module_description
*copyc oct$name_list
*copyc ost$status
?? POP ??
