********************************************************************** * EZDB 5.6 PTF CGI05.014 July 2010 * * * * KEYWORDS : EZ-IMAGE CHANGE TRACKING ABEND SYSTRK * * * * Description: If Change Tracking (SYSTRK) is defined for the CV * * and EZ-Image is active, then CV will abend at * * startup. * * This optional PTF checks for Change Tracking when * * EZ-Image is active and will disable EZ-Image, output * * warning messages and allow CV to start normally. * * * * Notes : Also see Tech Note CDI05.T01 for more details * * regarding Change Tracking and EZ-DB limitations. * * * * Tapes : EZDB CI0502 CA-IDMS Release 17 * * * ********************************************************************** * CGI05.014 IDMS 17.0 * ********************************************************************** * NAME COIMAGEI COIMAGEI * VER 00C0 9640,CA24 OI INTIFLG1,INTIFRST VER 00C4 58F0,C538 L R15,=A(CIMT0000) VER 00C8 05EF BALR R14,R15 * REP 00C0 5830,6018 L R3,CCSAPTCH REP 00C4 47F0,3300 B PATCH+X'300' REP 00C8 0700 NOP * NAME COXAPTCH COXAPTCH VER 0300 F300,F302,F304,F306,F308,F30A,F30C,F30E VER 0310 F310,F312,F314,F316,F318,F31A,F31C,F31E VER 0320 F320,F322,F324,F326,F328,F32A,F32C,F32E VER 0330 F330,F332,F334,F336,F338,F33A,F33C,F33E VER 0340 F340,F342,F344,F346,F348,F34A,F34C,F34E VER 0350 F350,F352,F354,F356,F358,F35A,F35C,F35E VER 0360 F360,F362,F364,F366,F368,F36A,F36C,F36E VER 0370 F370,F372,F374,F376,F378,F37A,F37C,F37E VER 0380 F380,F382,F384,F386,F388,F38A,F38C,F38E VER 0390 F390,F392,F394,F396,F398,F39A,F39C,F39E VER 03A0 F3A0,F3A2,F3A4,F3A6 * REP 0300 9640,CA24 OI INTIFLG1,INTIFRST REP 0304 5870,A2E4 L R7,CSATRKA REP 0308 1277 LTR R7,R7 REP 030A 4780,333C BZ INTI0115 REP 030E D503,7010,3346 CLC 16(4,R7),=F'0' REP 0314 4780,333C BE INTI0115 REP 0318 4110,334A LA R1,TRKMESS REP 031C 4100,0023 LA R0,IOWTO REP 0320 58F0,6378 L R15,CCSAIOSA REP 0324 05EF BALR R14,R15 REP 0326 4110,3382 LA R1,TRKMES2 REP 032A 4100,0023 LA R0,IOWTO REP 032E 58F0,6378 L R15,CCSAIOSA REP 0332 05EF BALR R14,R15 REP 0334 94ED,6071 NI CCSAFLGA,255-(CCSAIMOK+CCSAHBOK REP 0338 47F0,C49E B INTIEXIT REP 033C 58F0,C538 INTI0115 L R15,=A(CIMT0000) REP 0340 05EF BALR R14,R15 REP 0342 47F0,C066 B INLINE REP 0346 0000,0000 DC F'0' REP 034A 9052,290C TRKMESS DC PL4'9052290' REP 034E 33C5,E960,C9D4,C1C7,C57A,40C3,C8C1,D5C7 REP 035E C540,E3D9,C1C3,D2C9,D5C7,40D5,D6E3,40C3 REP 036E D6D4,D7C1,E3C9,C2D3,C540,E6C9,E3C8,40C9,D4C1,C7C5 REP 0382 9052,290C TRKMES2 DC PL4'9052290' REP 0386 21C5,E960,C9D4,C1C7,C57A,405C,5C40,C5E9 REP 0396 60C9,D4C1,C7C5,40C4,C9E2,C1C2,D3C5,C440,5C5C * NAME COXAPTCH COXAZAPS VER 0068 0000,0000,0000,0000 REP 0068 C3C7,C9F0,F5F0,F1F4 CGI05.014