How do you assemble and relink the CA Intertest CICS r 11 IN25UEXI?

book

Article ID: 143102

calendar_today

Updated On:

Products

CA InterTest - CICS

Issue/Introduction

Recent CA Intertest CICS R 11 GA fixes made updates to the IN25UEXI copybooks. The ++HOLD actions on the fixes require the IN25UEXI copybooks to be reassemble and linked to bring in the latest updates.
Below is JCL that the client can use to reassemble and link the IN25UEXI exit load module.
 

Environment

Z/OS 

CICS

 

 

Resolution

Below is the sample JCL that can be used to reassemble and link the default IN25UEXI exit module exit for CA Intertest R 11. PDS member HLQ.CABASAMP(IN25UEXI) contains the copy statements for the default IN25UEXI copybooks.
HLQ.CABAMAC contains most of the frenquintly used UEXI* copybooks. A few seldom used UEXI* copybooks are also in the HLQ.CAVHSAMP.
 
The below JCL assemble and links the latest IN25UEXI copybooks and replaces the IN25UEXI in the target HLQ.CAVHLOAD.
 
//IN25UEXI JOBCARD 
//ASM     EXEC PGM=ASMA90,
//             REGION=1024K,
//             PARM='XREF(SHORT),NODECK,OBJECT,TERM'
//SYSLIB   DD  DSN=INTERT11.GA.CAVHMAC,DISP=SHR
//             DD  DSN=INTERT11.GA.CAVHSAMP,DISP=SHR
//SYSUT1   DD  DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
//             DCB=BUFNO=1
//SYSPUNCH DD  SYSOUT=B
//SYSTERM  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DSN=&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO,
//             DISP=(MOD,PASS),
//             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)
//SYSIN    DD  *
           COPY IN25UEXI  
           IN25UEX TYPE=FINAL
           END
/*
//LINKED  EXEC PGM=IEWL,
//             REGION=512K,
//             PARM='LIST,LET,XREF,MAP'
//SYSPRINT DD  SYSOUT=*
//SYSLIN   DD  DSN=&OBJ,DISP=(OLD,PASS)
//         DD  DDNAME=SYSIN
//SYSLMOD  DD  DSN=HLQ.INTERTEST.R11.CAVHLOAD,DISP=SHR
//SYSUT1   DD  DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
//             DCB=BUFNO=1
//SYSIN   DD  *
      ENTRY IN25UEXI
      NAME  IN25UEXI(R)
/*
//