Data translation from ASCII and EBCDIC data notation

TCP⁄IP hosts and networks use ASCII data notation; MVS™ TCP⁄IP and its subsystems use EBCDIC data notation. In situations where data must be translated from one notation to the other, you can use the following utility programs:

EZACIC04: Translates EBCDIC data to ASCII data using an EBCDIC-to-ASCII translation table as described in z/OS Communications Server: IP Configuration Reference.
EZACIC05: Translates ASCII data to EBCDIC data using an ASCII-to-EBCDIC translation table as described in z/OS Communications Server: IP Configuration Reference.
EZACIC14: An alternative to EZACIC04 that translates EBCDIC data to ASCII data using the translation table listed in EZACIC14 program.
EZACIC15: An alternative to EZACIC05 that translates ASCII data to EBCDIC data using the translation table listed in EZACIC15 program.

A sample program that performs these translations is also available; you can modify them to perform any translations not provided by these routines. See the EZACICTR member in the SEZAINST data set for more information.

It is not necessary to define these programs to CICS®. If your application dynamically links these programs, then you must define them to CICS as follows:

DEFINE PROGRAM(EZACIC04) 
DESCRIPTION(TRANSLATE EBCDIC-8 BIT TO ASCII-8 BIT) 
GROUP(SOCKETS) 
CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) 
RELOAD(NO) RESIDENT(NO) USELPACOPY(NO) 
LANGUAGE(ASSEMBLER) STATUS(ENABLED) USAGE(NORMAL) 
CONCURRENCY(THREADSAFE)

DEFINE PROGRAM(EZACIC05) 
DESCRIPTION(TRANSLATE ASCII-8 BIT TO EBCDIC-8 BIT) 
GROUP(SOCKETS) 
CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) 
RELOAD(NO) RESIDENT(NO) USELPACOPY(NO) 
LANGUAGE(ASSEMBLER) STATUS(ENABLED) USAGE(NORMAL) 
CONCURRENCY(THREADSAFE)

DEFINE PROGRAM(EZACIC14) 
DESCRIPTION(TRANSLATE EBCDIC-8 BIT TO ASCII-8 BIT) 
GROUP(SOCKETS) 
CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) 
RELOAD(NO) RESIDENT(NO) USELPACOPY(NO) 
LANGUAGE(ASSEMBLER) STATUS(ENABLED) USAGE(NORMAL) 
CONCURRENCY(THREADSAFE)

DEFINE PROGRAM(EZACIC15) 
DESCRIPTION(TRANSLATE ASCII-8 BIT TO EBCDIC-8 BIT) 
GROUP(SOCKETS) 
CEDF(YES) DATALOCATION(ANY) EXECKEY(USER) 
RELOAD(NO) RESIDENT(NO) USELPACOPY(NO) 
LANGUAGE(ASSEMBLER) STATUS(ENABLED) USAGE(NORMAL) 
CONCURRENCY(THREADSAFE)

For more information about specifying the key that CICS uses to give control to the program and details about RDO resource types and their attributes, Program Definition Attributes, and the EXECKEY attribute, see the CICS Transaction Server information on this website: http://www-01.ibm.com/software/htp/cics/library/