|
midrange.com
Scott,
This is yet another alternative to the named constant, I would convert the
names to
application functions given the option.
/TITLE FncKey - Retrieve function key pressed based on AID (attention
indicator) byte.
**********************************************************************************************
* *FncKey Retrieve function key pressed based on AID (attention
indicator) byte. *
**********************************************************************************************
PFncKey B EXPORT
DFncKey PI LIKE(RtnKey)
D AID 1A CONST
***********************
* Return function key *
***********************
DRtnKey S 8A
C SELECT
C WHEN AID = x'F1'
C EVAL RtnKey = 'Enter'
C WHEN AID = x'31'
C EVAL RtnKey = 'F1'
C WHEN AID = x'32'
C EVAL RtnKey = 'F2'
C WHEN AID = x'33'
C EVAL RtnKey = 'F3'
C WHEN AID = x'34'
C EVAL RtnKey = 'F4'
C WHEN AID = x'35'
C EVAL RtnKey = 'F5'
C WHEN AID = x'36'
C EVAL RtnKey = 'F6'
C WHEN AID = x'37'
C EVAL RtnKey = 'F7'
C WHEN AID = x'38'
C EVAL RtnKey = 'F8'
C WHEN AID = x'39'
C EVAL RtnKey = 'F9'
C WHEN AID = x'3A'
C EVAL RtnKey = 'F10'
C WHEN AID = x'3B'
C EVAL RtnKey = 'F11'
C WHEN AID = x'3C'
C EVAL RtnKey = 'F12'
C WHEN AID = x'B1'
C EVAL RtnKey = 'F13'
C WHEN AID = x'B2'
C EVAL RtnKey = 'F14'
C WHEN AID = x'B3'
C EVAL RtnKey = 'F15'
C WHEN AID = x'B4'
C EVAL RtnKey = 'F16'
C WHEN AID = x'B5'
C EVAL RtnKey = 'F17'
C WHEN AID = x'B6'
C EVAL RtnKey = 'F18'
C WHEN AID = x'B7'
C EVAL RtnKey = 'F19'
C WHEN AID = x'B8'
C EVAL RtnKey = 'F20'
C WHEN AID = x'B9'
C EVAL RtnKey = 'F21'
C WHEN AID = x'BA'
C EVAL RtnKey = 'F22'
C WHEN AID = x'BB'
C EVAL RtnKey = 'F23'
C WHEN AID = x'BC'
C EVAL RtnKey = 'F24'
C WHEN AID = x'F3'
C EVAL RtnKey = 'Help'
C WHEN AID = x'F4'
C EVAL RtnKey = 'RollDown'
C WHEN AID = x'F5'
C EVAL RtnKey = 'RollUp'
C WHEN AID = x'F6'
C EVAL RtnKey = 'Print'
C WHEN AID = x'F8'
C EVAL RtnKey = 'Rcd Back'
C WHEN AID = x'3F'
C EVAL RtnKey = 'Auto Ent'
C*
C OTHER
C CALLP SndMsg(
C *OMIT:
C 'Invalid AID byte x''' +
C CvtChrHex(AID) + '''.')
C EVAL RtnKey = *BLANKS
C ENDSL
C*
C RETURN RtnKey
PFncKey E
David Morris
>>> "Eric N. Wilson" <doulos1@home.com> 08/18/99 09:32AM >>>
Wow Scott I can't believe you are in the *INK camp... I personally prefer to
use the AID byte and have named constants F1 - F24, Enter, Help, etc... Well
to each his own :-)
______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St
Tacoma WA 98407
----- Original Message -----
From: Scott Klement <infosys@klements.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, August 17, 1999 10:51 PM
Subject: Re:Named Indicators...
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
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.
