Out of curiosity I would look at the dump and the DCB that is being used. Perhaps an overlay?
On Mon, 23 Jul 2018 12:12:52 -0400 Tony Thigpen <[email protected]> wrote: :>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? -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
