RE: Subfile Record positioning -- RPG400-L

I do not reload the subfile. And the records are all there.  Even in the
unfolded screen the cursor is not positioning to the proper record.

Marvin


-----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.

 

 

.