**********************************************************************          
*  EZDB  5.6 PTF CDI05.001                              July 2009    *          
*                                                                    *          
*  KEYWORDS   : ALLOC8-036E ERROR MESSAGE DSNAME DMCL                *          
*                                                                    *          
*  Description: EZ-Allocate may generate erroneus ALLOC8-036E        *          
*               messages at startup when the DSNAME is specified     *          
*               in the DMCL and EZ-Image is not active.              *          
*                                                                    *          
*  Tapes      : EZDB CI0502 CA-IDMS Release 17                       *          
*                                                                    *          
**********************************************************************          
* CDI05.001                                                IDMS 17.0 *          
**********************************************************************          
*                                                                               
NAME COALLOC9 COALLOC9                                                          
VER 06F0 9540,7008                CLI   XDCBDDNM,C' '                           
VER 06F4 4780,CB3A                BE    ALOCEXIT                                
VER 06F8 D207,808E,7008           MVC   DDNAME,XDCBDDNM                         
*                                                                               
VER 0706 9540,7020                CLI   XDCBDSN,C' '                            
VER 070A 4780,CB3A                BE    ALOCEXIT                                
VER 070E 9110,3005                TM    FCBFLAG2,FCBALLOC                       
*                                                                               
REP 06F0 58F0,C008                L     R15,CCSAADDR                            
REP 06F4 58F0,F018                L     R15,CCSAPTCH                            
REP 06F8 47F0,F010                B     PATCH+X'10'                             
REP 06FC 0700                     NOP                                           
*                                                                               
REP 0706 58F0,C008                L     R15,CCSAADDR                            
REP 070A 58F0,F018                L     R15,CCSAPTCH                            
REP 070E 47F0,F02E                B     PATCH+X'2E'                             
*                                                                               
NAME COXAPTCH COXAPTCH                                                          
VER 0010 F010,F012                                                              
VER 0014 F014,F016                                                              
VER 0018 F018,F01A                                                              
VER 001C F01C,F01E                                                              
VER 0020 F020,F022,F024                                                         
VER 0026 F026,F028                                                              
*                                                                               
VER 002E F02E,F030                                                              
VER 0032 F032,F034                                                              
VER 0036 F036,F038                                                              
VER 003A F03A,F03C                                                              
VER 003E F03E,F040                                                              
VER 0042 F042,F044                                                              
*                                                                               
REP 0010 9540,7008                CLI   XDCBDDNM,C' '                           
REP 0014 4780,CB3A                BE    ALOCEXIT                                
REP 0018 9500,7008                CLI   XDCBDDNM,X'00'                          
REP 001C 4780,CB3A                BE    ALOCEXIT                                
REP 0020 D207,808E,7008           MVC   DDNAME,XDCBDDNM                         
REP 0026 47F0,C69E                B     INLINE                                  
*                                                                               
REP 002E 9540,7020                CLI   XDCBDSN,C' '                            
REP 0032 4780,CB3A                BE    ALOCEXIT                                
REP 0036 9500,7020                CLI   XDCBDSN,X'00'                           
REP 003A 4780,CB3A                BE    ALOCEXIT                                
REP 003E 9110,3005                TM    FCBFLAG2,FCBALLOC                       
REP 0042 47F0,C6B2                B     INLINE                                  
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0000 0000,0000,0000,0000                                                    
REP 0000 C3C4,C9F0,F5F0,F0F1      CDI05.001