Converting DBCS data to EBCDIC

Use the &SYSONEBYTE built-in function to convert character strings from the double-byte character set (DBCS) to the EBCDIC character set. &SYSONEBYTE converts only DBCS characters that have EBCDIC equivalents: the DBCS blank (X'4040') and DBCS characters that begin with the value X'42'.

&SYSONEBYTE converts the DBCS characters that have EBCDIC equivalents by removing the first byte (X'40' or X'42'). The second byte, which remains, represents the character in EBCDIC.

&SYSONEBYTE places DBCS delimiters around DBCS characters that are not convertible (those that lack EBCDIC equivalents).

The following example represents a complete conversion from DBCS to EBCDIC:

SET X = &SYSONEBYTE(<d1d2d3d4>)   /* result: X = ABCD

The following example represents a partial conversion from DBCS to EBCDIC, assuming that d5 and d6 do not start with X'42' and are not the hex blank (X'4040'):

SET X = &SYSONEBYTE(<d3d4d5d6d7d8>)  /* result: X = CD<d5d6>EF