Taking wagers that it's a PDS/E? > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Tony Thigpen > Sent: Monday, July 23, 2018 11:45 AM > To: [email protected] > Subject: Re: IEC020I 001-4 question > > Found something. Doing more research, but thought I would provide the info > in case it rings anyone's bell. > > The only jobs that have this problem, also have a test library in the JOBLIB. > If > the test library is removed, then the RPG works fine. > > Fails: > //JOBLIB DD DSN=TST.COMPILE.LIBRARY,DISP=SHR > // DD DSN=PRD.COMPILE.LIBRARY,DISP=SHR > Works: > //JOBLIB DD DSN=PRD.COMPILE.LIBRARY,DISP=SHR > > Tony Thigpen > > Tony Thigpen wrote on 07/23/2018 01:52 PM: > > See below > > > > Tony Thigpen > > > > Lizette Koehler wrote on 07/23/2018 01:43 PM: > >> Could they try another utility like SORT on the file to see if the > >> same error occurs? > > Will try this > > > >> When the error occurs, do they rerun the job and still get the same > >> error? > > If fails during the rerun. The only way they were able to get it to run > > is replace the RPG with Natural. > > > >> Is it always shop written programs that get the IEC020I error? > > Always RPG. I will shortly try some IBM utilities. > > > >> Do these programs have a common subroutine reading files? > > No subroutines. All basic RPG. > > > >> Does the error occur when there is data or when there is no data? > > I need to ask them about this. > > > >> Probably more questions than answers > > Yep. But thanks for the starting points. I will post the results. > > > >> Lizette > >> > >> > >>> -----Original Message----- > >>> From: IBM Mainframe Discussion List <[email protected]> On > >>> Behalf Of > >>> Tony Thigpen > >>> Sent: Monday, July 23, 2018 9:13 AM > >>> To: [email protected] > >>> Subject: IEC020I 001-4 question > >>> > >>> I have a site with a bunch of old RPG programs. Lately, it seems that > >>> sometimes the get the following. Once it happens, they can not get the > >>> program to ever run correctly again, even after re-compiling. > >>> > >>> IEC020I 001-4,HSR003B,STEP0017,STYWRK,1818,HKYP05, > >>> IEC020I PROD.HKY.WORK.HSR003B.WK1.S050 > >>> IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT > SPECIFIED > >>> > >>> We have a contractor working on 'performance issues' with this > >>> machine, and I > >>> am wondering if he has changed something. The customer is just now > >>> telling > >>> us, but they say it happens every few weeks to a different program. > >>> Usually, > >>> the programs are simple, so they are just rewriting them in Natural. > >>> > >>> Fridays problem program was very simple: > >>> FSTYWRK UP F9000 300 DISK40 > >>> ISTYWRK NS 01 > >>> I 100 100 ALTCLS > >>> C ALTCLS COMP ' ' 25 > >>> OSTYWRK D 01 > >>> O 71 '0' > >>> O 25 72 '09' > >>> > >>> //STEP0017 EXEC PGM=HAO07E,PARM='DATE=$WEDATE', > >>> // COND=(3,LT) > >>> //STYWRK DD DSN=PROD.HKY.WORK.HSR003B.WK1.S050, > >>> // DISP=(OLD,KEEP,KEEP) > >>> //SYSUDUMP DD SYSOUT=* > >>> //SYSPRINT DD SYSOUT=* > >>> /* > >>> > >>> Any suggestions? Questions? > >>> > >>> -- > >>> Tony Thigpen > >> > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to [email protected] with the message: INFO IBM-MAIN > >> > >> > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
