*copyc nft$wait_activity_kind

  TYPE
    nft$wait_activity = record
      case kind: nft$wait_activity_kind of
      = nfc$control_facility_connection =
        cf: ^nft$control_facility,
      = nfc$btfve_task_message =
        btf_task_list: ^nft$btf_task,
      = nfc$title_translation_request =
        dest: ^nft$destination,
      casend,
    recend;

*copyc nft$btf_task
*copyc nft$control_facility
*copyc nft$destination
