**********************************************************************          
*  DB90S 5.4 PTF CD104.016                             October 2002  *          
*                                                                    *          
*  KEYWORDS   : MPMODE MULTI-TASKING HANG ABEND                      *          
*                                                                    *          
*  DESCRIPTION: If multitasking is enabled, then spurious hangs or   *          
*               abends can occur.                                    *          
*                                                                    *          
*               This PTF *MUST* be applied together with a new       *          
*               version of CODBIOLD (ptf CD104.017).                 *          
*               See Instructions below for details of applying these *          
*               PTFs.                                                *          
*                                                                    *          
*  COREQ      : CD104017 (which is in binary format)                 *          
*                                                                    *          
*  TAPES      : EZ-DB C10401. CA-IDMS R15                            *          
*                                                                    *          
*  INSTRUCTIONS:                                                     *          
*                                                                    *          
* 1. Upload CD104.017 into a suitable object library.                *          
*    When downloading from our web site, note that the file          *          
*    it 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 CODBIOLD 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. After successfully linking the new CODBIOLD, you must relink    *          
*    IDMSDBIO to include the new CODBIOLD. You should use the full   *          
*    IDMSDBIO linkstep in the INSTMAIN member of the EZDB install    *          
*    SRCLIB, that you used when you installed EZDB for IDMS R15.0.   *          
*                                                                    *          
* 5. Apply the AMASPZAP changes below, and restart the CV.           *          
*                                                                    *          
**********************************************************************          
* CD104.016                                                 IDMS R15 *          
**********************************************************************          
*                                                                               
NAME COXADBIO COXADBIO                                                          
VER 0592 5855,0004                 L     R5,4(R5)                               
REP 0592 5855,000C                 L     R5,12(R5)                              
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0078 0000,0000,0000,0000                                                    
VER 0080 0000,0000,0000,0000                                                    
REP 0078 C3C4,F1F0,F4F0,F1F6      * CD104.016                                   
REP 0080 C3C4,F1F0,F4F0,F1F7      * CD104.017                                   
*                                                                               
********************************************************************            
* 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=db90s.loadlib,DISP=SHR                                       
//SYSLIB   DD  DSN=caidms.loadlib,DISP=SHR                                      
//SYSLIN   DD  DSN=db90s.objlib(CD104017),DISP=SHR                              
//         DD *                                                                 
 ENTRY #EPMAP                                                                   
 NAME CODBIOLD(R)                                                               
/*