********************************************************************** * EZDB 5.6 PTF CGI05.004 September 2009 * * * * KEYWORDS : EZ-IMAGE ABEND CV STARTUP IDMSDBIO FILE OPEN ERROR * * * * Description: CV may abend at startup when EZ-IMAGE is active or * * IDMS files may fail to open (Open error 3003/5), * * when there are multiple Image segements for an IDMS * * segment or where IDMS files being imaged are * * defined in the DMCL. * * * * Prereqs : PTF CGI05004 * * * * Tapes : EZDB CI0502 CA-IDMS Release 17 * * * ********************************************************************** * CGI05.005 IDMS 17.0 * ********************************************************************** * NAME COALLOC9 COALLOC9 VER 063C 1277 LTR R7,R7 VER 063E 4780,C606 BZ IMAGE110 * VER 0648 D503,7000,CC50 CLC XDCBEYE,=CL4'XDCB' VER 064E 4770,CB3A BNE ALOCEXIT VER 0652 D22B,809C,7020 MVC DSNAME,XDCBDSN * REP 063C 0700 NOP REP 063E 0700,0700 NOP * REP 0648 58F0,C008 L R15,CCSAADDR REP 064C 58F0,F018 L R15,CCSAPTCH REP 0650 47F0,F080 B PATCH+X'80' REP 0654 0700,0700 NOP * NAME COIMAGEI COIMAGEI VER 104A 58E0,6018 L R14,CCSAPTCH VER 104E 47F0,E068 B PATCH+68 * VER 28E6 5020,20CC ST R2,FCBFDSAN * REP 104A 5850,6018 L R5,CCSAPTCH REP 104E 47F0,50B0 B PATCH+B0 * REP 28E6 0700,0700 NOP * NAME COXAPTCH COXAPTCH VER 0080 F080,F082,F084,F086,F088,F08A,F08C,F08E VER 0090 F090,F092,F094,F096,F098,F09A,F09C,F09E VER 00A0 F0A0,F0A2,F0A4,F0A6,F0A8,F0AA,F0AC,F0AE VER 00B0 F0B0,F0B2,F0B4,F0B6,F0B8,F0BA,F0BC,F0BE VER 00C0 F0C0,F0C2,F0C4,F0C6,F0C8,F0CA,F0CC,F0CE VER 00D0 F0D0,F0D2,F0D4,F0D6,F0D8,F0DA,F0DC,F0DE VER 00E0 F0E0,F0E2,F0E4,F0E6,F0E8,F0EA,F0EC,F0EE VER 00F0 F0F0,F0F2,F0F4,F0F6,F0F8,F0FA,F0FC,F0FE VER 0100 F100,F102,F104,F106,F108,F10A,F10C,F10E * REP 0080 5840,30CC L R4,FCBFDSAN REP 0084 1943 CR R4,R3 REP 0086 4780,F09C BE IMAGE104 REP 008A D22B,7020,4018 MVC XDCBDSN,FDSADSN-FDSA(R4) REP 0090 D207,7008,3029 MVC XDCBDDNM,FCBDDNAM REP 0096 D207,808E,7008 MVC DDNAME,XDCBDDNM REP 009C D503,7000,CC50 IMAGE104 CLC XDCBEYE,=CL4'XDCB' REP 00A2 4770,CB3A BNE ALOCEXIT REP 00A6 D22B,809C,7020 MVC DSNAME,XDCBDSN REP 00AC 47F0,C5F8 B INLINE * REP 00B0 5821,00CC L R2,FCBFDSAN-FCB(R1) REP 00B4 D503,2000,510A CLC FDSAEYEC-FDSA(4,R2),=CL4'FDSA' ' REP 00BA 4770,50F4 BNE NOFDSA REP 00BE 5010,5102 ST R1,SAVEFCB REP 00C2 50F0,5106 ST R15,SAVER15 REP 00C6 4110,0048 LA R1,FDSAHLEN+FDSADSLNS REP 00CA 4110,1010 LA R1,CXSDSLEN(,R1) REP 00CE 4100,0024 LA R0,IOGSTG REP 00D2 58F0,6378 L R15,CCSAIOSA REP 00D6 05EF BALR R14,R15 REP 00D8 4110,1010 LA R1,CXSDSLEN(,R1) REP 00DC 1841 LR R4,R1 REP 00DE D247,4000,2000 MVC 0(FDSAHLEN+FDSADSLNS,R4),0(R2) REP 00E4 5810,5102 L R1,SAVEFCB REP 00E8 58F0,5106 L R15,SAVER15 REP 00EC 5041,00CC ST R4,FCBFDSAN-FCB(R1) REP 00F0 5014,0008 ST R1,FDSAFCN-FDSA(R4) REP 00F4 5820,C868 NOFDSA L R2,CUR59 REP 00F8 1222 LTR R2,R2 REP 00FA 4780,C478 BZ DMCB1620 REP 00FE 47F0,C46C B INLINE REP 0102 0000,0000 SAVEFCB DC F REP 0106 0000,0000 SAVER15 DC F REP 010A C6C4,E2C1 DC CL4'FDSA' * NAME COXAPTCH COXAZAPS VER 0020 0000,0000,0000,0000 REP 0020 C3C7,C9F0,F5F0,F0F5 CGI05.005