RE: UCS2 TO code page 037

Russian Cyrillic CCSID is 1025, not 37.
You may try to convert between UCS2 to 1025 and then from 1025 to UCS2.

    Alexei
always speaking for myself




"Mohammad Tanveer" <mtanveer@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/22/2006 05:54 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: UCS2 TO code page 037






I am trying to save Russian characters from a CCSID field into a Code Page
37 field and then from code page 37 field into another CCSID field.

 

I am able to do it using this example but for some reason in my code page 
37
field I still see some special character?  Why?

 

 

Thanks 

 

 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Klement
Sent: Wednesday, February 22, 2006 4:05 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: UCS2 TO code page 037

 

 

> How can I convert UCS2 to code page 037 and then from code page 037 to
UCS2?

> Any examples?

 

UCS2 is CCSID 13488 (more or less) on the iSeries.  So you can do this:

 

      D input1          s             50A

      D output1         s             50C   CCSID(13488)

 

      D input2          s             50C   CCSID(13488)

      D output2         s             50A

       /free

 

         // from the job CCSID to UCS2

 

         Input1 = 'Nows the time for all good men';

         Output1 = %ucs2(Input1);

 

         // from UCS2 to the Job CCSID

 

         input2 = %ucs2('I love my dog spot');

         output2 = %char(input2);

 

         *inlr = *on;

 

       /end-free

 

Change it to CCSID(1200) if you want UTF-16 (which is a superset of 13488, 


I think.)