
  TYPE
    nft$transfer_status = RECORD
      CASE positive_reply: BOOLEAN OF
      = TRUE =
        file_name: amt$local_file_name,
        CASE access_mode: nft$mode_of_access OF
        = nfc$give =
          file_length: amt$file_length,
        CASEND,
      CASEND,
    RECEND;

*copyc amt$file_length
*copyc amt$local_file_name
*copyc nft$mode_of_access
