Re: %char(ucs2)

I am able to replicate the problem you are seeing and can think of no rational reason for the behavior you are seeing.  I would recommend contacting IBM service.  There is something wrong here.  For some reason you are getting the DBCS section sign (x'446A') rather than the SBCS value.  The conversion does work properly when directly using the iconv() support, so it does not appear to be related to the CCSID mapping support of the system.

Bruce
Bruce Vining Services
507-206-4178

--- On Mon, 11/24/08, nicolas <nfaucheux@xxxxxxxxxxx> wrote:

From: nicolas <nfaucheux@xxxxxxxxxxx>
Subject: %char(ucs2)
To: rpg400-l@xxxxxxxxxxxx
Date: Monday, November 24, 2008, 5:00 AM

Hi,

when i compile this code with ccsid(297) (i mean job ccsid)
and then run it with ccsid(37)

d sds sds
d status *status
d ucs s 1c inz(%ucs2('§'))
d ebc s 10a
/free
ebc = %char(ucs);
*inlr = *on;
/end-free

i get x'0E446A0F' in ebc instead of x'B5' and status remains
00000
this is Shift-in + something that seems a Chinese char + Shift-out

it doesn't happen with some other ccsid's I have tested

did someone already had this problem ?
did I misunderstand %char() of an ucs2 var ?

TIA.

nicolas