CA Datacom DDOL DFHAP0001 0C9 AKEA VPEHJN70 VPE9890

Products

• Datacom
• DATACOM - AD
• Datacom/DB
• INFOCAI MAINTENANCE

Issue/Introduction

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.

Environment

Release : 15.1

Component : DATACOM/DB

Cause

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 
/* 

 

Resolution

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 
/* 

 

Additional Information

See documentation section VLS Utility (VLSUTIL) and Implementing and Maintaining Virtual Library System Files