1 /* BEGIN INCLUDE FILE .... bisync_line_data.incl.pl1 */
 2 /* Written:  October 1977 by Larry Johnson */
 3 /* Modified: November 1979 by Larry Johnson and Gary Palter for HASP */
 4 /* Modified: February 1984 by G. Palter for HASP system wait-a-bit changes */
 5 
 6 /* Structures and codes for doing line_control and line_status operations on bisync lines */
 7 
 8 /* For line_control order */
 9 
10 dcl 1 line_ctl aligned,
11     2 op fixed binary (17) unaligned,                       /* indicates action being performed */
12     2 val (3) fixed binary (17) unaligned;                  /* optional arguments with some ops */
13 
14 dcl 1 valchar based (addr (line_ctl.val (1))),              /* character overlay of line_ctl.val */
15     2 data_len fixed binary (9) unaligned unsigned,
16     2 data character (5) unaligned;
17 
18 
19 /* Values for line_ctl.op */
20 
21 dcl (SET_BID_LIMIT                 initial (1),
22      ACCEPT_BID                    initial (2),
23      CONFIGURE                     initial (3),             /* val(1): 0 = non-transparent ASCII, 1 = not-tranparent EBCDIC,
24                                                                        2 = transparent ASCII, 3 = transparent EBCDIC */
25      SET_TTD_PARAMS                initial (4),             /* val(1): ttd_time;  val(2): ttd_limit */
26      REPORT_WRITE_STATUS           initial (5),             /* Request FNP to report on output buffers */
27      SET_3270_MODE                 initial (6),
28      SET_POLLING_ADDR              initial (7),
29      START_POLL                    initial (8),
30      SET_SELECT_ADDR               initial (9),
31      STOP_AUTO_POLL                initial (10),
32      SET_MASTER_SLAVE_MODE         initial (11),            /* val(1): 0 = slave (host), 1 = master (workstation) */
33      SET_HASP_MODE                 initial (12),
34      SET_NAK_LIMIT                 initial (13),            /* val(1): maximum # of NAKs allowed in a row */
35      SET_HASP_TIMERS               initial (14))            /* val(1): initial connect timeout;  val(2): receive timeout;
36                                                                val(3): transmit timeout */
37           fixed binary static options (constant);
38 
39 
40 /* For line status order */
41 
42 dcl 1 line_stat aligned,
43     2 op fixed binary (17) unaligned,                       /* contains reason for status */
44     2 val (3) fixed binary (17) unaligned;
45 
46 
47 /* Values for line_stat.op */
48 
49 dcl (BID_FAILED                    initial (1),
50      BAD_BLOCK                     initial (2),
51      REVERSE_INTERRUPT             initial (3),
52      TOO_MANY_NAKS                 initial (4),
53      FNP_WRITE_STATUS              initial (5),
54      IBM3270_WRITE_COMPLETE        initial (6),
55      IBM3270_WACK_MESSAGE          initial (7),
56      IBM3270_WRITE_EOT             initial (8),
57      IBM3270_WRITE_ABORT           initial (9),
58      IBM3270_SELECT_FAILED         initial (10),
59      IBM3270_WACK_SELECT           initial (11),
60      IBM3270_NAK_OUTPUT            initial (12),
61      HASP_INIT_COMPLETE            initial (13),
62      HASP_FOREIGN_SWAB_RESET       initial (14))
63           fixed binary static options (constant);
64 
65 /* END INCLUDE FILE ..... bisync_line_data.incl.pl1 */