**********************************************************************  00001000
*  DB90S 5.5 PTF CZ409.131                              July  2007   *  00002000
*                                                                    *  00002100
*  KEYWORDS   : S0C1 DBEZCUP2                                        *  00002200
*                                                                    *  00002300
*  DESCRIPTION: DBEZCUP2 can abend S0C1 at offset X'818' or X'87A'   *  00002400
*               This is occurs when processing a CONNECT or          *  00002500
*               DISCONNECT from set that has an owner pointer and    *  00002600
*               owner pointer is postioned before the NEXT and       *  00002700
*               PRIOR pionters in the records prefix.                *  00002800
*                                                                    *  00003100
*  Tapes      : DB90S C90401 CA-IDMS R16                             *  00003200
*                                                                    *  00003300
**********************************************************************  00003400
* CZ409.131                                                          *  00003500
**********************************************************************  00003600
*                                                                       00003700
NAME DBEZCUP2 DBEZCUP2                                                  00003800
VER 082C 58F0,F010            L     R15,FMRSRN                          00003900
VER 0830 47F0,C6B4            B     PJNLD010                            00004000
VER 088E 5880 8010            L     R8,FMRSRN                           00004100
VER 0892 47F0 C716            B     PJNLC100                            00004200
*                                                                       00004600
REP 082C 58E0,6018            L     R14,CCSAPTCH                        00004700
REP 0830 47E0,E664            B     PATCX+X'664'                        00004800
REP 088E 58E0,6018            L     R14,CCSAPTCH                        00004900
REP 0892 47F0,E676            B     PATCX+X'676'                        00005000
*                                                                       00005400
NAME COXAPTCH COXAPTCH                                                  00005500
VER 0664 F664,F666,F668,F66A,F66C,F66E                                  00005600
VER 0670 F670,F672,F674,F676,F678,F67A,F67C,F67E                        00005700
VER 0680 F680,F682,F684,F686                                            00005800
*                                                                       00006500
REP 0664 D503,4034,F028       CLC   PJNLPXOF,FMROPOS                    00006600
REP 066A 4780,C6DC            BE    PJNLD020                            00006800
REP 066E 58F0,F010            L     R15,FMRSRN REPLACED INSTRUCTION     00006900
REP 0672 47F0,C6B4            B     PJNLD010    ''   ''   ''   ''       00007000
*                                                                       00007100
REP 0676 D503,4034,8028       CLC   PJNLPXOF,FMROPOS                    00007200
REP 067C 4780,C73E            BE    PJNLC200                            00007500
REP 0680 5880,8010            L     R8,FMRSRN REPLACED INSTRUCTION      00007600
REP 0684 47F0,C716            B     PJNLC100   ''   ''  ''    ''        00007700
NAME COXAPTCH COXAZAPS                                                  00010000
VER 0410 0000,0000,0000,0000                                            00010100
REP 0410 C3E9,F4F0,F9F1,F3F1      * CZ409.131                           00011000
*                                                                       00012000