× 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

When I was in debug mode, I set the RRN to several different values.
None of which  made a bit of difference.  The display was always at
record 1.

Marvin


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Tuesday, August 09, 2005 11:26 AM
To: RPG programming on the AS400 / iSeries
Subject: 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 ...
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.