Re: SFLRCDNBR

Booth Martin wrote:

>I just saw that the SFLRCDNBR keyword returns the subfile record 
>number of the record on the display screen that has the cursor on 
>it to the RPG program.  Now that is handy! 
>
> I have an inquiry application where it would be a perfect solution: 
>show the file, scroll up & down, put the cursor on the chosen line 
>and hit enter,  Wonderful.
>
>But it doesn't work.  I just get the last record number on display.
>

        Define another keyword SFLCSRRRN.  This keyword will return the relative
record number of the subfile record on which the cursor was placed. Now, move 
this value into SFLRCDNBR and then do EXFMT. I haven't tried this, but you might
give it a shot.


HTH

Vishwanath Nemani







>So what'd I forget?
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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   *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>umidr
>


                                  ======   Standard Disclaimer  =======

 I speak for myself not for the company I work for.

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