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