Odp: Re: Actual Record Number

[D.BALE@xxxxxxxxxxxxx]

In the V4R4 ILE RPG reference manual APPENDIX1.1 Appendix A.  Behavioral
Differences Between OPM RPG/400 and ILE RPG for AS/400:

The following lists note differences in the behavior of the OPM RPG/400
compiler and ILE RPG.

APPENDIX1.1.4   I/O
<snip>
8.  In ILE RPG, the relative record number and key fields in the
database-specific feedback section of the
    INFDS are updated on each input operation when doing blocked reads.

<end of
All this infers that RPG-III does NOT update the RRN when records are blocked.
 Note that an update file is NEVER blocked on the AS/400, regardless of the
RPG flavor you are using.

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
I thought rrn and key value is updated even if file is blocked but after Mike
 reply I decide once again check it and I get confused.
In ILE RPG Ref. Version 3, Doc # SC09-2077-01 I have found:

"1.5.1.1.6 Blocking Considerations
<snip>
 However, if you are doing blocked input on a data base file, the
relative record number and the key value in the data base feedback section of
 the INFDS
are updated:
*   On every input/output operation, if a POST for any file with factor 1
 blank has not
    been specified anywhere in your program.
*   Only after a POST for the file, if a POST for any file with factor 1 blank
 has been
    specified anywhere in your program."

But I couldn't find this same statement in RPG Ref. SC09-1817-00
Is the behaviour of rrn and key file dependent on language?
Or was it different in previous releases? If yes from which rel. those fields
 are accurate?

Regards
Marcin Sagan


>>> <Mike.Barton@ecsoft.co.uk> 11/15 1:25  >>>
>Could any one tell me how to get the Actual Record number for a record in a
data base
>file.
Ahmed
     Best way is to use the information DS against the file in question.
RRN will return the actual record number in the file. Please note that
this can sometimes not always be correct - specifically when the AS/400
decides to read the records in blocks or something like this.

Mike

EG:

FFile    IF  E           K        DISK         KINFDS INFDS
IINFDS       DS
I                                    B 397 4000RRN
+---
| 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
+---