********************************************************************            
*    EZDB 5.4 PTF CD104.144                          February 2008 *            
*                                                                  *            
*    KEYWORDS   : EZ-DB Z/OS 1.9 ALLOWUSERKEYCSA(NO) QI82742       *            
*                 CDMSLIB=NO STEPLIB                               *            
*                                                                  *            
*    DESCRIPTION: CDMSLIB=NO can be specified in COXATAB or        *            
*                 COXACTL to force EZ-DB to load from STEPLIB      *            
*                 instead of the default CDMSLIB. CODBIOLD that    *            
*                 is linked with IDMSDBIO does not check for       *            
*                 CDMSLIB=NO, so will always load from CDMSLIB     *            
*                 when present. This will cause an abend when      *            
*                 AllowUserKeyCSA(NO) is specified.                *            
*                 This PTF forces CODBIOLD to check for CDMSLIB=NO *            
*                 in either COXATAB or COXACTL.                    *            
*                                                                  *            
*    COREQS     : CD104145 (which is in binary format)             *            
*                                                                  *            
*    TAPES      : EZDB C10401                                      *            
*                 CA-IDMS RELEASES 15.0                            *            
*                                                                  *            
********************************************************************            
* CD104.144 FOR C10401(RELEASE 5.4)                  CA-IDMS R15.0 *            
********************************************************************            
*                                                                               
*  INSTRUCTIONS:                                                     *          
*                                                                    *          
* 1. Upload CD104.145 into a suitable object library.                *          
*    When downloading from our web site, note that the file          *          
*    is in EBCDIC format and must be downloaded as BINARY or         *          
*    EBCDIC, NOCR, NOLF.                                             *          
*                                                                    *          
* 2. Rename CODBIOLD to CODBIOLO in your EZDB runtime LOADLIB in     *          
*    case it's required again.                                       *          
*                                                                    *          
* 3. Linkedit the replacement module using the sample JCL-A below;   *          
*    Where 'ezdb.loadlib' is your EZDB runtime LOADLIB               *          
*          'caidms.loadlib' is the CA-IDMS load library              *          
*          'ezdb.objlib' is the object library you downloaded        *          
*          the ptf to.                                               *          
*    A return code of 4 for the linkedit is acceptable.              *          
*                                                                    *          
* 4. Relink IDMSDBIO using the DBIOLNK step in INSTMAIN, supplied    *
*    in the original EZ-DB INSTALL.SRCLIB library. This links the    *
*    replacement CODBIOLD module with IDMSDBIO.                      *
*                                                                    *
* 5. Apply the AMASPZAP changes below, and restart the CV.           *
*                                                                    *          
 NAME COXAPTCH COXAZAPS                                                         
 VER 0478 0000,0000,0000,0000                                                   
 VER 0480 0000,0000,0000,0000                                                   
 REP 0478 C3C4,F1F0,F4F1,F4F4      CD104.144                                    
 REP 0480 C3C4,F1F0,F4F1,F4F5      CD104.145                                    
*                                                                               
********************************************************************            
* Sample JCL-A to relink new CODBIOLD module                       *            
********************************************************************            
//JOBCARD                                                                       
//LINKEDIT EXEC PGM=IEWL,                                                       
//            PARM='LIST,XREF,MAP,AMODE=31,RMODE=24',                           
//            REGION=1024K                                                      
//SYSPRINT DD  SYSOUT=*                                                         
//SYSUT1   DD  DSN=&&WRKAWORK,UNIT=SYSDA,                                       
//            SPACE=(CYL,(6),,CONTIG)                                           
//SYSLMOD  DD  DSN=ezdb.loadlib,DISP=SHR                                        
//SYSLIB   DD  DSN=caidms.loadlib,DISP=SHR                                      
//SYSLIN   DD  DSN=ezdb.objlib(CD104145),DISP=SHR                               
//         DD *                                                                 
 ENTRY #EPMAP                                                                   
 NAME CODBIOLD(R)                                                               
/*