********************************************************************** 00001000 * EZ-DB 5.5 PTF CZ409.119 June 2006 * 00004002 * * 00005000 * * 00006000 * KEYWORDS : DB905523 EZ-REORG WARNING NO BGIN FOR RU * 00007001 * : DB905523 BFOR FOUND INSTEAD * 00007101 * * 00008000 * DESCRIPTION: EZ-REORG EXPECTS TO FIND AREA JOURNAL RECORDS * 00009000 * BEFORE BFOR/AFTR IMAGES FOR THE AREA. * 00009101 * IF THIS IS NOT THE CASE THEN IT WILL ISSUE * 00009201 * THE MESSAGES: * 00009301 * DB905523 EZ-REORG WARNING NO BGIN FOR RU * 00009401 * DB905523 BFOR FOUND INSTEAD * 00009501 * AT IDMS R16 IT APPEARS THAT AREA RECORDS ARE NOT * 00009600 * ALWAYS WRIITEN PRIOR TO THE FISRT BFOR (IN FACT * 00009701 * THEY ARE NOT WRITTEN AT ALL). WHY THIS OCCURS, * 00009801 * IS CURRENTLY BEING INVESTIGATED BY CA * 00009900 * * 00010100 * UNTIL CA HAVE RESOLVED THIS PROBLEM, THIS PTF * 00010201 * REMOVES THE REQUIREMENT FOR THE AREA RECORDS. * 00010301 * * 00010400 * AT PRESENT (I.E. WITHOUT THIS PTF APPLIED), * 00010501 * WHEN DBEZCUP1 ENCOUNTERS THIS SITUATION, IT STILL * 00010601 * PROCESSES ALL REQUIRED JOURNAL IMAGES BUT DBEZRWFD * 00010700 * TERMINATES AFTER DBEZCUP1 IS COMPLETE. * 00010801 * IF YOU ARE CERTAIN THAT THE ERROR IS CAUSED BY THE * 00010900 * LACK OF AREA RECORDS THEN YOU CAN RESTART DBEZRFWD * 00011000 * AND ALL UPDATES WILL BE APPLIED CORRECTLY. * 00011101 * * 00011200 * Tapes : EZ-DB C40901 CA-IDMS R16 * 00011302 * * 00011400 ********************************************************************** 00011500 * CZ409.119 * 00011601 ********************************************************************** 00011700 * 00013701 NAME DBEZCUP2 DBEZCUP2 00013800 VER 00AE 58F0,C0D0 * L R15,=A(WRRU0000) 00013900 VER 00B2 05EF * BALR R14,R15 00014000 VER 00B4 12FF * LTR R15,R15 00014100 VER 0F6C 5810 C190 * L R1,=A(M#905507) 00014200 VER 0F70 4100 0023 * LA R0,IOWTO 00014300 REP 00AE 5820,605C * L R2,CCSAPTC3 00014400 REP 00B2 47F0,2300 * B PATCH+X'2300' 00014500 REP 0F6C 58F0,605C * L R15,CCSAPTC3 00014600 REP 0F70 47F0,F31A * B PATCH+X'231A' 00014700 * 00014801 NAME COXAPTCH COXAPTCH 00015000 VER 2300 D300,D302,D304,D306,D308,D30A,D30C,D30E 00020000 VER 2310 D310,D312,D314,D316,D318,D31A,D31C,D31E 00020100 VER 2320 D320,D322,D324,D326,D328,D32A,D32C,D32E 00020200 VER 2330 D330,D332,D334,D336,D338,D33A,D33C,D33E 00020300 VER 2340 D340,D342,D344,D346,D348,D34A,D34C,D34E 00020400 VER 2350 D350,D352,D354,D356,D358,D35A,D35C,D35E 00020500 VER 2360 D360,D362,D364 00020600 * 00020800 REP 2300 4110,233A * LA R1,DUMMYJTR 00021000 REP 2304 1111 * LNR R1,R1 00030000 * 00040000 * CALL LOCR TO COPY ANY UNPROCESSED RUPD RECORDS TO CFRU 00040100 * 00041000 REP 2306 18FC * LR R15,R12 00050000 REP 2308 5AF0,2362 * ADD RELATIVE OFFEST FOR LOCR 00051000 REP 230C 05EF * BALR R14,R15 00060000 * #CALR ID=WRRU 00070000 REP 230E 58F0,C0D0 * L R15,=A(WRRU0000) 00080000 REP 2312 05EF * BALR R14,R15 00110000 REP 2314 12FF * LTR R15,R15 00120000 REP 2316 47F0,C04E * BRANCH INLINE 00130000 REP 231A D504,4000,F33A * CLC DUMMYJTR 00140000 REP 2320 4780,F330 * YES SO EOD ALLOWED GO TIDY 00150000 REP 2324 5810,C190 * REPLACED INTSRUTION 00160000 REP 2328 4100,0023 * " " " " " " " 00170000 REP 232C 47F0,C144 * BRANCH INLINE 00180000 REP 2330 D767,2000,2000 * CLEAR LAST USED DDR SLOT 00181000 REP 2336 47F0,C11C * BRANCH LORCEXT0 00182000 REP 233A C4E4,D4D4,E840 * DUMMYJTR DC CL6'DUMMY ' 00190000 REP 2340 4040,4040,4040,4040,4040,4040,4040,4040 00200000 REP 2350 4040,4040,4040,4040,4040,4040,4040 00210000 REP 235E FFFF,FFFF * HIGH VALUES FOR RU ID 00220000 REP 2362 0000,0DC8 * RELATIVE OFFEST OF LOCR ENTRY 00221000 * 00222001 NAME COXAPTCH COXAZAPS 00230000 VER 03B0 0000,0000,0000,0000 00240000 REP 03B0 C3E9,F4F0,F9F1,F1F9 * CZ904.119 00250000