RE: Subfile Record positioning

The problem is that you are not reading the subfile, thus the subfile record 
number is not changing.
I would suggest that you save the last record that you write to the subfile, 
and set the subfile record number field to that value before the EXFMT.
 


"Chacko, Shepherd" <Shepherd.Chacko@xxxxxxxxxxx> wrote:
Marvin,

" The problem is this, when I position the unfolded screen on the 4th
record and press enter, the redisplay is back at the 1st record. The
CSRRRN shows 4 just after I press enter but even though I set the RRN to
4 before the redisplay, it still shows the first record "

In the above stated problem, when the screen is redisplayed back to the 1st 
record, is the display Folded OR Unfolded?

Thanx
Shepherd

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Marvin Radding
Sent: Tuesday, August 09, 2005 12:47 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Record positioning

Separating the screens will not solve the problem of position the
subfile at the correct record. The users have PO's with several hundred
lines. They find it very annoying that they have to roll down to the
last record they worked on after every enter or Fkey pressed. I think
they have a contract out on me. The only way to stay alive now is to
fix this problem. Otherwise this is my last email.

Marvin

PS The last was a joke for the humor impaired.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Tuesday, August 09, 2005 9:35 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Subfile Record positioning

Why use the folding function at all? Why not let the unfolded view be a
second screen, with a new format name, and not be a subfile at all?



I suspect the problem is that when you reload the subfile with the
unfolded
record you have deleted or cleared the initial subfile, so there is no
longer a record 4 in the subfile, 



---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------



From: RPG programming on the AS400 / iSeries

Date: 08/09/05 11:26:33

To: RPG programming on the AS400 / iSeries

Subject: Subfile Record positioning



Hi All,



[Marvin Radding:]



I need a little help in position a subfile to display the unfolded

record on the screen.







I have a screen as depicted below:



8/09/05 09:12:42 My Company

MARVINR



PPPPPPP Order Detail

DPINW



Buyer: Buyer #1



PO #: Order ID: 1900 1

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA



Item Brand/Pkr Description Size Tot O-Qty V-Qty Cost

RS









9999999 DDDDDDDDDDDDDDDDDDDDDDD 2.2 LB 2 2 2

18.7260



Risk......: 29 Time Sup: Cur/WPO: 7.90 8.41 On Hand..:

3



Shelf Life: 60 Required.........: 2.00 Committed:





Add to AL.: Forecast.........: 3.92 24 hours :





Promotions: CG On Order.:

29



Time Supply (No Order): 48.21 Pack: 2











* PAR * * Sale *





--- 2005-08-06 --------------- 13 Week History ------------

2005-05-14 ---



Wk Sales Wk Sales Wk Sales Wk Sales Wk

Sales



31 4.50 30 8.50 29 1.50 28 5.00





27 5.50 26 3.50 25 24 S .00





23 3.50 22 5.50 21 6.50 20 1.00 19

4.50





------------------------------------------------------------------------

------





More...



F1=Update F10=Slot Inq F3=Cancel F4=List/Select F5=Reallocate

F20=Sales



F7=Inventory F8=Add Items F9=Cost Change F24=More Keys F21=Unfold















This is the unfolded display. The display shows only one subfile record

in this mode from line 7 to line 22. When in the folded display, it

shows 11 lines.







The problem is this, when I position the unfolded screen on the 4th

record and press enter, the redisplay is back at the 1st record. The

CSRRRN shows 4 just after I press enter but even though I set the RRN to

4 before the redisplay, it still shows the first record. I need to

redisplay the 4th record. This will also happen when a Fkey is pressed.







HELP







Marvin







--

This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list

To post a message email: RPG400-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,

visit: http://lists.midrange.com/mailman/listinfo/rpg400-l

or email: RPG400-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives

at http://archive.midrange.com/rpg400-l.





.