RE: UTF-8 conversion -- RPG400-L

Carmen,

/free myfile = '/attachment/UTF-8.txt'; openflags = O_RDONLY + O_TEXTDATA; mode = S_IRUSR + S_IRGRP + S_IROTH; CCSID_UTF8 = 1208;

fd = open( myfile : openflags : mode : CCSID_UTF8 );

Be sure that you are specifying CCSID with the flag CCSID_UTF8, and not codepage. This is done in the openflags - O_CODEPAGE has the value 8388608, and O_CCSID has the value 32. Including O_CCSID in the openflags tells the API that you are specifying the fourth parameter as a CCSID value and not a CODEPAGE value. When you create a file this CCSID value is assigned to the file (not necessarily the data) This is known as the File CCSID. For any subsequent open of the file, the fouth parameter specifies the CCSID that you want to convert to/from. This is known as the open CCSID - the special value of 0 (zero) will default the open CCSID to the job CCSID. This is what you want to set for reading your file. The data will then be converted from the File CCSID to the open CCSID. That is, from CCSID 1208 to your job CCSID.

To create the file as UTF-8 you should have something like:

D O_CCSID         C                   Const(32)

/free
myfile = '/attachment/UTF-8.txt';
openflags = O_CREATE + O_WRTONLY + O_TRUNCATE + O_CCSID;
mode = S_IRWXU + S_READWRITE;
CCSID_UTF8 = 1208;

 fd = open( myfile
          : openflags
          : mode
          : CCSID_UTF8);

To open a file created as UTF-8 you need to specify something like:
/free
 myfile = '/attachment/UTF-8.txt';
 openflags = O_RDONLY + O_TEXTDATA + O_CCSID;
 mode = S_IRUSR + S_IRGRP + S_IROTH;

 fd = open( myfile
          : openflags
          : mode
          :0);

As you can see, you have specified the "Open" CCSID as the job CCSID. This will ensure that any read/writes will convert the data to/from your job CCSID and File CCSID respectively.

I hope this makes sense.

Cheers

Larry Ducie