**********************************************************************  00000100
*                                                   April     2006   *  00000200
*                                                                    *  00000400
*  DB90S 5.5 PTF CZ409.118                                           *  00000500
*                                                                    *  00000600
*                                                                    *  00000700
*  KEYWORDS   : DBEZCUP2 S0C1 SR3 varaible length                    *  00000800
*                                                                    *  00000900
*  DESCRIPTION: Under certain conditions DBEZCUP2 can abend S0C1     *  00001000
*               when processing a SR3 for a variable length          *  00001100
*               record.                                              *  00001200
*                                                                    *  00003000
*  Tapes      : DB90S C40901 CA-IDMS R16                             *  00003100
*                                                                    *  00003200
**********************************************************************  00003300
* CZ409.118                                                          *  00003400
**********************************************************************  00003500
NAME DBEZCUP2 DBEZCUP2                                                  00004500
VER 255E 5020,7030                   * ST    R2,PJNLJTRT                00004605
VER 2562 45E0,C420                   * BAL   R14,JBLKM000               00004707
REP 255E 58F0,6018                   * Address patch                    00004808
REP 2562 47F0,F600                   * Branch patch                     00004908
NAME COXAPTCH COXAPTCH                                                  00005006
VER 0600 F600,F602,F604,F606,F608,F60A,F60C,F60E                        00090006
VER 0610 F610,F612,F614,F616                                            00090107
REP 0600 D501,4034,F616              * CLC JTRLIID,=H'2' SR2            00090206
REP 0606 4780,C1C6                   * yes ignore it B JBLK0420         00091006
REP 060A 5020,7030                   * Replaced instruction             00092006
REP 060E 45E0,C420                   * Replaced instruction             00093006
REP 0612 47F0,C1E4                   * Branch inline                    00094006
REP 0616 0002                        * DS H'0'                          00095006
NAME COXAPTCH COXAZAPS                                                  00100000
VER  03A8 0000,0000,0000,0000                                           00110000
REP  03A8 C3E9,F4F0,F9F1,F1F8        * CZ104.118                        00120000