
  PROCEDURE [INLINE] pfi$convert_cycle_reference
    (    cycle_reference: fst$cycle_reference;
     VAR cycle_selector: pft$cycle_selector;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    CASE cycle_reference.specification OF
    = fsc$cycle_omitted, fsc$high_cycle, fsc$next_cycle =
      cycle_selector.cycle_option := pfc$highest_cycle;
    = fsc$low_cycle =
      cycle_selector.cycle_option := pfc$lowest_cycle;
    = fsc$cycle_number =
      cycle_selector.cycle_option := pfc$specific_cycle;
      cycle_selector.cycle_number := cycle_reference.cycle_number;
    ELSE
      osp$set_status_condition (fse$system_error, status);
    CASEND;

  PROCEND pfi$convert_cycle_reference;

*copyc fse$system_conditions
*copyc fst$cycle_reference
*copyc pft$cycle_selector
*copyc osp$set_status_condition
?? POP ??
