1 
  2 /* BEGIN INCLUDE FILE ...   cobol_ul_tab.incl.pl1 */
  3 
  4 dcl ul_str(0: 127) char(1) based(addr(ul_tab));
  5 dcl   ul_tab(0: 127) bit(9) static init(
  6      "000000000"b /*          (NUL)     000         0   */ ,
  7      "000000001"b /*          (SOH)     001         1   */ ,
  8      "000000010"b /*          (STX)     002         2   */ ,
  9      "000000011"b /*          (ETX)     003         3   */ ,
 10      "000000100"b /*          (EOT)     004         4   */ ,
 11      "000000101"b /*          (ENQ)     005         5   */ ,
 12      "000000110"b /*          (ACK)     006         6   */ ,
 13      "000000111"b /*          BEL       007         7   */ ,
 14      "000001000"b /*          BS        010         8   */ ,
 15      "000001001"b /*          HT        011         9   */ ,
 16      "000001010"b /*          NL(LF)    012        10   */ ,
 17      "000001011"b /*          VT        013        11   */ ,
 18      "000001100"b /*          NP(FF)    014        12   */ ,
 19      "000001101"b /*          (CR)      015        13   */ ,
 20      "000001110"b /*          RRS(S0)   016        14   */ ,
 21      "000001111"b /*          BRS(S1)   017        15   */ ,
 22      "000010000"b /*          (DLE)     020        16   */ ,
 23      "000010001"b /*          (DC1)     021        17   */ ,
 24      "000010010"b /*          HLF(DC2)  022        18   */ ,
 25      "000010011"b /*          (DC3)     023        19   */ ,
 26      "000010100"b /*          HLR(DC4)  024        20   */ ,
 27      "000010101"b /*          (NAK)     025        21   */ ,
 28      "000010110"b /*          (SYN)     026        22   */ ,
 29      "000010111"b /*          (ETB)     027        23   */ ,
 30      "000011000"b /*          (CAN)     030        24   */ ,
 31      "000011001"b /*          (EM)      031        25   */ ,
 32      "000011010"b /*          (SUB)     032        26   */ ,
 33      "000011011"b /*          (ESC)     033        27   */ ,
 34      "000011100"b /*          (FS)      034        28   */ ,
 35      "000011101"b /*          (GS)      035        29   */ ,
 36      "000011110"b /*          (RS)      036        30   */ ,
 37      "000011111"b /*          (US)      037        31   */ ,
 38      "000100000"b /*          Space     040        32   */ ,
 39      "000100001"b /*          !         041        33   */ ,
 40      "000100010"b /*          "         042        34   */ ,
 41      "000100011"b /*          #         043        35   */ ,
 42      "000100100"b /*          $         044        36   */ ,
 43      "000100101"b /*          %         045        37   */ ,
 44      "000100110"b /*          &         046        38   */ ,
 45      "000100111"b /*          '         047        39   */ ,
 46      "000101000"b /*          (         050        40   */ ,
 47      "000101001"b /*          )         051        41   */ ,
 48      "000101010"b /*          *         052        42   */ ,
 49      "000101011"b /*          +         053        43   */ ,
 50      "000101100"b /*          ,         054        44   */ ,
 51      "000101101"b /*          -         055        45   */ ,
 52      "000101110"b /*          .         056        46   */ ,
 53      "000101111"b /*          /         057        47   */ ,
 54      "000110000"b /*          0         060        48   */ ,
 55      "000110001"b /*          1         061        49   */ ,
 56      "000110010"b /*          2         062        50   */ ,
 57      "000110011"b /*          3         063        51   */ ,
 58      "000110100"b /*          4         064        52   */ ,
 59      "000110101"b /*          5         065        53   */ ,
 60      "000110110"b /*          6         066        54   */ ,
 61      "000110111"b /*          7         067        55   */ ,
 62      "000111000"b /*          8         070        56   */ ,
 63      "000111001"b /*          9         071        57   */ ,
 64      "000111010"b /*          :         072        58   */ ,
 65      "000111011"b /*          ;         073        59   */ ,
 66      "000111100"b /*          <         074        60   */ ,
 67      "000111101"b /*          =         075        61   */ ,
 68      "000111110"b /*          >         076        62   */ ,
 69      "000111111"b /*          ?         077        63   */ ,
 70      "001000000"b /*          @         100        64   */ ,
 71      "001100001"b /*          A         101        65   */ ,
 72      "001100010"b /*          B         102        66   */ ,
 73      "001100011"b /*          C         103        67   */ ,
 74      "001100100"b /*          D         104        68   */ ,
 75      "001100101"b /*          E         105        69   */ ,
 76      "001100110"b /*          F         106        70   */ ,
 77      "001100111"b /*          G         107        71   */ ,
 78      "001101000"b /*          H         110        72   */ ,
 79      "001101001"b /*          I         111        73   */ ,
 80      "001101010"b /*          J         112        74   */ ,
 81      "001101011"b /*          K         113        75   */ ,
 82      "001101100"b /*          L         114        76   */ ,
 83      "001101101"b /*          M         115        77   */ ,
 84      "001101110"b /*          N         116        78   */ ,
 85      "001101111"b /*          O         117        79   */ ,
 86      "001110000"b /*          P         120        80   */ ,
 87      "001110001"b /*          Q         121        81   */ ,
 88      "001110010"b /*          R         122        82   */ ,
 89      "001110011"b /*          S         123        83   */ ,
 90      "001110100"b /*          T         124        84   */ ,
 91      "001110101"b /*          U         125        85   */ ,
 92      "001110110"b /*          V         126        86   */ ,
 93      "001110111"b /*          W         127        87   */ ,
 94      "001111000"b /*          X         130        88   */ ,
 95      "001111001"b /*          Y         131        89   */ ,
 96      "001111010"b /*          Z         132        90   */ ,
 97      "001011011"b /*          [         133        91   */ ,
 98      "001011100"b /*          \         134        92   */ ,
 99      "001011101"b /*          ]         135        93   */ ,
100      "001011110"b /*          ^         136        94   */ ,
101      "001011111"b /*          _         137        95   */ ,
102      "001100000"b /*          `         140        96   */ ,
103      "001100001"b /*          a         141        97   */ ,
104      "001100010"b /*          b         142        98   */ ,
105      "001100011"b /*          c         143        99   */ ,
106      "001100100"b /*          d         144       100   */ ,
107      "001100101"b /*          e         145       101   */ ,
108      "001100110"b /*          f         146       102   */ ,
109      "001100111"b /*          g         147       103   */ ,
110      "001101000"b /*          h         150       104   */ ,
111      "001101001"b /*          i         151       105   */ ,
112      "001101010"b /*          j         152       106   */ ,
113      "001101011"b /*          k         153       107   */ ,
114      "001101100"b /*          l         154       108   */ ,
115      "001101101"b /*          m         155       109   */ ,
116      "001101110"b /*          n         156       110   */ ,
117      "001101111"b /*          o         157       111   */ ,
118      "001110000"b /*          p         160       112   */ ,
119      "001110001"b /*          q         161       113   */ ,
120      "001110010"b /*          r         162       114   */ ,
121      "001110011"b /*          s         163       115   */ ,
122      "001110100"b /*          t         164       116   */ ,
123      "001110101"b /*          u         165       117   */ ,
124      "001110110"b /*          v         166       118   */ ,
125      "001110111"b /*          w         167       119   */ ,
126      "001111000"b /*          x         170       120   */ ,
127      "001111001"b /*          y         171       121   */ ,
128      "001111010"b /*          z         172       122   */ ,
129      "001111011"b /*          {         173       123   */ ,
130      "001111100"b /*          |         174       124   */ ,
131      "001111101"b /*          }         175       125   */ ,
132      "001111110"b /*          ~         176       126   */ ,
133      "001111111"b /*          DEL       177       127   */ );
134 
135 /* END INCLUDE FILE ...   cobol_ul_tab.incl.pl1 */
136