RE: 4 - subfiles

Booth,
An interesting question!  I'd personally use a single "load a page at a
time" expanding subfile and clear it between the different presentations;
they'll only get charged for the records they actually read.  

Looking beyond my own biases <grin> how about writing 4 separate programs
(one for each presentation) using the same display file, sharing the "load
the subfile" code via an ILE module or a /COPY.  The separate programs will
give separate persistent storage with LR off; you can tie them all together
with a simple driver program.

eval CleanUpAndExit = 'N'
CALL DefaultView (CleanUpAndExit: WhichKeyDidTheyPress)
   When WhichKeyDidTheyPress = 'LASTNAME'
      CALL LastNameView (CleanUpAndExit: WhichKeyDidTheyPress)
   When WhichKeyDidTheyPress = FIRSTNAME'
      CALL FirstNameView (CleanUpAndExit: WhichKeyDidTheyPress)
...
   When WhichKeyDidTheyPress = 'ExitApplication'
      eval CleanUpAndExit = 'Y'
      CALL LastNameView (CleanUpAndExit: WhichKeyDidTheyPress)
      CALL FirstNameView (CleanUpAndExit: WhichKeyDidTheyPress)
   Other
      CALL DefaultView (CleanUpAndExit: WhichKeyDidTheyPress)

Talk about tilting at windmills...  I figure I'll see a lot of "You are a
Very Dim Bulb" mail over this post.  Another "philosophical" thread.

Buck Calabro

> -----Original Message-----
> From: boothm@earth.goddard.edu 
> Sent: Wednesday, November 03, 1999 9:09 PM
> To:   midrange-l@midrange.com
> Subject:      4 - subfiles
> 
> 
> Here's a subfile question.  I'm not very good with them.  I have a display
> screen showing a subfile with 4 fields.  Each field is the key to a
> logical file so there are 4 logical files in the F-specs.  For clarity,
> lets call the fields LastName, FirstName, ExtNbr, DeptName.  I want the
> user to be able to display any one of the 4 logical files.  I know the
> file will never grow beyond 999 because the ExtNbr field is 3/0, and
> because there's only about 150 extensions now, anyway.   Every time the
> user selects another logical to display I clear the subfile and  reload
> the entire file to the subfile.  With a dozen test records I'm getting
> sub-second reloads.  Now, as the number of records increases it seems to
> me that reload times will increase.  Still, I know that 5000 records load
> in 11 or 12 seconds so the time for about 200 records will probably be a
> second or two. 
> 
> However, it occurs to me that having loaded the subfile, I shouldn't need
> to read the data file again.  I am thinking there must be an easy way to
> save the subfile in case it is needed again, instead of just clearing it,
> or am I tilting at windmills?
+---
| 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
+---