/* Translate table for WHO CSO client */

char asciitoebcdic[] = {
       0,   1,   2,   3,  55,  45,  46,  47,
      22,   5,  21,  11,  12,  13,  14,  15,
      16,  17,  18,  19,  60,  61,  50,  38,
      24,  25,  63,  39,  34,  29,  53,  31,
      ' ', '!', '"', '#', '$', '%', '&', '\'',
      '(', ')', '*', '+', ',', '-', '.', '/',
      '0', '1', '2', '3', '4', '5', '6', '7',
      '8', '9', ':', ';', '<', '=', '>', '?',
      '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
      'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
      'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
      'X', 'Y', 'Z', 173,  '\\', 189,  '^', '_',
      '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g',
      'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
      'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
      'x', 'y', 'z', '{', '|', '}', '~',  7,
       0,   1,   2,   3,  55,  45,  46,  47,
      22,   5,  37,  11,  12,  13,  14,  15,
      16,  17,  18,  19,  60,  61,  50,  38,
      24,  25,  63,  39,  34,  29,  53,  31,
      ' ', '!', '"', '#', '$', '%', '&', '\'',
      '(', ')', '*', '+', ',', '-', '.', '/',
      '0', '1', '2', '3', '4', '5', '6', '7',
      '8', '9', ':', ';', '<', '=', '>', '?',
      '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
      'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
      'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
      'X', 'Y', 'Z', 173,  '\\', 189,  '^', '_',
      '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g',
      'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
      'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
      'x', 'y', 'z', '{', '|', '}', '~',  7 };

char ebcdictoascii[] = {
         0,    1,    2,    3,   26,    9,   26,  127,
        26,   26,   26,   11,   12,   13,   14,   15,
        16,   17,   18,   19,   26,   10,    8,   26,
        24,   25,   26,   26,   28,   29,   30,   31,
        26,   26,   28,   26,   26,   10,   23,   27,
        26,   26,   26,   26,   26,    5,    6,    7,
        26,   26,   22,   26,   26,   30,   26,    4,
        26,   26,   26,   26,   20,   21,   26,   26,
        32,  166,  225,  128,  235,  144,  159,  226,
       171,  139,  155,   46,   60,   40,   43,  124,
        38,  169,  170,  156,  219,  165,  153,  227,
       168,  158,   33,   36,   42,   41,   59,   94,
        45,   47,  223,  220,  154,  221,  222,  152,
       157,  172,  186,   44,   37,   95,   62,   63,
       215,  136,  148,  176,  177,  178,  252,  214,
       251,   96,   58,   35,   64,   39,   61,   34,
       248,   97,   98,   99,  100,  101,  102,  103,
       104,  105,  150,  164,  243,  175,  174,  197,
       140,  106,  107,  108,  109,  110,  111,  112,
       113,  114,  151,  135,  206,  147,  241,  254,
       200,  126,  115,  116,  117,  118,  119,  120,
       121,  122,  239,  192,  218,   91,  242,  249,
       181,  182,  253,  183,  184,  185,  230,  187,
       188,  189,  141,  217,  191,   93,  216,  196,
       123,   65,   66,   67,   68,   69,   70,   71,
        72,   73,  203,  202,  190,  232,  236,  237,
       125,   74,   75,   76,   77,   78,   79,   80,
        81,   82,  161,  173,  245,  244,  163,  143,
        92,  231,   83,   84,   85,   86,   87,   88,
        89,   90,  160,  133,  142,  233,  228,  209,
        48,   49,   50,   51,   52,   53,   54,   55,
        56,   57,  179,  247,  240,  250,  167,  255   };