Re: RPG400...a chain, a reade, no indicators...now what?

but how in debug can you test for a successfull or unsuccessful read or
chain without the indicator?

From: "Booth Martin" <Booth@MartinVT.com>
Reply-To: midrange-l@midrange.com
To: <midrange-l@midrange.com>
Subject: Re: RPG400...a chain, a reade, no indicators...now what?
Date: Wed, 18 Dec 2002 21:50:27 -0500 (Eastern Standard Time)


Think %EOF, not %Found.

There's NO need to ask me how I learned that.



---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: midrange-l@midrange.com
Date: Wednesday, December 18, 2002 21:13:15
To: midrange-l@midrange.com
Subject: RPG400...a chain, a reade, no indicators...now what?

Hello there everybody -

Happy holidays to all who make this such a valuable and wonderful place to
exchange ideas about the "best damn computing system" in the world today! A
question if you will:

The following code should not be unusual (i think) in an RPG400 program:

Dou Not % error
Key Reade (E) File
If %error
(error msg sending routine)
iter
endif
Enddo

In RPG3 days, the "If %error" would more than likely have been a check for
an error indicator. And if you were in a loop because of a lock, you could
debug your way out by changing the value of the indicator to allow the code
to fall through. How does one handle that in the above scenario? For that
matter, how do you view, within debug, a successful or unsuccessful chain,
or read, that is not governed by an indicator if your debug statement falls
on that testing line of code (e.g. If %found (file)...)??

Thanks again to all who give their time and efforts to those of us who need
the help.

Rick Rayburn
NYC

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

_________________________________________________________________
The new MSN 8: smart spam protection and 2 months FREE*
http://join.msn.com/?page=features/junkmail