How to increase a Datacom Area 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

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?

Resolution

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