Re: Subfile

["Larry Ducie" <larry_ducie@xxxxxxxxxxx>]

Hi Lugman,

You need the SFLCSRRRN keyword in your DDS. This will return the relative 
record number of the subfile row the cursor was over when a valid function 
key (or Enter) was pressed.

A                                      SFLCSRRRN(&SFLCSR1)
A                                      RTNCSRLOC(&#1RCD &#1FLD &#1POS)
A            #1FLD         10A  H
A            #1RCD         10A  H
A            #1POS          4S 0H
A            SFLCSR1        5S 0H

If you use SFLCSRRRN with RTNCSRLOC you can retrieve the value of a field 
within a subfile record by placing the cursor over it and pressing Enter. 
You can even specify what byte of a field on a subfile row the cursor was 
over. This is very useful for prompting input fields, or for help systems.

Remember, you need to chain to the subfile using the SFLCSRRRN value (if 
it's > 0) to retrieve the field values.

Cheers

Larry Ducie