I wouldn't go so far as to say don't use JOBLIB :) But, I'll bet that whatever level of RPG this is, doesn't fully understand PSE/E....
> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Wayne Bickerdike > Sent: Monday, July 23, 2018 1:41 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: IEC020I 001-4 question > > So it's a PDSE. > > Going back at least 40 years, one golden rule. Don't use JOBLIB...... > > On Tue, Jul 24, 2018 at 6:32 AM, Tony Thigpen <t...@vse2pdf.com> wrote: > > > Data Set Name . . . : TST.COMPILE.LIBRARY > > > > General Data Current Allocation > > Management class . . : **None** Allocated cylinders : 434 > > Storage class . . . : **None** Allocated extents . : 1 > > Volume serial . . . : HKYSY0 Maximum dir. blocks : NOLIMIT > > Device type . . . . : 3390 > > Data class . . . . . : **None** > > Organization . . . : PO Current Utilization > > Record format . . . : U Used pages . . . . : 16,592 > > Record length . . . : 0 % Utilized . . . . : 21 > > Block size . . . . : 7040 Number of members . : 1,756 > > 1st extent cylinders: 434 > > Secondary cylinders : 0 > > Data set name type : LIBRARY Dates > > Creation date . . . : 2004/05/11 > > Referenced date . . : > > 2018/07/23 > > > > Tony Thigpen > > > > > > Gibney, Dave wrote on 07/23/2018 02:48 PM: > > > >> Taking wagers that it's a PDS/E? > >> > >> -----Original Message----- > >>> From: IBM Mainframe Discussion List > >>> [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Tony Thigpen > >>> Sent: Monday, July 23, 2018 11:45 AM > >>> To: IBM-MAIN@LISTSERV.UA.EDU > >>> 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 <IBM- > m...@listserv.ua.edu> On > >>>>>> Behalf Of Tony Thigpen > >>>>>> Sent: Monday, July 23, 2018 9:13 AM > >>>>>> To: IBM-MAIN@LISTSERV.UA.EDU > >>>>>> 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 lists...@listserv.ua.edu with the > >>>>> message: INFO IBM-MAIN > >>>>> > >>>>> > >>>>> > >>>> ------------------------------------------------------------------- > >>>> --- For IBM-MAIN subscribe / signoff / archive access instructions, > >>>> send email to lists...@listserv.ua.edu with the message: INFO > >>>> IBM-MAIN > >>>> > >>>> > >>>> > >>> -------------------------------------------------------------------- > >>> -- For IBM-MAIN subscribe / signoff / archive access instructions, > >>> send email to lists...@listserv.ua.edu with the message: INFO > >>> IBM-MAIN > >>> > >> > >> --------------------------------------------------------------------- > >> - For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to lists...@listserv.ua.edu with the message: INFO > >> IBM-MAIN > >> > >> > >> > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > > > -- > Wayne V. Bickerdike > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
