In an RPGLE program, while chaining to or reading an externally defined logical file, I would like to capture its relative record number on successful hits. Is it possible to do this? If so, how is this done?
Here is an example of how to do that. In your file definition, you need to specify the name of the file information data structure. In this example, once you do a read from MYFILE, MYRRN is automatically populated with the relative record number. I don't know if it's still true or not, but at one time there was a (bug/quirk/feature) in RPG where if you did not do a SETLL to the file, it could not be guaranteed that the file information data structure would populate correctly. If you're going to do this, it doesn't hurt to always do a SETLL in your program, even if you're just positioning to the beginning of the file.
Pmt SeqNbr FName Type Desig EOF A/U Seq Fmt Lmts RAT Device Keywords FX 0067.00 MYFILE I F E K DISK INFDS(MYDDS) Pmt SeqNbr Name E S/U Type From To/Length DataType DecPos D 0119.00 MYDDS DS D 0120.00 MYRRN 397 400 B 0 Pmt SeqNbr Lvl N01 Factor 1 OpCode&Ext Factor 2 Result C 0154.01 *LOVAL SETLL MYFILE
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.