**********************************************************************          
*  EZDB  5.6 PTF CDI05.002                              July 2009    *          
*                                                                    *          
*  KEYWORDS   : EZ-IMAGE ABEND CV STARTUP COALLOC9 S0C4              *          
*                                                                    *          
*  Description: CV may abend S0C4 at startup when EZ-IMAGE is        *          
*               active. Abend is in COALLOC9 offset x'8A6'.          *          
*                                                                    *          
*  Tapes      : EZDB CI0502 CA-IDMS Release 17                       *          
*                                                                    *          
**********************************************************************          
* CDI05.002                                                IDMS 17.0 *          
**********************************************************************          
*                                                                               
NAME COALLOC9 COALLOC9                                                          
VER 089C 5870,30C4                L     R7,FCBXDCBA                             
VER 08A0 1277                     LTR   R7,R7                                   
VER 08A2 4780,C89C                BZ    GOALLOC                                 
VER 08A6 D503,7000,CC50           CLC   XDCBEYE,=CL4'XDCB'                      
*                                                                               
REP 089C 58F0,C008                L     R15,CCSAADDR                            
REP 08A0 58F0,F018                L     R15,CCSAPTCH                            
REP 08A4 47F0,F048                B     PATCH+X'48'                             
REP 08A8 0700,0700                NOP                                           
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 0048 F048,F04A,F04C                                                         
VER 004E F04E,F050                                                              
VER 0052 F052,F054                                                              
VER 0056 F056                                                                   
VER 0058 F058,F05A                                                              
VER 005C F05C,F05E,F060                                                         
VER 0062 F062,F064                                                              
*                                                                               
REP 0048 D503,3000,CC1C           CLC   VFCEYE,=C'VFC*'                         
REP 004E 4780,C89C                BE    GOALLOC                                 
REP 0052 5870,30C4                L     R7,FCBXDCBA                             
REP 0056 1277                     LTR   R7,R7                                   
REP 0058 4780,C89C                BZ    GOALLOC                                 
REP 005C D503,7000,CC50           CLC   XDCBEYE,=CL4'XDCB'                      
REP 0062 47F0,C84C                B     INLINE                                  
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0008 0000,0000,0000,0000                                                    
REP 0008 C3C4,C9F0,F5F0,F0F2      CDI05.002