1 /* BEGIN INCLUDE FILE ... line_types.incl.pl1  */
 2 
 3 /* Written  November 10 1975 by Paul Green */
 4 /* Modified October 1978 by Larry Johnson to include line_type_names */
 5 /* Modified 12/19/78 by J. Stern to add POLLED_VIP line type */
 6 /* Modified 9/27/79 by J. Stern to add X25LAP line type */
 7 /* Modified Spring 1981 by Charles Hornig to add HDLC line type */
 8 /* Modified May 1981 by Robert Coren to add COLTS line type */
 9 /* Modified September 1984 by Robert Coren to correctly count VIP as a synchronous line type */
10 
11 
12 /****^  HISTORY COMMENTS:
13   1) change(86-02-25,Negaret), approve(87-07-13,MCR7679),
14      audit(87-07-16,Brunelle), install(87-08-04,MR12.1-1056):
15      Add a DSA line type.
16   2) change(87-03-17,Beattie), approve(87-07-13,MCR7656),
17      audit(87-07-16,Brunelle), install(87-08-04,MR12.1-1056):
18      Add HASP_OPR to identify HASP workstation consoles with login service.
19                                                    END HISTORY COMMENTS */
20 
21 
22 declare   (LINE_MC            initial (-2),
23            LINE_TELNET        initial (-1),
24            LINE_UNKNOWN       initial (0),
25            LINE_ASCII         initial (1),
26            LINE_1050          initial (2),
27            LINE_2741          initial (3),
28            LINE_ARDS          initial (4),
29            LINE_SYNCH         initial (5),
30            LINE_G115          initial (6),
31            LINE_BSC           initial (7),
32            LINE_ETX           initial (8),
33            LINE_VIP           initial (9),
34            LINE_ASYNC1        initial (10),
35            LINE_ASYNC2        initial (11),
36            LINE_ASYNC3        initial (12),
37            LINE_SYNC1         initial (13),
38            LINE_SYNC2         initial (14),
39            LINE_SYNC3         initial (15),
40            LINE_POLLED_VIP    initial (16),
41            LINE_X25LAP        initial (17),
42            LINE_HDLC          initial (18),
43            LINE_COLTS         initial (19),
44            LINE_DSA           initial (20),
45            LINE_HASP_OPR      initial (21)
46           ) fixed bin internal static options (constant);
47 
48 dcl  max_line_type fixed bin int static options (constant) init (21);
49 
50 declare  n_sync_line_types fixed bin int static options (constant) init (10);
51 
52 declare  sync_line_type (10) fixed bin int static options (constant) init (5, 6, 7, 9, 13, 14, 15, 16, 17, 18);
53 
54 dcl  line_types (-2:21) char (16) int static options (constant) init (
55      "MC",                                                  /* -2 */
56      "TELNET",                                              /* -1 */
57      "none",                                                /* 0 */
58      "ASCII",                                               /* 1 */
59      "1050",                                                /* 2 */
60      "2741",                                                /* 3 */
61      "ARDS",                                                /* 4 */
62      "Sync",                                                /* 5 */
63      "G115",                                                /* 6 */
64      "BSC",                                                 /* 7 */
65      "202ETX",                                              /* 8 */
66      "VIP",                                                 /* 9 */
67      "ASYNC1",                                              /* 10 */
68      "ASYNC2",                                              /* 11 */
69      "ASYNC3",                                              /* 12 */
70      "SYNC1",                                               /* 13 */
71      "SYNC2",                                               /* 14 */
72      "SYNC3",                                               /* 15 */
73      "POLLED_VIP",                                          /* 16 */
74      "X25LAP",                                              /* 17 */
75      "HDLC",                                                /* 18 */
76      "COLTS",                                               /* 19 */
77      "DSA",                                                 /* 20 */
78      "HASP_OPR");                                           /* 21 */
79 
80 /* END INCLUDE FILE ... line_types.incl.pl1  */