DATACOM DB00501E OPEN ERROR RC 69 (071)

Products

• Datacom
• Datacom/DB
• Datacom/AD

Issue/Introduction

Getting the following error in CICS or batch program trying to open a database:

DB00501E - OPEN ERROR - RETURN CODE 69 (071) CXX=cxxname

Environment

Releases: All releases

Cause

The error indicates there is a problem with the index (IXX).

Either the index was damaged, initialized or changes were made to key definitions which marked the keys as not loaded.

Resolution

The index needs to be initialized and rebuild using the DBUTLTY INIT and RETIX functions.

Follow this procedure:

• Take a backup of the existing IXXnnn file.
  
  
• Close the URT in CICS. The URT is usually the same number as the DBID. To check  this run CICS Transaction: 
  DBOC INQ =???.???.nnn
  Then use the URT number from the display in:
  DBOC CLOSE=nnn 
  
  
• Run DBUTLTY to close access to the database in the Datacom MUF. Use this input:

  //SYSIN  DD  *                 
  ACCESS STATUS=OFF,DBID=nnn,USERS=FAIL
  COMM OPTION=CLOSE,DBID=nnn
  /*

• If the above step is successful, run DBUTLTY again to initialize and rebuild the IXX:

  //SYSIN  DD  *
   INIT AREA=IXX,DBID=nnn                      
   RETIX DBID=nnn,OPTIMIZE=YES,SORT=999999999,OPTION1='(I)'
   ACCESS STATUS=WRITE,DBID=nnn
  /*

• Reopen the CICS URT with: 
  DBOC OPEN=nnn

Sample JCL to run DBUTLTY

//UTLTY   EXEC PGM=DBUTLTY,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=DATACOM.CUSLIB
//         DD DISP=SHR,DSN=DATACOM.CABDLOAD    <<   CAAXLOAD for AD
//CXX      DD DISP=SHR,DSN=DATACOM.CXX     
//SYSPRINT DD SYSOUT=*
//SNAPER   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN  DD  *                      
Input statements here
/*

Additional Information

See documentation sections INIT IXX (Format Index Area) and  RETIX (Reconstruct Index).