1 /* Begin include file dial_out_invocation.incl.pl1 */
 2 
 3 /* Written by C. Hornig, April 1982 */
 4 
 5      dcl     dop                    ptr;
 6      dcl     1 do_info              aligned based (dop),
 7                2 ci                 like dial_out_info,     /* user supplied */
 8                2 version            varying char (16),
 9                2 sci_ptr            ptr,                    /* ssu_ info found here */
10                2 abort_label        label,                  /* place to die to */
11                2 fo_iocbp           ptr,                    /* non-null => file output in progress */
12                2 temp_seg_p         ptr,
13                2 match_string_p     ptr,                    /* pts to string to match on wait */
14                2 match_length       fixed bin (21),         /* length of string we are waiting to find */
15                2 match_max_length   fixed bin (21),         /* len area for match string */
16                2 net_rs,                                    /* read_status result about net */
17                  3 ev_chn           fixed bin (71),
18                  3 data_available   bit (1),
19                2 abort_code         fixed bin (35),         /* general horrible error */
20                2 flags,
21                  3 raw_mode         bit (1) unaligned,
22                  3 echo_mode        bit (1) unaligned,
23                  3 lfecho_mode      bit (1) unaligned,
24                  3 pad1             bit (33) unaligned,
25                2 old_modes          char (512) unaligned,   /* modes before we screwed them up */
26                2 saved_cl_intermediary entry variable,
27                2 my_cl_intermediary entry variable,
28                2 cmd_ptr            ptr,                    /* to area to hold outgoing chars or request line being built */
29                2 cmd_buff_len       fixed bin (21),
30                2 time_out           fixed bin,              /* max time to wait for net line */
31                2 net_input_buff_ptr ptr,                    /* area we accumulate net input so we can do match scan */
32                2 net_input_buff_len fixed bin (21),
33                2 net_input_last_char_filled fixed bin (21), /* last pos in net_input_buff of chars read */
34                2 net_input_last_char_output fixed bin (21), /* last pos in buffer output or used by wait scan */
35                2 active_result_max_len fixed bin (21),
36                2 active_result_ptr  ptr;
37 
38 %include dial_out_info;
39 
40 /* End include file dial_out_invocation.incl.pl1 */