Re: Displaying a sequence number in load all DDS?

Define an output field in the subfile for displaying the relative record
number.

Then, in the RPG program:  Just before you write the subfile record to the
subfile, z-add or move the value of the subfile RRN field (as defined in the
F-spec continuation KSFILE line) into this new field.

HTH

Steve Landess
Austin, Texas
(512) 423-0935


----- Original Message -----
From: <SCarter@rsrcorp.com>
To: <rpg400-l@midrange.com>
Sent: Monday, November 25, 2002 3:49 PM
Subject: Displaying a sequence number in load all DDS?


>
>
> Can you create a field in a subfile that shows a sequence # (like RRN)
> without incrementing that number in the RPG?
> My situation is this I have a load all subfile with 400 records with only
4
> displayable on the screen at any time.  The subfile is a blank entry file
> with just headings and input fields.  The users sometimes hit page down
one
> or two time two many and enter their stuff but the program does not do a
> READC it does a chain and read combo and what happens it the stuff that
was
> typed, erroneously, a few pages two low get cleared.  Initially what I
> would like to do is have a line sequence number displayed so they can tell
> the difference in the screens and then go redesign this beast to work
> correctly.
>
> I have tried to define the RRN in the subfile but just shows blanks.
>
> ____________________________________________________
>
> J. Scott Carter
>
> It's not the destination that counts in life it's the journey. The journey
> with the people we love is all that really matters. Such a simple truth so
> easily forgotten.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>