Jim McAlpine wrote:
OK, putting it another way, this is what I've got -
CASE NORMAL; /* ENABLE TOUPPER AND TOLOWER */
CONVERSION 01146,00367,ER;
CONVERSION 01146,01200,ER;
CONVERSION 01146,01208,ER;
CONVERSION 00367,01146,ER;
CONVERSION 01200,01146,ER;
CONVERSION 01208,01146,ER;
CONVERSION 01146,01200,RECLM;
CONVERSION 01200,01146,RECLM;
CONVERSION 01146,01208,RECLM;
CONVERSION 01200,01208,RECLM;
Do I need anything else.
Jim McAlpine
On 9/14/06, Jim McAlpine <[EMAIL PROTECTED]> wrote:
I'm trying to get my head round what is needed to be set up for the
Unicode Conversion Services for DB2 and Enterprise COBOL. Can someone in
the UK give me a look at the source they have to create the conversion
images for code pages 285 and/or 1146.
TIA
Jim McAlpine
Jim,
For what it's worth, here's what we used (if all 439 lines make it to
the list):
/********************************************
* INPUT STATEMENTS FOR THE IMAGE GENERATOR *
********************************************/
CASE NORMAL;
/********************************************************/
/* TO/FROM LATIN-1 (WINDOWS) TO UNICODE */
/********************************************************/
CONVERSION 1252, /* LATIN-1 WINDOWS HHC */
1208,ER; /* UTF-8 FOR DB2 HHC */
CONVERSION 1252, /* LATIN-1 WINDOWS HHC */
1208; /* UTF-8 HHC */
/********************************************************/
/* FROM LATIN-1 (EBCDIC) */
/********************************************************/
CONVERSION 037, /* LATIN-1 EBCDIC */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 037, /* LATIN-1 EBCDIC */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 037, /* LATIN-1 EBCDIC */
819,ER; /* ASCII */
CONVERSION 037, /* LATIN-1 EBCDIC */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 037, /* LATIN-1 EBCDIC */
1208,ER; /* UTF-8 */
CONVERSION 037, /* LATIN-1 EBCDIC */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 037, /* LATIN-1 EBCDIC */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM LATIN-1 / OPEN SYSTEMS (EBCDIC) */
/********************************************************/
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
819,ER; /* ASCII */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1208,ER; /* UTF-8 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
037,ER; /* LATIN-1 EBCDIC */
/********************************************************/
/* FROM INTERNATIONAL LATIN-1 (EBCDIC) */
/********************************************************/
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
819,ER; /* ASCII */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1208,ER; /* UTF-8 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM INTERNATIONAL LATIN-1 W/EURO (EBCDIC) */
/********************************************************/
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
819,ER; /* ASCII */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1208,ER; /* UTF-8 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM ASCII */
/********************************************************/
CONVERSION 819, /* ASCII */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 819, /* ASCII */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 819, /* ASCII */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 819, /* ASCII */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 819, /* ASCII */
1208,ER; /* UTF-8 */
CONVERSION 819, /* ASCII */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 819, /* ASCII */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM UTF-8 */
/********************************************************/
CONVERSION 1208, /* UTF-8 */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1208, /* UTF-8 */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1208, /* UTF-8 */
819,ER; /* ASCII */
CONVERSION 1208, /* UTF-8 */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1208, /* UTF-8 */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 1208, /* UTF-8 */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 1208, /* UTF-8 */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
CONVERSION 1208, /* UTF-8 HHC */
1252,ER; /* LATIN-1 WINDOWS HHC */
/********************************************************/
/* FROM UTF-16 */
/********************************************************/
CONVERSION 1200, /* UNICODE UTF-16 */
367,ER; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1200, /* UNICODE UTF-16 */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
819,ER; /* ASCII */
CONVERSION 1200, /* UNICODE UTF-16 */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
1208,ER; /* UTF-8 */
CONVERSION 1200, /* UNICODE UTF-16 */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM 7-BIT ASCII (FOR DB2) */
/********************************************************/
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1200,ER; /* UNICODE UTF-16 */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
500,ER; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
819,ER; /* ASCII */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1140,ER; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1208,ER; /* UTF-8 */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
037,ER; /* LATIN-1 EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1047,ER; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/* NOW FOR COBOL */
/********************************************************/
/* FROM LATIN-1 (EBCDIC) */
/********************************************************/
CONVERSION 037, /* LATIN-1 EBCDIC */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 037, /* LATIN-1 EBCDIC */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 037, /* LATIN-1 EBCDIC */
819; /* ASCII */
CONVERSION 037, /* LATIN-1 EBCDIC */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 037, /* LATIN-1 EBCDIC */
1208; /* UTF-8 */
CONVERSION 037, /* LATIN-1 EBCDIC */
1200; /* UNICODE UTF-16 */
CONVERSION 037, /* LATIN-1 EBCDIC */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM LATIN-1 / OPEN SYSTEMS (EBCDIC) */
/********************************************************/
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
819; /* ASCII */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1208; /* UTF-8 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
1200; /* UNICODE UTF-16 */
CONVERSION 1047, /* LATIN-1 OPEN SYSTEMS EBCDIC */
037; /* LATIN-1 EBCDIC */
/********************************************************/
/* FROM INTERNATIONAL LATIN-1 (EBCDIC) */
/********************************************************/
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
037; /* LATIN-1 EBCDIC */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
819; /* ASCII */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1208; /* UTF-8 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1200; /* UNICODE UTF-16 */
CONVERSION 500, /* INTERNATIONAL LATIN-1 EBCDIC */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM INTERNATIONAL LATIN-1 W/EURO (EBCDIC) */
/********************************************************/
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
819; /* ASCII */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
037; /* LATIN-1 EBCDIC */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1208; /* UTF-8 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1200; /* UNICODE UTF-16 */
CONVERSION 1140, /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM ASCII */
/********************************************************/
CONVERSION 819, /* ASCII */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 819, /* ASCII */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 819, /* ASCII */
037; /* LATIN-1 EBCDIC */
CONVERSION 819, /* ASCII */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 819, /* ASCII */
1208; /* UTF-8 */
CONVERSION 819, /* ASCII */
1200; /* UNICODE UTF-16 */
CONVERSION 819, /* ASCII */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM UTF-8 */
/********************************************************/
CONVERSION 1208, /* UTF-8 */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1208, /* UTF-8 */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1208, /* UTF-8 */
819; /* ASCII */
CONVERSION 1208, /* UTF-8 */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1208, /* UTF-8 */
037; /* LATIN-1 EBCDIC */
CONVERSION 1208, /* UTF-8 */
1200; /* UNICODE UTF-16 */
CONVERSION 1208, /* UTF-8 */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
CONVERSION 1208, /* UTF-8 HHC */
1252; /* LATIN-1 WINDOWS HHC */
/********************************************************/
/* FROM UTF-16 */
/********************************************************/
CONVERSION 1200, /* UNICODE UTF-16 */
367; /* 7-BIT ASCII FOR DB2 */
CONVERSION 1200, /* UNICODE UTF-16 */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
819; /* ASCII */
CONVERSION 1200, /* UNICODE UTF-16 */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
1208; /* UTF-8 */
CONVERSION 1200, /* UNICODE UTF-16 */
037; /* LATIN-1 EBCDIC */
CONVERSION 1200, /* UNICODE UTF-16 */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
/********************************************************/
/* FROM 7-BIT ASCII (FOR DB2) */
/********************************************************/
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1200; /* UNICODE UTF-16 */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
500; /* INTERNATIONAL LATIN-1 EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
819; /* ASCII */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1140; /* INTERNATIONAL LATIN-1 W/EURO EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1208; /* UTF-8 */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
037; /* LATIN-1 EBCDIC */
CONVERSION 367, /* 7-BIT ASCII FOR DB2 */
1047; /* LATIN-1 OPEN SYSTEMS EBCDIC */
Kind regards,
-Steve Comstock
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
