**********************************************************************          
*  EZ-DB 5.4 PTF CD104.110                                June 2005  *          
*                                                                    *          
*  KEYWORDS   : TCE CORRUPT IO ERROR ABEND STACK                    *           
*                                                                    *          
*  DESCRIPTION: An IO error may corrupt the TCE when DBIO is called  *          
*               by the SYNAD exit.                                   *          
*                                                                    *          
*               This PTF *MUST* be applied together with a new       *          
*               version of the #COEXIT macro supplied in CD104.111   *          
*               See Instructions below for details of applying these *          
*               PTFs.                                                *          
*                                                                    *          
*  COREQ      : CD104111 (which is in text format)                   *          
*                                                                    *          
*  TAPES      : EZ-DB C10401. CA-IDMS R15                            *          
*                                                                    *          
*  INSTRUCTIONS:                                                     *          
*                                                                    *          
* 1. Upload CD104111 into a your ez-db.install.srclib.               *          
*                                                                    *          
* 2. In ez-db.install.srclib rename #COEXIT to OCOEXIT in case you   *          
*    need to back the PTF out.                                       *          
*                                                                    *          
* 3. In ez-db.install.srclib rename CD104111 to #COEXIT.             *          
*                                                                    *          
* 4. You must now regenerate the EZ-DB IDMSDPLX stub. If you do not  *          
*    have your own, or any other third party exit to include, then   *          
*    you can tailor the JCL below to recreate the IDMSDPLX stub      *          
*    using the new #COEXIT macro.                                    *          
*                                                                               
//         jobcard                                                      00010001
//DPLXGEN  EXEC PGM=IEV90,REGION=1024K,COND=(0,LE)                              
//SYSLIB   DD  DSN=ez-db.install.srclib,DISP=SHR                                
//         DD  DSN=idms.distmac,DISP=SHR                                        
//         DD  DSN=SYS1.MACLIB,DISP=SHR                                         
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                         
//SYSUT1   DD  DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG)                    
//SYSUT2   DD  DSN=&&WRKB,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG)                    
//SYSUT3   DD  DSN=&&WRKC,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG)                    
//SYSPRINT DD  SYSOUT=*                                                         
//SYSLIN   DD  DSN=&&OBJ,UNIT=SYSDA,DISP=(NEW,PASS),                            
//         DCB=BLKSIZE=80,SPACE=(CYL,(6),,CONTIG)                               
//SYSIN    DD  *                                                                
   #COEXIT EPNAME=IDMSDPLX,EPLIST=(COGDPLX3,COGDPLX2,COGDPLX1)                  
//*                                                                             
//DPLXLNK  EXEC PGM=IEWL,PARM='XREF,LIST,LET,SIZE=(256K,64K)',                  
//            REGION=1024K,COND=(4,LE)                                          
//SYSPRINT DD  SYSOUT=*                                                         
//SYSUT1   DD  DSN=&&WRKA,UNIT=SYSDA,SPACE=(CYL,(6),,CONTIG)                    
//SYSLMOD  DD  DSN=ez-db.runtime.loadlib,DISP=SHR                               
//SYSLIN   DD  DSN=&&OBJ,DISP=(OLD,DELETE)                                      
//         DD  *                                                                
 NAME IDMSDPLX(R)                                                               
//                                                                              
*                                                                               
*    If you have previously recreated the IDMSDPLX stub to include   *          
*    further exits, then you can use your existing job to recreate   *          
*    IDMSDPLX, or see the instructions in INSTXITS in the            *          
*    ez-db.install.srclib dataset.                                   *          
*                                                                               
*    Note: By default the new stub will not pass control to any      *          
*          exit if IDMSDPLX has been called by the IDMS SYNAD IO     *          
*          Error routine. If you have included your own exit, that   *          
*          does require to be called in this circumstance, then you  *          
*          must add an additional parameter to the #COEXIT macro.    *          
*          You must code ERRUSER=Y on the #COEXIT macro when         *          
*          generating IDMSDPLX. This will cause any non-Cogito exit  *          
*          to still be called during an IO Error.                    *          
*                                                                    *          
*    NB:   If you have your own IDMSDPLX exit that expects to be     *          
*          called on an IO error - funtion call 4 - then you must    *          
*          ensure that it does not use more than 14 words of stack,  *          
*          pointed to by R13 on entry. For function call 4 only,     *          
*          IDMS only allows a maximum of 18 words of stack space,    *          
*          of which the Cogito IDMSDPLX requires 4 words, leaving    *          
*          14 words for the user exit. This is not clear from the    *          
*          CA-IDMS documentation. Check for CA doc updates relating  *          
*          to this issue.                                            *          
*                                                                    *          
* 5. After successfully generating the new IDMSDPLX, you must relink *          
*    IDMSDBIO to include the new IDMSDPLX. 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.   *          
*                                                                    *          
* 6. Apply the AMASPZAP changes below, and restart the CV.           *          
*                                                                    *          
**********************************************************************          
* CD104.110                                                 IDMS R15 *          
**********************************************************************          
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0368 0000,0000,0000,0000                                                    
VER 0370 0000,0000,0000,0000                                                    
REP 0368 C3C4,F1F0,F4F1,F1F0      * CD104.110                                   
REP 0370 C3C4,F1F0,F4F1,F1F1      * CD104.111                                   
*