HOW TO RE-BUILD THE DATACOM-INDEX OF THE IIR REPOSITORY Database.

Document ID : KB000054134
Last Modified Date : 14/02/2018
Show Technical Document Details

Description

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.

Solution

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