z/OS User Exits › z/OS Server User Exits—CICS › TIRUPPRX—Uppercase Translation Exit › Source Code

Source Code

This exit is used by single byte and double byte applications. When used by double byte applications an alternate entry point TIRUPDBx is used. The source code for this for this exit is in CA Gen CEHBSAMP library in member TIRUPPRX. The sample exit is written in COBOL and uses OS linkage.

The Parameter list used by TIRUPPRX is as follows:

01  RUNTIME-PARM1              			PIC X.      
01  RUNTIME-PARM2               			PIC X.      
01  XLATE-TABLE-NAME                            PIC X(8).
01  XLATE-LEN                                   PIC S9(4) COMP.
01  XLATE-DATA                                  PIC X(4096).                                                       
01  GLOBDATA 					size 3645 bytes.