× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



I have searched through the archives and have either missed or couldn't find
anything.  My apologies if this has been previously discussed.
 
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?
 
I would like to thank the "brain trust" in advance for any and all
assistance.
 
Regards,
 
Thanks ... Karim
KarimGenaidy@xxxxxxxxxxxxxxx
Office: 972-668-1487
Home: 972-668-1486
Cell: 214-850-2999
 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.