**********************************************************************          
*  DB90S 5.5 PTF CZ409.104                               April 2005  *          
*                                                                    *          
*  KEYWORDS   : DBEZPJNL ABEND STARTED TASK LINEOUT                  *          
*                                                                    *          
*  DESCRIPTION: DBEZPJNL abends if run as a started task due to      *          
*               #LINEOUT to non-existent terminal.                   *          
*               Replacement version of DBEZPJNL checks if running    *          
*               as a started task, and suppresses #LINEOUT.          *          
*                                                                    *          
*               This PTF *MUST* be applied together with a new       *          
*               version of DBEZPJNL (ptf CZ409.105).                 *          
*               See Instructions below for details of applying these *          
*               PTFs.                                                *          
*                                                                    *          
*  COREQ      : CZ409105 (which is in binary format)                 *          
*                                                                    *          
*  TAPES      : EZ-DB C40901. CA-IDMS R16                            *          
*                                                                    *          
*  INSTRUCTIONS:                                                     *          
*                                                                    *          
* 1. Upload CZ409.105 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 DBEZPJNL to DBEZPJNO in your EZDB  runtime LOADLIB in    *          
*    case it's required again.                                       *          
*                                                                    *          
* 3. Linkedit the replacement DBEZPJNL 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. Apply the AMASPZAP changes below.                               *          
*                                                                    *          
**********************************************************************          
* CZ409.104                                                 IDMS R16 *          
**********************************************************************          
*                                                                               
NAME COXAPTCH COXAZAPS                                                          
VER 0338 0000,0000,0000,0000                                                    
VER 0340 0000,0000,0000,0000                                                    
REP 0338 C3E9,F4F0,F9F1,F0F4      * CZ409.104                                   
REP 0340 C3E9,F4F0,F9F1,F0F5      * CZ409.105                                   
*                                                                               
********************************************************************            
* Sample JCL-A to relink new DBEZPJNL 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(CZ409105),DISP=SHR                                
//         DD *                                                                 
 INCLUDE SYSLIB(IDMSBALI)                                                       
 ENTRY DBEZPJNL                                                                 
 NAME DBEZPJNL(R)                                                               
/*