1 
 2           /*      "telnet_command_dcls.incl.pl1" --                             */
 3 
 4      declare
 5           1 telnet_option_template aligned based,           /* template of info about cur options for user_telnet       */
 6              2 nonlocal_error_return label,
 7              2 nonlocal_error_code fixed binary (35),
 8              2 unique_identifier bit (70),
 9 
10              2 error_identifier character (32) unaligned,
11              2 host_name character (32) unaligned,
12              2 foreign_host fixed binary (16),
13              2 TNIB_padding (14) fixed binary (71),
14 
15              2 icp_info aligned,
16                 3 flags aligned,
17                    4 icp_in_progress bit (1) unaligned,
18                    4 telnet_connection_compatibility bit (1) unaligned,
19                    4 flags_pad bit (34) unaligned,
20                 3 foreign_icp_socket fixed binary (32),
21                 3 local_icp_pin fixed binary (8),
22                 3 icp_timeout fixed binary (17),
23                 3 icp_event_channel fixed binary (71),
24                 3 attach_type character (12) varying,
25                 3 ICP_padding (3) fixed binary (71),
26 
27              2 telnet_connection aligned,
28                 3 telnet_cdb pointer,
29                 3 read_event_channel fixed binary (71),
30                 3 write_event_channel fixed binary (71),
31                 3 protocol_level aligned,
32                    4 protocol_18639 bit (1) unaligned,      /* on if user chose to use new protocol */
33                    4 protocol_9348 bit (1) unaligned,       /* on if user chose to use old protocol */
34                    4 pad_protocol bit (34) unaligned,
35                 3 attach_descr_ptr pointer,
36                 3 open_descr_ptr pointer,
37                 3 TELNET_padding (1) fixed binary (71),
38 
39              2 instance_parms aligned,
40                 3 current_modes aligned,
41                    4 continue_in_telnet bit (1) unaligned,
42                    4 report_protocol_violations bit (1) unaligned,    /* whether or not to report errors      */
43                    4 silence_receive bit (1) unaligned,
44                    4 upper_case bit (1) unaligned,
45                    4 abort_current_command bit (1) unaligned,
46                    4 in_debug_mode bit (1) unaligned,
47                    4 ignore_quits bit (1) unaligned,
48                    4 ignore_protocol_violations bit (1) unaligned,
49                    4 at_interrupt_level bit (1) unaligned,
50                    4 auto_IP_and_AO bit (1) unaligned,      /* send IP and AO on quits, no interaction        */
51                    4 modes_pad bit (26) unaligned,
52 
53                 3 escape_byte bit (9) aligned,
54                 3 escape_char character (1) aligned,
55                 3 INSTANCE_padding (4) fixed binary (71),
56 
57              2 end_of_block_padding (16) fixed binary (71);
58 
59           /* end of "telnet_command_dcls.incl.pl1" --                           */
60