Increase space on JHF

Document ID : KB000123154
Last Modified Date : 20/12/2018
Show Technical Document Details
Issue:
 I am trying to understand instructions for space increase on a single 601 database areas.
I have instructions from TEC467508.
I understand I can allocate one new file for instance just the JHF.
The backup will backup every file. Here are the load parameters from AL7LD1.
//BACKUP DD DSN=CA11.DCOM.HLQ.BACKUP(0),DISP=(OLD,KEEP)   BKUP FILE
//**
//SYSIN DD *
ACCESS STATUS=OFF,DBID=601,USERS=WAIT
COMM OPTION=CLOSE,DBID=601 INIT AREA=IXX,DBID=601
LOAD DBID=601,FORMAT=BACKUP,DDNAME=BACKUP, KBYTES=98,SORT=999999,OPTIMIZE=YES,OPTION1='(I)'
ACCESS STATUS=WRITE,DBID=601

What parameter is used to tell it to just reload the one file where the space was increased? Or does it hurt anything if the Backup reloads all the files? I have used this process successfully for all the files. Want to understand what happens when just one file is renamed and reallocated. Thanks, Dorothy
Environment:
z/os, CADatacom/AD for CA11
Cause:
Need to increase JHF file.
Resolution:
If you only want to increase the JHF file, you may use the following JCL (detailed): 


1) Suspend CA-11 on all LPARs that share the same 601 Database. 

2) Set Access Off and execute a COMM CLOSE on DBID 601 (Using DBUTLTY): 

