********************************************************************* 00000100 * DB90S 5.4 PTF CZ104.011 JULY 2002 * 00000200 * * 00000300 * KEYWORDS : DBEZCUP2 ABEND LOOP INDEX NEXT PRIOR CZ104.010 * 00000400 * * 00000500 * * 00000600 * DESCRIPTION: DBEZCUP2 can abended or loop when procesiing * 00000700 * journal images for an index ordered next or prior * 00000800 * * 00000900 * Tapes : DB90S C10401 CA-IDMS Release 15.0 * 00001000 * * 00002000 * CZ104.010 IS A PEREQUISTE FOR THIS PTF * 00003000 * * 00003100 ********************************************************************* 00003200 NAME DBEZCUP2 DBEZCUP2 00003300 VER 1602 5810,7030 L R1,PJNLJTRT 00003403 VER 1606 58F0,E004 L R15,SR8PDBK 00003501 VER 1660 5810,7030 L R1,PJNLJTRT 00003603 VER 1664 58F0,E000 L R15,SR8NDBK 00003701 VER 1742 948B,201A NI DRDFLG1,255-(DRDCUR 00003801 VER 1746 1BFF SR R15,R15 00003901 VER 1748 925C,B000 MVI ISAEYE,C'*' 00004001 VER 1758 41F0,0004 LA R15,R4 00005001 VER 175C 47F0,C418 B SCONEXIT 00006001 VER 1D76 41E0,E044 LA R14,JTRDSLEN(,R14) 00007004 VER 1D7A 40E0,5000 STH R14,JTRRLEN 00008001 REP 1602 58F0,6018 L R15,CCSAPTCH 00009001 REP 1606 47F0,F250 B PATCH+X'250' 00010001 REP 1660 58F0,6018 L R15,CCSAPTCH 00020001 REP 1664 47F0,F296 B PATCH+X'296' 00030001 REP 1742 58F0,6018 L R15,CCSAPTCH 00040001 REP 1746 47F0,F374,0700 B PATCH+X'374' 00050001 REP 1758 58F0,6018 L R15,CCSAPTCH 00060001 REP 175C 47F0,F386 B PATCH+X'386' 00061001 REP 1D76 58F0,6018 L R15,CCSAPTCH 00062001 REP 1D7A 47F0,F392 B PATCH+X'392' 00062101 * 00062200 NAME DBEZCUP3 DBEZCUP3 00062300 VER 0F34 D503,3008,CA36 CLC DRKNDBKY,=F'-1' 00062401 VER 0F3A 4770,C3DE BNE DMLAF022 00062501 REP 0F34 58F0,6018 L R15,CCSAPTCH 00062601 REP 0F38 47F0,F2DC,0700 B PATCH+X'2DC' 00062706 VER 15AC F0F3,F0F7 CHECK CZ104.010 IS APPLIED 00062802 * 00062900 NAME COXAPTCH COXAPTCH 00063000 VER 0250 F250,F252,F254,F256,F258,F25A,F25C,F25E 00064000 VER 0260 F260,F262,F264,F266,F268,F26A,F26C,F26E 00064100 VER 0270 F270,F272,F274,F276,F278,F27A,F27C,F27E 00064200 VER 0280 F280,F282,F284,F286,F288,F28A,F28C,F28E 00064300 VER 0290 F290,F292,F294,F296,F298,F29A,F29C,F29E 00064400 VER 02A0 F2A0,F2A2,F2A4,F2A6,F2A8,F2AA,F2AC,F2AE 00064500 VER 02B0 F2B0,F2B2,F2B4,F2B6,F2B8,F2BA,F2BC,F2BE 00064600 VER 02C0 F2C0,F2C2,F2C4,F2C6,F2C8,F2CA,F2CC,F2CE 00064700 VER 02D0 F2D0,F2D2,F2D4,F2D6,F2D8,F2DA,F2DC,F2DE 00064800 VER 02E0 F2E0,F2E2,F2E4,F2E6,F2E8,F2EA,F2EC,F2EE 00064900 VER 02F0 F2F0,F2F2,F2F4,F2F6,F2F8,F2FA,F2FC,F2FE 00065000 VER 0300 F300,F302,F304,F306,F308,F30A,F30C,F30E 00066000 VER 0310 F310,F312,F314,F316,F318,F31A,F31C,F31E 00067000 VER 0320 F320,F322,F324,F326,F328,F32A,F32C,F32E 00068000 VER 0330 F330,F332,F334,F336,F338,F33A,F33C,F33E 00069000 VER 0340 F340,F342,F344,F346,F348,F34A,F34C,F34E 00070000 VER 0350 F350,F352,F354,F356,F358,F35A,F35C,F35E 00080000 VER 0360 F360,F362,F364,F366,F368,F36A,F36C,F36E 00090000 VER 0370 F370,F372,F374,F376,F378,F37A,F37C,F37E 00100000 VER 0380 F380,F382,F384,F386,F388,F38A,F38C,F38E 00101000 VER 0390 F390,F392,F394,F396,F398,F39A,F39C,F39E 00102000 VER 03A0 F3A0,F3A2,F3A4,F3A6,F3A8,F3AA,F3AC 00103805 REP 0250 5810,7030 L R1,PJNLJTRT replaced intruction 00103903 REP 0254 D503,E004,E008 CLC SR8PDBK,SR8ODBK prior=owner 00104000 REP 025A 4770,F278 BNE PATCH+X'278' 00104101 REP 025E D503,401C,C438 CLC FORRID,=F'7' SYSTEM owned 00104200 REP 0264 4770,C412 BNE SCON9000 No so all done 00104300 REP 0268 9640,201A OI DRDFLG1,DRDCURC CUP3 must set 00104400 REP 026C 9680,201B OI DRDFLG2,DRDCSR7 set sr7 as current 00104500 REP 0270 9640,201B OI DRDFLG2,DRDCLAS from last 00104600 REP 0274 47F0,C35A B SCON1800 write DML 00104700 REP 0278 D503,E000,E008 CLC SR8NDBK,SR8ODBK next=owner 00104800 REP 027E 4770,F28E BNE PATCH+X'28E' 00104901 REP 0282 9640,201A OI DRDFLG1,DRDCURC CUP3 must set 00105000 REP 0286 9640,201B OI DRDFLG2,DRDCLAS last as current 00105100 REP 028A 47F0,C35A B SCON1800 00105200 REP 028E 58F0 E004 L R15,SR8PDBK 00105300 REP 0292 47F0 C2DA B INLINE 00105400 REP 0296 5810,7030 L R1,PJNLJTRT replaced intruction 00105503 REP 029A D503,E000,E008 CLC SR8NDBK,SR8ODBK next=owner 00105600 REP 02A0 4770,F2BE BNE PATCH+X'2BE' 00105707 REP 02A4 D503,401C,C438 CLC FORRID,=F'7' SYSTEM owned 00105800 REP 02AA 4770,C412 BNE SCON9000 No so all done 00105900 REP 02AE 9640,201A OI DRDFLG1,DRDCURC CUP3 must set 00106000 REP 02B2 9680,201B OI DRDFLG2,DRDCSR7 set sr7 as current 00106100 REP 02B6 9640,201B OI DRDFLG2,DRDCLAS from last 00106200 REP 02BA 47F0,C35A B SCON1800 write DML 00106300 REP 02BE D503,E004,E008 CLC SR8PDBK,SR8ODBK prior=owner 00106400 REP 02C4 4770,F2D4 BNE PATCH+X'2D4' 00106503 REP 02C8 9640,201A OI DRDFLG1,DRDCURC CUP3 must set 00106600 REP 02CC 9620,201B OI DRDFLG2,DRDCFIR first as current 00106700 REP 02D0 47F0,C35A B SCON1800 write DML 00106800 REP 02D4 58F0 E000 L R15,SR8NDBK 00106900 REP 02D8 47F0 C338 B INLINE 00107000 * 00107100 REP 02DC 9140,201B TM DRDFLG2,DRDCLAS 00107200 REP 02E0 4780,F32A BZ PATCH+X'32A' 00107303 * @FIND LAST,SET=DRDSET 00107400 REP 02E4 4100,4000 LA 0,SSCTRL 00107500 REP 02E8 5000,4064 ST 0,SSCIDBCM+4 00107600 REP 02EC 4100,4077 LA 0,SSCIDBCM+24+0-1 00107700 REP 02F0 5000,4068 ST 0,SSCIDBCM+8 00107800 REP 02F4 4100,202E LA 0,DRDSET 00107900 REP 02F8 5000,406C ST 0,SSCIDBCM+12 00108000 REP 02FC 9680,406C OI SSCIDBCM+12,X'80' 00109000 REP 0300 4110,4064 LA 1,SSCIDBCM+4 00109100 REP 0304 58F0,CA26 L 15,=V(IDMS) 00109200 REP 0308 05EF BALR 14,15 00109300 REP 030A D503,4008,CA42 CLC ERRSTAT,=C'0307' 00109401 REP 0310 4780,C72A BE DMLAER00+X'A' 00109500 REP 0314 D503,4008,CA3A CLC ERRSTAT,=C'0000' 00109601 REP 031A 4770,C720 BNE DMLAER00 00109700 REP 031E 9120,201B TM DRDFLG2,DRDCSR7 00109800 REP 0322 4780,C448 BO DMLAF040 00109900 REP 0326 47F0,C720 B DMLAER00 00110000 REP 032A 9140,201B TM DRDFLG2,DRDCFIR 00111000 REP 032E 4780,F366 BZ PATCH+X'366' 00111103 * @FIND FIRST,SET=DRDSET 00111200 REP 0332 4100,4000 LA 0,SSCTRL 00111300 REP 0336 5000,4064 ST 0,SSCIDBCM+4 00111400 REP 033A 4100,4073 LA 0,SSCIDBCM+20+0-1 00111500 REP 033E 5000,4068 ST 0,SSCIDBCM+8 00111600 REP 0342 4100,202E LA 0,DRDSET 00111700 REP 0346 5000,406C ST 0,SSCIDBCM+12 00111800 REP 034A 9680,406C OI SSCIDBCM+12,X'80' 00111900 REP 034E 4110,4064 LA 1,SSCIDBCM+4 00112000 REP 0352 58F0,CA26 L 15,=V(IDMS) 00112100 REP 0356 05EF BALR 14,15 00112200 REP 0358 D503,4008,CA42 CLC ERRSTAT,=C'0307' 00112301 REP 035E 4780,C72A BE DMLAER00+X'A' 00112400 REP 0362 47F0,C720 B DMLAER00 00112500 REP 0366 D503,3008,CA36 CLC DRKNDBKY,=F'-1' replaced 00112601 REP 036C 4770,C3DE BNE DMLAF022 intructions 00112700 REP 0370 47F0,C3D4 B INLINE 00112808 * 00112900 REP 0374 948B,201A NI DRDFLG1,255-(DRDCUR 00113000 REP 0378 9400,201B NI DRDFLG2,X'00'DRDCUR 00113100 REP 037C 1BFF SR R15,R15 00113200 REP 037E 925C,B000 MVI ISAEYE,C'*' 00113300 REP 0382 47F0,C41C B INLINE 00113400 REP 0386 41F0,0004 LA R15,R4 00113500 REP 038A 925C,B000 MVI ISAEYE,C'*' 00113600 REP 038E 47F0,C41C B INLINE 00113700 REP 0392 41E0,E044 LA R14,JTRDSLEN(,R14) 00113809 REP 0396 40E0,5000 STH R14,JTRRLEN 00113900 REP 039A 18E5 LR R14,R5 00114000 REP 039C 4AE0,5000 AH R14,JTRRLEN 00114100 REP 03A0 D203,E000,F3AA MVC 0(4,R14),=F'-1' 00114201 REP 03A6 47F0,C35C B INLINE 00114301 REP 03AA FFFF,FFFF DC F'-1' 00114400 NAME COXAPTCH COXAZAPS 00114500 VER 0050 0000,0000,0000,0000 00114600 REP 0050 C3E9,F1F0,F4F0,F1F1 * CZ104.011 00114700