**********************************************************************          
*  EZDB  5.6 PTF CGI05.004                            August 2009    *          
*                                                                    *          
*  KEYWORDS   : EZ-IMAGE ABEND CV STARTUP IDMSDBIO R4 CORRUPT        *          
*                                                                    *          
*  Description: CV may abend at startup when EZ-IMAGE is active.     *          
*               Abend is in IDMSDBIO and R4 appears corrupt.         *          
*                                                                    *          
*  Tapes      : EZDB CI0502 CA-IDMS Release 17                       *          
*                                                                    *          
**********************************************************************          
* CGI05.004                                                IDMS 17.0 *          
**********************************************************************          
*                                                                               
NAME COIMAGEI COIMAGEI                                                          
VER 104A 5820,C868                L     R2,CUR59                                
VER 104E 1222                     LTR   R2,R2                                   
VER 1050 4780,C478                BZ    DMCB1620                                
*                                                                               
REP 104A 58E0,6018                L     R14,CCSAPTCH                            
REP 104E 47F0,E068                B     PATCH+X'68'                             
REP 1052 0700                                                                   
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 0068 F068,F06A,F06C,F06E                                                    
VER 0070 F070,F072,F074,F076,F078                                               
*                                                                               
REP 0068 5010,10CC                ST    R1,FCBFDSAN-FCB(,R1)                    
REP 006C 5820,C868                L     R2,CUR59                                
REP 0070 1222                     LTR   R2,R2                                   
REP 0072 4780,C478                BZ    DMCB1620                                
REP 0076 47F0,C46C                B     INLINE                                  
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0018 0000,0000,0000,0000                                                    
REP 0018 C3C7,C9F0,F5F0,F0F4      CGI05.004