|
midrange.com
You may know this already, but please bear with me.
The AID byte must be specified in the INFDS like so:
Fclm241fm cf e workstn infds(CFKEYS)
F sfile(subfile1:rrn1)
D CFKEYS DS
D AIDKey 1A overlay(CFKEYS:369)
The AID byte can then be checked (Assuming Mocha returns the AID byte) like
so:
exfmt sflctl1;
if AIDKey = F3;
leave;
endif;
if AIDKey = F9;
exsr AddTask;
exsr loadsfl1;
endif;
if AIDKey = E01 or AIDKey = Enter;
if sflrrn > *zero;
exsr DspTask;
endif;
endif;
You then do any processing you need to do after your IF statement. I use
this extensively since it is self-documenting.
Gene
On 12/8/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:
Not really. You have given me a list. What can I do with it? I think I was looking for a manual or something that talks about this (The DDS manual didn't seem to...). How can I use this to do what I need to do - if it works at all on Mocha... What do these mean? What action do I take to trigger them? I think that's what I mean by "information on AID keystrokes"... However, thank you for the effort! Dave -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gene Burns Sent: Friday, December 08, 2006 10:06 AM To: RPG programming on the AS400 / iSeries Subject: Re: Using the mouse on Green Screen Is this what you mean by "information on AID keystrokes"? D CFKEYS DS D AIDKey 1A overlay(CFKEYS:369) * Key Ids D F1 C X'31' D F2 C X'32' D F3 C X'33' D F4 C X'34' D F5 C X'35' D F6 C X'36' D F7 C X'37' D F8 C X'38' D F9 C X'39' D F10 C X'3A' D F11 C X'3B' D F12 C X'3C' D F13 C X'B1' D F14 C X'B2' D F15 C X'B3' D F16 C X'B4' D F17 C X'B5' D F18 C X'B6' D F19 C X'B7' D F20 C X'B8' D F21 C X'B9' D F22 C X'BA' D F23 C X'BB' D F24 C X'BC' D CLEAR C X'BD' D ENTER C X'F1' D HELP C X'F3' D ROLLDN C X'F4' D ROLLUP C X'F5' D PRINT C X'F6' D BACKSP C X'F8' D AUTOEN C X'3F' * Event Ids - These can be associated with a mouse button event D E00 C X'70' D E01 C X'71' D E02 C X'72' D E03 C X'73' D E04 C X'74' D E05 C X'75' D E06 C X'76' D E07 C X'77' D E08 C X'78' D E09 C X'79' D E10 C X'7A' D E11 C X'7B' D E12 C X'7C' D E13 C X'7D' D E14 C X'7E' D E15 C X'7F' Gene On 12/8/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote: > > Thank you. Very helpful. Where can I find information on AID keystrokes. > Did a search on the DDS manual, and nothing showed up... > > Dave > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James H H Lampert > Sent: Friday, December 08, 2006 9:35 AM > To: RPG programming on the AS400 / iSeries > Subject: Re: Using the mouse on Green Screen > > 5250 Mouse Support 101 > > There are 2 levels of 5250 mouse support: Simple Hotspots and > Programmable Mouse Buttons. > > Simple Hotspots is, as the name implies, SIMPLE. Clicking on an > SAA-CUA-compliant (Systems Application Architecture; Common User > Access) function key label (or, depending on the enhancement level, a > "More" or "Bottom" message, the word "Enter,") will generate the > appropriate AID > ("Attention-ID") keystroke. Depending on the enhancement level, > clicking on a CUA-compliant selection column value label may also > enter the value at the current cursor position, and clicking on a > CUA-compliant menu item may enter the menu item number at the current > cursor position and generate an "Enter" AID. > > Clicking anywhere else moves the cursor to the mouse pointer position; > double clicking anywhere else moves the cursor and generates an "Enter." > > All this happens, to the extent that it happens at all, without the > need for any special coding on the host side. > In the case of a real terminal, it must be an InfoWindow II (or clone > thereof), plugged into an enhanced Twinax controller. > > > Programmable Mouse Buttons (PMB) is a 5250 "structured field" that is > sent to the terminal to implement "MOUBTN" > in a display file. Provided that the terminal/controller combination > (or the TN5250 client or other emulator) can accept it. It reassigns > the semantics of various mouse gestures, causing them to generate (in > its simplest form) AID keystrokes. > > I looked into including PMB support in the emulator we supply as part > of our ThinView and Wintouch products (and may someday supply as a > standalone product). But so far, there's been no demand; neither do I > have the time, nor a sufficiently comprehensive PMB-enabled > application to test it with, so (along with WP mode, which is > virtually extinct), it ain't happening anytime soon. Since I believe > MochaSoft may have some of the same roots as our emulator, I'd have > been shocked if it did have PMB support. > > > Even without PMB support, you can do a lot with mouse buttons. For > example, our QuestView product is set up so that if you place the > cursor on a menu header in the action bar, and issue an "Enter" AID, > the menu will open. > Thus, double-clicking on a menu will also open it. And the menus > themselves are set to fire from an "Enter" with the cursor on the > item, so even if your terminal or emulator won't specifically > recognize a single-click on a CUA-compliant menu item, QuestView will > recognize a double-click on it. > > > > Class dismissed. > > -- > JHHL > -- > 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. > > > -- > 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. > > -- 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. -- 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.
As an Amazon Associate we earn from qualifying purchases.
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.
