CA Tuesday Tip by Lucy Zhang, Principal Support Engineer for 10/02/2015
With PTF RO69711 (113) or RO69717 (11.4), now the procedure to run CYBESUT3 is easier, like CYBESUT4:
- Allocate the NEWAPPL data set with the desired size;
- Stop ESP STC;
- Run CYBESUT3, following is taken from sample JCL CYBESS18:
.........
//BACKUP EXEC PGM=IDCAMS, /*Recommended STEP!*/
// REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER(NAME(ESP.OLD.JOBINDEX.BACKUP) MODEL(ESP.OLD.JOBINDEX))
REPRO IDS(ESP.OLD.JOBINDEX) ODS(ESP.OLD.JOBINDEX.BACKUP)
/*
//DOIT EXEC PGM=IKJEFT01,TIME=1,REGION=64M
//STEPLIB DD DSN=<CAI>.CD7YLOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
CYBESUT3 APPLFILE('ESP.INPUT.APPLFILE') +
JOBINDEX('ESP.INPUT.JOBINDEX') +
NEWAPPL('ESP.OUTPUT.APPLFILE') <SLOTSIZE(n)> +
NONEWINDEX
//
- Restart ESP STC.