RE: Subfile Positioning

["Ron Hawkins" <hwarangron@xxxxxxxx>]

If you want to return to a certain page in a subfile, you have to know what
page that is. That means you have to trap a relative record number from the
screen that you want to return to. This information is in the file
information data structure. Something like this:

fScandsp   cf   e             workstn
f                                     sfile(sflrcdm:rrnm)
f                                     infds(info)
d Info            ds
d  Sfbin                378    379b 0

c             Dou    Whatever
C             Exfmt  SflCtl
c             eval   SaveFirst = Sfbin
     Process stuff
c             eval   SflRcdNbrField = SaveFirst
c             enddo

There must be a valid number in the SflRcdNbrField. From your error message,
it seems that you have either 0 or a number larger than the number of
records in your subfile.

HTH
Ron





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