Automatically running CICS VR batch backout

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.

The CICS VR automatic batch backout JCL skeleton is located in member DWWBAFJS of the CICS VR library SDWWCNTL, as shown below:
Figure 1. Automatic batch backout JCL skeleton (DWWBAFJS)
//DWWBAFJS JOB (ACCOUNT),MSGLEVEL=(1,1),MSGCLASS=H,REGION=4M
//********************************************************************/
//*                                                                  */
//* @BANNER_START                                                    */
//* Licensed Materials - Property of IBM                             */
//*                                                                  */
//* 5655-P30                                                         */
//*                                                                  */
//* (C) Copyright IBM Corp. 2004, 2008                               */
//*                                                                  */
//*                                                                  */
//*                                                                  */
//*                                                                  */
//* @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.