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.
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 quick, and you should have no problem running it while ENF is active. BEFORE running this job you should turn recording off by
issuing the console command "F ENF,RECORD(NO)". After the job completes, turn recording back on by issuing command "F ENF,RECORD(YES)". If you prefer
to run with ENF shutdown, you will have to start the ENF MUF in it's own address space as the job will not run if the MUF is not active. Remember to
shutdown 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.
//*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 *
For further details on the JCL and control statements listed above, please refer to the CA Datacom/DB DBUTLTY Reference Guide for z/OS.