****************************************************************

* TECH NOTE CZ703.T01                                  May 1997

*

* KEYWORDS: DB-EZReorg RUNNING UNLOAD/RELOAD TWICE

*

* DB-90S RELEASE 4.3 TAPES : C70301

*

* Running Unload/Reload Twice

* ---------------------------

*

* In certain circumstances, such as when changing the location

* mode of a record from CALC to VIA, it is necessary to do two

* unload/reload runs to achieve optimum record clustering.

*

* This procedure describes how to do this and only have to

* have one 'Catch-up' process of DB-EZReorg.

*

* THIS PROCEDURE IS ONLY TO BE USED WHEN THE TWO UNLOAD/RELOAD

* RUNS ARE AGAINST THE SAME AREA(S).

*

*

* Procedure

* ---------

*

* The sequence of DB-EZReorg jobs described in Section 2.1 of

* the User Guide should be modfied as follows.

*

* Run DBEZJOB1 once right at the beginning.

*

* Run DBEZJOB2 once on the copy of the areas to be re-organized

* before the unload/reload processes.

*

* Run the two unload/reload processes, retaining BOTH of the

* SYS005 files from the IDMSDBL2 step in each unload/reload.

* (This file is SYS002 in release 10.2)

*

* Run DBEZJOB3 twice, once against each SYS005 file, creating

* TWO SEPARATE output files (DBEZDBK2).

*

* Now run the special job described below. This will merge the

* two DBEZDBK2 files into one combined file. This combined file

* should be be used as the DBEZDBK2 file from now on.

*

* Proceed with the DBEZRFWD catch-up process as if there had

* only been one unload/reload.

*

*

* Special Merge Job

* -----------------

*

* This is a 3 step job using 3 sorts to combine the two separate

* DBEZDBK2 files into one.

*

* It is important that the DBEZDBK2 file from the first

* unload/reload should be input to step 1 and the DBEZDBK2 file

* from the second unload/reload should be input to step 2.

*

* The output files from steps 1 and 2 are concatenated as input

* to step 3.

*

* The sortout files should be allocated with the same record

* length, blocksize and space as the input files.

*

* This job is re-runable if required.

*

* Replace PGM=sort with your own DFSORT compatible program as

* necessary.

*

//STEP1    EXEC PGM=sort,REGION=9076K

//SORTIN   DD DSN=unload.reload1.dbezdbk2,DISP=SHR

//SORTOUT  DD DSN=unload.reload1.sorted.dbezdbk2,DISP=SHR

//SORTWK01 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK02 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK03 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK04 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK05 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK06 DD SPACE=(CYL,5),UNIT=SYSDA

//SYSABEND DD SYSOUT=*

//SYSOUT   DD SYSOUT=*

//SYSIN    DD *

 SORT FIELDS=(1,4,BI,A,9,4,BI,A)

 SUM FIELDS=NONE

 OUTREC FIELDS=(1:1,4,5:9,4,9:5,4,8Z)

/*

//*******************************************************

//STEP2    EXEC PGM=sort,REGION=9076K,COND=(0,LT)

//SORTIN   DD DSN=unload.reload2.dbezdbk2,DISP=SHR

//SORTOUT  DD DSN=unload.reload2.sorted.dbezdbk2,DISP=SHR

//SORTWK01 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK02 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK03 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK04 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK05 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK06 DD SPACE=(CYL,5),UNIT=SYSDA

//SYSABEND DD SYSOUT=*

//SYSOUT   DD SYSOUT=*

//SYSIN    DD *

 SORT FIELDS=(1,8,BI,A)

 SUM FIELDS=NONE

 OUTREC FIELDS=(1:1,8,4Z,13:9,4,4Z)

/*

//*******************************************************

//STEP3    EXEC PGM=sort,REGION=9076K,COND=(0,LT)

//SORTIN   DD DSN=unload.reload1.sorted.dbezdbk2,DISP=SHR

//         DD DSN=unload.reload2.sorted.dbezdbk2,DISP=SHR

//SORTOUT  DD DSN=one.combined.dbezdbk2,DISP=SHR

//SORTWK01 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK02 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK03 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK04 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK05 DD SPACE=(CYL,5),UNIT=SYSDA

//SORTWK06 DD SPACE=(CYL,5),UNIT=SYSDA

//SYSABEND DD SYSOUT=*

//SYSOUT   DD SYSOUT=*

//SYSIN    DD *

 SORT FIELDS=(1,8,BI,A)

 SUM FIELDS=(9,4,13,4),FORMAT=BI

 OUTREC FIELDS=(1:1,4,5:9,8,8Z)

/*

//*******************************************************

*

****************************************************************