increase DATASIZE for DB

, , ,
1

Hello,

I need to setup a job to increase DATASIZE for ADA121 database.
The size to be increased is 1833 cylinder and the disk pack is ADA60I.

Here is the sample jcl :

//PROCS JCLLIB ORDER=(ADABASP.PROCLIB)
//*
//STEP01 EXEC PGM=ADARUN,REGION=4096K
//STEPLIB DD DSN=ADABASP.COMMON.LOADLIB,DISP=SHR
//SYSUDUMP DD SYSOUT=(,)
//DDPRINT DD SYSOUT=(,)
//DDDRUCK DD SYSOUT=(,)
//DDASSOR1 DD DSN=ADABASDB.CJIS121.ASSO,DISP=SHR
//DDDATAR1 DD DSN=ADABASDB.CJIS121.DATA,DISP=SHR
//DDCARD DD DSN=ADABASP.COMMON.CNTRL(DBS121S),DISP=SHR
//DDCARD DD DSN=ADABASP.COMMON.CNTRL(DBS121S),DISP=SHR
//DDKARTE DD *
ADADBS INCREASE DATASIZE=1500
/*
//DDWORKR1 DD DSN=ADABASDB.CJIS121.WORK,DISP=OLD
//*
//STEP02 EXEC PGM=IEFBR14
//D1 DD DSN=ADABASDB.CJIS121.DATA,
// DISP=(OLD,UNCATLG,UNCATLG)
//*
//STEP03 EXEC PGM=ADARUN
//STEPLIB DD DSN=ADABASP.COMMON.LOADLIB,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//DDPRINT DD SYSOUT=*
//DDDRUCK DD SYSOUT=*
//DDASSOR1 DD DSN=ADABASDB.CJIS121.ASSO,DISP=SHR
//DDDATAR1 DD DSN=ADABASDB.CJIS121.DATA,DISP=(MOD,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(0,1500)),
// VOL=SER=(ADA626,ADA627,ADA628,ADA629,ADA62A,ADA62B,ADA62C,ADA62D,
// ADA62E,ADA62F,ADA62G,ADA62H)
// ADA62E,ADA62F,ADA62G,ADA62H)
//DDCARD DD DSN=ADABASP.COMMON.CNTRL(FRM121S),DISP=SHR
//DDKARTE DD *
ADAFRM DATAFRM SIZE=1500,DEVICE=8390
/*
//
//

I think I need to replace ADADBS INCREASE DATASIZE=1500 to 1833
is it correct?
What is the disk pack? is it same as VOL=SER above

2

yes VOL=SER is specifying a list of disk packs.

Your format and space increases need to specify 333 if 1833 is your target with 1500 already allocated and formatted on ADA60I, but it isn’t clear that you are adding to one of the existing volumes or adding a new volume. If you are adding a new volume, it needs to be included in the VOL=SER list and, assuming your are allocating 1833 on ADA60I, then yes, the increase and format need to be 1833.

(The JCL shown may or may not have other errors, but the VOL=SER list isn’t valid:
// VOL=SER=(ADA626,ADA627,ADA628,ADA629,ADA62A,ADA62B,ADA62C,ADA62D,
// ADA62E,ADA62F,ADA62G,ADA62H)
// ADA62E,ADA62F,ADA62G,ADA62H)
)

3

Why VOL=SER list isn’t valid?

4

If it because of sequence

actually it was mistake, disk pack is ADA62I

5

At least that duplicate line should not be there

6

in any case, if you are going to format volume ADA62I or ADA60I, they need to be in the VOL=SER list.