CICS® VR can be configured to automatically start the batch backout utility when a batch job step encounters an abend.
Set the CICSVR_BACKOUT_CONTROL parameter to SUBMIT ABEND if you want to enable automatic batch backout execution, see Setting the CICS VR backout control parameter for more information.
If automatic batch backout execution is enabled on a CICS VR system, CICS VR monitors the execution of all batch jobs that start CICS VR undo logging. If a batch job that started CICS VR undo logging encounters a system or user abend, CICS VR automatically submits a batch backout job to remove all updates made to the VSAM spheres by the batch job step that was in progress when the abend occurred. To perform automatic batch backout processing, CICS VR uses a customized version of the batch backout JCL skeleton.
//DWWBAFJS JOB (ACCOUNT),MSGLEVEL=(1,1),MSGCLASS=H,REGION=4M
//********************************************************************/
//* */
//* @BANNER_START */
//* Licensed Materials - Property of IBM */
//* */
//* 5655-Y24 */
//* */
//* (C) Copyright IBM Corp. 2004, 2012 */
//* */
//* */
//* */
//* */
//* @BANNER_END */
//* */
//********************************************************************/
//* */
//* CHANGE ACTIVITY: */
//* */
//* $AB= CVR330 330 040404 KVV */
//* BATCH BACKOUT CONTROL */
//* $A8= CVR330 330 050715 KVV */
//* ADDRESS SPACE LEVEL PK08815 */
//* BATCH BACKOUT BY JOB IDENTIFIER */
//* */
//********************************************************************/
//*
//* SET SYMBOLIC PARAMETERS
//*
//SETPREF SET PREF=DWW ! CICSVR RCDS NAME PREFIX
//SETSUFF SET SUFF=PROD ! CICSVR XCF GROUP NAME SUFFIX
//*
//SETJN SET JN=JOBNAME ! NAME OF BATCH JOB TO BACKOUT
//SETJID SET JID=JOBID ! ID OF BATCH JOB TO BACKOUT
//*
//* INVOKE CICSVR BATCH BACKOUT UTILITY TO REMOVE ALL UPDATES
//* THAT WERE MADE TO THE VSAM SPHERES BY THE JOB STEP THAT
//* ENCOUNTERED AN ABEND DURING THE LAST EXECUTION
//* OF THE BATCH JOB
//*
//BACKOUT EXEC PGM=DWWBACK,PARM='JOB(&JN) JOBID(&JID) FAILED'
//DWWMSG DD SYSOUT=* ! MESSAGE DATA SET
//DWWPRINT DD SYSOUT=* ! REPORT DATA SET
//DWWCON1 DD DISP=SHR,DSN=&PREF..DWWCON1.GRP&SUFF ! RCDS DATA SET
//DWWCON2 DD DISP=SHR,DSN=&PREF..DWWCON2.GRP&SUFF ! RCDS DATA SET
//DWWCON3 DD DISP=SHR,DSN=&PREF..DWWCON3.GRP&SUFF ! RCDS DATA SET
//DWWIN DD * ! COMMAND DATA SET
BATCHBACK JOB(JOBNAME) JOBID(JOBID) FAILED RCDS(YES)
Prior to using CICS VR automatic batch backout, edit the JOB statement in the JCL to conform to your environment's standards. Copy the updated DWWBAFJS member into PROCLIB, as described in the CICS VR Program Directory.