1 
 2 /*            "ftp_user_command_dcls.incl.pl1" --                               */
 3 
 4      declare
 5           1 ftp_option_template aligned based,              /* information about cur option for user_ftp command       */
 6              2 nonlocal_error_return label,
 7              2 nonlocal_error_code fixed binary (35),
 8              2 unique_identifier bit (70) unaligned,
 9              2 unique_name character (16) unaligned,
10 
11              2 error_identifier character (32) unaligned,
12 
13              2 host_name character (32) unaligned,
14              2 foreign_host fixed binary (16),
15              2 TNIB_padding (6) fixed binary (71),
16 
17              2 icp_info aligned,
18                 3 flags aligned,
19                    4 icp_in_progress bit (1) unaligned,
20                    4 telnet_connection_compatibility bit (1) unaligned,
21                 3 foreign_icp_socket fixed binary (32),
22                 3 local_icp_pin fixed binary (8),
23                 3 icp_timeout fixed binary (17),
24 
25              2 instance_parms aligned,
26                 3 user_ftp_adb pointer,                     /* attach data block for user_ftp_ subsys         */
27                 3 current_modes aligned,
28                    4 report_protocol_violations bit (1) unaligned,    /* whether or not to report errors      */
29                    4 abort_current_command bit (1) unaligned,
30                    4 in_debug_mode bit (1) unaligned,
31                    4 ignore_quits bit (1) unaligned,
32                    4 ignore_protocol_violations bit (1) unaligned,
33                    4 at_interrupt_level bit (1) unaligned,
34                    4 continue_in_ftp bit (1) unaligned,
35                    4 print_reply_messages bit (1) unaligned,
36                    4 padding bit (28) unaligned,
37 
38                 3 INSTANCE_padding (4) fixed binary (71),
39 
40              2 ftp_params aligned,
41                 3 ftp_iocb_ptr pointer,
42                 3 ftp_read_bytesize fixed binary (24),
43                 3 ftp_write_bytesize fixed binary (24),
44                 3 num_bits_transferred fixed binary (24),
45                 3 FTP_PARAM_padding (2 : 4) fixed binary (71),
46                 3 ftp_current_modes aligned,
47                    4 protocol_17759 bit (1) unaligned,      /* on if using FTP Protocol per NIC 17759         */
48                 3 ftp_user_params aligned,                            /* params as requested by user          */
49                    4 transfer_byte_size fixed binary (8),                       /* 1 - 255                    */
50                    4 representation_type character (1) unaligned,               /* ASCII Image Local EBCDIC   */
51                    4 format character (1) unaligned,                            /* Unformatted Print          */
52                    4 structure character (1) unaligned,                         /* File Record                */
53                    4 transfer_mode character (1) unaligned,                     /* Stream Text Block Hasp     */
54                 3 FTP_padding (4) fixed binary (71),
55 
56              2 end_of_block_padding (16) fixed binary (71);
57 
58 /*        end of "ftp_user_command_dcls.incl.pl1 --                             */
59