1 /*----------BEGIN l6_tran_transfer_args.incl.pl1-----------------------------*/
 2 
 3 /* format: style3,linecom,ifthenstmt,indthenelse,^indnoniterdo,indnoniterend,initcol3,dclind5,idind32 */
 4 
 5 /* Written 9/82 by R.J.C. Kissel */
 6 
 7 /* Input arguments for l6_tran_send/receive_file_. */
 8 
 9 dcl  tiap                            ptr;
10 dcl  transfer_input_args_version_1   char (8) unaligned internal static options (constant) init ("version1");
11 
12 dcl  1 transfer_input_args           aligned based (tiap),
13        2 version                     char (8) unaligned,
14        2 comm_iocbp                  ptr,
15        2 comm_buffer_ptr             ptr,
16        2 comm_buffer_len             fixed bin (21),
17        2 file_iocbp                  ptr,
18        2 file_buffer_ptr             ptr,
19        2 file_buffer_len             fixed bin (21),
20        2 file_type                   fixed bin,
21        2 data_type                   fixed bin,
22        2 tu_size                     fixed bin (21),
23        2 flags                       aligned,
24          3 last_file                 bit (1) unaligned,     /* Input for sending, not used for receiving. */
25          3 prompt_read               bit (1) unaligned,     /* Input for sending, not used for receiving. */
26          3 pad                       bit (34) unaligned;
27 
28 /* Output arguments for l6_tran_send/receive_file_. */
29 
30 dcl  toap                            ptr;
31 dcl  transfer_output_args_version_1  char (8) unaligned internal static options (constant) init ("version1");
32 
33 dcl  1 transfer_output_args          aligned based (toap),
34        2 version                     char (8) unaligned,
35        2 record_number               fixed bin,
36        2 total_bytes                 fixed bin (35),
37        2 flags                       aligned,
38          3 last_file                 bit (1) unaligned,     /* Output from receive, not used by send. */
39          3 pad                       bit (35) unaligned;
40 
41 /*----------END l6_tran_transfer_args.incl.pl1-------------------------------*/