**********************************************************************  00001000
*  EZ-DB 5.5 PTF CZ409.120                              July 2006    *  00004000
*                                                                    *  00006000
*  Keywords   : R16 SP4 EXPRESS REORG DBEZSXT6                       *          
*                                                                    *  00008000
*  Description: This PTF details the changes required to EZ-Reorg    *  00008000
*               when using it with the new IDMS R16 SP4 Express      *  00010402
*               Reorg function.                                      *  00010402
*                                                                    *  00010402
*  Tapes      : EZ-DB C40901 CA-IDMS R16                             *  00011300
*                                                                    *  00011400
**********************************************************************  00011500
* CZ409.120                                                          *  00011600
**********************************************************************  00011700
*                                                                    *          
*  1. Apply the following ZAP changes to prevent DBEZSXT6 creating   *  00009002
*     the DBEZSR23.SORT file.                                        *  00009100
*                                                                    *          
NAME DBEZSXT6 DBEZSXT6                                                  00013800
VER  008C 4510,C094                          * BAL 1,*+8                00014001
VER  00DE 4110,C20C                          * PUT DBEZSR23             00014400
VER  00E2 4100,C18C                                                     00014500
VER  00E6 1FFF                                                          00014600
VER  00E8 BFF7,1031                                                     00014700
VER  00EC 05EF                                                          00014800
VER  0118 4510,C120                          * BAL   1*+8               00014901
*                                                                       00015400
REP  008C 47F0,C096                          * B  *+10                  00015501
REP  00DE 0700,0700                          * Lots of NOPS             00016001
REP  00E2 0700,0700                                                     00016100
REP  00E6 0700                                                          00016200
REP  00E8 0700,0700                                                     00016300
REP  00EC 0700                                                          00016400
REP  0118 4510,C122                          * B  *+10                  00016501
*                                                                       00017000
NAME COXAPTCH COXAZAPS                                                  00230000
VER  03B8 0000,0000,0000,0000                                           00240000
REP  03B8 C3E9,F4F0,F9F1,F2F0        * CZ409.120                        00250000
*                                                                               
*                                                                    *          
*  2. When running Express Reorg you must include 'GENERATE DBKEYS'  *          
*     in the BCF REORG statement. Eg:                                *          
*                                                                    *          
*     REORG SEGMENT PRODSEG USING PRODSS AREA                        *          
*     PROD1-AREA                                                     *          
*     RELOAD INTO PRODSEG USING PRODSS  DMCL NEWDMCL                 *          
*     DIVIDE PROCESSING 3 WAYS                                       *          
*     AS SORTEXIT                                                    *          
*     REUSE WORKFILES NOTIFY 3                                       *          
*     GENERATE DBKEYS                    <----- Must be included     *          
*     SHARE                                                          *          
*     STOP AFTER UNLOAD                                              *          
*     CREATE ALL WORKFILES;                                          *          
*                                                                    *          
*   3. Change the creation of the EZ-Reorg DBK2 file:                *          
*                                                                    *          
*      When using normal IDMS Unload, DBEZJOB3 is run after the      *          
*      unload and uses DBEZSXT8.                                     *          
*                                                                    *          
*      When using the Express Reorg, DBEZJOB3 must be run after      *          
*      Express Reorg has completed the reload and must use DBEZSXT6. *          
*                                                                    *          
*      SORTIN must be a concatenation of ALL the DBKEY files         *          
*      produced by Express Reorg. The number of files it generates   *          
*      is the number of slices plus 1.                               *          
*                                                                    *          
*      Sample JCL for DBEZJOB3 to be run when using Express Reorg:   *          
*                                                                    *          
**********************************************************************          
//****************************************************************              
//*     DBEZJOB3                                                 *              
//*     Note: This sample JCL is to be used only when running    *              
//*           Express Reorg.                                     *              
//*                                                              *              
//*           It must be run after the Express Reorg process has *              
//*           completed. i.e. The reload is complete             *              
//*                                                              *              
//****************************************************************              
//*                                                              *              
//*     Generate file of old and new DBKEYS using DBKEY Files    *              
//*     output by Express Reorg                                  *              
//*                                                              *              
//****************************************************************              
//DBEZSXT6 EXEC PGM=ICEMAN,REGION=9076K,COND=(0,LE)                             
//SORTIN   DD DSN=EXPRESS.REORG.DBKEYS,WD0001,DISP=SHR                          
//         DD DSN=EXPRESS.REORG.DBKEYS,WD0nnn,DISP=SHR                          
//****************************************************************              
//*                                                              *              
//*     Add DD statements so that ALL the DBKEY files            *              
//*     generated by Express Reorg are input to SORTIN           *              
//*                                                              *              
//****************************************************************              
//SORTOUT  DD DUMMY,DCB=*.SORTIN                                                
//DBZDBK2  DD DSN=prefix.DBEZDBK2,DISP=SHR                                      
//SORTWK01 DD DSN=&&SRTWK1,SPACE=(CYL,5),UNIT=SYSDA                             
//SORTWK02 DD DSN=&&SRTWK2,SPACE=(CYL,5),UNIT=SYSDA                             
//SORTWK03 DD DSN=&&SRTWK3,SPACE=(CYL,5),UNIT=SYSDA                             
//SORTWK04 DD DSN=&&SRTWK4,SPACE=(CYL,5),UNIT=SYSDA                             
//SORTWK05 DD DSN=&&SRTWK5,SPACE=(CYL,5),UNIT=SYSDA                             
//SORTWK06 DD DSN=&&SRTWK6,SPACE=(CYL,5),UNIT=SYSDA                             
//DBEZLIB  DD DSN=ez-db.CDMSLIB,DISP=SHR                                        
//SYSABEND DD SYSOUT=*                                                          
//SYSOUT   DD SYSOUT=*                                                          
//SYSIN    DD *                                                                 
 RECORD TYPE=F,LENGTH=16                                                        
 SORT FIELDS=(1,4,BI,A)                                                         
 MODS E35=(DBEZSXT6,2500,DBEZLIB,N)                                             
//*