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

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

book

Article ID: 115625

calendar_today

Updated On:

Products

InterTest - CICS InterTest - Batch InterTest VSE - CICS

Issue/Introduction



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?

Environment

Release: OSINBV00200-11.0-InterTest-Batch
Component:

Resolution

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) 

/* 
//