Re: finding the right place in a RRN file

[lgoodbar@xxxxxxxxxxx (lg - Loyd Goodbar)]

On Wed, 16 Apr 97 18:25:57, 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"?

>>FILLSF   BEGSR
>>         READ   MYFILE ( logical keyed by Last Name )
>>*IN90    DOWEQ  *OFF

*IN90 would have been set by the previous READ MYFILE statement. Should
have read like: READ MYFILE 90. 90 would be in the HIGH bit column (I
think) to indicate a successful read (90=off = read okay, 90=on = end of
file). Then the DOWEQ loop would run until the end of file, when IN90 is
turned on automatically.

>>write subfile record here 
>>count = count + 1 
>>if count = page size then LEAVE ( exit loop )

These are just pseudocode. ADD 1 COUNT is correct thinking here. (Of
course, if you were from a C perspective, you would have COUNT++)

>>         READ   MYFILE 
>>         ENDDO
>>         ENDSR 

I've only been programming RPGIII for a couple of years, and there's still
tons of stuff to learn. A coworker is a whiz at screen design & printer
files, I get the logic, and everything's all clear. Though IBM wants the
world to go to ILE, there's too much an investment of RPGII/III to ignore.

 - lg -
Loyd Goodbar
MIS Manager
Las Vegas Casino
Greenville, Mississippi

--
"I did not lie, I just didn't say anything." --Oliver
"Exactly." --Sydney
lgoodbar@tecinfo.com   ICQ#504581
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *