Re: LDA Not Getting Retrieved

[CRPence <CRPbottle@xxxxxxxxx>]

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