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

book

Article ID: 19758

calendar_today

Updated On:

Products

CA Gen CA Gen - Build Tool CA Gen - Workstation Toolset CA Gen - Host Encyclopedia CA Gen - Run Time Distributed 3RD PARTY TSO

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:

Attachments

1558534886428TEC599601.zip get_app