CA Datacom DDOL interactive SQL fails with error:
DFHAC2206 09:35:09 TESTCICS Transaction SCFD failed with abend ASRA. Updates to local recoverable resources backed out.
In CICS log there message is:
DFHAP0001 TESTCICS An abend (code 0C9/AKEA) has occurred at offset X'FFFFFFFF' in module VPEHJN70.
In the dump, the S0C9 occurs in module VPE9890 +1ED8.
Release : 15.1
Component : CA DATACOM/DB
This is caused by a corrupt VLS file, In this case, it was a corrupt DDOL2 file.
First, check it is defined in CICS correctly with a CEMT I FI(DDOFIL2) command.
Next, check the file is readable by running VLSUTIL LIBRARY.
//LIBRARY EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL2,DISP=SHR
//SYSIN DD *
LIBRARY
/*
If the VLSUTIL LIBRARY could not read the file, then the file is corrupt and it either needs to be restored from a backup or reformatted.
//* FORMAT VLS FILE
//*
//FORMAT EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL2,DISP=SHR
//SYSIN DD *
FORMAT BLKSIZE=4000,NAMELEN=40
/*
If the VLSUTIL LIBRARY could read the members then do a VLSUTIL BACKUP/FORMAT/RESTORE of DDOL2.
//* BACKUP DDOL2 VLS FILE
//*
//BACKUP EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL2,DISP=SHR
//VLSBKUP DD DSN=hlq.DDOL2.BKUP,
// DISP=(,CATLG,KEEP),
// SPACE=(CYL,(10,5)),UNIT=SYSDA
//SYSIN DD *
BACKUP
LIBRARY
/*
//* FORMAT AND RESTORE DDOL2 VLS FILE
//*
//RESTORE EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL2,DISP=SHR
//VLSBKUP DD DSN=hlq.DDOL2.BKUP,DISP=SHR
//SYSIN DD *
FORMAT BLKSIZE=4000,NAMELEN=40
RESTORE
LIBRARY
/*
See documentation section VLS Utility (VLSUTIL) and Implementing and Maintaining Virtual Library System Files