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


  1.  Home
  2. RPG400-L
  3. August 2005

RE: Subfile Record positioning

Then is it possible that RRN is being cleared or reset somewhere?  Did you
try changing the field name that you use for  SFLRCDNBR(*TOP) to some other
name and then hard-wiring a value besides 1 into that field?  If you make
the field SF1TOP with a hard-wired value of 4 and it still isn't putting
record 4 at the top then something else is happening at the same time.  Are
you using SFLROLVAL by any chance?

 
A            SF1TOP          4S 0B  4 12SFLRCDNBR(*TOP)
 
---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 08/09/05 13:15:26
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Record positioning
 
Doesn't matter.  In either case it only displays the first record.  I
have been doing some testing on another system and I am concerned that
the RRN is always 1 no matter where the cursor is at on the problem
system, but on the test system it seem to be reflecting the cursor
position.  This must be significant but I don't know how to correct it.
 
 
The two system are on different O/S levels, Test system is V5R1 and the
Problem system is at V5R3.  Am I missing a PTF or something?
 
Marvin
 
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Chacko, Shepherd
Sent: Tuesday, August 09, 2005 11:01 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Record positioning
 
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.
 
 
 
 
 
..
--
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.
 
 
 
--
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.
 
 
"This email and any files transmitted with it are confidential and are
intended
solely for the use of the individual or entity to whom they are
addressed. This
communication represents the originator's personal views and opinions,
which do not
necessarily reflect those of CP Ships. If you are not the intended
recipient or the
person responsible for delivering the email to the intended recipient,
be advised
that you have received this email in error, and that any use,
dissemination,
forward, printing, or copying of this email is strictly prohibited. If
you received
this email in error, please immediately notify the CP Ships Help Desk on
+800 2774
4771 if dialling from Europe, or 1800 388 4197 from US and Canada.
 
Any personal data attached to or included in this email is being treated
in
accordance with the provisions of the CP Ships Personal Data Protection
Policy, a
copy of which is available upon request from the sender.  The recipient
must comply
with the provisions of any data protection legislation in force, in
particular the
requirement that they take appropriate technical and organisational
measures against
unauthorised or unlawful processing of this data."
 
 
--
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.
 
 
 
--
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.