RE: Using the mouse on Green Screen

["Turnidge, Dave" <DTurnidge@xxxxxxxxxxxxxxxxxxxx>]

I have done the following statements in the control record of my
subfile:

         MOUBTN(*ULD E00)
and
         MOUBTN(*ULD CF16)

on two different debug sessions.

In my program I have the INFDS of:

     ** Display file data structure
     D PINFDS          DS
     D  #FUNCT               369    369
     D  #NORIF               156    159B 0
     D  AIDKey               369    369A
<-------------------------------
     D  CURSOR               370    371B 0
     D  #SFRRN               376    377B 0
     D  #RCDNO               378    379B 0  

I saw in the archives code for "Event Ids" That were a list of constants
E00 - E15 with values of Hex 70 - 7F.

When I debug my program with either display file statement, 
for Enter/DoubleLeftClick AIDKey is F1
For PageUp - F4
For PageDown - F5
For F16 - B4
For F17 - B5

I still don't see the connection of these E00 - E15 "Event Ids" to
anything I see in the AIDKey. What am I missing?


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Tuesday, December 12, 2006 2:37 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Using the mouse on Green Screen

Dave,

I found this in the DDS manual:

"Valid EVENT-IDs are E00 through E15. EVENT-IDs are similar to CAxx keys
in that no input data is transmitted from the device."

I found this online at
http://www.systeminetwork.com/isnetforums/archive/index.php?t-5838.html:

"I was able to get it to mostly work, including returning the AID byte
for a CFxx/CAxx key if defined as such or returning an AID of x'70' thru
x'7F'
when defined using an event ID of E00 thru E15, respectively."

Rory


On 12/12/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:
> Before I totally give up on this issue... I would like to know what 
> the "EVENT-ID" is that is able to be used with MOUBTN. One of the 
> samples that I have been given is:
>
> MOUBTN(*ULR E00)
>
> What is the "E00"? How is it used? I don't see anything helpful in the

> DDS manual.
>
> Thanks,
>
> Dave
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.