ENF may encounter Archive errors due to a corrupted CA Datacom Index characterized by CA Datacom DB02405I and DB02406I messages.

Products

• COMMON SERVICES FOR Z/OS
• 90S SERVICES
• Common Services
• Datacom/AD

Issue/Introduction

CAIENF may occasionally encounter Archive errors due to a corrupted index of the MUF. The corruption is characterized by a DB02405I message which
displays a return code 13(017) along with a DB02406I message stating that there was an error searching the index. The error will reoccur whenever
the same part of the index is read. The messages that follow are typical of this specific archive problem. The "JOBINIT" event is used as an example.

01.00.01 STC13623  CAS9406I - Archive/Purge records for JOBINIT  with dates less than 2015071
01.00.01 STC13623  ENFMVS2A:DB02405I - PXX START ENFMVS2A 87932 13(017) SELFR-700-B43 D-1
01.00.01 STC13623  ENFMVS2A:DB02406I - PXX END - ERROR SEARCHING INDEX
01.00.02 STC13623  CAS9316E - JOBINIT  "Fetch   " failed - rc(-117) r/s(X'E2F1F3F1F1').
01.00.02 STC13623  CAS9405I - JOBINIT  RAAT/CBS ERROR: CMD=SELFR TBL=B43 DBID=00700 KEY=SQ0
01.00.02 STC13623  CAS9354I - Archive complete for event JOBINIT , 000000 records written
01.00.02 STC13623  CAS9373I - Purge   complete for event JOBINIT , 000000 records deleted
01.00.02 STC13623  ENFMVS2A:DB00113I - BACKOUT JOB-ENFMVS2A NUMBER-87932 RC= Y TSN-0413EC44
01.00.02 STC13623  CAS9400E - Archive/Purge process rollback
01.00.02 STC13623  ENFMVS2A:DB00102I - ENDED   JOB-ENFMVS2A NUMBER-87932
01.00.02 STC13623  ENFMVS2A:DB00136I - DISCONNECT ENFMVS2A          CCSMUF02 STC13623 MVS2     R12   SP0  0002 R12   SP0
01.00.02 STC13623  CAS9351I - CA-ENF Database archive complete, 00000000 records written
01.00.02 STC13623 *CAS9408E - ARCHIVE encountered an error that may require attention.
01.00.02 STC13623  CAS9409E - Refer to previous ARCHIVE error message(s) for details.

Environment

Release: CA90SV00200-14-Common Services-for z/OS
Component:

Resolution

To address this problem format, 'INIT', the Index Area or IXX, and reconstruct the Index, 'RETIX', for the ENF MUF, DBID 0700.

Please note that the INIT function must be executed before the RETIX can run successfully. JCL similar to the sample shown below can be used to
accomplish these tasks. Be sure to use the same libraries in the STEPLIB concatenation that your ENF proc uses.

This job runs fairly quickly, and you should have no problem running it while ENF is active. BEFORE running this job you should turn the recording off by
issuing the console command "F ENF,RECORD(NO)". After the job completes, turn to record back on by issuing the command "F ENF,RECORD(YES)". If you prefer
to run with ENF shutdown, you will have to start the ENF MUF in its own address space as the job will not run if the MUF is not active. Remember to
shut down any CA applications that use ENF to record and recover events prior to shutting down ENF.

Rebuilding the index to clear the corruption will enable the ENF ARCHIVE command to resume functioning normally and purge the eligible records from
the database at the scheduled interval according to the ENF parms.

//JOBCARD ........
//*INITIALIZE AND RECONSTRUCT THE INDEX
//INITIXX  EXEC  PGM=DBUTLTY,REGION=0M
//STEPLIB  DD    DISP=SHR,DSN=cai.CUSLIB
//         DD    DISP=SHR,DSN=cai.CAAXLOAD
//CXX      DD    DISP=SHR,DSN=cai.CXX
//SORTWK01 DD    UNIT=disk,SPACE=(cyl,(20,10))
//SORTWK02 DD    UNIT=disk,SPACE=(cyl,(20,10))
//SORTWK03 DD    UNIT=disk,SPACE=(cyl,(20,10))
//SNAPER   DD    SYSOUT=*
//SYSUDUMP DD    SYSOUT=* 
//SYSIN DD    *
ACCESS DBID=0700,STATUS=OFF,USERS=FAIL
REPORT AREA=CXX,DBID=0700,TYPE=A
COMM   DBID=0700,OPTION=CLOSE
INIT   DBID=0700,AREA=IXX
RETIX  DBID=0700,OPTIMIZE=YES,SORT=999999999,OPTION1='(I)'
COMM   DBID=0700,OPTION=CLOSE
REPORT AREA=CXX,DBID=0700,TYPE=A
ACCESS DBID=0700,STATUS=WRITE
/*
//