**********************************************************************          
*  EZDB  5.6 PTF CGI05.009                           January 2010    *          
*                                                                    *          
*  KEYWORDS   : EZ-IMAGE NO SUBSCHEMAS MAP TO DBNAME                 *          
*               ABEND S0C6 DBIMUTIL                                  *          
*                                                                    *          
*  Description: When trying to bind to a DBName defined in the       *          
*               DBTABLE containing image segments, the bind fails    *          
*               with message 'NO SUBSCHEMAS MAP TO DMCL USING        *          
*               DBNAME'                                              *          
*               DBIMUTIL can abend S0C6.                             *          
*                                                                    *          
*  Tapes      : EZDB CI0502 CA-IDMS Release 17                       *          
*                                                                    *          
**********************************************************************          
* CGI05.009                                                IDMS 17.0 *          
**********************************************************************          
*                                                                               
NAME COIMAGEI COIMAGEI                                                          
VER 29D2 D203,400C,C130            MVC   TIXFRECT,DBNTDPR#                      
VER 29D8 D203,4008,C130            MVC   TIXSLOCT,DBNTDPR#                      
*                                                                               
REP 29D2 58F0,6018                 L     R15,CCSAPTCH                           
REP 29D6 47F0,F2D0                 B     PATCH+X'2D0'                           
REP 29DA 0700,0700                 NOP                                          
*                                                                               
NAME DBIMUTIL DBIMUTIL                                                          
VER 0006 47F0,C5E9                 B     IMUT0000                               
REP 0006 47F0,F04E                 B     IMUT0000                               
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 02D0 F2D0,F2D2,F2D4,F2D6,F2D8,F2DA,F2DC,F2DE                                
VER 02E0 F2E0,F2E2,F2E4                                                         
*                                                                               
REP 02D0 D203,400C,C130            MVC   TIXFRECT,DBNTDPR#                      
REP 02D6 D203,4008,C130            MVC   TIXSLOCT,DBNTDPR#                      
REP 02DC D201,301C,C132            MVC   DBNIXPR+0(2),DBNTDPR#+2                
REP 02E2 47F0,C07A                 B     INLINE                                 
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0040 0000,0000,0000,0000                                                    
REP 0040 C3C7,C9F0,F5F0,F0F9       CGI05.009