ADASAV RESTORE FILE function

, , ,
21

Please see


[u]Supported z/OS and z/VM Device Types[/u]

The standard characteristics of the device types supported by Adabas on z/OS and z/VM are summarized in the following table. Adabas block sizes and RABNs per track are provided for each Adabas component for each device type.

Pl see the attached file for further detail

I need to setup a job to increase the number of ISN by 12000. ISN is stored in AC.
The utility to be used is ADADBS. Which utility function to use?

how many RABN will be required to increase number of ISN by 12000?
SppzOS_zVMDeviceType.docx (13.3 KB)

22

If your file is set to automatically extend AC, you don’t need to do anything to allow for 12000 more ISNs over MAXISN. Adabas will automatically grab another AC extent for you and increase MAXISN accordingly.

Other than if you perhaps have AC auto-extend off, the other gotcha would be if you’re close to 16,777,215 for MAX ISN and you have 3-byte ISNs.

You can always fix either of those problems with ADAORD utility.

23

The file is set to AC auto-extend off.

Following is our existing JCL to use ADAORD.
Do you think it is valid for my current situation?
Which values I should repalce?

I need to increase the number of ISN by 12000.

//PROCS JCLLIB ORDER=(ADABAST.TEMP.PROCLIB)
//*
//* DATABASE REORDER
//*
//STEP01 EXEC ADAORD5T,DBID=,ADADBID=ADA
//DDFILEA DD DSN=&&ORDFILES,DISP=(,DELETE,DELETE),
// UNIT=TAPE,LABEL=RETPD=1,
// VOL=(PRIVATE,99),
// DCB=BUFNO=20
//DDCARD DD DSN=ADABAST.TEMP.COMMON.CNTRL(ORDS),DISP=SHR
//DDKARTE DD *
ADAORD REORDB
ADAORD LIP=100000K,LPB=32760
//DDWORKR1 DD DSN=ADABASDB.ADA.WORK,DISP=OLD
//*

ADABAST.TEMP.PROCLIB(ADAORD5T)

//ADAORD5 PROC DBID=000,ADADBID=ADA000
//ORD EXEC PGM=ADARUN,REGION=4096K
//STEPLIB DD DSN=ADABAST.COMMON.LOADLIB,DISP=SHR
//SYSUDUMP DD SYSOUT=(,)
//DDPRINT DD SYSOUT=(,)
//DDDRUCK DD SYSOUT=(,)
//DDASSOR1 DD DSN=ADABASDB.&ADADBID…ASSO,DISP=SHR
//DDDATAR1 DD DSN=ADABASDB.&ADADBID…DATA,DISP=SHR
//DDFILEA DD UNIT=SYSDA,SPACE=(CYL,(10,10))
//DDCARD DD DSN=ADABAST.COMMON.CNTRL(ORD&DBID.M),DISP=SHR
//DDKARTE DD DUMMY

ADABAST.TEMP.COMMON.CNTRL(ORD***S)
(ADAORD REORDB
ADAORD LIP=100000K,LPB=32760 )

24

I need to use ADADBS utility not ADAORD.

pl ignore very first above JCL