Re: LDA Not Getting Retrieved

On 2/28/11 7:26 AM, Jerry C. Adams wrote:

<<SNIP>>

The purpose for using the LDA is to be able to allow the CL to
ascertain that the user wanted to abort the rest of the CL (in this
case a simple select [IVS002] and, if F3 is not pressed, a report
[IVR002]). A named data area will not do, because the report could
be invoked simultaneously by more than one [1] user; at least I don't
think so.

If anyone has a better method for making the determination that F3
was pressed in IVS002 before proceeding to IVR002, I'd certainly be
willing to hear about it. <<SNIP>>

Not necessarily "better", but... There is an API to retrieve the last function Exit key pressed for the purpose of "exit" from an application [at a display file or panel group], and an API to set that information if not supplied directly by a feature of the OS.

From http://archive.midrange.com/mi400/201005/msg00015.html

[T]he manner in which an interactive application panel\display is exited, via F12 "return key" or F3 "cancel key", is available in a couple of other APIs; QUSRJOBI & QWCRTVCA. QWCCCJOB API is used to set the value in a user application. My unattributed code snippet & text:
http://www.as400network.com/clubtech/TNT400/bo400ng/as400qrykey.htm
The APIs:
http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/topic/apis/qusrjobi.htm
http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/topic/apis/qwcrtvca.htm
http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/topic/apis/qwcccjob.htm

Regards, Chuck