1 /* Begin include file ..... ibm3270_mpx_load_data.incl.pl1 */
 2 
 3 /* Defines data passed between as_ibm3270_mpx_ and priv_ibm3270_mpx when loading an ibm3270 multiplexer */
 4 
 5 /* Prepared May 1979 by Larry Johnson */
 6 
 7 dcl  load_infop ptr;
 8 dcl  load_info_nchan fixed bin;
 9 
10 dcl 1 load_info aligned based (load_infop),
11     2 event_channel fixed bin (71),
12     2 flags unal,
13       3 ascii bit (1),                                      /* Use ascii protocol */
14       3 debug bit (1),                                      /* Print unusual stuff */
15       3 allow_raw3270 bit (1),                              /* Sub-channels may use raw3270 mode */
16       3 allow_copy bit (1),                                 /* Sub-channels in raw3270 may do copies */
17       3 pad bit (32) unal,
18     2 controller_address fixed bin,                         /* device address for controller */
19     2 quit_key fixed bin,                                   /* code to indicate which key is quit */
20     2 formfeed_key fixed bin,                               /* code for formfeed key */
21     2 nchan fixed bin,
22     2 chan_info (load_info_nchan) like chan_load_info;
23 
24 dcl  chan_load_infop ptr;
25 
26 dcl 1 chan_load_info aligned based (chan_load_infop),       /* Per channel part of data */
27     2 devx fixed bin,                                       /* Which channel */
28     2 screen_size fixed bin,
29     2 line_size fixed bin;
30 
31 dcl (IBM3270_MPX_UP init (1),
32      IBM3270_MPX_DOWN init (2),
33      IBM3270_MPX_MASKED init (3)) fixed bin (71) int static options (constant);
34 
35 /* codeing for quit and formfeed keys */
36 
37 dcl (PA1 init (1),
38      PA2 init (2),
39      PA3 init (3),
40      CLEAR init (4)) fixed bin int static options (constant);
41 
42 /* End include file .....ibm3270_mpx_load_data.incl.pl1 */