
  TYPE
    pft$cycle_reservation = record
      case cycle_reserved: boolean of
      = FALSE =
        ,
      = TRUE =
        reserved_cycle_index: ost$non_negative_integers,
      casend,
    recend;

*copyc ost$non_negative_integers
