When user exit TIRCURTZ is installed using SAMPLIB member MKUEXITS and there is not an EXEC CICS statement in the modified code, it will be created as a COBOL module thus not requiring a CICS pre-compiler. An exit which is installed by using SAMPLIB member MKUEXITS with no EXEC CICS statement in the TIRCUSRX modified code will cause AEXZ abend to load on CICS environment.
If user exit TIRCURTZ is created but EXEC CICS statement is notused in customized code, the following action is required:
- If EXEC CICS statements are not used but EIB or COMMAREA are used, use COBCICS PROC in Gen provided MKUEXIT and create the object module. CICS interface module should be implemented with following link card:
- If EXEC CICS statements, EIB and COMMAREA are not used.
- Add parameters to user exit:
(Note: the following parameters are added to LINKAGE SECTION as a COBOL program)
01 IEF-PARM-1 PIC X.
01 IEF-PARM-2 PIC X.
These parameters are added to "USING" as follows:
PROCEDURE DIVISION USING IEF-PARM-1
- Use PROC COBEXIT instead of PROC COBCICS in MKUEXIT and create the object module. Create TIRCUSRZ with below link card.
INCLUDE EXITOBJ(TIRCUSRX) ENTRY CEESTARTMODE AMODE(31),RMODE(ANY) NAME TIRCUSRZ(R)
Please refer to the following Sample code and JCL for the case if EXEC CICS statements, EIB and COMMAREA are not used.
If EXEC CICS statement is used, you can use TIRCURTZ creation JCL in Gen provided MKUEXIT.