Conversion of DBCS to Chinese Traditional Language

[ithakotamurali]

Hi,

Could You please help me on below issue:-

Issue:- How to Convert DBCS to Chinese Traditional Language.

I have done the code as given below, still i am not able to convert DBCS to Chinese Traditional Language.

WORKING-STORAGE SECTION.

01 WS-LOCAL-LANG-NM.
05 WS-LOCAL-CM-NAME PIC N(400) usage national.
05 WS-LOCAL-CM-NAME2 PIC N(400) usage national.

01 INP-STRING.
05 SO PIC X.
05 WS-CM-LOCAL-NM PIC X(400).
05 SI PIC X.

PROCEDURE DIVISION


MOVE '$w|ÏßÐíb' TO WS-CM-LOCAL-NM -----------> Filed with DBCS data.
MOVE SHIFT-OUT TO SO
MOVE SHIFT-IN TO SI
MOVE FUNCTION NATIONAL-OF(WS-CM-LOCAL-NM,835) TO
WS-LOCAL-CM-NAME
DISPLAY 'MURALI NAME IN XML1' WS-CM-LOCAL-NM
DISPLAY 'MURALI NAME IN XML1-1' WS-LOCAL-CM-NAME

MOVE FUNCTION DISPLAY-OF(WS-LOCAL-CM-NAME,01208) TO
WS-LOCAL-CM-NAME2
DISPLAY 'MURALI NAME IN XML1-2' WS-LOCAL-CM-NAME2

Output i am seeing after "NATIONAL-OF" is:-
MURALI NAME IN XML1-1 C +-\ \

Seems i am getting some Junk data

Thanks & Regards,
Murali.I

[NicC]

Are you viewing the data using the code page for "Chinese Traditional Language"?

[ithakotamurali]

Hi Nic,

Yes I am using Chinese Traditional Language Code Page. After Conversion i even down loaded data to Binary format. Still i am seeing some junk char..