********************************************************************** 00001000 * DB90S 5.4 PTF CZ104.027 April 2003 * 00002000 * * 00002100 * KEYWORDS : S0C1 DBEZCUP3 * 00002200 * * 00002300 * DESCRIPTION: DBEZCUP3 can abend S0C1. * 00002400 * This is occurs if a record is stored in a VIA user * 00002500 * owned index and the owner is a relocated record * 00002600 * ( i.e. Sr2/SR3 pair ) and at the time the member * 00002700 * is stored there is enough space in the owners * 00002800 * original page for IDMS to 'pull home' the SR3 * 00002900 * * 00003000 * * 00003100 * Tapes : DB90S C10401 CA-IDMS R15 * 00003200 * * 00003300 ********************************************************************** 00003400 * CZ104.027 * 00003500 ********************************************************************** 00003600 * 00003700 NAME DBEZCUP2 DBEZCUP2 00003800 VER 021A 4110,4000 LA R1,PJNLDS 00003901 VER 021E 58F0,C92C L R15,=A(JNLR0000) 00004001 VER 28BC D501,2034,C408 CLC JTRLIID,=AL2(2) 00004105 VER 28C2 4780,C07A BE JNLR0100 00004203 VER 29D6 5810,7020 L R1,PJNLDRRA 00004303 VER 29DA 1211 LTR R1,R1 00004403 VER 29DC 4780,C1D6 BZ JNLR0400 00004503 * 00004600 REP 021A 58F0,6018 L R15,CCSAPTCH 00004702 REP 021E 47F0,F490 B PATCX+X'490' 00004806 REP 28BC 0700,0700,0700 NOPS 00004903 REP 28C2 0700,0700 NOPS 00005003 REP 29D6 58F0,6018 L R15,CCSAPTCH 00005107 REP 29DA 47F0,F4A0 B PATCH+X'4A0' 00005208 REP 29DE 0700 NOP 00005308 * 00005400 NAME COXAPTCH COXAPTCH 00005500 VER 0490 F490,F492,F494,F496,F498,F49A,F49C,F49E 00005602 VER 04A0 F4A0,F4A2,F4A4,F4A6,F4A8,F4AA,F4AC,F4AE 00005702 VER 04B0 F4B0,F4B2,F4B4,F4B6,F4B8,F4BA,F4BC,F4BE 00005802 VER 04C0 F4C0,F4C2,F4C4,F4C6,F4C8,F4CA,F4CC,F4CE 00005902 VER 04D0 F4D0,F4D2,F4D4,F4D6,F4D8,F4DA,F4DC,F4DE 00006002 VER 04E0 F4E0,F4E2,F4E4,F4E6,F4E8,F4EA,F4EC,F4EE 00006102 VER 04F0 F4F0,F4F2,F4F4,F4F6,F4F8,F4FA,F4FC,F4FE 00006202 VER 0500 F500,F502,F504,F506,F508,F50A,F50C,F50E 00006302 VER 0510 F510,F512,F514,F516,F518 00006402 * 00006602 REP 0490 9680,4041 OI PJNLSPARE ( 1st JTR for DML) 00006713 REP 0494 4110,4000 replaced instrution 00006802 REP 0498 58F0,C92C " " " " " " " " " " 00006902 REP 049C 47F0,C0CA B INLINE 00007003 * 00007102 REP 04A0 95FF,F512 CLI ORGRECID,X'FF' processing sr2/3 ? 00007202 REP 04A4 4770,F4E4 BNE PATCX+X'4E4' yes 00007302 REP 04A8 9180,7041 TM PJNLSPARE ( 1st JTR for DML) 00007412 REP 04AC 47E0,F4C8 BNO PATCX+X'4C8' no 00007502 REP 04B0 D503,2004,C3D4 CLC JTRTYPE,=C'BFOR' 00007602 REP 04B6 4770,F4C8 BNE replaced code 00007711 REP 04BA D501,2034,C408 CLC JTRLIID,=AL2(2) SR2 00007805 REP 04C0 4780,F4D6 BE PATCH+X'4D6' 00007910 REP 04C4 947F,7041 NI PJNLSPARE,X'7F' all done with check 00008012 REP 04C8 5810,7020 Replaced intsruction 00008103 REP 04CC 1211 " " " " " " 00008202 REP 04CE 4780,C1D6 " " " " " " 00008302 REP 04D2 47F0,C1CC Branch Inline 00008402 REP 04D6 947F,7041 NI PJNLSPARE,X'7F' 00008512 REP 04DA D201,F512,2044 MVC ORGRECID,SR2DATA+4 00008605 REP 04E0 47F0,C07A B JNLR0100 00008702 REP 04E4 D503,2004,C3D8 CLC JTRTYPE,=C'AFTR' 00008802 REP 04EA 4770,C07A BNE JNLR0100 read next 00008902 REP 04EE D501,F512,2034 CLC ORGRECID,JTRLIID do we care 00009010 REP 04F4 4770,C07A BNE JNLR0100 no read next 00009102 REP 04F8 95FF,F514 CLI PATCX+X'514',X'FF' second one 00009202 REP 04FC 4770,F50A BNE PATCX+X'50A' no 00009302 REP 0500 D203,F512,F516 yes so all done so reset values 00009402 REP 0506 47F0,C07A B JNLR0100 read next 00009502 REP 050A 92FF,F514 MVI PATCX+'514',X'FF' say first found 00009602 REP 050E 47F0,C07A B JNLR0100 read next 00009702 REP 0512 FF00,0000 Current values 00009802 REP 0516 FF00,0000 init values 00009902 NAME COXAPTCH COXAZAPS 00010002 VER 00D0 0000,0000,0000,0000 00010104 REP 00D0 C3E9,F1F0,F4F0,F2F7 * CZ104.027 00011004 * 00012000