//commcls EXEC PGM=DBUTLTY,REGION=4M 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
// DD DISP=SHR,DSN=DATACOM.CAILIB 
//CXX DD DISP=SHR,DSN=DATACOM.CXX 
//SYSIN DD * 
ACCESS STATUS=OFF,DBID=601,USERS=FAIL 
COMM OPTION=CLOSE,DBID=601 
/* 

3) check on Multi-User if base has been put in ACCESS OFF 
Message DB00607I - BASE 601 ACCESS OFF (BASE IS CLOSED) 

if you do not see this message then run a DBUTLTY COMM OPTION=STATUS 
to find out which tasks are holding the base open 
or check the message in MUF log to see which ACTIVE JOB was mentioned 
if the ACCESS OFF failed 
Note that if CA-11 has been suspended then there is nothing to worry here 

4) if BASE 601 ACCESS OFF, as it should, then backup JHF601: 

//BCKUP EXEC PGM=DBUTLTY,REGION=4M 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
// DD DISP=SHR,DSN=DATACOM.CAILIB 
//CXX DD DISP=SHR,DSN=DATACOM.CXX 
//BCKJHF DD DSN=datacom.bckjhf.file,disp=(new,catlg), 
// unit=sysda,space=... 
//SYSIN DD * 
BACKUP AREA=JHF,DBID=601,DDNAME=BCKJHF,SEQ=PHY,RECID=YES,UPDATE=YES 
/* 
Be sure it finishes with RC=0 

5) Saved the existing JHF601 under a new name by copying/backuping. 

6) Allocate a larger JHF601 file with sec allocation using the same data set 
name as before.(please note: same dataset name) 

7) Load the backup into that larger JHF601 
//LOAD EXEC PGM=DBUTLTY,REGION=4M 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
//STEPLIB DD DISP=SHR,DSN=DATACOM.CUSLIB 
// DD DISP=SHR,DSN=DATACOM.CAILIB 
//CXX DD DISP=SHR,DSN=DATACOM.CXX 
//BCKJHF DD DSN=datacom.bckjhf.file,disp=old 
//* 
//SYSIN DD * 
INIT AREA=JHF,DBID=601 
LOAD AREA=JHF,DBID=601,DDNAME=BCKJHF,FORMAT=BACKUP,SORT=999999,OPTIMIZE=YES 
ACCESS STATUS=WRITE,DBID=601 
/* 

8) resume CA-11 

9) delete the JHF file saved in step 5 if all good. 


TEC467508 does about the same but it backs up and loads the full DBID 601. 
http://comm.support.ca.com/kb/Increasing-601-database-areas-for-CA-Workload-Automation-Restart-Option-for-zOS-Schedulers-CA-11/KB000054919

Around the same subject there is TEC469595: 
( What to do when you receive SB37 ABEND on IXX601 ) 
Additional Information:
http://comm.support.ca.com/kb/What-to-do-when-you-receive-SB37-ABEND-on-IXX601/KB000054792

Other similar method:
Here are the jobs to run. Note that there are two jobs here - This is necessary to avoid any problems with ENQueues on the database file. Run the first, and when it 
has a CC of zero, then you can run the second to correct the problem. Note that the second job is set up to reallocate just the JHF file - if you need to change others, you should be able to easily sort this out. Let me know if you need help with this.

//******************************************************************** 
//*                                                                  * 
//*  SAMPLE MOVE/REALLOCATE/RENAME OF CA DATACOM DATABASE AREAS      *
//*                             PART 1                               *
//*                                                                  *
//*  THIS JOB WILL CLOSE AND TURN OFF ACCESS TO THE CA DATACOM DB    *
//*  USING THE DBUTLTY PROGRAM. APPLICATIONS USING THE DB MUST BE    *
//*  DOWN OR SUSPENDED BEFORE RUNNING THIS JOB, OR IT WILL FAIL. IF  *
//*  THE JOB FAILS, CORRECT THE PROBLEM AND RERUN THE JOB UNTIL THE  *
//*  RETURN CODE IS ZERO.                                            *
//*  ALSO, ANY APPLICATION ISPF USERS MUST EXIT THE ISPF COMPONENT   * 
//*  BEFORE RUNNING THIS JOB.                                        * 
//*                                                                  *
//********************************************************************
//*                                                                    
//   SET CUS=YOUR DATACOM CUSLIB
//   SET CAI=YOUR DATACOM CAAXLOAD 
//   SET CXX=YOUR CXX FILE NAME  
//*
//*       CLOSE AND TURN OFF ACCESS TO THE DATABASE
//*
//CLOSE    EXEC PGM=DBUTLTY,REGION=4M
//STEPLIB  DD   DISP=SHR,DSN=&CUS
//         DD   DISP=SHR,DSN=&CAI
//SYSPRINT DD   SYSOUT=*
//CXX      DD   DISP=SHR,DSN=&CXX
//SYSIN    DD   *
 ACCESS DBID=601,STATUS=OFF,USERS=FAIL
 COMM   DBID=601,OPTION=CLOSE
/*
//


//******************************************************************** 
//*                                                                  * 
//*  SAMPLE MOVE/REALLOCATE/RENAME OF CA DATACOM DATABASE AREAS      *
//*                             PART 2                               *
//*                                                                  *
//*  THIS JOB IS INTENDED TO BE USED IF YOU NEED TO MOVE A CA        * 
//*  DATACOM DATABASE TO ANOTHER PACK OR IF YOU NEED TO COPY THE     * 
//*  DATABASE TO A LARGER ALLOCATION.                                *
//*                                                                  *
//*  THIS JOB REQUIRES EXCLUSIVE ACCESS TO THE CA DATACOM DB FILES.  *
//*  THE PREVIOUS CLOSE JOB MUST HAVE RUN WITH CC=0.                 *
//*                                                                  *
//*  THIS JOB WILL:                                                  *
//*     1. BACKUP THE CURRENT DATABASE                               *
//*     2. RENAME THE CURRENT DATABASE FILE TO .OLD                  *
//*     3. ALLOCATE A NEW FILE                                       *
//*     4. INITIALIZE THE DATABASE INDEX                             *
//*     5. INITIALIZE THE DATA AREAS AS NEEDED                       *
//*     6. RELOAD THE DATA FROM THE BACKUP TAKEN IN #1, ABOVE        *
//*     7. PRODUCE A CXX REPORT FOR THE DATABASE                     *
//*     8. ALLOW ACCESS AGAIN TO THE DATABASE                        *
//*                                                                  *
//*   NOTES:                                                         *  
//*      1. CHANGE 'CADATACOM.HLQ' TO THE HIGH-LEVEL-QUALIFIER FOR   *
//*         THE CA DATACOM DATABASE FILES                            *
//*                                                                  * 

//******************************************************************** 
//*                       
//   SET CUS=YOUR DATACOM CUSLIB
//   SET CAI=YOUR DATACOM CAAXLOAD 
//   SET CXX=YOUR CXX FILE NAME
//   SET BKP=YOUR BACKUP FILE NAME (A NEW FILE NAME)
//*                               
//BACKUP   EXEC PGM=DBUTLTY,REGION=0M
//STEPLIB  DD  DISP=SHR,DSN=&CUS  
//         DD  DISP=SHR,DSN=&CAI  
//SYSPRINT DD  SYSOUT=*           
//CXX      DD  DISP=SHR,DSN=&CXX  
//DB601BK  DD  DISP=(NEW,CATLG),  
//             DSN=&BKP,BUFNO=50,          
//             UNIT=SYSDA,SPACE=(CYL,(1000,250),RLSE) 
//SYSIN    DD   *             
 BACKUP DBID=601,DDNAME=DB601BK,SEQBUFS=256,SEQ=NATIVE       
/*                                                            
//*      RENAME EXISTING DATA FILES                           
//*                                                           
//RENAME   EXEC PGM=IDCAMS,COND=(0,NE)
//SYSOUT   DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSMDUMP DD  SYSOUT-*                      
//SYSIN    DD  *           
   ALTER   CADATACOM.HLQ.JHF601  -                           
   NEWNAME(CADATACOM.HLQ.JHF601.OLD)                     
/*                                                            
//*                                                           
//*      RELOAD DATA FROM BACKUP
//* 
//LOAD     EXEC PGM=DBUTLTY,REGION=0M,COND=(0,NE)
//STEPLIB  DD  DISP=SHR,DSN=&CUS 
//         DD  DISP=SHR,DSN=&CAI   
//SYSPRINT DD  SYSOUT=*
//CXX      DD  DISP=SHR,DSN=&CXX  
//DB601BK  DD  DISP=SHR,DSN=*.BACKUP.DB601BK,BUFNO=50       
//JHF601   DD  DISP=(,CATLG),DSN=CADATACOM.HLQ.JHF601,         
//             SPACE=(CYL,(999,99)),UNIT=3390,VOL=SER=VOL###   
//*                                                   
//SORTWK01 DD  UNIT=SYSALLDA,SPACE=(CYL,(500,150))     
//SORTWK02 DD  UNIT=SYSALLDA,SPACE=(CYL,(500,150))     
//SORTWK03 DD  UNIT=SYSALLDA,SPACE=(CYL,(500,150))     
//SYSIN    DD  *
*   NOTE: LEAVE ALL INIT STATEMENTS HERE TO RE-INITIALIZE THE
*         DATA AREAS.                                     
 INIT   DBID=601,AREA=IXX                              
 INIT   DBID=601,AREA=DSN                              
 INIT   DBID=601,AREA=JHF
 INIT   DBID=601,AREA=JOB                            
 INIT   DBID=601,AREA=STP                              
 LOAD   DBID=601,FORMAT=BACKUP,DDNAME=DB601BK,     
   KBYTES=98,SORT=999999999,OPTIMIZE=YES,OPTION1='(I)'
 COMM   DBID=601,OPTION=STATS
 REPORT DBID=601,AREA=CXX,TYPE=A   
 ACCESS DBID=601,STATUS=WRITE                        
/*                                                    
//