Subject: Retrieving Relative Record Number

[Vijosh A <VijoshA@xxxxxxxxxxxxxxx>]

                "BARB TURNER" <TURNERB@LIONEL.COM
<mailto:TURNERB@LIONEL.COM> > wrote:
                >
                > Does anyone know of a way to get the relative record
number of a
                > physical file, to be stored in a hidden field within a
subfile as th
                > subfile is filled?

        The easiest way to get the RRN of a non keyed PF is to use the RECNO
keyword in the F spec while defining the PF and defining a field for the RRN

        Eg.
        FFilename    IF  E                    DISK

        F                                              KRECNO RRNO


        Where RRNO is the name of the RRN field. Each time a record is read,
RRNO will give you the RRN of that record which could be stored in the
hidden field within your subfile.
         
        Hope this helps.....
        Thanks
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---