
  TYPE
    nft$available_file = record
      transfer_initiated: boolean,
      transfer_state: nft$file_transfer_state,
      ntf_local_file_name: amt$local_file_name,
      control_facility: ^nft$control_facility,
      btf_task: ^nft$btf_task,
      back_link: ^nft$available_file,
      link: ^nft$available_file,
      case file_kind: nft$file_kind of
      = nfc$output_file =
       output_descriptor: jmt$output_descriptor,
      = nfc$input_file =
       input_descriptor: jmt$input_descriptor,
      casend,
    recend;

*copyc amt$local_file_name
*copyc jmt$input_descriptor
*copyc jmt$output_descriptor
*copyc nft$btf_task
*copyc nft$control_facility
*copyc nft$file_kind
*copyc nft$file_transfer_state
