Categories of problem, in order of ascending impact on the user, that can be encountered by CICS® VR.
IBM® recommends you set up your batch logging jobs to take a backup of your VSAM sphere if you receive a 3999 condition code from CICS VR VSAM batch logging.
The example below shows a sample job step that takes a DFSMShsm backup of PAYROLL.FILE72 when a 3999 condition code is detected for STEP03.
//MYJOB JOB .....
....
//STEP03 EXEC PGM=....
//* PAYROLL IS THE VSAM SPHERE DEFINED AS FRLOG(REDO)
//PAYROLL DD DISP=SHR,DSN=PAYROLL.FILE72
....
//* BLBAD RUNS IF LOGGING TERMINATED AT STEP03 IS DETECTED
//BLBAD EXEC PGM=ARCINBAK,COND=(3999,NE,STEP03)
//ARCPRINT DD SYSOUT=*
//ARCSNAP DD SYSOUT=*
//BACK01 DD DSN=PAYROLL.FILE72,DISP=SHR
The example below shows a sample job step that takes a DFSMSdss backup (logical dump) of PAYROLL.FILE72 when a 3999 condition code is detected for STEP03.
//MYJOB JOB .....
....
//STEP03 EXEC PGM=....
//* PAYROLL IS THE VSAM SPHERE DEFINED AS FRLOG(REDO)
//PAYROLL DD DISP=SHR,DSN=PAYROLL.FILE72
....
//* BLBAD RUNS IF BATCH LOGGING TERMINATED IS DETECTED AT STEP03
//BLBAD EXEC PGM=ADRDSSU,COND=(3999,NE,STEP03)
//SYSPRINT DD SYSOUT=*
//DDUMPOUT DD DISP=(,CATLG),DSN=PAYROLL.FILE72.BACKUP,
// UNIT=3390,VOL=SER=USRPAK,
// SPACE=(CYL,(5,1),RLSE)
//SYSIN DD *
DUMP -
DS(INCL(PAYROLL.FILE72)) -
OPT(4) -
COMPRESS -
CICSVRBACKUP -
SPHERE -
OUTDDNAME (DDUMPOUT)
/*
If the MVS system logger fails and CICS VR cannot trap the error, the CICS VR server address space might terminate.