********************************************************************** 00000100 * This is a RE-ISSUE of this PTF. September 2002 * 00000200 * The orginal over lapped in patch space with CS104.001 * 00000300 * * 00000400 * DB90S 5.4 PTF CZ104.002 OCTOBER 2001 * 00000500 * * 00000600 * * 00000700 * KEYWORDS : DB905536 FORMAT JOURNAL * 00000800 * * 00000900 * DESCRIPTION: EZ-REORG allows for the CV journals to be formatted * 00001000 * during a catch up cycle. * 00001100 * However journals created after the format must not * 00001200 * be processed in the same cacth up run as journals * 00001300 * created before the format. * 00001400 * This will lead to abends in DBEZCUP3 and/or a * 00001500 * corrupt database. * 00001600 * This PTF will cause DBEZCUP1 to abend with message * 00001700 * DB905516 EZ-REORG JOURNAL RECORD OUT OF SEQUENCE * 00001800 * if it detects pre and post format journals in the * 00001900 * same catch up run. * 00002000 * In this case rerun with only the pre format journals * 00002100 * then process the post format Journals in subsequent * 00002200 * catch up runs * 00002300 * * 00002400 * Also in R15 following a format the low sequence * 00002500 * number on the first archive journal is 2 not 1 * 00002600 * * 00002700 * Tapes : DB90S C10402 CA-IDMS R15 * 00002800 * * 00002900 ********************************************************************** 00003000 * CZ104.002 * 00003100 ********************************************************************** 00003200 NAME DBEZCUP1 DBEZCUP1 00003300 VER 0302 D503,C7F4,5014 * CLC =F'1',JTRSEQ+(L'JTRSEQ-4) 00003400 VER 0308 4770,C1E6 * BNE JNLR0435 00003500 VER 030C 5810,C7F8 * L R1,=A(M#905536) 00003600 VER 0310 4100,0023 * LA R0,IOWTO 00003700 REP 0302 58E0,6018 * L R14,CCSAPTCH 00003800 REP 0306 D503,E082,5014 * CLC =F'2',JTRSEQ+(L'JTRSEQ-4) 00003900 REP 030C 4770,C1E6 * BNE JNLR0435 00004000 REP 0310 47F0,E064 * B PATCH+X'64' 00004100 NAME COXAPTCH COXAPTCH 00004200 VER 0064 F064,F066,F068 00004300 VER 006A F06A,F06C 00004400 VER 006E F06E,F070 00005000 VER 0072 F072,F074 00006000 VER 0076 F076,F078 00007000 VER 007A F07A,F07C 00008000 VER 007E F07E,F080 00009000 VER 0082 F082,F084 00010000 REP 0064 58F0,617C * L R15,CCSDCBAJ 00020000 REP 0068 D503,F04C,E07E * CLC DRCRU#,=F'0' 00030000 REP 006E 4770,C1E6 * BNE JNLR0435 00040000 REP 0072 5810,C7F8 * L R1,=A(M#905536) 00050000 REP 0076 4100,0023 * LA R0,IOWTO 00060000 REP 007A 47F0,C1DC * BRANCH IN LINE 00070000 REP 007E 0000,0000 * DS F'0' 00080000 REP 0082 0000,0002 * DS F'2' 00090000 NAME COXAPTCH COXAZAPS 00100000 VER 0008 0000,0000,0000,0000 00110000 REP 0008 C3E9,F1F0,F4F0,F0F2 * CZ104.002 00120000