What steps are necessary to increase the size of the Datacom/AD Database for the IMS Information Repository (IIR), if one of the Area datasets has become full?
If one of the Datacom Area datasets has become full (e.g. abend SB37 occurs when trying to write additional data into this Area), the following
actions need to be performed to increase the Area dataset size (library names and dataset names need to be changed to your site specific names).
//* -------- //* STEP 1 : BACKUP CURRENT IIR DATABASE //* -------- //* //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 //IIRBKPDB DD DSN=EURIMS.DCOM10.IIRDB615.BUYYMMDD, // UNIT=3390,STORCLAS=TSO,SPACE=(4096,600), // DISP=(,CATLG,DELETE) //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPUNCH DD DUMMY //SNAPER DD SYSOUT=* //SYSIN DD * * ***** * PRODUCE FULL DATABASE BACKUP (ITKREPDB DATABASE 615) TO OUTPUT DSN BACKUP DBID=615,DDNAME=IIRBKPDB,SEQ=NATIVE //* //* -------- //* STEP 2 : TSO RENANE OLD AREA DSN - //* E.G. LOW-LEVEL QUAL xxx615 to xxx615O (xxx=DBA,DBO,SIB,DBC,HPR) //* -------- //* //* -------- //* STEP 3 : TSO ALLOCATE NEW AREA DATASET - E.G. (CHANGE NAMES AND VALUES): //* -------- //* //* Data Set Name . . . : EURIMS.DCOM10.DBA615 //* General Data Current Allocation //* Management class . .: TSO Allocated blocks . : 24 //* Storage class . . .: TSO Allocated extents . : 1 //* Volume serial . . . : TSU043 //* Device type . . . . : 3390 //* Data class . . . . .: DEFAULT Current Utilization //* Organization . . . : PS Used blocks . . . . : 24 //* Record format . . . : F Used extents . . . : 1 //* Record length . . . : 4096 //* Block size . . . . : 4096 //* 1st extent blocks . : 24 //* Secondary blocks . : 0 //* Data set name type : SMS Compressible : NO //* //* -------- //* STEP 4 : RELOAD AREA FROM BACKUP (SEE STEP 1) //* -------- //* //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 //IIRBKPDB DD DSN=EURIMS.DCOM10.IIRDB615.BUYYMMDD,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 //SNAPER DD SYSOUT=* //SYSIN DD * * ***** * LOAD THE DBA AREA FROM FULL DATABASE BACKUP (ITKREPDB DATABASE 615) LOAD DBID=615,AREA=DBA,FORMAT=BACKUP,DDNAME=IIRBKPDB,SORT=999999 //*