Re: Read multiple records in subfile window & update PF

Okay, maybe I understand a little better now.

You want to display 6 subfile records in a window, and allow the user to
select one by pressing the number of the subfile record.  Then the window
closes and you use that selection the user made to populate some fields
on your main display file.

Okay, what I would do:
1. Create a new display record in your display file that is a window, and
   that will contain one edit field, which is where the user will type in
   the number selection.  
2. Create your subfile records.  Use OVERLAY in the SFLCTL record.
3. At run time when the user presses F4
   a. Display the window record.
   b. Load your subfile with the records to be displayed.
   c. Write the subfile record using EXFMT.  This will display the record
      in the window, and wait for input in the edit field you specified
      in the window record.  I am not sure how to immediately return once
      a key is pressed. You might have to research this, if it's even 
      possible.
   d. Program wise you are going to need to determine which data corresponds
      to the number returned, 1 through 6.  The easiest way would be to load 
      the records you are loading in the subfile into an array at the same
      time.
   e. Redisplay your main format.

HTH,

Regards,

Jim Langston
  
Me transmitte sursum, Caledoni!

> -----Original Message-----
> From: Sharon Rogers [mailto:sharon.rogers@nucorcoldfinishsc.com]
> Sent: Wednesday, June 20, 2001 9:18 AM
> To: RPG400-L@midrange.com
> Subject: Read multiple records in subfile window & update PF
> 
> Good Morning!
> 
> I have been working on a program where the user will use F4 to prompt a
> window subfile to pop up.  I want her to be able to select subfile records
> using a 1,2,3,4,5,and 6.  Each number will correspond with fields such as
> Feet1/Inch1, Feet2/Inch2, Feet3/Inch3, etc and populate fields located on
> the screen behind the window when she presses enter.  The maximum number of
> selections will be 6.
> 
> If I need to provide any additional information, please do not hesitate to
> ask.  Any aid in programming for this would be greatly appreciated.  Thanks,
> in advance, for your time!
> 
> Sharon
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---