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



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.