
  PROCEDURE [XREF] nfp$send_batch_file (
        connection_fid: amt$file_identifier;
        connection_file_name: fst$file_reference;
        file_name: jmt$system_supplied_name;
        local_file_name: amt$local_file_name;
        facilities: nft$facility_group;
        transfer_mode: nft$transfer_modes;
        block_size: nft$block_size;
        min_timeout: nft$timeout;
        protocol_version: nft$parameter_00_values;
        destination_usage: jmt$destination_usage;
        queue_file_password: jmt$queue_file_password;
        disposition_code: nft$parameter_17_definition;
        activate_protocol_trace: boolean;
    VAR file_position: jmt$output_file_position;
    VAR protocol_state_consistent: boolean;
    VAR transfer_status: ost$status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$local_file_name
*copyc jmt$destination_usage
*copyc jmt$disposition_code
*copyc jmt$output_file_position
*copyc jmt$queue_file_password
*copyc jmt$system_supplied_name
*copyc nft$parameter_00_values
*copyc nft$parameter_17_definition
*copyc nft$transfer_declarations
*copyc nft$transfer_modes
*copyc ost$status
?? POP ??

