1 /* BEGIN INCLUDE FILE ... ibm3270_meters.incl.pl1 */
 2 
 3 /* defines metering structures used for ibm3270 multiplexer channel */
 4 
 5 /* Written June 1981 by Robert Coren */
 6 
 7 dcl 1 ibm3270_meter_struc aligned based,
 8     2 version fixed bin,
 9     2 pad bit (36),
10     2 current_meters like ibm3270_meters,
11     2 saved_meters like ibm3270_meters;
12 
13 dcl 1 ibm3270_meters aligned based (meter_ptr),
14     2 poll_failed fixed bin (35),                           /* No response to poll */
15     2 bad_output fixed bin (35),                            /* Bsc control tables rejected output */
16     2 write_eot fixed bin (35),                             /* Got eot in responseto write */
17     2 write_abort fixed bin (35),                           /* FNP send eot because of nothing to write */
18     2 select_failed fixed bin (35),                         /* No response to select */
19     2 wack_select fixed bin (35),                           /* Wack in respnse to select */
20     2 nak_output fixed bin (35),                            /* Our output got nakked */
21     2 input_reject fixed bin (35),                          /* Count of input reject interrupts */
22     2 needs_space fixed bin (35),                           /* Count of times space available interrupt req */
23     2 space_available fixed bin (35),                       /* Count of space available interrupts */
24     2 write_format_error fixed bin (35),                    /* Count of bad calls to write entry */
25     2 bad_input fixed bin (35),                             /* Count of ill-formatted input messages */
26     2 bad_device fixed bin (35);                            /* Count of unrecognized device identifications */
27 
28 dcl  meter_ptr ptr;
29 
30 dcl  IBM3270_METERS_VERSION_1 internal static options (constant) init (1);
31 
32 /* END INCLUDE FILE ... ibm3270_meters.incl.pl1 */