
{   This definition is used by QTF, SCF, BTF, and NTF.

  TYPE
    nft$application_file_descriptor = record
      q_file_password: jmt$queue_file_password,
      case file_kind: nft$file_kind of
      = nfc$output_file =
        output_descriptor: jmt$output_descriptor,
      = nfc$input_file =
        input_descriptor: jmt$input_descriptor,
      = nfc$generic_file =
        generic_descriptor: nft$generic_descriptor,
      casend,
    recend;

*copyc jmt$input_descriptor
*copyc jmt$output_descriptor
*copyc jmt$queue_file_password
*copyc nft$file_kind
*copyc nft$generic_descriptor
