
  TYPE
    put$selected_cycle = record
      case cycle_specified: boolean of
      = TRUE =
        cycle_selector: pft$cycle_selector,
      = FALSE =
        ,
      casend,
    recend;

*copyc pud$hierarchy_list
