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

["Rick Rayburn" <the400man@xxxxxxxxxxx>]

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