**********************************************************************          
*  DB90S 5.4 PTF CD104.033                                May 2004   *          
*                                                                    *          
*  KEYWORDS   : COALLOC8 ALLOC8 NEWCOPY ABEND                        *          
*                                                                    *          
*  DESCRIPTION: The ALLOC8 dynamic allocation task may abend when    *          
*               issuing the NEWCOPY command.                         *          
*                                                                    *          
*  TAPES      : EZ-DB C10401. CA-IDMS R15, R16                       *          
*                                                                    *          
**********************************************************************          
* CD104.033                                             IDMS R15/R16 *          
**********************************************************************          
*                                                                               
NAME COALLOC8 COALLOC8                                                          
VER 00020C 5820,200C        L    R2,12(0,R2)                                    
VER 000210 5820,2008        L    R2,DBIOCSAA-XADBIOM(,R2)                       
VER 000214 58F0,2290        L    R15,CCSALOC9-CCSA(,R2)                         
VER 000218 12FF             LTR  R15,R15                                        
VER 00021A 4780,C5CA        BZ   MSGEXIT                                        
*                                                                               
REP 00020C 5820,2008        L    R2,8(0,R2)                                     
REP 000210 5820,2000        L    R2,0(0,R2)                                     
REP 000214 5820,2008        L    R2,DBIOCSAA-XADBIOM(,R2)                       
REP 000218 58F0,2290        L    R15,CCSALOC9-CCSA(,R2)                         
REP 00021C 0700             NOP                                                 
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0100 0000,0000,0000,0000                                                    
REP 0100 C3C4,F1F0,F4F0,F3F3      * CD104.033