HOW TO INCREASE A DATACOM-AREA OF THE IIR REPOSITORY Database.

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

Description

Which 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?

Solution

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