Difference between revisions of "Iconv usage"
From MidrangeWiki
(New page: = Use iconv() to convert CCSIDs = The following RPG fragment is an example of using the iconv() api to convert from the current job's CCSID to any other CCSID. <pre> /copy QSYSINC/QRPGL...) |
DaveLClarkI (talk | contribs) |
||
| Line 72: | Line 72: | ||
[[Category:API]] | [[Category:API]] | ||
[[Category:RPG_Examples]] | [[Category:RPG_Examples]] | ||
| + | [[Category:Sample Code]] | ||
[[Category:Internationalization]] | [[Category:Internationalization]] | ||
{{stub}} | {{stub}} | ||
Latest revision as of 19:51, 26 December 2018
Use iconv() to convert CCSIDs
The following RPG fragment is an example of using the iconv() api to convert from the current job's CCSID to any other CCSID.
/copy QSYSINC/QRPGLESRC,QTQICONV
PconvertToCcsid...
P B export
D PI 32767 varying
D pInput 32767 varying const
D pToCCSID 5 0 const
D ibmIConvOpen Pr 52a extproc('QtqIconvOpen')
D fromcode * value
D tocode * value
D ibmIConv Pr 10i 0 extproc('iconv')
D cd 52a value
D inbuf *
D inbytesleft 10i 0
D outbuf *
D outbytesleft 10i 0
D ibmIconvClose Pr 10i 0 extproc('iconv_close')
D cd 52a value
D iconv_t Ds
D t_rtnval 10i 0
D t_cd
D t_cdi 10i 0 Dim(12) Overlay(t_cd)
D fromcode DS likeds(QTQCODE) inz
D tocode DS likeds(QTQCODE) inz
D inputPtr S *
D inputLen S 10I 0
D outputPtr S *
D outputLen S 10I 0
D input S 32767
D output S 32767
Drc S 10I 0
/free
fromcode.QTQCCSID = JOB_CCSID;
tocode.QTQCCSID = pToCCSID;
fromcode.QTQERVED02 = *allx'00';
tocode.QTQERVED02 = *allx'00';
iconv_t = ibmIconvOpen(%addr(tocode) : %addr(fromcode));
input = pInput;
inputPtr = %addr(input);
inputLen = %len(%trimr(input));
outputPtr = %addr(output);
outputLen = inputLen;
rc = ibmIConv(iconv_t :
inputPtr : inputLen:
outputPtr : outputLen);
rc = ibmIconvClose( iconv_t );
return %TRIMR(output);
/end-free
P E
This article is a stub. You can help by editing it.
