|
Hey I got it to work!!! Selecting multiple records on a subfile using the mouse or spacebar, and I am not telling anyone how I did it!! :-P Nah I have a couple of bug to work out, fields on the header behave a little oddly so I want to see what I can do about that before I say it works properly. Steve -----Oorspronkelijk bericht----- Van: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]Namens Gene Burns Verzonden: vrijdag 8 december 2006 17:39 Aan: RPG programming on the AS400 / iSeries Onderwerp: Re: Using the mouse on Green Screen 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 AIDkeystrokes.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.
midrange.com
