Yep. I am slightly pissed that they deleted the dump while I was still
researching, so until next time....
Tony Thigpen
Wayne Bickerdike wrote on 07/25/2018 03:28 AM:
So...."Once it happens, they can not get the program to ever run correctly
again, even after re-compiling."
And yet they deleted a program and problem solved?
Isn't this going to happen again on the next compile?
You implied it wasn't just one program but something that the contractor
was doing....
On Tue, Jul 24, 2018 at 2:12 AM, 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?
--
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
