Skip to main content

IPCS Batch JCL

No replies
pcs305
pcs305's picture
Offline
Joined: 2006-03-06

//JOBCARD HERE
//*-------------------------------------------------------------------
//* 1. PERFORM IPCS DUMP INITIALIZATION AGAINST AN SVC DUMP.
//*-------------------------------------------------------------------
//CICSDUMP EXEC PGM=IKJEFT01,REGION=0M
//STEPLIB DD DISP=SHR,DSN=***.SDFHLINK <-<-ALTER HLQ
//SYSPROC DD DISP=SHR,DSN=***.SBLSCLI0 <-<-ALTER HLQ
//SYSTSPRT DD SYSOUT=*
//IPCSDDIR DD DISP=SHR,DSN=***.IPCS.DUMPDIR <-<-ALTER HLQ
//IPCSPARM DD DISP=SHR,DSN=SYS1.PARMLIB <-<-ALTER IF DIFFERENT
// DD DISP=SHR,DSN=***.SDFHPARM <-<-ALTER IF DIFFERENT
//IPCSTOC DD SYSOUT=*
//IPCSPRNT DD SYSOUT=*
//* SET VERBEXIT TO YOUR INSTALLED VERSION MODULE. (DFHPD620 = CICS TS v 2.2)
//SYSTSIN DD *
IPCS
SETDEF DSNAME('YOUR.SVC.CICS.DUMP')
Y
VERBEXIT DFHPD620 'KE=1,TR=1'

/*
//*