1 
 2 /* BEGIN INCLUDE FILE ...   cobol_op_con.incl.pl1 */
 3 /* Created on June 3, 76 by bc */
 4 
 5 /*
 6           This include file is used by cobol_pool to find the constants which are
 7           resided on the cobol_operators_.
 8           Any change in this file must be cooperated with the change in
 9           cobol_op_con.incl.alm. The cobol_operators_ should be recompiled.
10 */
11 
12 dcl       1 op_con static options(constant),
13           2 null_ptr          bit(18) init(
14                               "000000100000000010"b),       /* null()---4002 */
15           2 mask              bit(18) init(
16                               "000000100000000100"b),       /* 077777000077, 777777077077---4004*/
17           2 zero_con          bit(18) init(
18                               "000000100001010001"b),       /* 0---4121 */
19           2 space_con         bit(18) init(
20                               "000000100000000110"b),       /* spaces---4006 */
21           2 ascii_ebcdic      bit(18) init(
22                               "000000100100000000"b),       /* ascii to ebcdic table---4400 */
23           2 ebcdic_ascii      bit(18) init(
24                               "000000100110000000"b),       /* ebcdic to ascii table---4600 */
25           2 ascii_gbcd        bit(18) init(
26                               "000000101000000000"b),       /* ascii to gbcd table---5000 */
27           2 gbcd_ascii        bit(18) init(
28                               "000000101010000000"b),       /* gbcd to ascii table ---5200 */
29           2 ascii_hbcd        bit(18) init(
30                               "000000101000000000"b),       /* ascii to hbcd table---5000 */
31           2 hbcd_ascii        bit(18) init(
32                               "000000101010000000"b),       /* hbcd to ascii table ---5200 */
33           2 ascii_ibcd        bit(18) init(
34                               "000000101000000000"b),       /* ascii to ibcd table---5000 */
35           2 ibcd_ascii        bit(18) init(
36                               "000000101010000000"b),       /* ibcd to ascii table ---5200 */
37           2 ascii_jis         bit(18) init(
38                               "000000101000000000"b),       /* ascii to jis table---5000 */
39           2 jis_ascii         bit(18) init(
40                               "000000101010000000"b);       /* jis to ascii table ---5200 */
41                     /****** Please insert the next constant before this line. */
42 
43 
44 /* END INCLUDE FILE ...   cobol_op_con.incl.pl1 */
45