Renaming an Adabas Audit Data Retrieval database involves the following:
Additionally, when renaming the database definition file:
The first two actions are performed by the two steps of job B97DBREN:
Job B97DBREN is tailored at the time of installation and placed in the BETA97.CNTL.
Do not access the Adabas Audit Data Retrieval database while renaming the database is in progress. To prevent the database from being accessed:
For DATA and KEY component, define the new name under DD BQLIN. For example, to change the high level qualifier of B97MAIN, specify:
+----------------------------------------------------------------------+
|... |
|//BQLIN DD * |
| DEFINE UPDATE FILE B97MAIN - |
| DSNAME newhlq.MAIN |
| DEFINE UPDATE FILE B97KEY - |
| DSNAME newhlq.MAIN.KEY |
|... |
+----------------------------------------------------------------------+
For a list of logical filenames, see the table in "Adabas Audit Data Retrieval database components".
For DATA and KEY component, define the old name and the new name under DD SYSIN. For example, to change the high level qualifier of the Adabas Audit Data Retrieval database B97MAIN from oldhlq to newhlq, specify:
+----------------------------------------------------------------------+
|... |
|//SYSIN DD * |
| ALTER oldhlq.MAIN - |
| NEWNAME(newhlq.MAIN) |
| ALTER oldhlq.MAIN.DATA - |
| NEWNAME(newhlq.MAIN.DATA) |
| ALTER oldhlq.MAIN.KEY - |
| NEWNAME(newhlq.MAIN.KEY) |
| ALTER oldhlq.MAIN.KEY.DATA - |
| NEWNAME(newhlq.MAIN.KEY.DATA) |
|... |
+----------------------------------------------------------------------+
Tailored JCL for job B97DBREN can be found in the BETA97.CNTL.
+----------------------------------------------------------------------+
|jobcard |
|//*-----------------------------------------------------------------* |
|//* UPDATE BETA97 DEFINITION FILE * |
|//*-----------------------------------------------------------------* |
|//DBREN EXEC PGM=IDCAMS |
|//UPDATE EXEC PGM=BST01RFF,REGION=0M, |
|// PARM=('S=97,B01LST=xx,B97LST=xx', |
|// 'PGM=BST05UPF,SIGNON=NO') |
|//* |
|//STEPLIB DD DISP=SHR, |
|// DSN=BSA.LOAD |
|// DD DISP=SHR, |
|// DSN=BETA97.LOAD |
|//* |
|//SFFPARM DD DISP=SHR, |
|// DSN=BETA.PARMLIB |
|//* |
|//B97DEF DD DISP=SHR, |
|// DSN=BETA97.DB.DEF |
|//* |
|//BQLIN DD * |
| DEFINE UPDATE FILE B97MAIN - |
| DSNAME BETA97.DB.MAIN.NEW |
| DEFINE UPDATE FILE B97KEY - |
| DSNAME BETA97.DB.MAIN.KEY.NEW |
|//* |
|//IRMPRINT DD SYSOUT=* |
|//BQLPRINT DD SYSOUT=* |
|//SYSPRINT DD SYSOUT=* |
|//* |
|//SFFFDUMP DD SYSOUT=* |
|//SYSUDUMP DD SYSOUT=* |
|//SYSABEND DD SYSOUT=* |
|//* |
|//*-----------------------------------------------------------------* |
|//* RENAME BETA97 MAIN DATABASE * |
|//*-----------------------------------------------------------------* |
|//DBREN EXEC PGM=IDCAMS,COND=(0,NE) |
|//* |
|//SYSPRINT DD SYSOUT=* |
|//SYSIN DD * |
| ALTER BETA97.DB.MAIN - |
| NEWNAME(BETA97.DB.MAIN.NEW) |
| ALTER BETA97.DB.MAIN.DATA - |
| NEWNAME(BETA97.DB.MAIN.NEW.DATA) |
| ALTER BETA97.DB.MAIN.KEY - |
| NEWNAME(BETA97.DB.MAIN.KEY.NEW) |
| ALTER BETA97.DB.MAIN.KEY.DATA - |
| NEWNAME(BETA97.DB.MAIN.KEY.NEW.DATA) |
|//* |
+----------------------------------------------------------------------+