How do you assemble and relink the CA Intertest CICS r 9.1 IN25UEXI?
search cancel

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

book

Article ID: 110250

calendar_today

Updated On:

Products

InterTest - CICS InterTest - Batch InterTest VSE - CICS

Issue/Introduction

Recent CA Intertest CICS 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

Resolution

Below is the sample JCL that can be used to reassemble and link the default IN25UEXI  exit module exit for CA Intertest R 9.1. PDS member HLQ.CABASAMP(IN25UEXI)  contains the default IN25UEXI copybooks.
HLQ.CABAMAC contains the actual copybook that were updated when the GA fixes were applied.
 
The below JCL assemble and links the latest IN25UEXI copybooks and replaces the IN25UEXI in the target HLQ.CABALOAD.
 
JOBCARD
//ASM EXEC PGM=ASMA90,
// REGION=1024K,
// PARM='XREF(SHORT),NODECK,OBJECT,TERM'
//SYSLIB  DD DSN=HLQ.CABAMAC,DISP=SHR
//            DD DSN=HLQ.CABASAMP,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
/*
//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.CABALOAD,DISP=SHR
//SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
// DCB=BUFNO=1
//SYSIN DD *
ENTRY IN25UEXI
NAME IN25UEXI(R)
//
//*

Recycle CICS for the changes to take effect.