
  TYPE
    fst$catalog_information = record
      case file_registered_in_catalog: boolean of
      = TRUE =
        file_registration: fst$file_registration_info,
        case cycle_registered_in_catalog: boolean of
        = TRUE =
          cycle_registration: fst$cycle_registration_info,
        = FALSE =
          ,
        casend,

      = FALSE =
        ,
      casend,
    recend;

*copyc fst$cycle_registration_info
*copyc fst$file_registration_info
