× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You can position the screen to the page that the user was last on using the 
SFLRCDNBR keyword on your control record, and loading it with the record 
returned from the last READC operation.


Marvin Radding <MRadding@xxxxxxxxxxxx> wrote:
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.





.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.