**********************************************************************  00000100
*  DB90S 5.4 PTF CZ104.007                              MAY 2002     *  00000200
*                                                                    *  00000300
*  KEYWORDS   : EZ-REORG DBEZCNTL CROSS SEGMENT POINTERS             *  00000400
*                                                                    *  00000500
*  DESCRIPTION: Optional PTF CZ907.040 was sourced in at R5.4        *  00000606
*               This allows dependent areas to be in different       *  00000701
*               segments to the area(s) being unloaded.              *  00000800
*               There is a restriction that dependent area names     *  00000900
*               must be unique in the DMCL AND in the same page      *  00001000
*               group as the area(s) being unloaded                  *  00001100
*               If this is not the case then DBEZCNTL can extract    *  00001200
*               the wrong page range and or page group for the       *  00001300
*               dependent areas leading to abends in later processing*  00001403
*               This PTF backs out CZ907.040.                        *  00001500
*               If CZ907.040 is backed out then dependent area(s)    *  00001601
*               must be in the same segment as the area(s) being     *  00001701
*               but the dependent area names need not be unique      *  00001801
*               within the DMCL.                                     *  00001901
*                                                                    *  00002000
*               Unless you have the requirement to have dependent    *  00002100
*               area(s) in different segments we STRONGLY recommend  *  00002200
*               that PTF CZ907.040 be backed out by the application  *  00002300
*               of this PTF.                                         *  00002400
*                                                                    *  00002500
*               PTF CZ104.006 is a prerequiste for this PTF          *  00002600
*                                                                    *  00002700
*  TAPES      : DB90S C10402 CA-IDMS R15                             *  00002800
*                                                                    *  00002900
**********************************************************************  00003000
NAME DBEZCNTL CNTLPTCH                                                  00003101
VER 0008 900E,B004                         check start of CZ104.006     00003201
*                                                                       00003306
NAME DBEZCNTL DBEZCNTL                                                  00003400
VER 1CA8 18CF                                                           00004004
VER 1CAA D203,B000,C01C                                                 00005004
VER 1CB0 47F0,C020                                                      00006004
VER 1CB4 E5C4,D4F2                                                      00007004
VER 1CB8 5830                                                           00009004
*                                                                       00010006
REP 1CA8 5830,C5D4                         L     R3,VALSSEGA            00020004
REP 1CAC 5890,C5DA                         L     R9,VALSDMCE            00030004
REP 1CB0 4AF0,F020                         AH    R15,X'1B98'            00040005
REP 1CB4 47F0,F018                         B     VDMC+X'18'             00050004
REP 1CB8 1B98                              DC    X'1BA8'                00060005
*                                                                       00070006
NAME COXAPTCH COXAZAPS                                                  00730000
VER  0030 0000,0000,0000,0000                                           00740006
REP  0030 C3E9,F1F0,F4F0,F0F7        * CZ104.007                        00750006