isCOBOL Evolve : Appendices : Library Routines : C$CODESET
C$CODESET
The C$CODESET library routine translates a string from EBCDIC to ASCII and vice versa.
Syntax:
 CALL "C$CODESET" USING transFlag
                        length,
                        transString
                       [encoding]
                 GIVING ReturnCode
Parameters:
transFlag
PIC 9(2) COMP-X
Indicates the type of text in TransString, and whether to apply Length when performing the translation. TransFlag takes one of the following values: 0 Indicates that TransString contains EBCDIC and that Length specifies the length of the string to translate to ASCII. 1 Indicates that TransString contains ASCII and that Length specifies the length of the string to translate to EBCDIC. 2 Indicates that TransString contains EBCDIC and that 256 bytes of data should be translated to ASCII. The Length parameter is ignored. 3 Indicates that TransString contains ASCII and that 256 bytes of data should be translated to EBCDIC. The Length parameter is ignored.
length
9(9) COMP-X
Specifies the length of the string to translate.
transString
PIC X(n)
Contains the string to translate and the result of the translation.
encoding
PIC X(n)
Contains an alternate java encoding to be used in conversion. By default cp037 is used.
Return code:
returnCode can be any signed numeric data item and provides additional information:
0
Operation successful.
-1
Error converting to EBCDIC
-2
Error converting to ASCII
-3
Bad arguments
Examples:
Example - Translate a string from ASCII to EBCDIC
working-storage section.
77 transFlag   pic 9(2) comp-x.
77 strLen      pic 9(9) comp-x.
77 transString pic x(256).
77 retCode     pic s9(1).
 
procedure division.
...
   move "This is the ASCII text" to transString
   move 1  to transFlag
   move 22 to strLen
   call "c$codeset" 
              using transFlag, strLen transString
             giving retCode.