book
Article ID: 190895
calendar_today
Updated On:
Issue/Introduction
Recent CA Intertest CICS R 10 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.
Resolution
Below is the sample JCL that can be used to reassemble and link the default IN25UEXI exit module exit for CA Intertest R 10. PDS member HLQ.CABASAMP(IN25UEXI) contains the copy statements for the default IN25UEXI copybooks.
HLQ.CABAMAC contains most of the frequently 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=INTERT10.GA.CAVHMAC,DISP=SHR
// DD DSN=INTERT10.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.R10.CAVHLOAD,DISP=SHR
//SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
// DCB=BUFNO=1
//SYSIN DD *
ENTRY IN25UEXI
NAME IN25UEXI(R)
/*
//