Re: finding the right place in a RRN file

[Jim Welsh <jimwelsh@xxxxxxxxxxxxx>]

boothm@earth.goddard.edu wrote:
> 
> I am trying to learn this stuff;  I see a lot of RPGII and it doesn't
> upset me.
> 
> But I am trying to learn this new stuff.  Like now:
> I am wondering where/how *IN90 gets turned on in this bit?
> And why "count = count + 1" is better than "add 1   count"?
> 
> > at 10:46 AM, Jim Welsh <jimwelsh@ix.netcom.com> said:
> 
> >FILLSF   BEGSR
> >         READ   MYFILE ( logical keyed by Last Name )
> >*IN90    DOWEQ  *OFF
> >write subfile record here
> >count = count + 1
> >if count = page size then LEAVE ( exit loop )
> >         READ   MYFILE
> >         ENDDO
> >         ENDSR
> 
> --
> -----------------------------------------------------------
> boothm@earth.goddard.edu
> -----------------------------------------------------------

Sorry, i did say it was quick and dirty :)
the code is a bit of a mixture of psuedocode and the real thing
since i don't have alot of experience coding within an email reply.


Anyway you'd still need to specify 90 in the EQUAL TO column 
and, ADD 1 COUNT is the RPG III Style
RPG IV you could say EVAL COUNT + 1 or something to that effect.

Well i don't have anything against RPG II and OCL, other than III and CL
are much more enjoyable to work with by far.

if ya really want to get into it i'd suggest just buying a good book and
then of course you'll have to find an AS/400...

Bob Cozzi at  http://www.rpgdev.net/ 
writes great books for the RPG world, could give that a try.

Anyway if you can handle RPG II, you'll love the new stuff and do very
well with it, it's designed to make life easier ya know.

Course bosses don't really change all that much...lol

good luck!

-- 
Jim

http://www.netcom.com/~jimwelsh/welcome.html
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *