
  PROCEDURE [INLINE] clp$convert_cyc_ref_to_cyc_sel
    (    fs_cycle_reference: fst$cycle_reference;
     VAR cycle_selector: clt$cycle_selector);

?? PUSH (LISTEXT := ON) ??

    CASE fs_cycle_reference.specification OF
    = fsc$cycle_omitted =
      cycle_selector.specification := clc$cycle_omitted;
      cycle_selector.value.cycle_option := pfc$highest_cycle;
    = fsc$high_cycle =
      cycle_selector.specification := clc$cycle_specified;
      cycle_selector.value.cycle_option := pfc$highest_cycle;
    = fsc$low_cycle =
      cycle_selector.specification := clc$cycle_specified;
      cycle_selector.value.cycle_option := pfc$lowest_cycle;
    = fsc$next_cycle =
      cycle_selector.specification := clc$cycle_next_highest;
      cycle_selector.value.cycle_option := pfc$highest_cycle;
    = fsc$cycle_number =
      cycle_selector.specification := clc$cycle_specified;
      cycle_selector.value.cycle_option := pfc$specific_cycle;
      cycle_selector.value.cycle_number := fs_cycle_reference.cycle_number;
    CASEND;

  PROCEND clp$convert_cyc_ref_to_cyc_sel;

*copyc cld$path_description
*copyc fst$cycle_reference
?? POP ??
