How to create user exit TIRCURTZ without EXEC CICS statements in the customized code.

Products

• Gen
• Gen - Workstation Toolset
• Gen - Host Encyclopedia
• Gen - Run Time Distributed

Issue/Introduction

Description:

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.

Solution:

If user exit TIRCURTZ is created but EXEC CICS statement is notused in customized code, the following action is required:

1. 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:
   
   INCLUDE EXITOBJ(TIRCUSRX)
   INCLUDE SYSLIB(DSNCLI)
   INCLUDE SYSLIB(DFHEI1)
   INCLUDE SYSLIB(DFHEAI0)
   ENTRY CEESTART
   MODE AMODE(31),RMODE(ANY)
   NAME TIRCUSRZ(R)
   
   
2. If EXEC CICS statements, EIB and COMMAREA are not used.
   
   
   1. 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 
                               IEF-PARM-2 
                               FILLER-PARM 
                               TIRUSRID-PARM 
                               GLOBDATA.

   
   
3. 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.
   Sample Code
   Sample JCL
   
   If EXEC CICS statement is used, you can use TIRCURTZ creation JCL in Gen provided MKUEXIT.

Environment

Release: KGNCRK05500-8-Gen-CLS Runtime Kit-for Unisys
Component: