**********************************************************************          
*  DB90S 5.4 PTF CD104.018                                Nov 2002   *          
*                                                                    *          
*  KEYWORDS   : ABEND IO ERROR                                       *          
*                                                                    *          
*  DESCRIPTION: CV may abend following an IO Error. This PTF         *          
*               corrects the EZ-DB IO Error handling.                *          
*                                                                    *          
*  TAPES      : EZ-DB C10401. CA-IDMS R15                            *          
*                                                                    *          
**********************************************************************          
* CD104.018                                                 IDMS R15 *          
**********************************************************************          
*                                                                               
NAME COXAPOOL COGIEXCP                                                          
VER 15C4 4770,C022                 BNZ   EXCPAB01                               
VER 15C8 5810,A084                 L     R1,CSADBIOA                            
VER 15CC 5860,1008                 L     R6,DBIOCSAA-XADBIOM(,R1)               
*                                                                               
REP 15C4 0700,0700                 NOP                                          
REP 15C8 58E0,6018                 L     R14,CCSAPTCH                           
REP 15CC 47F0,E410                 B     PATCH+X'410'                           
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 0410 F410,F412,F414,F416                                                    
VER 0418 F418,F41A,F41C,F41E                                                    
VER 0420 F420,F422                                                              
*                                                                               
REP 0410 5810,A084                 L     R1,CSADBIOA                            
REP 0414 5811,0008                 L     R1,8(R1)                               
REP 0418 5811,0000                 L     R1,0(R1)                               
REP 041C 5860,1008                 L     R6,DBIOCSAA-XADBIOM(,R1)               
REP 0420 47F0,C026                 B     INLINE                                 
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0088 0000,0000,0000,0000                                                    
REP 0088 C3C4,F1F0,F4F0,F1F8      * CD104.018