
  TYPE
    nft$qtf_input_accounting_data = record
      origin_mainframe_name: ost$name,
      dest_mainframe_name: ost$name,
      file_size: amt$file_length,
    recend;

*copyc amt$file_length
*copyc ost$name
