Where can I find Sample JCL to receive and apply Intertest CICS r 11 fixes?

Document ID : KB000115625
Last Modified Date : 21/09/2018
Show Technical Document Details
Question:
After completing the base install of Intertest and Symdump CICS r 11 the client needs to apply all outstanding maintenance. Where can the client find sample JCL to receive and apply the fixes?
Answer:
The following JCL can be used to receive and apply outstanding Intertest and Symdump CICS r 11 fixes. The fixes reside in a PDS library as individual members.

Note: 
An Apply check should be done before the actual apply.

/REC EXEC PGM=GIMSMP, 
// PARM='CSI=INTERT11.CSI', 
// REGION=0M 
//SMPPTFIN DD DSN=INTERT11.INC00.$PTFS(RO97425),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97426),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97427),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97428),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97429),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97430),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97431),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97432),DISP=SHR 
// DD DSN=INTERT11.$PTFS(RO97433),DISP=SHR 
//SMPCNTL DD * 
SET BDY(GLOBAL). 
RECEIVE SELECT( 
RO97425 
RO97426 
RO97427 
RO97428 
RO97429 
RO97430 
RO97431 
RO97433 

SYSMODS 

/* 
//APP EXEC PGM=GIMSMP, 
// REGION=0M, 
// PARM='CSI=INTERT11.CSI' 
//SMPCNTL DD * 
SET BDY(CAIT0). 
APPLY SELECT( 
RO97425 
RO97426 
RO97427 
RO97428 
RO97429 
RO97430 
RO97431 
RO97433 

BYPASS(HOLDSYSTEM) 

/* 
// 

As a short cut on the APPLY. Since you will may be applying all the fixes you can just specify APPLY PTFS. 
You DO NOT have to specify each PTF number on the apply. For example 


//APPLY EXEC PGM=GIMSMP, 
// REGION=0M, 
// PARM='CSI=INTERT11.CSI' 
//SMPCNTL DD * 
SET BDY(CAIT0). 
APPLY PTFS 
BYPASS(HOLDSYSTEM) 

/* 
//