× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. September 2008

Re: Running out of function keys

Just use E00 - E15 and check the aid byte just as you would for a function
key.


if AIDKey = Enter OR
AIDKey = E09;
exsr process;
endif;



On Wed, Sep 24, 2008 at 8:37 AM, Brown, Stephen GRNRC <
Stephen.Brown@xxxxxxxxx> wrote:

Wasn't sure whether this had to be associated with a Function key ie.

MOUBTN(*ULP CA24)

So I dismissed it.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gene Burns
Sent: 24 September 2008 14:32
To: RPG programming on the AS400 / iSeries
Subject: Re: Running out of function keys


Have you thought of using the MOUBTN keyword?


* 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'


*ULP Unshifted Left button Pressed *ULR Unshifted Left button
Released *ULD Unshifted Left button Double click *UMP Unshifted
Middle button Pressed *UMR Unshifted Middle button Released *UMD
Unshifted Middle button Double click *URP Unshifted Right button
Pressed
*URR Unshifted Right button Released *URD Unshifted Right button
Double click *SLP Shifted Left button Pressed *SLR Shifted Left
button Released *SLD Shifted Left button Double click *SMP
Shifted
Middle button Pressed *SMR Shifted Middle button Released *SMD
Shifted
Middle button Double click *SRP Shifted Right button Pressed *SRR
Shifted Right button Released *SRD Shifted Right button Double click


On Wed, Sep 24, 2008 at 5:19 AM, Brown, Stephen GRNRC <
Stephen.Brown@xxxxxxxxx> wrote:

Folks bit of a basic question compared to some of the current
discussions but I have a situation that I'd lie some advice on.

I have a program that I need to modify to allow calls to some
additional programs via function keys. Problem is there is not enough
remaining unused function keys available. That is F1 -> F24 are all in

use, is there any way in which to extend the range. ?

Thanks



Stephen Brown
Analyst Programmer
CIGNA European Technology Group
1 Knowe Road
GREENOCK
United Kingdom
PA15 4RJ
Phone : +44 (0)1475 492274
Fax : +44 (0)1475 730385
E-Mail : Stephen.Brown@xxxxxxxxx

Confidential, unpublished property of CIGNA Do not duplicate or
distribute. Use and distribution is limited solely to authorised
personnel.
(c) Copyright 2008 (CIGNA Corporation)



----------------------------------------------------------------------
--------
CONFIDENTIALITY NOTICE: If you have received this email in error,
please
immediately notify the sender by e-mail at the address shown. This
email
transmission may contain confidential information. This information
is
intended only for the use of the individual(s) or entity to whom it is
intended even if addressed incorrectly. Please delete it from your
files if
you are not the intended recipient. Thank you for your compliance.
Copyright 2008 CIGNA

======================================================================
========
--
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.





------------------------------------------------------------------------------
CONFIDENTIALITY NOTICE: If you have received this email in error, please
immediately notify the sender by e-mail at the address shown. This email
transmission may contain confidential information. This information is
intended only for the use of the individual(s) or entity to whom it is
intended even if addressed incorrectly. Please delete it from your files if
you are not the intended recipient. Thank you for your compliance.
Copyright 2008 CIGNA

==============================================================================

--
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 thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.