  PROCEDURE [XREF] ocp$obtain_xref_list
    (VAR module_description: oct$module_description;
     VAR xref_list: oct$external_reference_list;
         retain: boolean;
     VAR status: ost$status);

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