********************************************************************* 00000100 * DB90S 5.4 PTF CZ104.012 AUGUST 2002 * 00000201 * * 00000300 * KEYWORDS : DBEZCUP2 ABEND LOOP INDEX NEXT PRIOR CZ104.010 * 00000400 * CZ104.011 CORRUPT ORPHAN ONLY * 00000500 * * 00000600 * * 00000700 * DESCRIPTION: Various abends can occur in DBEZRFWD when it is * 00000800 * processing indexes odrered NEXT or PRIOR. * 00000900 * It is also possible that database corruption can * 00001000 * occur. * 00001100 * In order to fully resolve all the issues a CA change * 00001200 * relating to the use of orphan only SR8s is required. * 00001300 * These changes are provided in the , currently TEMP, * 00001501 * APAR TC03726 * 00001601 * * 00002001 * Tapes : DB90S C10401 CA-IDMS Release 15 * 00002101 * * 00002201 * CZ104.010 IS A PEREQUISTE FOR THIS PTF * 00002301 * CZ104.011 IS A PEREQUISTE FOR THIS PTF * 00002401 * * 00002501 NAME DBEZCUP2 DBEZCUP2 00002600 VER 160A 45E0,C392 * BAL R14,SCONSR00 00002700 VER 160E D501,8034,C456 * CLC JTRLIID,=AL2(7) 00003000 VER 1614 4780,C412 * BE SCON9000 00004000 VER 1618 D501,8000,C458 * CLC JTRRLEN,=AL2(JTRDSL 00005000 VER 161E 4720,C2F4 * BH *+6 00006000 VER 1622 0000 * DC H'0' 00007000 VER 1686 41FF,E020 * LA R15,SR8VAR(R15) 00008000 REP 160A 58F0,6018 * L R15,CCSAPTCH 00009000 REP 160E 47F0,F3B0 * B PATCH+X'3B0' 00010000 REP 1612 41E0,8040 * LA R14,JTRDATA 00011000 REP 1616 41F0,E020 * LA R15,SR8VAR first dbkey 00011100 REP 161A 9660,201A * OI DRDFLG1,DRDCURCY+DRDORDNX 00011200 REP 161E 47F0,C35A * B SCON1800 00011300 REP 1622 0700 * NOP 00011400 REP 1686 41F0,E020 * LA R15,SR8VAR first dbkey 00011500 NAME COXAPTCH COXAPTCH 00011600 VER 028E 58F0,F290,47F0,F294 00011700 VER 02D4 58F0,F2D6,47F0,F2DA 00011800 VER 031E 9120,201B 00011900 VER 0322 4780,C448 00012000 VER 032A 9140,201B 00012100 VER 03B0 F3B0,F3B2,F3B4,F3B6,F3B8,F3BA,F3BC,F3BE 00012200 VER 03C0 F3C0,F3C2,F3C4,F3C6,F3C8,F3CA,F3CC,F3CE 00012300 VER 03D0 F3D0,F3D2,F3D4,F3D6,F3D8,F3DA,F3DC,F3DE 00012400 VER 03E0 F3E0,F3E2,F3E4,F3E6,F3E8,F3EA,F3EC,F3EE 00012500 VER 03F0 F3F0,F3F2,F3F4,F3F6,F3F8,F3FA,F3FC,F3FE 00012600 REP 028E 58F0,E004,47F0,C2DA 00012700 REP 02D4 58F0,E000,47F0,C338 00012800 REP 031E 9180,201B 00012900 REP 0322 4710,C448 00013000 REP 032A 9120,201B 00013100 REP 03B0 50E0,F3FC * ST R14,PATCH+X'4C' 00013200 REP 03B4 58F0,E004 * L R15,SR8PDBK 00013300 REP 03B8 45E0,C392 * BAL R14,SCONSR00 00013400 REP 03BC 58F0,6018 * re address patch 00013500 REP 03C0 D501,8000,F3FA * CLC JTRRLEN,=X'0050' Prefix only 00013600 REP 03C6 4780,F3D4 * BE PATCH+X'24' 00013700 REP 03CA D501,8054,F3F8 * CLC SR8NUME,=H'0' Orphan only 00013800 REP 03D0 4770,C2F4 * BNE inline 00013900 REP 03D4 58E0,F3FC * L R14,PATCH+X'4C' 00014000 REP 03D8 58F0,E000 * L R15,SR8NDBK 00015000 REP 03DC 45E0,C392 * BAL R14,SCONSR00 00016000 REP 03E0 58F0,6018 * re address patch 00017000 REP 03E4 D501,8000,F3FA * CLC JTRRLEN,=H'50' Prefix only 00018000 REP 03EA 4780,F3F8 * BE PATCH+X'48' 00019000 REP 03EE D501,8054,F3F8 * CLC SR8NUME,=H'0' Orphan only 00020000 REP 03F4 4770,C2E2 * BNE inline 00030000 REP 03F8 0000 * DC H'0' 00040000 REP 03FA 0050 * DC H'50' 00041000 REP 03FC 0000,0000 * SAVE R14 00042000 NAME COXAPTCH COXAZAPS 00043000 VER 0058 0000,0000,0000,0000 00044000 REP 0058 C3E9,F1F0,F4F0,F1F2 * CZ104.012 00045000