Went to look at the dump this morning and the programmers had deleted
it. They said: "Changing the JOBLIB statements fixed it so we deleted
the output."
:-(
Tony Thigpen
Binyamin Dissen wrote on 07/24/2018 07:47 AM:
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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
