Scheduler Job Management JCL to increase Data and Index areas

Products

• Scheduler Job Management

Issue/Introduction

Procedure and sample jobs to increase the Scheduler DATA and INDEX areas.

 

                  

Resolution

To increase the size of your Scheduler data and index areas, run the following 2 jobs sequentially.

These jobs require exclusive access to the Scheduler data sets, all copies of Scheduler must be down, and all users must be out of the online.

JOB 1   

To close the database with ACCESS OFF to prevent the database being opened.

//*  CLOSE THE DATABASE              
//CLOSE    EXEC PGM=DBUTLTY,REGION=0M                        
//STEPLIB  DD   DISP=SHR,DSN=CAI.DATACOM.CUSLIB                 
//         DD   DISP=SHR,DSN=CAI.DATACOM.CAAXLOAD        
//SYSPRINT DD SYSOUT=*                                     
//SYSIN    DD *                                              
  ACCESS  DBID=430,STATUS=OFF,USERS=FAIL                     
  COMM    OPTION=CLOSE,DBID=430                              
/*                                                           
//

 

JOB 2 

• Backup the database
• Rename existing dataset to .OLD
• Allocate and initialize new datasets
• Restore from the back up 

 

//*  BACK UP THE DATABASE                                       
//*                                                             
//BACKUP   EXEC PGM=DBUTLTY,REGION=0M,COND=(0,LT)               
//STEPLIB  DD   DISP=SHR,DSN=CAI.DATACOM.CUSLIB                 
//         DD   DISP=SHR,DSN=CAI.DATACOM.CAAXLOAD        
//SYSPRINT DD   SYSOUT=*                                        
//BACKUP   DD   DISP=(NEW,CATLG),                               
//         DSN=MYQUAL.SCHDBACK,                                 
//         UNIT=CART,                                           
//         LABEL=(1,SL),                                        
//         VOL=(,RETAIN)                                        
//SYSIN    DD   *                                               
BACKUP DBID=430,DDNAME=BACKUP,SEQBUFS=128,SEQ=NATIVE,           
BLKSIZE=32760                                                   
*                                                               
COMM OPTION=CLOSE,DBID=430                                      
/*                                                              
//*                                                             
//*  RENAME EXISTING DATASETS TO ".OLD"                         
//RENAME   EXEC PGM=IDCAMS,REGION=0M,COND=(0,LT)             
//SYSPRINT DD   SYSOUT=*                                     
//SYSIN    DD   *                                            
  ALTER CAI.SCHD.DATA -                                      
    NEWNAME(CAI.SCHD.DATA.OLD)                               
  ALTER CAI.SCHD.HIST -                                      
    NEWNAME(CAI.SCHD.HIST.OLD)                               
  ALTER CAI.SCHD.INDEX -                                     
    NEWNAME(CAI.SCHD.INDEX.OLD)                              
/*                                                           
//*                                                          
//*  ALLOCATE & INITIALIZE NEW DATASETS                      
//*                                                          
//INIT     EXEC PGM=DBUTLTY,REGION=4M,COND=(0,LT)            
//STEPLIB  DD   DISP=SHR,DSN=CAI.DATACOM.CUSLIB                 
//         DD   DISP=SHR,DSN=CAI.DATACOM.CAAXLOAD                                   
//SYSPRINT DD   SYSOUT=*    
//ACH430   DD   DISP=(NEW,CATLG),                            
//         DSN=CAI.SCHD.DATA,                              
//         UNIT=DATAUNT,                                            
//         VOL=SER=DATAVOL,                                         
//         SPACE=(CYL,(DATACYL)),                                   
//         DCB=(DSORG=PS,RECFM=F,LRECL=4096,BLKSIZE=4096)           
//HST430   DD   DISP=(NEW,CATLG),                                   
//         DSN=CAI.SCHD.HIST,                                       
//         UNIT=DATAUNT,                                            
//         VOL=SER=DATAVOL,                                         
//         SPACE=(CYL,(HISTCYL)),                                   
//         DCB=(DSORG=PS,RECFM=F,LRECL=4096,BLKSIZE=4096)           
//IXX430   DD   DISP=(NEW,CATLG),                                   
//         DSN=CAI.SCHD.INDEX,                                      
//         UNIT=IXXUNIT,                                            
//         VOL=SER=IXXVOL,                                          
//         SPACE=(CYL,(IXXCYL)),                                    
//         DCB=(DSORG=PS,RECFM=F,LRECL=4096,BLKSIZE=4096)           
//SYSIN    DD   *                                                   
INIT AREA=IXX,DBID=430                                              
INIT AREA=ACH,DBID=430                                              
INIT AREA=HST,DBID=430                                              
LOAD AREA=ACH,DBID=430,FORMAT=NONE,SORT=1                           
LOAD AREA=HST,DBID=430,FORMAT=NONE,SORT=1                           
/*                                                                  
//*                                               
//*  RESTORE BACKED UP DATA                              
//*                                                      
//RESTORE  EXEC PGM=DBUTLTY,REGION=4M,COND=(0,LT)        
//STEPLIB  DD   DISP=SHR,DSN=CAI.DATACOM.CUSLIB                 
//         DD   DISP=SHR,DSN=CAI.DATACOM.CAAXLOAD                               
//SYSPRINT DD   SYSOUT=*                                 
//BACKUP   DD   DISP=OLD,                                
//         DSN=MYQUAL.SCHDBACK                           
//SYSIN    DD   *                                        
COMM OPTION=CLOSE,DBID=430                               
*                                                        
LOAD DBID=430,FORMAT=BACKUP,DDNAME=BACKUP,SORT=1000000   
 ACCESS  DBID=430,STATUS=WRITE 
/*                                                                                                               

       

A sample JCL is located in the Scheduler SAMPJCL member DBRESIZE.