
  PROCEDURE [XREF] ocp$get_module_from_wfl
    (    working_file_list: oct$working_file_list;
     VAR module_name: pmt$program_name;
     VAR file_descriptor: ^oct$open_file_list);


?? PUSH (LISTEXT := ON) ??
*copyc oct$working_file_list
*copyc pmt$program_name
?? POP ??
