In the CICS log:
1-ICSCMSGP06T - INTERR: I/O ERROR WHILE ACCESSING MESSAGE LIBRARY 1-DDOL000017
SRVC=VLS FUNC=INIT RC=004-08 PGM=SC00MSGP . -1486
CALPGM=SC00MSGP . -187A CURACT= ACTTYP= USER=CIC ERRID=
SYS= ENTTYP= ENTNAM= ENTVER= ENTSTAT=
LIB=ADRLIB MEM=$DDOMSGE
Release : 15.1
Component : CA DATACOM DATADICTIONARY
The RC=004-08 indicates there was an internal error on the ADRLIB reading member $DDOMSGE.
This member exists in the DDMAP file not the ADRLIB.
The problem may be due to corruption in the ADRLIB or the other files used by DDOL - DDMAP, DDOL1 and DDOL2.
First run a VLSUTIL LIBRARY on the DDMAP file to confirm the $DDOMSGE member is there:
//LIBRARY EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDMAP,DISP=SHR
//SYSIN DD *
LIBRARY
/*
Also, ensure the files are defined correctly to CICS.
Issue the following commands in CICS:
CEMT I FI(ADRLIB)
CEMT I FI(MDUOLL)
CEMT I FI(DDOFIL1)
CEMT I FI(DDOFIL2)
To resolve the problem perform a VLSUTIL to do a BACKUP/FORMAT/RESTORE of the 4 VLS files.
Run the following steps:
//* BACKUP ADRLIB VLS FILE
//*
//BACKUP EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.ADRLIB ,DISP=SHR
//VLSBKUP DD DSN=hlq.ADRLIB .BKUP,
// DISP=(,CATLG,KEEP),
// SPACE=(CYL,(10,5)),UNIT=SYSDA
//SYSIN DD *
BACKUP
LIBRARY
/*
//* FORMAT AND RESTORE ADRLIB VLS FILE
//*
//RESTORE EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.ADRLIB ,DISP=SHR
//VLSBKUP DD DSN=hlq.ADRLIB .BKUP,DISP=SHR
//SYSIN DD *
FORMAT BLKSIZE=4000,NAMELEN=24
RESTORE
LIBRARY
/*
//* BACKUP DDMAP VLS FILE
//*
//BACKUP EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDMAP,DISP=SHR
//VLSBKUP DD DSN=hlq.DDMAP.BKUP,
// DISP=(,CATLG,KEEP),
// SPACE=(CYL,(10,5)),UNIT=SYSDA
//SYSIN DD *
BACKUP
LIBRARY
/*
//* FORMAT AND RESTORE DDMAP VLS FILE
//*
//RESTORE EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDMAP,DISP=SHR
//VLSBKUP DD DSN=hlq.DDMAP.BKUP,DISP=SHR
//SYSIN DD *
FORMAT BLKSIZE=4000,NAMELEN=24
RESTORE
LIBRARY
/*
//* BACKUP DDOL1 VLS FILE
//*
//BACKUP EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL1.DISP=SHR
//VLSBKUP DD DSN=hlq.DDOL1.BKUP,
// DISP=(,CATLG,KEEP),
// SPACE=(CYL,(10,5)),UNIT=SYSDA
//SYSIN DD *
BACKUP
LIBRARY
/*
//* FORMAT AND RESTORE DDOL1 VLS FILE
//*
//RESTORE EXEC PGM=VLSUTIL
//STEPLIB DD DSN=ipc.CAVQLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//AUXPRINT DD SYSOUT=*
//VLSFILE DD DSN=hlq.DDOL1,DISP=SHR
//VLSBKUP DD DSN=hlq.DDOL1.BKUP,DISP=SHR
//SYSIN DD *
FORMAT BLKSIZE=4000,NAMELEN=40
RESTORE
LIBRARY
/*
//* 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 the documentation on VLS Auxiliary Return Code 8, VLS Utility (VLSUTIL) and Implementing and Maintaining Virtual Library System Files