Well, Yes & No. While the techique you describe is good for physical 
 files, Non keyed Logicals can be done the same way, (only numer of 
 index entries should be used as the record count). An keyed Logicals
 can be done with the SETxx and *HIVAL to go past the last record and 
 backup to load the page.  

On Tue, 26 May 1998 boothm@ibm.net wrote:

> I just was looking over IBM's sample subfile program in VaRPG.  I'd
> copied, it, changed the file to display a data file on our AS/400 and was
> showing the output to someone that knows the data.  The VaRPG subfile
> offers a "navigator bar", and one of the icons is "Last page."  He clicked
> it and laughed, saying "This is a 40,000 record file. Lets see..."  and
> then looked really funny.  Then he looked again and said "It can't read
> the file that fast!"   
> 
> To make a boring story short, a review of the code showed that the last
> page had been loaded by taking the number of records in the file and
> subtracting the page size, and filling the subfile from that point.  Very
> neat, very fast.  Also a new technique I'd not seen before.
> 
> All of which puts me of a mind to ask for a religious discussion on
> subfiles.  If DOU and DOW can start lengthy debate, I should think proper
> subfile techniques could be fascinating.  
> 
> One of the downsides of the technique described is that it appears to work
> on a physical file only, disregarding all logicals, even if specified.
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> -----------------------------------------------------------
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> 
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].