Re: SFLRCDNBR

[Jerry Keppler <kepplerj@xxxxxxxxxxxxxxxxxxxxx>]

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

The SFLRCDNBR keyword is used to position the subfile to a record that
you wish to have displayed on the screen.  What you are looking for is
the SFLCSRRRN keyword. It will return the relative record number of the
subfile record where the cursor is located.  The field associated with
it must be defined in the subfile control record as hidden numeric with
a length of 5.  Look for it on the Subfile control record under general
keywords.  I've used it for the purpose you stated above, and it works.
One caution, for this keyword to return a value to you, the cursor must
be in a field in the subfile, if the cursor is not located on a field,
it will return 0.

Hope this helps
-- 
___________________________________________________________
Jerry R. Keppler                Pattonville School District
Computer Programmer             11097 St. Charles Rock Road
(314) 213-8045 Voice            St. Ann, MO 63074
(314) 213-8650 Fax
kepplerj@pattonville.k12.mo.us
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *