 TYPE
    cmt$mainframe_definition = record
      case kind: cmt$mainframe_type of
      = cmc$cyber_180_mainframe =
        c180_connection: cmt$radial_interface,
      = cmc$cyber_170_mainframe =
        ,
      = cmc$cyber_200_mainframe =
        ,
      = cmc$non_cdc_mainframe =
        ,
      casend,
    recend,
    cmt$mainframe_type = (cmc$cyber_180_mainframe, cmc$cyber_170_mainframe,
      cmc$cyber_200_mainframe, cmc$non_cdc_mainframe);

*copyc cmt$radial_interface
