RE: Subfile Record positioning

You mean like

A            RRN            4S 0H      SFLRCDNBR(CURSOR *TOP)  

Yeah. But I can't get it to even position the subfile at the top of the
screen.

Marvin

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

They just take my coffeepot hostage when that happens. 



I am curious.  Do you have a line like this in your coding?



 

  A            SF1TOP         4S 0H      SFLRCDNBR(CURSOR *TOP)

 

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

Booth Martin

http://www.martinvt.com

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

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

 

From: RPG programming on the AS400 / iSeries

Date: 08/09/05 11:49:54

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