
  PROCEDURE [INLINE] pfi$get_create_file_option (
        p_attachment_options: {input} ^fst$attachment_options;
        cycle_reference: fst$cycle_reference;
    VAR create_file: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      options_index: ost$positive_integers;

    IF p_attachment_options <> NIL THEN
      FOR options_index := 1 TO UPPERBOUND (p_attachment_options^) DO
        IF p_attachment_options^ [options_index].selector = fsc$create_file THEN
          create_file := p_attachment_options^ [options_index].create_file;
          RETURN;
        IFEND;
      FOREND;
    IFEND;

    create_file := ((cycle_reference.specification <> fsc$high_cycle) AND
          (cycle_reference.specification <> fsc$low_cycle));

  PROCEND pfi$get_create_file_option;

*copyc fst$attachment_options
*copyc fst$cycle_reference
*copyc osd$integer_limits
?? POP ??
