RE: READE question

Evil : Crabby? It's all in the eye of the beholder.
But, seriously, what's Susan's take on it? .-)

Jerry C. Adams
I'd like to offer moral support, but I have questionable morals.
IBM i Programmer/Analyst
--
NMM&D
615-832-2730

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Friday, March 04, 2016 12:04 PM
To: Rpg400 Rpg400-L
Subject: Re: READE question

Repeat after me NO INDICATOR IS EVER NEEDED ON I/O OPERATIONS <evil grin>.

Since you’re changing the code anyway why not get rid of the fixed form and indicator rubbish and do it right with the appropriate BIFS. In this case %Equal and %EOF.

But if you insist on sticking to RPG III code then the answer is Yes - you need to detect EOF on the READE or you can never terminate the loop.


Jon (Still feeling crabby) Paris

www.partner400.com
www.SystemiDeveloper.com

On Mar 4, 2016, at 12:51 PM, Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx> wrote:

Do I need an Indicator here on the READE?
I haven't coded this in a very long time.

c *in90 doweq *off
c poh setll srbpoh 90
c *in90 ifeq *off
c poh reade srbpoh
c ohords iflt 30
c eval ohsrom = whs
c update orphe
c endif
c endif
c Enddo

c parms plist
c parm ponum 1200
c parm whs 3
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.