********************************************************************* 00000100 * DB90S 5.4 PTF CZ104.010 JULY 2002 * 00000202 * * 00000300 * KEYWORDS : EXCP DBEZCUP3 INDEX NEXT PRIOR * 00000400 * * 00000500 * DESCRIPTION: DBEZCUP3 can in, certain situations, cause excessive * 00001000 * DML and I/O. * 00001100 * This occurs when there is a large index that is * 00001200 * ordered NEXT or PRIOR. * 00001300 * * 00010200 * Tapes : DB90S C10401 CA-IDMS Release 15.0 * 00010300 * * 00010400 ********************************************************************* 00010500 NAME DBEZCUP3 DBEZCUP3 00101900 VER 0F80 9120,201A TM DRDFLG1,DRDORDNX 00102003 VER 0F84 4780,C448 BZ DMLAER00 00102103 VER 0FBA 4100 406F LA 0,SSCIDBCM+16+0-1 FIND PRIOR 00102400 VER 0FD8 D503,4008,CA42 CLC ERRSTAT,=C'0307' 00102500 VER 0FDE 4770,C4B4 BNE DMLAF060 00102600 VER 15AC F0F3,F2F7 00102900 REP 0F80 58F0,6018 L R15,CCSAPTCH 00103005 REP 0F84 47F0,F1E0 B PATCH+X'1E0' 00103105 REP 0FBA 4100,406D LA 0,SSCIDBCM+14+0-1 FIND NEXT 00103200 REP 0FD8 58F0,6018 L R15,CCSAPTCH 00103300 REP 0FDC 47F0,F224,0700 B PATCH+X'224' 00103407 REP 15AC F0F3,F0F7 00103700 NAME COXAPTCH COXAPTCH 00103800 VER 01E0 F1E0,F1E2,F1E4,F1E6,F1E8,F1EA,F1EC,F1EE 00103903 VER 01F0 F1F0,F1F2,F1F4,F1F6,F1F8,F1FA,F1FC,F1FE 00104003 VER 0200 F200,F202,F204,F206,F208,F20A,F20C,F20E 00104200 VER 0210 F210,F212,F214,F216,F218,F21A,F21C,F21E 00104300 VER 0220 F220,F222,F224,F226,F228,F22A,F22C,F22E 00104404 VER 0230 F230,F232,F234,F236,F238 00104504 REP 01E0 9110,201A TM DRDFLG1,DRDORDPR INDEX ORDER PRIOR ?00104600 REP 01E4 4710,C448 BO DMLAF040 YES 00104700 REP 01E8 9104,201A TM DRDFLG1,DRDLDEL LOGICALLY DELETED 00104800 REP 01EC 4710,C41E BO DMLAF030 YES 00104900 * @FIND PRIOR,SET=DRDSET 00105000 REP 01F0 4100,4000 LA 0,SSCTRL 00105100 REP 01F4 5000,4064 ST 0,SSCIDBCM+4 00105204 REP 01F8 4100,406F LA 0,SSCIDBCM+16+0-1 00105304 REP 01FC 5000,4068 ST 0,SSCIDBCM+8 00105404 REP 0200 4100,202E LA 0,DRDSET 00105504 REP 0204 5000,406C ST 0,SSCIDBCM+12 00105604 REP 0208 9680,406C OI SSCIDBCM+12,X'80' 00105704 REP 020C 4110,4064 LA 1,SSCIDBCM+4 00105804 REP 0210 58F0,CA2A L 15,=V(IDMS) 00105904 REP 0214 05EF BALR 14,15 00106004 REP 0216 D503,4008,CA42 CLC ERRSTAT,=C'0307' 00110004 REP 021C 4770,C720 BNE DMLAER00 00140004 REP 0220 47F0,C72A B DMLAER00+X'A' 00150004 REP 0224 9104,201A TM DRDFLG1,DRDLDEL LOGICALLY DELETED 00150104 REP 0228 4780,F216 BZ PATCH+X'226' NO 00150207 REP 022C D503,4008,CA42 CLC ERRSTAT,=C'0307' 00150304 REP 0232 4770,C4B4 BNE DMLAF060 00150404 REP 0236 47F0,C478 B INLINE 00150504 NAME COXAPTCH COXAZAPS 00151000 VER 0048 0000,0000,0000,0000 00152002 REP 0048 C3E9,F1F0,F4F0,F1F0 * CZ104.010 00153002