Barbara,
Here are some of the things I've tried. In all cases I eventually receive a CCSID conversion error.
dcl-s base64encoded varchar(65535) inz;
dcl-s base64decoded char(65535) ccsid(*UTF8) inz;
dcl-s labelUTF varchar(65535) ccsid(*UTF8) inz;
dcl-s labelData varchar(65535) inz;
dcl-s zplEnd char(3) inz('^XZ') ccsid(*UTF8);
base64Encoded = xml.base64label;
len = base64_decode( %addr(base64Encoded:*data)
: %len(%trim(base64Encoded))
: %addr(base64Decoded)
: %size(base64Decoded)
);
labelUTF = %subst(base64Decoded:1:len);
x = %scan(%UCS2('^XZ') : %UCS2(labelUTF));
OR
x = %scan(%UCS2(zplEnd) : %UCS2(labeUTF ));
**An error occurred during conversion from CCSID(1208) to CCSID(13488)**
The scan works (and finds the string) if I change the scan to:
x = %scan(zplEnd : labelUTF);
However, when I go to write the data to an IFS file:
Ifs_DeleteFile(Stmf);
flag = o_wronly + o_creat + o_excl + o_ccsid;
mode = s_irusr + s_iwusr + s_iroth + s_iwoth;
fd = open(Stmf:flag:mode:1208:0);
Ifs_Write(fd:labelUTF);
Ifs_CloseFile(fd);
**An error occurred during conversion from CCSID(1208) to CCSID(37) ** occurs during write().
So I'm back to my original problem of being unable to write() the data to the IFS file.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Wednesday, August 19, 2020 9:39 PM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: Manipulating a decoded UTF8 string
On 2020-08-19 1:53 p.m., Greg Wilburn wrote:
Barbara,
Thanks for your explanation... but I'm completely lost. I understand that I have UTF8 data in my RPG variable.
I tried this:
x = %scan(%UCS2('^XZ') : %UCS2(base64decoded));
Result is x = 0.
Did you define your RPG variable with CCSID(*UTF8)? If not, RPG wouldn't
handle %UCS2(base64decoded) correctly.
midrange.com
