RE: Printing RRN of Keyed Physical File in RPG/400

You can get the RRN of a record from offset 30 of the I/O feedback area in
the file information data structure (INFDS).  See the data management manual
for the layout.  Since you are processing the file sequentially the RRN will
be the first record in the buffer.  You can reduce the size of the buffer by
specifying SEQONLY(*YES 1) on an OVRDBF command.  This will impact
performance since your data buffer only contains one record.  If you have
the file opened for update, the system may have already reduced the buffer
size.  

Regards,
Stan McPartland

-----Original Message-----
From: Robertson, Scott [mailto:SRobertson@dpsciences.com]
Sent: January 05, 2000 6:32 AM
To: RPG400-L@midrange.com
Subject: Printing RRN of Keyed Physical File in RPG/400


I have the need to process a keyed physical file by the keys, but need to
print the RRN of the records that are selected.  How can I find the RRN and
move it to the print file?  I have searched the Midrange-L archives to no
avail.  Any help would be greatly appreciated.

Scott S. Robertson
Information Systems Manager
Data Processing Sciences Corp.
srobertson@dpsciences.com <mailto:srobertson@dpsciences.com> 
http://www.dpsciences.com/ <http://www.dpsciences.com/> 

+---
| 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
+---
+---
| 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
+---