Re: INFDS and multiple SFL's

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

Karim,

Beside the SFLCSRRRN, suggested by Joep, I would also use the RTNCSRLOC DDS key 
word; it will return the name of the SFLCTL  on which SFL the cursor was on.

Regards,
Carel Teijgeler 

*********** REPLY SEPARATOR  ***********

On 31-8-05 at 8:17 Karim Genaidy wrote:

>I have an issue of being able to determine the "sfl row" that a prompt
>request is being done from ... and if we have the min sfl rrn for the sfl
>along w/the cursor position it can be figured out.
> 
>I have a situation where a "screen" has 2 updateable sfl's to display and
>both sfl's need to support prompt capability via a command key and cursor
>positioning.  The workstation display file is using the INFDS w/the I/O
>feedback area defined (specifically 378-379 ... minimum rrn defined as
>w$LRrn).  Sfl01 has sflpag=2, sflsiz=24.  Sfl02 has sflpag=4,sflsiz=24. 
>The sfl's are always built w/24 rows. Both SflCtl's utilize
>RtnCsrLoc(RecordFormat  RecordField  FieldPosition)
> 
>The rpgle program does the following:
> 
>write MsgCtl;
>write CmdKeyFmt;
>write SflCtl02;
>exfmt SflCtl01;
>$Sfl01MinPagRrn = w$LRrn;
>read SflCtl02;
>$Sfl02MinPagRrn = w$LRrn;
> 
>My expectation would be that in the statement after the exfmt ... I would be
>able to retrieve the value of the min rrn out of the infds.  This works as 
>expected.
> 
>I was also hoping after the read of SflCtl02 ... I could also retrieve the
>same thing for sfl02.  This returns *zero.  Is there a way that I can retrieve 
>this value?