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 <[email protected]> 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:[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 >> >> >> > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > -- Wayne V. Bickerdike ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
