Lucy_zhang

Tuesday Tip: (CA ESP) CYBESUT3 Utility is Easier

Discussion created by Lucy_zhang Employee on Feb 10, 2015

  

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.                                                           

Outcomes