#include <stdio.h>#include <stdlib.h>#include <math.h>/*   GCF400.C --- General C Functions for/with AS/400*//* SCO UNIX, ... */    #include "GCF400.h"/***  ASCII <=> EBCDIC conversion functions (AS/400 CCSID: 935)*//* ???      ASCII  : D1  D8  DA  E2  E3  7F      EBCDIC : 20  21  22  23  24  3F*/static USGC a2e[256] ={  0x00, 0x01, 0x02, 0x03, 0x37, 0x2D, 0x2E, 0x2F,     /* 00-0F */  0x16, 0x05, 0x25, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,  0x10, 0x11, 0x12, 0x13, 0x3C, 0x3D, 0x32, 0x26,     /* 10-1F */  0x18, 0x19, 0x1C, 0x27, 0x07, 0x1D, 0x1E, 0x1F,  0x40, 0x5A, 0x7F, 0x7B, 0xE0, 0x6C, 0x50, 0x7D,     /* 20-2F */  0x4D, 0x5D, 0x5C, 0x4E, 0x6B, 0x60, 0x4B, 0x61,  0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7,     /* 30-3F */  0xF8, 0xF9, 0x7A, 0x5E, 0x4C, 0x7E, 0x6E, 0x6F,  0x7C, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0xC7,     /* 40-4F */  0xC8, 0xC9, 0xD1, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6,  0xD7, 0xD8, 0xD9, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6,     /* 50-5F */  0xE7, 0xE8, 0xE9, 0xBA, 0xB2, 0xBB, 0xB0, 0x6D,  0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,     /* 60-6F */  0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,  0x97, 0x98, 0x99, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6,     /* 70-7F */  0xA7, 0xA8, 0xA9, 0xC0, 0x4F, 0xD0, 0xA0, 0x3F,  0x4A, 0x5F, 0x5B, 0xA1, 0x6A, 0x15, 0x06, 0x17,     /* 80-8F */  0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x09, 0x0A, 0x1B,  0x30, 0x31, 0x1A, 0x33, 0x34, 0x35, 0x36, 0x08,     /* 90-9F */  0x38, 0x39, 0x3A, 0x3B, 0x04, 0x14, 0x3E, 0xE1,  0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48,     /* A0-AF */  0x49, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,  0x58, 0x59, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,     /* B0-BF */  0x68, 0x69, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75,  0x76, 0x77, 0x78, 0x80, 0x8A, 0x8B, 0x8C, 0x8D,     /* C0-CF */  0x8E, 0x8F, 0x90, 0x9A, 0x9B, 0x9C, 0x9D, 0x9E,  0x9F, 0x20, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,     /* D0-DF */  0x21, 0xB1, 0x22, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,  0xB8, 0xB9, 0x23, 0x24, 0xBC, 0xBD, 0xBE, 0xBF,     /* E0-EF */  0xCA, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF, 0xDA, 0xDB,  0xDC, 0xDD, 0xDE, 0xDF, 0xEA, 0xEB, 0xEC, 0xED,     /* F0-FF */  0xEE, 0xEF, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF,};static USGC e2a[256] ={  0x00, 0x01, 0x02, 0x03, 0x9C, 0x09, 0x86, 0x1C,     /* 00-0F */  0x97, 0x8D, 0x8E, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,  0x10, 0x11, 0x12, 0x13, 0x9D, 0x85, 0x08, 0x87,     /* 10-1F */  0x18, 0x19, 0x92, 0x8F, 0x1A, 0x1D, 0x1E, 0x1F,  0xD1, 0xD8, 0xDA, 0xE2, 0xE3, 0x0A, 0x17, 0x1B,     /* 20-2F */  0x88, 0x89, 0x8A, 0x8B, 0x8C, 0x05, 0x06, 0x07,  0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,     /* 30-3F */  0x98, 0x99, 0x9A, 0x9B, 0x14, 0x15, 0x9E, 0x7F,  0x20, 0xA0, 0xA1, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6,     /* 40-4F */  0xA7, 0xA8, 0x80, 0x2E, 0x3C, 0x28, 0x2B, 0x7C,  0x26, 0xA9, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0xAF,     /* 50-5F */  0xB0, 0xB1, 0x21, 0x82, 0x2A, 0x29, 0x3B, 0x81,  0x2D, 0x2F, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7,     /* 60-6F */  0xB8, 0xB9, 0x84, 0x2C, 0x25, 0x5F, 0x3E, 0x3F,  0xBA, 0xBB, 0xBC, 0xBD, 0xBE, 0xBF, 0xC0, 0xC1,     /* 70-7F */  0xC2, 0x60, 0x3A, 0x23, 0x40, 0x27, 0x3D, 0x22,  0xC3, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,     /* 80-8F */  0x68, 0x69, 0xC4, 0xC5, 0xC6, 0xC7, 0xC8, 0xC9,  0xCA, 0x6A, 0x6B, 0x6C, 0x6D, 0x6E, 0x6F, 0x70,     /* 90-9F */  0x71, 0x72, 0xCB, 0xCC, 0xCD, 0xCE, 0xCF, 0xD0,  0x7E, 0x83, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,     /* A0-AF */  0x79, 0x7A, 0xD2, 0xD3, 0xD4, 0xD5, 0xD6, 0xD7,  0x5E, 0xD9, 0x5C, 0xDB, 0xDC, 0xDD, 0xDE, 0xDF,     /* B0-BF */  0xE0, 0xE1, 0x5B, 0x5D, 0xE4, 0xE5, 0xE6, 0xE7,  0x7B, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,     /* C0-CF */  0x48, 0x49, 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED,  0x7D, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F, 0x50,     /* D0-DF */  0x51, 0x52, 0xEE, 0xEF, 0xF0, 0xF1, 0xF2, 0xF3,  0x24, 0x9F, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,     /* E0-EF */  0x59, 0x5A, 0xF4, 0xF5, 0xF6, 0xF7, 0xF8, 0xF9,  0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,     /* F0-FF */  0x38, 0x39, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF,};static USGS HZA_E1[][2] ={  0xA1A1,0x4040, 0xA1A2,0x4344, 0xA1A3,0x4341, 0xA1A4,0x4345,  0xA1A7,0x4460, 0xA1A8,0x445B, 0xA1A9,0x445D, 0xA1AA,0x444A,  0xA1AB,0x43A1, 0xA1AC,0x447C, 0xA1AD,0x447F, 0xA1AE,0x4461,  0xA1AF,0x4471, 0xA1B0,0x4462, 0xA1B1,0x4472, 0xA1B2,0x4463,  0xA1B3,0x4473, 0xA1B4,0x4464, 0xA1B5,0x4474, 0xA1B6,0x4465,  0xA1B7,0x4475, 0xA1BE,0x4466, 0xA1BF,0x4476, 0xA1C0,0x444B,  0xA1D9,0x444C, 0xA1DC,0x4467, 0xA1DD,0x4477, 0xA1DE,0x444D,  0xA1DF,0x4478, 0xA1E2,0x4479, 0xA1E6,0x444E, 0xA1E7,0x42E0,  0xA1E8,0x4588, 0xA1E9,0x434A, 0xA1EA,0x424A, 0xA1EB,0x458B,  0xA1EC,0x446A, 0xA1ED,0x446E, 0xA1F2,0x44E4, 0xA1F9,0x446B,  0xA1FE,0x447D,  0xA3A1,0x425A, 0xA3A2,0x427F, 0xA3A3,0x427B, 0xA3A4,0x425B,  0xA3A5,0x426C, 0xA3A6,0x4250, 0xA3A7,0x4450, 0xA3A8,0x424D,  0xA3A9,0x425D, 0xA3AA,0x425C, 0xA3AB,0x424E, 0xA3AC,0x426B,  0xA3AD,0x4260, 0xA3AE,0x424B, 0xA3AF,0x4261, 0xA3BA,0x427A,  0xA3BB,0x425E, 0xA3BC,0x424C, 0xA3BD,0x427E, 0xA3C0,0x427C,  0xA3DB,0x4444, 0xA3DC,0x43E0, 0xA3DD,0x4445, 0xA3DE,0x4470,  0xA3DF,0x426D, 0xA3E0,0x4279, 0xA3FB,0x42C0, 0xA3FC,0x424F,  0xA3FD,0x42D0, 0xA3FE,0x42A1,  0xA4A1,0x4447, 0xA4A2,0x4481, 0xA4A3,0x4448, 0xA4A4,0x4482,  0xA4A5,0x4449, 0xA4A6,0x4483, 0xA4A7,0x4451, 0xA4A8,0x4484,  0xA4A9,0x4452, 0xA4AC,0x44C0, 0xA4AD,0x4487, 0xA4AE,0x44C1,  0xA4AF,0x4488, 0xA4B0,0x44C2, 0xA4B1,0x4489, 0xA4B2,0x44C3,  0xA4B3,0x448A, 0xA4B4,0x44C4, 0xA4B5,0x448C, 0xA4B6,0x44C5,  0xA4B7,0x448D, 0xA4B8,0x44C6, 0xA4B9,0x448E, 0xA4BA,0x44C7,  0xA4BB,0x448F, 0xA4BC,0x44C8, 0xA4BD,0x4490, 0xA4BE,0x44C9,  0xA4BF,0x4491, 0xA4C0,0x44CA, 0xA4C1,0x4492, 0xA4C2,0x44CB,  0xA4C3,0x4456, 0xA4C4,0x4493, 0xA4C5,0x44CC, 0xA4C6,0x4494,  0xA4C7,0x44CD, 0xA4C8,0x4495, 0xA4C9,0x44CE, 0xA4CF,0x449D,  0xA4D0,0x44CF, 0xA4D1,0x44D5, 0xA4D2,0x449E, 0xA4D3,0x44D0,  0xA4D4,0x44D6, 0xA4D5,0x449F, 0xA4D6,0x44D1, 0xA4D7,0x44D7,  0xA4D8,0x44A2, 0xA4D9,0x44D2, 0xA4DA,0x44D8, 0xA4DB,0x44A3,  0xA4DC,0x44D3, 0xA4DD,0x44D9, 0xA4E3,0x4453, 0xA4E4,0x44A9,  0xA4E5,0x4454, 0xA4E6,0x44AA, 0xA4E7,0x4455, 0xA4EE,0x4457,  0xA4EF,0x44BC, 0xA4F2,0x4446, 0xA4F3,0x44BD,  0xA5A1,0x4347, 0xA5A2,0x4381, 0xA5A3,0x4348, 0xA5A4,0x4382,  0xA5A5,0x4349, 0xA5A6,0x4383, 0xA5A7,0x4351, 0xA5A8,0x4384,  0xA5A9,0x4352, 0xA5AC,0x43C0, 0xA5AD,0x4387, 0xA5AE,0x43C1,  0xA5AF,0x4388, 0xA5B0,0x43C2, 0xA5B1,0x4389, 0xA5B2,0x43C3,  0xA5B3,0x438A, 0xA5B4,0x43C4, 0xA5B5,0x438C, 0xA5B6,0x43C5,  0xA5B7,0x438D, 0xA5B8,0x43C6, 0xA5B9,0x438E, 0xA5BA,0x43C7,  0xA5BB,0x438F, 0xA5BC,0x43C8, 0xA5BD,0x4390, 0xA5BE,0x43C9,  0xA5BF,0x4391, 0xA5C0,0x43CA, 0xA5C1,0x4392, 0xA5C2,0x43CB,  0xA5C3,0x4356, 0xA5C4,0x4393, 0xA5C5,0x43CC, 0xA5C6,0x4394,  0xA5C7,0x43CD, 0xA5C8,0x4395, 0xA5C9,0x43CE, 0xA5CF,0x439D,  0xA5D0,0x43CF, 0xA5D1,0x43D5, 0xA5D2,0x439E, 0xA5D3,0x43D0,  0xA5D4,0x43D6, 0xA5D5,0x439F, 0xA5D6,0x43D1, 0xA5D7,0x43D7,  0xA5D8,0x43A2, 0xA5D9,0x43D2, 0xA5DA,0x43D8, 0xA5DB,0x43A3,  0xA5DC,0x43D3, 0xA5DD,0x43D9, 0xA5E3,0x4353, 0xA5E4,0x43A9,  0xA5E5,0x4354, 0xA5E6,0x43AA, 0xA5E7,0x4355, 0xA5EE,0x4357,  0xA5EF,0x43BC, 0xA5F2,0x4346, 0xA5F3,0x43BD, 0xA5F4,0x43D4};static USGS HZA_E2[][3] ={  0xA1A5,0xA1A6,0x4545, 0xA1B8,0xA1B9,0x4342, 0xA1BA,0xA1BB,0x4442,  0xA1BC,0xA1BD,0x455B, 0xA1C1,0xA1C2,0x447A, 0xA1C3,0xA1D8,0x4562,  0xA1DA,0xA1DB,0x4579, 0xA1E0,0xA1E1,0x4468, 0xA1E3,0xA1E5,0x44ED,  0xA1EE,0xA1EF,0x44E5, 0xA1F0,0xA1F1,0x44E0, 0xA1F3,0xA1F6,0x44E7,  0xA1F7,0xA1F8,0x44E2, 0xA1FA,0xA1FD,0x44F0,  0xA2B1,0xA2D8,0x45B1, 0xA2D9,0xA2E2,0x45E1, 0xA2E5,0xA2EE,0x45F1,  0xA2F1,0xA2FC,0x41F1,  0xA3B0,0xA3B9,0x42F0, 0xA3BE,0xA3BF,0x426E, 0xA3C1,0xA3C9,0x42C1,  0xA3CA,0xA3D2,0x42D1, 0xA3D3,0xA3DA,0x42E2, 0xA3E1,0xA3E9,0x4281,  0xA3EA,0xA3F2,0x4291, 0xA3F3,0xA3FA,0x42A2,  0xA4AA,0xA4AB,0x4485, 0xA4CA,0xA4CE,0x4496, 0xA4DE,0xA4E2,0x44A4,  0xA4E8,0xA4EB,0x44AC, 0xA4EC,0xA4ED,0x44BA, 0xA4F0,0xA4F1,0x44DA,  0xA5AA,0xA5AB,0x4385, 0xA5CA,0xA5CE,0x4396, 0xA5DE,0xA5E2,0x43A4,  0xA5E8,0xA5EB,0x43AC, 0xA5EC,0xA5ED,0x43BA, 0xA5F0,0xA5F1,0x43DA,  0xA5F5,0xA5F6,0x4359,  0xA6A1,0xA6B8,0x4161, 0xA6C1,0xA6D8,0x4141,  0xA7A1,0xA7C1,0x41C0, 0xA7D1,0xA7F1,0x4180,  0xA8A1,0xA8BA,0x4641, 0xA8C5,0xA8E9,0x4665,  0xA9A4,0xA9EF,0x46A4};static USGS HZE_A1[][2] ={  0x4040,0xA1A1,  0x424A,0xA1EA, 0x424B,0xA3AE, 0x424C,0xA3BC, 0x424D,0xA3A8,  0x424E,0xA3AB, 0x424F,0xA3FC, 0x4250,0xA3A6, 0x425A,0xA3A1,  0x425B,0xA3A4, 0x425C,0xA3AA, 0x425D,0xA3A9, 0x425E,0xA3BB,  0x4260,0xA3AD, 0x4261,0xA3AF, 0x426B,0xA3AC, 0x426C,0xA3A5,  0x426D,0xA3DF, 0x4279,0xA3E0, 0x427A,0xA3BA, 0x427B,0xA3A3,  0x427C,0xA3C0, 0x427E,0xA3BD, 0x427F,0xA3A2, 0x42A1,0xA3FE,  0x42C0,0xA3FB, 0x42D0,0xA3FD, 0x42E0,0xA1E7,  0x4341,0xA1A3, 0x4344,0xA1A2, 0x4345,0xA1A4, 0x4346,0xA5F2,  0x4347,0xA5A1, 0x4348,0xA5A3, 0x4349,0xA5A5, 0x434A,0xA1E9,  0x4351,0xA5A7, 0x4352,0xA5A9, 0x4353,0xA5E3, 0x4354,0xA5E5,  0x4355,0xA5E7, 0x4356,0xA5C3, 0x4357,0xA5EE, 0x4381,0xA5A2,  0x4382,0xA5A4, 0x4383,0xA5A6, 0x4384,0xA5A8, 0x4387,0xA5AD,  0x4388,0xA5AF, 0x4389,0xA5B1, 0x438D,0xA5B7, 0x438E,0xA5B9,  0x438F,0xA5BB, 0x4390,0xA5BD, 0x4391,0xA5BF, 0x4392,0xA5C1,  0x4393,0xA5C4, 0x4394,0xA5C6, 0x4395,0xA5C8, 0x439D,0xA5CF,  0x439E,0xA5D2, 0x439F,0xA5D5, 0x43A1,0xA1AB, 0x43A2,0xA5D8,  0x43A3,0xA5DB, 0x43A9,0xA5E4, 0x43BC,0xA5EF, 0x43BD,0xA5F3,  0x43C0,0xA5AC, 0x43C1,0xA5AE, 0x43C2,0xA5B0, 0x43C3,0xA5B2,  0x43C4,0xA5B4, 0x43C5,0xA5B6, 0x43C6,0xA5B8, 0x43C7,0xA5BA,  0x43C8,0xA5BC, 0x43C9,0xA5BE, 0x43CA,0xA5C0, 0x43CB,0xA5C2,  0x43CC,0xA5C5, 0x43CD,0xA5C7, 0x43CE,0xA5C9, 0x43CF,0xA5D0,  0x43D0,0xA5D3, 0x43D1,0xA5D6, 0x43D2,0xA5D9, 0x43D3,0xA5DC,  0x43D4,0xA5F4, 0x43D5,0xA5D1, 0x43D6,0xA5D4, 0x43D7,0xA5D7,  0x43D8,0xA5DA, 0x43D9,0xA5DD, 0x43E0,0xA3DC,  0x4444,0xA3DB, 0x4445,0xA3DD, 0x4446,0xA4F2, 0x4447,0xA4A1,  0x4448,0xA4A3, 0x4449,0xA4A5, 0x444A,0xA1AA, 0x444B,0xA1C0,  0x444C,0xA1D9, 0x444D,0xA1DE, 0x444E,0xA1E6, 0x4450,0xA3A7,  0x4451,0xA4A7, 0x4452,0xA4A9, 0x4453,0xA4E3, 0x4454,0xA4E5,  0x4455,0xA4E7, 0x4456,0xA4C3, 0x4457,0xA4EE, 0x445B,0xA1A8,  0x445D,0xA1A9, 0x4460,0xA1A7, 0x4461,0xA1AE, 0x4462,0xA1B0,  0x4463,0xA1B2, 0x4464,0xA1B4, 0x4465,0xA1B6, 0x4466,0xA1BE,  0x4467,0xA1DC, 0x446A,0xA1EC, 0x446B,0xA1F9, 0x446E,0xA1ED,  0x4470,0xA3DE, 0x4471,0xA1AF, 0x4472,0xA1B1, 0x4473,0xA1B3,  0x4474,0xA1B5, 0x4475,0xA1B7, 0x4476,0xA1BF, 0x4477,0xA1DD,  0x4478,0xA1DF, 0x4479,0xA1E2, 0x447C,0xA1AC, 0x447D,0xA1FE,  0x447F,0xA1AD, 0x4481,0xA4A2, 0x4482,0xA4A4, 0x4483,0xA4A6,  0x4484,0xA4A8, 0x4487,0xA4AD, 0x4488,0xA4AF, 0x4489,0xA4B1,  0x448D,0xA4B7, 0x448E,0xA4B9, 0x448F,0xA4BB, 0x4490,0xA4BD,  0x4491,0xA4BF, 0x4492,0xA4C1, 0x4493,0xA4C4, 0x4494,0xA4C6,  0x4495,0xA4C8, 0x449D,0xA4CF, 0x449E,0xA4D2, 0x44A3,0xA4DB,  0x44A9,0xA4E4, 0x44BC,0xA4EF, 0x44BD,0xA4F3, 0x44C0,0xA4AC,  0x44C1,0xA4AE, 0x44C2,0xA4B0, 0x44C3,0xA4B2, 0x44C4,0xA4B4,  0x44C5,0xA4B6, 0x44C6,0xA4B8, 0x44C7,0xA4BA, 0x44C8,0xA4BC,  0x44C9,0xA4BE, 0x44CA,0xA4C0, 0x44CB,0xA4C2, 0x44CC,0xA4C5,  0x44CD,0xA4C7, 0x44CE,0xA4C9, 0x44CF,0xA4D0, 0x44D0,0xA4D3,  0x44D1,0xA4D6, 0x44D2,0xA4D9, 0x44D3,0xA4DC, 0x44D5,0xA4D1,  0x44D6,0xA4D4, 0x44D7,0xA4D7, 0x44D8,0xA4DA, 0x44D9,0xA4DD,  0x44E4,0xA1F2};static USGS HZE_A2[][3] ={  0x4141,0x4158,0xA6C1, 0x4161,0x4178,0xA6A1, 0x4180,0x41A0,0xA7D1,  0x41C0,0x41E0,0xA7A1, 0x41F1,0x41FC,0xA2F1,  0x426E,0x426F,0xA3BE, 0x4281,0x4289,0xA3E1, 0x4291,0x4299,0xA3EA,  0x42A2,0x42A9,0xA3F3, 0x42C1,0x42C9,0xA3C1, 0x42D1,0x42D9,0xA3CA,  0x42E2,0x42E9,0xA3D3, 0x42F0,0x42F9,0xA3B0,  0x4342,0x4343,0xA1B8, 0x4359,0x435A,0xA5F5, 0x4385,0x4386,0xA5AA,  0x438A,0x438C,0xA5B3, 0x4396,0x439A,0xA5CA, 0x43A4,0x43A8,0xA5DE,  0x43AA,0x43AF,0xA5E6, 0x43BA,0x43BB,0xA5EC, 0x43DA,0x43DB,0xA5F0,  0x4442,0x4443,0xA1BA, 0x4468,0x4469,0xA1E0, 0x447A,0x447B,0xA1C1,  0x4485,0x4486,0xA4AA, 0x448A,0x448C,0xA4B3, 0x4496,0x449A,0xA4CA,  0x449F,0x44A2,0xA4D5, 0x44A4,0x44A8,0xA4DE, 0x44AA,0x44AF,0xA4E6,  0x44BA,0x44BB,0xA4EC, 0x44DA,0x44DB,0xA4F0, 0x44E0,0x44E1,0xA1F0,  0x44E2,0x44E3,0xA1F7, 0x44E5,0x44E6,0xA1EE, 0x44E7,0x44EA,0xA1F3,  0x44ED,0x44EF,0xA1E3, 0x44F0,0x44F3,0xA1FA,  0x4545,0x4546,0xA1A5, 0x455B,0x457A,0xA1BC, 0x4588,0x458B,0xA1E8,  0x45B1,0x45D8,0xA2B1, 0x45E1,0x45EA,0xA2D9, 0x45F1,0x45FA,0xA2E5,  0x4641,0x4689,0xA8A1, 0x46A4,0x46EF,0xA9A4};int  gl_E2Acvt7x_6B = NO;/* ------------------------------------------------------------------------- */USGC ASCIItoEBCDIC(USGC c)/*   ASCII SBCS to EBCDIC SBCS*/{  return a2e[c];}/* ------------------------------------------------------------------------- */USGC EBCDICtoASCII(USGC c)/*   EBCDIC SBCS to ASCII SBCS*/{  return e2a[c];}/* ------------------------------------------------------------------------- */USGS EBCDIC_cvt6B_7x(USGS EBCDIC_Code)/*   EBCDIC convert for 'lxbs' of CIB BIS2   M.L.Y  1999.10.28*/{  USGC HB_E, LB_E;  HB_E = (EBCDIC_Code & 0xFF00) >> 8;  LB_E = EBCDIC_Code & 0x00FF;  if(EBCDIC_Code == 0x6B6B) return 0x7841;  if(HB_E == 0x6B) HB_E = 0x76;  if(LB_E == 0x6B)  {    LB_E = HB_E;    HB_E = 0x77;  }  return HB_E << 8 | LB_E;}/* ------------------------------------------------------------------------- */USGS EBCDIC_cvt7x_6B(USGS EBCDIC_Code)/*   EBCDIC convert for 'lxbs' of CIB BIS2   M.L.Y  1999.10.28*/{  USGC HB_E, LB_E;  HB_E = (EBCDIC_Code & 0xFF00) >> 8;  LB_E = EBCDIC_Code & 0x00FF;  if(EBCDIC_Code == 0x7841) return 0x6B6B;  if(HB_E == 0x76) HB_E = 0x6B;  if(HB_E == 0x77)  {    HB_E = LB_E;    LB_E = 0x6B;  }  return HB_E << 8 | LB_E;}/* ------------------------------------------------------------------------- */USGS HZ_A2E(USGS GB_Code)/*   ASCII DBCS to EBCDIC DBCS   If the ASCII DBCS invalid, return EBCDIC DBCS blank (0x4040)*/{  USGC HB_A, LB_A, HB_E, LB_E;  USGS EBCDIC_Code;  /* USGS code_err = 0xFEFE; */  USGS EBHZ_BLANK = 0x4040;  int  i, n_ae1, n_ae2;  HB_A = (GB_Code & 0xFF00) >> 8;  LB_A = GB_Code & 0x00FF;  if(HB_A < 0xA1 || (HB_A > 0xA9 && HB_A < 0xB0))    return EBHZ_BLANK;  if(LB_A < 0xA1 || LB_A > 0xFE)    return EBHZ_BLANK;  if(HB_A >= 0xB0 && HB_A <= 0xF7 &&     LB_A >= 0xA1 && LB_A <= 0xFE)  {    if(GB_Code >= 0xD7FA && GB_Code <= 0xD7FE)      return EBHZ_BLANK;    HB_E = ((HB_A + 1) >> 1) - (0xB0 >> 1) + 0x48;    if((HB_A & 0x0001) == 0)      LB_E = LB_A - 1;    else    {      if(LB_A < 0xE0)        LB_E = LB_A - 0xA1 + 0x41;      else        LB_E = LB_A - 0xE0 + 0x81;    }    EBCDIC_Code = HB_E << 8 | LB_E;    return EBCDIC_Code;  }  n_ae1 = sizeof(HZA_E1)/sizeof(HZA_E1[0]);  n_ae2 = sizeof(HZA_E2)/sizeof(HZA_E2[0]);  for(i=0; i<n_ae1; i++)    if(GB_Code == HZA_E1[i][0]) return HZA_E1[i][1];  for(i=0; i<n_ae2; i++)    if(GB_Code >= HZA_E2[i][0] && GB_Code <= HZA_E2[i][1])      return HZA_E2[i][2] + GB_Code - HZA_E2[i][0];  return EBHZ_BLANK;}/* ------------------------------------------------------------------------- */USGS HZ_E2A(USGS EBCDIC_Code)/*   EBCDIC DBCS to ASCII DBCS   If the EBCDIC DBCS invalid, return ASCII DBCS blank (0xA1A1)*/{  USGC HB_A, LB_A, HB_E, LB_E;  USGS GB_Code;  /* USGS code_err = 0xFFFF; */  USGS GB_BLANK = 0xA1A1;  int  i, n_ea1, n_ea2;  HB_E = (EBCDIC_Code & 0xFF00) >> 8;  LB_E = EBCDIC_Code & 0x00FF;  if(EBCDIC_Code != 0x4040 && EBCDIC_Code < 0x4141)    return GB_BLANK;  if(EBCDIC_Code > 0x46EF && EBCDIC_Code < 0x48A0)    return GB_BLANK;  if(EBCDIC_Code > 0x6C9F)    return GB_BLANK;  if(LB_E < 0x41 || LB_E > 0xFD)    return GB_BLANK;  if(HB_E >= 0x48 && HB_E <= 0x6C && LB_E == 0x80)    return GB_BLANK;  if(HB_E >= 0x48 && HB_E <= 0x6C &&     LB_E >= 0x41 && LB_E <= 0xFD)  {    HB_A = (HB_E - 0x48) * 2 + 0xB0 - 1;    if(LB_E >= 0xA0)      HB_A = HB_A + 1;    if(LB_E < 0x80)      LB_A = LB_E - 0x41 + 0xA1;    else    {      if(LB_E < 0xA0)        LB_A = LB_E - 0x81 + 0xE0;      else  /* LB_E >= 0xA0 */        LB_A = LB_E + 1;    }    GB_Code = HB_A << 8 | LB_A;    return GB_Code;  }  n_ea1 = sizeof(HZE_A1)/sizeof(HZE_A1[0]);  n_ea2 = sizeof(HZE_A2)/sizeof(HZE_A2[0]);  for(i=0; i<n_ea1; i++)    if(EBCDIC_Code == HZE_A1[i][0]) return HZE_A1[i][1];  for(i=0; i<n_ea2; i++)    if(EBCDIC_Code >= HZE_A2[i][0] &&       EBCDIC_Code <= HZE_A2[i][1])      return HZE_A2[i][2] + EBCDIC_Code - HZE_A2[i][0];  return GB_BLANK;}/* ------------------------------------------------------------------------- */int  Str_A2E(USGC *src, int src_len, USGC *dest)/*   ASCII string to EBCDIC   Return length after string conversion*/{  int  i, j;  char hz_stat, is_hanzi;  USGS GB, EB;  hz_stat = NO;  for(i=0, j=0; i<src_len; i++)  {    is_hanzi = NO;    if(src[i] > 0xA0 && src[i] < 0xFF)    {      if((i+1) < src_len && src[i+1] > 0xA0 && src[i+1] < 0xFF)        is_hanzi = YES;    }    if(is_hanzi == YES)    {      GB = src[i] << 8 | src[i+1];      EB = HZ_A2E(GB);      if(hz_stat == NO)      {        hz_stat = YES;        dest[j++] = 0x0E;      }      dest[j++] = (EB & 0xFF00) >> 8;      dest[j++] = EB & 0x00FF;      i++;    }    else    {      if(hz_stat == YES)      {        hz_stat = NO;        dest[j++] = 0x0F;      }      dest[j++] = ASCIItoEBCDIC(src[i]);    }  }  if(hz_stat == YES)  {    hz_stat = NO;    dest[j++] = 0x0F;  }  dest[j] = NUL;  return j;}/* ------------------------------------------------------------------------- */int  Str_E2A(USGC *src, int src_len, USGC *dest)/*   EBCDIC string to ASCII   Return length after string conversion*/{  int  i, j;