
  PROCEDURE [INLINE] fsp$evaluate_file_for_creation
    (    file: fst$file_reference;
         command_file_reference_allowed: boolean;
     VAR evaluated_file_reference: fst$evaluated_file_reference;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    CONST
      resolve_cycle_number = TRUE;

    VAR
      ignore_process_pt_results: bat$process_pt_results;

    clp$evaluate_file_reference (file, $clt$file_ref_parsing_options [], NOT resolve_cycle_number,
          evaluated_file_reference, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

    IF (fsp$path_element (^evaluated_file_reference, 1) ^ = fsc$local) AND
          (evaluated_file_reference.cycle_reference.specification <> fsc$cycle_number) THEN
      bap$process_pt_request ($bat$process_pt_work_list [bac$resolve_path],
            osc$null_name, evaluated_file_reference, ignore_process_pt_results,
            status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;
    IFEND;

  PROCEND fsp$evaluate_file_for_creation;

*copyc fsc$local
*copyc fst$evaluated_file_reference
*copyc fst$file_reference
*copyc ost$status

*copyc bap$process_pt_request
*copyc clp$evaluate_file_reference
*copyc fsp$path_element
?? POP ??
