IDCAMS PRINT would show logical and physical record boundaries of the dataset. On Tue, Jul 24, 2018 at 6:48 AM Binyamin Dissen <bdis...@dissensoftware.com> wrote: > > 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 <t...@vse2pdf.com> 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 <bdis...@dissensoftware.com> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
-- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
