Re: [Fwd: A question about subfile operations]

1985 eh?  Hehe, I was watching Transformers on TV and going to Grade 5. 
8^}


Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/06/29 01:50 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: [Fwd: A question about subfile operations]






Hello Pete,

> I have been programming in RPG for about 20 years (started with RPG II 
in 
> 1985).  After all the discussion about Uber-programmers and what a 
"real" 
> programmer is, I am little reluctant to admit that I am not "classically 

> trained" programmer, I have learned "seat of the pants".

Me, too.

But, even if you had received a degree in RPG programming in 1985 (when 
you say you started) you probably would not have learned the techniques 
that we've been discussing here.

Learning programming is a contining thing. You don't just go to school 
once and then "know everything". You have to keep learning a little bit 
every month, since computers change a little bit every month.

> The problem I am encountering is that when you page down past the end of 

> the subfile records, the program closes.  You never see the last page of 

> records.  I can't see any logic in the program that says to end, and the 

> one place where last record IS set on and the program returns is not hit 

> when I debug the program.
[SNIP]

The following code ends when you hit the last record of the PF. When you 
hit page down for the last page, you'll hit the end of the PF, so it makes 

perfect sense that your program would end before displaying the last page:

>   C                   READ      PFAS210                   58
>   C     *IN58         IFEQ      *ON
>   C                   MOVE      *ON           *INLR
>   C                   RETURN
>   C                   END