Re: RRN in a logical file:

[John Carr <74711.77@xxxxxxxxxxxxxx>]

Booth

I think you will find that if you use the file information feedback area
for DB files in RPG that the CURRENT RELATIVE RECORD NUMBER
 (position 397-400, zero decimals,  binary (9,0 B in DDS)) will show
the following;

A. Join logicals will be the RRN of the base Physical file, the Primary one.  
B. Normal, single format, One PF logical file will be the RRN of the 
base physical.  
C.  and for Physical files it will be the RRN of the record you just read.  

I know about the fact that if your only using the file for sequential
processing (either input or output) that the INFDS is only updated 
after blocks of records are transfered(RPGIV compile notice *RNF7086 RPG
 will handle blocking... blah blah blah, yada yada yada)  but I just 
ran one thru debug and the CURRENT RRN feedback field was correct.

  Even though the other feedback field
 "Records per Block - 186-187, zero decimals, binary (4,0 B in DDS)"
 said 40 record per block.
  go figure.

John P. Carr   CDP
EdgeTech Inc
---------------------------------------------------------

>Date:  4/28/97 10:14 PM
>RE:    Re: RRN in a logical file:

>No, I was thinking of the logical file being in a completely different
>order from the physical file.

>That is why I was asking  -  I had assumed that the RRN number was
>connected to the arrival sequence of the records and not the logical
>sequence.  Then something John Carr said last week made me realize my
>assumption may be very wrong.  Hence the question. 


>n <3364FB98.18B3@ibm.net>, on 04/28/97 
   at 12:33 PM, "James W. Kilgore" <qappdsn@ibm.net> said:

#> Will RRN #1 be the first record in the file logically?
#> Or will it be the first record that arrived in it?
#> 
#> -----------------------------------------------------------
#> boothm@earth.goddard.edu
#> -----------------------------------------------------------
#Are you talking about storing the RRN of the logical file as a hidden
#field in the subfile record?

-- 
-----------------------------------------------------------
boothm@earth.goddard.edu
-----------------------------------------------------------
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *