RE: Subject: Retrieving Relative Record Number

["Martin, Booth" <BoothM@xxxxxxxxxxx>]

Barb, this works so far as I know:

     FPHONEF    UF A E             DISK    REMOTE
     FPHONEFL1  IF   E           K DISK    REMOTE INFDS(DB1)
     F                                     RENAME(RPHONE:RPHONE1)
     FPHONEFL2  IF   E           K DISK    REMOTE INFDS(DB2) 
     F                                     RENAME(RPHONE:RPHONE2)
      **
     DDB1              DS
     D DB1RRN                397    400B 0
     D DB2             DS
     D DB2RRN                397    400B 0
 

The RRN is the same for a record regardless of it's logical placement.  So,
I use the INFDS to find the record's RRN and move it into a hidden field,
just as you are planning.  When the subfile record is selected then I can
chain to the unkeyed physical.  The logical files are never locked this way.
The subfile needs to be refreshed.


-----Original Message-----
From: BARB TURNER [mailto:TURNERB@LIONEL.COM]
Sent: Monday, November 08, 1999 10:55 AM
To: boothm@goddard.edu
Subject: Subject: Retrieving Relative Record Number


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 the
subfile is filled?
+---
| 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
+---