1 
  2 /* BEGIN INCLUDE FILE ...   cobol_gns_tab.incl.pl1 */
  3 
  4 /* Membership table for scans and character look-ups */
  5 /*        column 1:  alphanumeric characters [0->9 a->z A->Z -] */
  6 /*        column 2:  digits [0->9] */
  7 /*        column 3:  picture characters [all printable characters except " ;] */
  8 /*        column 4:  binary characters [0 1] */
  9 /*        column 5:  delimiters [nl space " ( ) , . ;] */
 10 /*        column 6:  delimiters [. ; ,] */
 11 /*        column 7:  delimiters [nl sp] */
 12 /*        column 8:  delimiters [nl sp . ; ,] */
 13 
 14 dcl   mem_tab(0: 511) bit(8) static init(
 15      "00000000"b /*           (NUL)     000         0   */ ,
 16      "00000000"b /*           (SOH)     001         1   */ ,
 17      "00000000"b /*           (STX)     002         2   */ ,
 18      "00000000"b /*           (ETX)     003         3   */ ,
 19      "00000000"b /*           (EOT)     004         4   */ ,
 20      "00000000"b /*           (ENQ)     005         5   */ ,
 21      "00000000"b /*           (ACK)     006         6   */ ,
 22      "00000000"b /*           BEL       007         7   */ ,
 23      "00000000"b /*           BS        010         8   */ ,
 24      "00000000"b /*           HT        011         9   */ ,
 25      "00001011"b /*           NL(LF)    012        10   */ ,
 26      "00000000"b /*           VT        013        11   */ ,
 27      "00000000"b /*           NP(FF)    014        12   */ ,
 28      "00000000"b /*           (CR)      015        13   */ ,
 29      "00000000"b /*           RRS(S0)   016        14   */ ,
 30      "00000000"b /*           BRS(S1)   017        15   */ ,
 31      "00000000"b /*           (DLE)     020        16   */ ,
 32      "00000000"b /*           (DC1)     021        17   */ ,
 33      "00000000"b /*           HLF(DC2)  022        18   */ ,
 34      "00000000"b /*           (DC3)     023        19   */ ,
 35      "00000000"b /*           HLR(DC4)  024        20   */ ,
 36      "00000000"b /*           (NAK)     025        21   */ ,
 37      "00000000"b /*           (SYN)     026        22   */ ,
 38      "00000000"b /*           (ETB)     027        23   */ ,
 39      "00000000"b /*           (CAN)     030        24   */ ,
 40      "00000000"b /*           (EM)      031        25   */ ,
 41      "00000000"b /*           (SUB)     032        26   */ ,
 42      "00000000"b /*           (ESC)     033        27   */ ,
 43      "00000000"b /*           (FS)      034        28   */ ,
 44      "00000000"b /*           (GS)      035        29   */ ,
 45      "00000000"b /*           (RS)      036        30   */ ,
 46      "00000000"b /*           (US)      037        31   */ ,
 47      "00001011"b /*           Space     040        32   */ ,
 48      "00100000"b /*           !         041        33   */ ,
 49      "00001000"b /*           "         042        34   */ ,
 50      "00100000"b /*           #         043        35   */ ,
 51      "00100000"b /*           $         044        36   */ ,
 52      "00100000"b /*           %         045        37   */ ,
 53      "00100000"b /*           &         046        38   */ ,
 54      "00100000"b /*           '         047        39   */ ,
 55      "00101000"b /*           (         050        40   */ ,
 56      "00101000"b /*           )         051        41   */ ,
 57      "00100000"b /*           *         052        42   */ ,
 58      "00100000"b /*           +         053        43   */ ,
 59      "00101101"b /*           ,         054        44   */ ,
 60      "10100000"b /*           -         055        45   */ ,
 61      "00101101"b /*           .         056        46   */ ,
 62      "00100000"b /*           /         057        47   */ ,
 63      "11110000"b /*           0         060        48   */ ,
 64      "11110000"b /*           1         061        49   */ ,
 65      "11100000"b /*           2         062        50   */ ,
 66      "11100000"b /*           3         063        51   */ ,
 67      "11100000"b /*           4         064        52   */ ,
 68      "11100000"b /*           5         065        53   */ ,
 69      "11100000"b /*           6         066        54   */ ,
 70      "11100000"b /*           7         067        55   */ ,
 71      "11100000"b /*           8         070        56   */ ,
 72      "11100000"b /*           9         071        57   */ ,
 73      "00100000"b /*           :         072        58   */ ,
 74      "00001101"b /*           ;         073        59   */ ,
 75      "00100000"b /*           <         074        60   */ ,
 76      "00101010"b /*           =         075        61   */ ,
 77      "00100000"b /*           >         076        62   */ ,
 78      "00100000"b /*           ?         077        63   */ ,
 79      "00100000"b /*           @         100        64   */ ,
 80      "10100000"b /*           A         101        65   */ ,
 81      "10100000"b /*           B         102        66   */ ,
 82      "10100000"b /*           C         103        67   */ ,
 83      "10100000"b /*           D         104        68   */ ,
 84      "10100000"b /*           E         105        69   */ ,
 85      "10100000"b /*           F         106        70   */ ,
 86      "10100000"b /*           G         107        71   */ ,
 87      "10100000"b /*           H         110        72   */ ,
 88      "10100000"b /*           I         111        73   */ ,
 89      "10100000"b /*           J         112        74   */ ,
 90      "10100000"b /*           K         113        75   */ ,
 91      "10100000"b /*           L         114        76   */ ,
 92      "10100000"b /*           M         115        77   */ ,
 93      "10100000"b /*           N         116        78   */ ,
 94      "10100000"b /*           O         117        79   */ ,
 95      "10100000"b /*           P         120        80   */ ,
 96      "10100000"b /*           Q         121        81   */ ,
 97      "10100000"b /*           R         122        82   */ ,
 98      "10100000"b /*           S         123        83   */ ,
 99      "10100000"b /*           T         124        84   */ ,
100      "10100000"b /*           U         125        85   */ ,
101      "10100000"b /*           V         126        86   */ ,
102      "10100000"b /*           W         127        87   */ ,
103      "10100000"b /*           X         130        88   */ ,
104      "10100000"b /*           Y         131        89   */ ,
105      "10100000"b /*           Z         132        90   */ ,
106      "00100000"b /*           [         133        91   */ ,
107      "00100000"b /*           \         134        92   */ ,
108      "00100000"b /*           ]         135        93   */ ,
109      "00100000"b /*           ^         136        94   */ ,
110      "00100000"b /*           _         137        95   */ ,
111      "00100000"b /*           `         140        96   */ ,
112      "10100000"b /*           a         141        97   */ ,
113      "10100000"b /*           b         142        98   */ ,
114      "10100000"b /*           c         143        99   */ ,
115      "10100000"b /*           d         144       100   */ ,
116      "10100000"b /*           e         145       101   */ ,
117      "10100000"b /*           f         146       102   */ ,
118      "10100000"b /*           g         147       103   */ ,
119      "10100000"b /*           h         150       104   */ ,
120      "10100000"b /*           i         151       105   */ ,
121      "10100000"b /*           j         152       106   */ ,
122      "10100000"b /*           k         153       107   */ ,
123      "10100000"b /*           l         154       108   */ ,
124      "10100000"b /*           m         155       109   */ ,
125      "10100000"b /*           n         156       110   */ ,
126      "10100000"b /*           o         157       111   */ ,
127      "10100000"b /*           p         160       112   */ ,
128      "10100000"b /*           q         161       113   */ ,
129      "10100000"b /*           r         162       114   */ ,
130      "10100000"b /*           s         163       115   */ ,
131      "10100000"b /*           t         164       116   */ ,
132      "10100000"b /*           u         165       117   */ ,
133      "10100000"b /*           v         166       118   */ ,
134      "10100000"b /*           w         167       119   */ ,
135      "10100000"b /*           x         170       120   */ ,
136      "10100000"b /*           y         171       121   */ ,
137      "10100000"b /*           z         172       122   */ ,
138      "00100000"b /*           {         173       123   */ ,
139      "00100000"b /*           |         174       124   */ ,
140      "00100000"b /*           }         175       125   */ ,
141      "00100000"b /*           ~         176       126   */ ,
142      "00000000"b /*           DEL       177       127   */ ,
143      (384)(1)"00000000"b
144      );
145 
146 dcl  x(0: 511) fixed bin (8) static init (
147      10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,12 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,
148      10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,10 ,12 ,10 ,3 ,10 ,
149      10 ,8 ,10 ,4 ,11 ,13 ,7 ,6 ,5 ,18 ,14 ,9 ,2 ,2 ,2 ,2 ,2 ,2 ,2 ,2 ,2 ,2 ,
150      10 ,5 ,16 ,15 ,17 ,10 ,10 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,
151      1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,10 ,10 ,10 ,
152      10 ,10 ,10 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,1 ,
153      1 ,1 ,1 ,1 ,1 ,1 ,10 ,10 ,10 ,10 ,10,
154      (384)10
155      );                                                     /* end switch */
156 
157 /* END INCLUDE FILE ...   cobol_gns_tab.incl.pl1 */
158