*COMDECK 3270VAL
  
_ 
      * *  3 2 7 0 T I P   V A L U E - I N I T I A L I Z A T I O N  * * 
? 
_ 
* * * *  INITIALIZE BINARY TO EBCDIC XLATE TABLE
? 
      T3BINEBC = ($40C1,$C2C3,$C4C5,$C6C7,$C8C9,$4A4B,$4C4D,$4E4F,
                  $50D1,$D2D3,$D4D5,$D6D7,$D8D9,$5A5B,$5C5D,$5E5F,
                  $6061,$E2E3,$E4E5,$E6E7,$E8E9,$6A6B,$6C6D,$6E6F,
                  $F0F1,$F2F3,$F4F5,$F6F7,$F8F9,$7A7B,$7C7D,$7E7F); 
  
  
