**********************************************************************  00001000
*  DB90S 5.5 PTF CZ409.135                              January 2008 *  00002000
*                                                                    *  00002100
*  KEYWORDS   : OPTIONAL NO DML DBEZRFWD RETURN CODE                 *  00002200
*                                                                    *  00002300
*  DESCRIPTION: If DBEZCUP2 detects that there is no DML to process  *  00002400
*               then DBEZRWFD ends with RC=4                         *  00002500
*               Due to automated processes some users require        *  00002600
*               a different return code when no DML generated.       *  00002700
*               This PTF lets you set the return to a different      *  00002800
*               value when no DML generated.                         *  00002900
*               Change N the AMASPZAP REP to be the reuired value    *  00003000
*               NOTE. The value of N will also be sued as the return *  00003200
*               code if STOPAFTER,DBEZCUP2 is specified              *  00003300
*                                                                    *  00003400
*  Tapes      : DB90S C90401 CA-IDMS R16                             *  00003500
*                                                                    *  00003600
**********************************************************************  00003700
* CZ409.135                                                          *  00003800
**********************************************************************  00003900
*                                                                       00004000
NAME DBEZRFWD DBEZRFWD                                                  00004100
VER 0522 41F0 0004            LA    R15,4                               00004200
*                                                                       00004300
REP 0522 41F0,000N            LA    R15,N                               00004400
*                                                                       00004800
NAME COXAPTCH COXAZAPS                                                  00007000
VER 0430 0000,0000,0000,0000                                            00008000
REP 0430 C3E9,F4F0,F9F1,F3F5      * CZ409.131                           00009000
*                                                                       00010000