How to rebuild the Datacom index of the IRR Repository Database

Products

• Database Analyzer (IMS Tools)
• Mainframe Configuration Manager for IMS for z/OS
• IMS TOOLS - MISC
• Compress Data Compression (IMS Tools)
• Database Analyzer for IMS for z/OS
• Database Copier for IMS for z/OS
• Database Organizer for IMS for z/OS
• Mainframe Extended Terminal Manager (IMS Tools)
• High Performance Recovery for IMS for z/OS
• Database Organizer (IMS Tools)
• Mainframe Program Restart Manager for IMS for z/OS
• Secondary Index Builder for IMS for z/OS
• Secondary Index for IMS for z/OS
• DATABASE MANAGEMENT SOLUTIONS FOR IMS FOR Z/OS

Issue/Introduction

Which steps are necessary to rebuild the Datacom-Index (low-level qualifier 'IXX615') of the IMS Information Repository (IIR) Database, if this dataset has been deleted or damaged.

Resolution

These steps need to be performed to rebuild the Datacom-Index of the IIR Repository Database (library names and dataset names need to be changed to your site specific names):

//* --------                                                 
//* STEP 1 : ALLOCATE/INIT IXX615 DATASET                    
//* --------                                                 
//*                                                          
//DBUTLTY  EXEC PGM=DBUTLTY,REGION=4M                        
//STEPLIB  DD DSN=EURIMS.DCOM10.CUSLIB,DISP=SHR              
//         DD DSN=EURIMS.DCOM10.CAILIB,DISP=SHR              
//         DD DSN=CA90SMVS.SMP9909.CAILIB,DISP=SHR           
//CXX      DD  DSN=EURIMS.DCOM10.CXX,DISP=SHR                
//SYSOUT   DD  SYSOUT=*                                      
//SYSPRINT DD  SYSOUT=*                                      
//SYSUDUMP DD  SYSOUT=*                                      
//SYSPUNCH DD  DUMMY                                         
//DDSNAP   DD  SYSOUT=*                                      
//SNAPER   DD  SYSOUT=*                                      
//THRSHOUT DD  SYSOUT=*                                      
//SYSIN    DD  *                                             
 INIT AREA=IXX,DBID=615                                      
//IXX615   DD  DSN=EURIMS.DCOM10.IXX615,DISP=(,CATLG,DELETE),
//         STORCLAS=TSO,SPACE=(CYL,1)                        
//*                                                          
//* --------                                                 
//* STEP 2 : RE-BUILD ALL ENTRIES ON NEW IXX615 DATASET      
//* --------                                                 
//*                                            
//DBUTLTY  EXEC PGM=DBUTLTY,REGION=4M          
//STEPLIB  DD DSN=EURIMS.DCOM10.CUSLIB,DISP=SHR
//         DD DSN=EURIMS.DCOM10.CAILIB,DISP=SHR
//CXX      DD  DSN=EURIMS.DCOM10.CXX,DISP=SHR  
//SORTWK01 DD  UNIT=SYSDA,SPACE=(TRK,(30,15))  
//SORTWK02 DD  UNIT=SYSDA,SPACE=(TRK,(30,15))  
//SORTWK03 DD  UNIT=SYSDA,SPACE=(TRK,(30,15))  
//SYSOUT   DD  SYSOUT=*                        
//SYSPRINT DD  SYSOUT=*                        
//SYSUDUMP DD  SYSOUT=*                        
//SYSPUNCH DD  DUMMY                           
//DDSNAP   DD  SYSOUT=*                        
//SNAPER   DD  SYSOUT=*                        
//THRSHOUT DD  SYSOUT=*                        
//SYSIN    DD  *                               
* *****                                        
* REBUILD INDEX FOR ALL AREAS (DATABASE 615)   
 RETIX DBID=615,AREA=DBA,SORT=99999            
 RETIX DBID=615,AREA=DBO,SORT=99999            
 RETIX DBID=615,AREA=SIB,SORT=99999            
 RETIX DBID=615,AREA=DBC,SORT=99999            
 RETIX DBID=615,AREA=HPR,SORT=99999            
//*