ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.

DDOL ICSCMSGP06T DDOL000017 RC=004-08 $DDOMSGE

book

Article ID: 199010

calendar_today

Updated On:

Products

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

Issue/Introduction

CA Datacom CICS transaction DDOL fails with error:
 
ICSCMSGP06T -  INTERR: I/O ERROR WHILE ACCESSING MESSAGE LIBRARY 1-DDOL000017'

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

Cause

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)

 

Environment

Release : 15.1

Component : CA DATACOM DATADICTIONARY

Resolution

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

Additional Information

See the documentation on VLS Auxiliary Return Code 8, VLS Utility (VLSUTIL) and Implementing and Maintaining Virtual Library System Files