
  PROCEDURE [INLINE] fmp$get_cycle_description
    (    file: fst$file_reference;
     VAR cycle_description: ^fmt$cycle_description;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      evaluated_file_reference: fst$evaluated_file_reference;

    status.normal := TRUE;
    cycle_description := NIL;

    fmp$evaluate_path (file, $bat$process_pt_work_list [bac$resolve_path,
          bac$resolve_to_catalog, bac$return_cycle_description],
          evaluated_file_reference, cycle_description, status);

  PROCEND fmp$get_cycle_description;
*copyc fmp$evaluate_path
?? POP ??

