********************************************************************** * EZDB 5.6 PTF CGI05.008 November 2009 * * * * KEYWORDS : EZ-IMAGE ABEND STARTUP DBIO FILE OPEN ERROR COALLOC * * * * 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 segments for an IDMS * * segment or where IDMS files being imaged are * * defined using COALLOC. * * * * Prereqs : PTF CGI05004 & CGI05005 * * * * Tapes : EZDB CI0502 CA-IDMS Release 17 * * * ********************************************************************** * CGI05.008 IDMS 17.0 * ********************************************************************** * NAME COALLOC9 COALLOC9 VER 0614 47F0,C89C B GOALLOC * VER 0662 47F0,C89C B GOALLOC * VER 088A 9501,B04C CLI WKIMGFLG,IMAGEON VER 088E 4770,C83C BNE GOALLOCX VER 0892 D207,808E,3029 MVC DDNAME,FCBDDNAM VER 0898 47F0,C89C B GOALLOC * VER 08C6 95F2,7004 CLI FDSATYPE,FDSADCMT VER 08CA 4770,C876 BNE UPDFDSA1 VER 08CE 5870,7008 L R7,FDSAFCN * REP 0614 47F0,C5D0 B IMAGE100 * REP 0662 47F0,C83C B GOALLOCX * REP 088A 58F0,C008 L R15,CCSAADDR REP 088E 58F0,F018 L R15,CCSAPTCH REP 0892 47F0,F200 B PATCH+X'200' REP 0896 0700,0700,0700 NOP * REP 08C6 58F0,C008 L R15,CCSADDR REP 08CA 58F0,F018 L R15,CCSAPTCH REP 08CE 47F0,F240 B PATCH+X'240' * NAME COIMAGEI COIMAGEI VER 0FF6 9540,1029 CLI FCBDDNAM-FCB(R1),C' VER 0FFA 4770,C42A BNE DMCB1610 * VER 104E 47F0,50B0 B PATCH+x'B0' * VER 28C6 D507,2006,4010 CLC SEGNAME,COIMIMSG * REP 0FF6 5850,6018 L R5,CCSAPTCH REP 0FFA 47F0,5262 B PATCH+X'262' * REP 104E 47F0,5190 B PATCH+x'190' * REP 28C6 D507,2006,4006 CLC SEGNAME,COIMIDSG * NAME COXAPTCH COXAPTCH VER 0190 F190,F192,F194,F196,F198,F19A,F19C,F19E VER 01A0 F1A0,F1A2,F1A4,F1A6,F1A8,F1AA,F1AC,F1AE VER 01B0 F1B0,F1B2,F1B4,F1B6,F1B8,F1BA,F1BC,F1BE VER 01C0 F1C0,F1C2,F1C4,F1C6,F1C8,F1CA,F1CC,F1CE VER 01D0 F1D0,F1D2,F1D4,F1D6,F1D8,F1DA,F1DC,F1DE VER 01E0 F1E0,F1E2,F1E4,F1E6,F1E8,F1EA,F1EC,F1EE VER 01F0 F1F0,F1F2,F1F4,F1F6,F1F8,F1FA,F1FC,F1FE VER 0200 F200,F202,F204,F206,F208,F20A,F20C,F20E VER 0210 F210,F212,F214,F216,F218,F21A,F21C,F21E VER 0220 F220,F222,F224,F226,F228,F22A,F22C,F22E VER 0230 F230,F232,F234,F236,F238,F23A,F23C,F23E VER 0240 F240,F242,F244,F246,F248,F24A,F24C,F24E VER 0250 F250,F252,F254,F256,F258,F25A,F25C,F25E VER 0260 F260,F262,F264,F266,F268,F26A,F26C,F26E VER 0270 F270,F272,F274,F276,F278,F27A,F27C,F27E VER 0280 F280,F282,F284,F286,F288,F28A,F28C,F28E VER 0290 F290,F292,F294,F296,F298,F29A,F29C,F29E VER 02A0 F2A0,F2A2,F2A4,F2A6,F2A8,F2AA,F2AC,F2AE VER 02B0 F2B0,F2B2,F2B4,F2B6,F2B8,F2BA,F2BC,F2BE VER 02C0 F2C0,F2C2,F2C4,F2C6 * REP 0190 5821,00CC L R2,FCBFDSAN-FCB(R1) REP 0194 D503,2000,51FA CLC FDSAEYEC-FDSA(4,R2),=CL4'FDSA' ' REP 019A 4770,51E0 BNE NOFDSA REP 019E 5910,2008 C R1,FDSAFCN-FDSA(R2) REP 01A2 4780,51E4 BE FDSADONE REP 01A6 5010,51F2 ST R1,SAVEFCB REP 01AA 50F0,51F6 ST R15,SAVER15 REP 01AE 4110,0048 LA R1,FDSAHLEN+FDSADSLNS REP 01B2 4110,1010 LA R1,CXSDSLEN(,R1) REP 01B6 4100,0024 LA R0,IOGSTG REP 01BA 58F0,6378 L R15,CCSAIOSA REP 01BE 05EF BALR R14,R15 REP 01C0 4110,1010 LA R1,CXSDSLEN(,R1) REP 01C4 1841 LR R4,R1 REP 01C6 D247,4000,2000 MVC 0(FDSAHLEN+FDSADSLNS,R4),0(R2) REP 01CC 5810,51F2 L R1,SAVEFCB REP 01D0 58F0,51F6 L R15,SAVER15 REP 01D4 5041,00CC ST R4,FCBFDSAN-FCB(R1) REP 01D8 5014,0008 ST R1,FDSAFCN-FDSA(R4) REP 01DC 47F0,51E4 B FDSADONE REP 01E0 5011,00CC NOFDSA ST R1,FCBFDSAN-FCB(R1) REP 01E4 5820,C868 FDSADONE L R2,CUR59 REP 01E8 1222 LTR R2,R2 REP 01EA 4780,C478 BZ DMCB1620 REP 01EE 47F0,C46C B INLINE REP 01F2 0000,0000 SAVEFCB DC F REP 01F6 0000,0000 SAVER15 DC F REP 01FA C6C4,E2C1 DC CL4'FDSA' * REP 0200 9501,B04C CLI WKIMGFLG,IMAGEON REP 0204 4770,C83C BNE GOALLOCX REP 0208 D207,808E,3029 MVC DDNAME,FCBDDNAM REP 020E 5870,30CC L R7,FCBFDSAN REP 0212 1277 LTR R7,R7 REP 0214 4780,C83C BZ GOALLOCX REP 0218 D503,7000,F1FA CLC FDSAEYEC,=CL4'FDSA' REP 021E 4770,C83C BNE GOALLOCX REP 0222 5930,7008 C R3,FDSAFCN REP 0226 4770,C83C BNE GOALLOCX REP 022A D52B,7018,CF48 CLC FDSADSN,SPACES REP 0230 4780,C83C BE GOALLOCX REP 0234 D22B,809C,7018 MVC DSNAME,FDSADSN REP 023A 47F0,C83C B GOALLOCX * REP 0240 D503,7000,F1FA CLC FDSAEYEC,=CL4'FDSA' REP 0246 4770,C896 BNE GOFDSA REP 024A 5930,7008 C R3,FDSAFCN REP 024E 4780,C89C BE GOALLOC REP 0252 95F2,7004 CLI FDSATYPE,FDSADCMT REP 0256 4770,C876 BNE UPDFDSA1 REP 025A 5870,7008 L R7,FDSAFCN REP 025E 47F0,C86E B INLINE * REP 0262 9540,1029 CLI FCBDDNAM-FCB(R1),C' ' REP 0266 4770,C42A BNE DMCB1610 REP 026A 5831,00CC L R3,FCBFDSAN-FCB(R1) REP 026E 1931 DMCB1606 CR R3,R1 REP 0270 4780,52C4 BE DMCB1609 REP 0274 D503,3000,51FA CLC FDSAEYEC,=CL4'FDSA' REP 027A 4770,52C4 BNE DMCB1609 REP 027E 95F0,3004 CLI FDSATYPE,FDSADICT REP 0282 4780,528E BE DMCB1607 REP 0286 5830,3008 L R3,FDSAFCN REP 028A 47F0,526E B DMCB1606 REP 028E 5010,51F2 DMCB1607 ST R1,SAVEFCB REP 0292 50F0,51F6 ST R15,SAVER15 REP 0296 4110,0048 LA R1,FDSAHLEN+FDSADSL REP 029A 4110,1010 LA R1,CXSDSLEN(,R1) REP 029E 4100,0024 LA R0,IOGSTG REP 02A2 58F0,6378 L R15,CCSAIOSA REP 02A6 05EF BALR R14,R15 REP 02A8 4110,1010 LA R1,CXSDSLEN(,R1) REP 02AC 1841 LR R4,R1 REP 02AE D247,4000,3000 MVC 0(FDSAHLEN+FDSADSLNS,R4),0(R3) REP 02B4 5810,51F2 L R1,SAVEFCB REP 02B8 58F0,51F6 L R15,SAVER15 REP 02BC 5041,00CC ST R4,FCBFDSAN-FCB(R1) REP 02C0 5014,0008 ST R1,FDSAFCN-FDSA(R4) REP 02C4 47F0,C416 DMCB1609 B INLINE * NAME COIOSUBS COIOSUBS VER 05E8 C3C9 REP 05E8 C3C9,F0F5 CI0502 * NAME COXADBIO COXADBIO VER 16BB C3C9 REP 16BB C3C9,F0F5 CI0502 * NAME COXAPTCH COXAZAPS VER 0038 0000,0000,0000,0000 REP 0038 C3C7,C9F0,F5F0,F0F8 CGI05.008