This process gathers information needed to determine the best strategy for a database reorganization. It initiates CA IDMS/DB Reorg, examines user parameters and subschemas, stops CA IDMS/DB Reorg after the ANALYSIS step, and produces the Audit/Analysis Report. A sample EXEC is supplied as member USREXEC. Sample control parameters for the parameter input file (FILEDEF SYSIPT) are shown below. Note that the display interval parameter, DSPLYINT, must not be specified in a VM/ESA environment.
PROCESS,OLDSUB=subschema-name, NEWSUB=subschema-name, OLDDMCL=dmcl-name, NEWDMCL=dmcl-name, STOPAFTER=ANALYSIS, COPY,AREA=area-name
&invellip.
/* */
TRACE OFF; SIGNAL ON ERROR
/* */
CA_LOADLIB_FN = 'yourlib'
IDMS_LOADLIB_FN = 'idmslib'
SORTLIB_FN = 'sortlib'
/* */
/* Link and access the Minidisks containing the required librarie(s) */
/* and database file(s). */
/* */
'CP SPOOL PRINTER NOCONT CLOSE'
'CP SPOOL PRINTER TO * NOHOLD CONT FORM OFF DIST OFF'
'GLOBAL LOADLIB ' CA_LOADLIB_FN IDMS_LOADLIB_FN
'GLOBAL TXTLIB ' SORTLIB_FN
/* */
/* Insert FILEDEFS as needed to define all required database files. */
/* */
'FILEDEF dbfil01 DISK fn ft fm (dcb'
'FILEDEF dbfilnn DISK fn ft fm (dcb'
/* */
/* Print and Dump files. */
/* */
'FILEDEF SYSLST PRINTER'
'FILEDEF SYSUDUMP PRINTER'
'FILEDEF SNAPIT PRINTER'
'FILEDEF DBMSOUT PRINTER'
'FILEDEF SYSPRINT PRINTER'
'FILEDEF SORTMSG PRINTER'
'FILEDEF DBMSDUMP PRINTER'
/* */
/* Control work files. */
/* */
'FILEDEF CNTRL1 DISK USREXEC CNTRL1 fm'
'FILEDEF CNTRL2 DISK USREXEC CNTRL2 fm'
'FILEDEF PRIOPTA DISK USREXEC PRIOPTA fm'
'FILEDEF SECOPTA DISK USREXEC SECOPTA fm'
'FILEDEF EXTRACT DISK USREXEC EXTRACT fm'
'FILEDEF PRIREAL DISK USREXEC PRIREAL fm'
'FILEDEF SECREAL DISK USREXEC SECREAL fm'
'FILEDEF UNALLOC DISK USREXEC UNALLOC fm'
'FILEDEF SECALX2 DISK USREXEC SECALX2 fm'
'FILEDEF SECIIX2 DISK USREXEC SECIIX2 fm'
'FILEDEF ALLOCX DISK USREXEC ALLOCX fm'
'FILEDEF IIXEXOL DISK USREXEC IIXEXOL fm'
'FILEDEF IIXSRKY DISK USREXEC IIXSRKY fm'
'FILEDEF IIXEXTR DISK USREXEC IIXEXTR fm'
'FILEDEF DBREC DISK USREXEC DBREC fm'
/* */
/* You must create a file 'SYSIDMS INPUT A' containing the SYSIDMS */
/* parameters you use to specify your runtime environment. */ */
/** Include statement DMCL='newdmcl' in your SYSIDMS parameters */
/*
'FILEDEF SYSIDMS DISK SYSIDMS INPUT A'
/* */
/* You must create a file 'USREXEC SYSIPT A' containing the input */
/* parameter statements prior to executing this EXEC. */
/* */
'FILEDEF SYSIPT DISK USREXEC SYSIPT A'
/* */
/* Insert FILEDEF statements for SORT work space as required by */
/* your SORT product. */
/* */
/* Decide now whether the PAGUTIL file will be VSAM or BDAM. */
/* To use VSAM for the PAGUTIL file : */
/* REMEMBER -- VSAM files must be predefined using AMSERV control */
/* statements. See sample EXEC USRVSAM, and also the */
/* Operations section of the CA IDMS/DB Reorg Users */
/* Guide. */
/* 1) Change: */
/* vsam_fm To the filemode of the accessed minidisk containing */
/* your VSAM catalog(s) and file(s). */
/* vsamcat To the dataset name of your VSAM catalog. */
/* pagutil To the dataset name of your VSAM PAGUTIL file. */
/* 2) Remove the comments from around the next 3 statements. */
/* 'DLBL IJSYSCT vsam_fm DSN vsamcat'
'DLBL IJSYSUC vsam_fm DSN vsamcat'
'DLBL PAGUTIL vsam_fm DSN pagutil ( VSAM' */
/* To use BDAM for the PAGUTIL file : */
/* 1) Change: */
/* cuu To the appropriate minidisk device address. */
/* nn To the number of cylinders required to hold PAGUTIL. */
/* fm To the filemode letter for the temp disk. */
/* 2) Remove the comments from around the next 9 statements. */
/* 'DEF T3380 cuu CYL nn'
PUSH 'PAGUTL'
PUSH 'YES'
'FORMAT cuu fm ( BLK 4K'
'RESERVE USREXEC PAGUTIL fm6'
'FILEDEF PAGUTIL DISK USREXEC PAGUTIL fm6' ,
'( DSORG DA'
'FILEDEF PAGUT@@ DISK USREXEC PAGUTIL fm6' ,
'( DSORG DA' */
SAY 'STARTING DATABASE REORGANIZATION'
SIGNAL OFF ERROR
'EXECOS OSRUN USRDRVR'
USREORG_RC = RC
IF USREORG_RC > 4
THEN DO
CALL ERROR
END
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME DBREORG LISTING'
'CP SPOOL PRINTER OFF'
SAY 'USREXEC FINISHED WITH A RETURN CODE OF' USREORG_RC
'GLOBAL LOADLIB'
'GLOBAL TXTLIB'
'FILEDEF * CLEAR'
EXIT USREORG_RC
/*++++++++++++++++++++++++++++++++++++++++++++++*/
ERROR:
/*++++++++++++++++++++++++++++++++++++++++++++++*/
ERROR_RC = RC
TRACE OFF; SIGNAL OFF ERROR
SAY 'NON-ZERO RETURN CODE ENCOUNTERED IN EXEC AT LINE' SIGL
'CP SPOOL PRINTER NOCONT'
'CP CLOSE PRINTER NAME DBREORG LISTING'
'CP SPOOL PRINTER OFF'
'GLOBAL LOADLIB'
'GLOBAL TXTLIB'
'FILEDEF * CLEAR'
EXIT ERROR_RC
/* */
Key for Sample EXEC to Run CA-IDMS/DB Reorg:
|
Parameter |
Description |
|---|---|
|
yourlib |
The file name of the load library into which you downloaded CA IDMS/DB Reorg. |
|
idmslib |
The file name of the load library containing your subschema and DMCL modules. |
|
sortlib |
The file name of the text library containing your sort modules. |
|
dbfil01 /dbfilnn |
The name of each of the database files to be accessed. |
|
fn ft m |
The file name, file type, and file mode (respectively) of the relevant file. The file mode number of your database file(s) must be 6. |
|
dcb |
The data control block (DCB) information for the files. |
|
cuu |
The appropriate minidisk device address for the BDAM PAGUTIL file. |
|
fm ft fm6 |
The file name, file type, and file mode (respectively) of the BDAM PAGUTIL file. The file mode number must be 6. |
|
newdcml |
DMCL describing the database after the reorganization. |
|
subschema-name |
Two subschema names are required. The first subschema name (OLDSUB=) describes the database before reorganization. The second subschema name (NEWSUB=) describes the database after reorganization. |
|
dmcl-name |
Two DMCL names are required. The first DMCL name (OLDDMCL=) describes the database before reorganization. The second DMCL name (NEWDMCL=) describes the database after reorganization. |
|
area-name |
The name of an area to be reorganized by CA IDMS/DB Reorg. (You must include a COPY parameter statement for each area that is to be reorganized.) |
Note: You must decide whether you are using VSAM or BDAM for the PAGUTILfile. Review and alter the sample EXEC appropriately.
|
Copyright © 2014 CA.
All rights reserved.
|
|