|
Why would any one want to use indicators to see what key an operator pressed on the key board. *INKA - *INKY or *IN01 -*IN24 is old fashioned. Here is our shop standard for controlling interactive screens. The INFDS is updated when ever control is returned to the program from a workstation read/exfmt. DSPANL is the name of the record format read, CFKEY is the function key that returned control to the program. In the DDS we define all function keys to avoid the dreaded keyboard error code that requires the user to press reset and give no error message besides that 4 digit number that no users understand. This is really a self documenting code style. We use /copy to bring in all the listed "D" specs. FCLD025C CF E WORKSTN INFDS(DSPFDS) D DSPFDS DS D DSPANL 38 45 D CFKEY 369 369 D DSCPOS 370 371B 0 * USED TO CHECK FOR COMMAND FUNCTION KEYS D F01 C CONST(X'31') D F02 C CONST(X'32') D F03 C CONST(X'33') D F04 C CONST(X'34') D F05 C CONST(X'35') D F06 C CONST(X'36') D F07 C CONST(X'37') D F08 C CONST(X'38') D F09 C CONST(X'39') D F10 C CONST(X'3A') D F11 C CONST(X'3B') D F12 C CONST(X'3C') D F13 C CONST(X'B1') D F14 C CONST(X'B2') D F15 C CONST(X'B3') D F16 C CONST(X'B4') D F17 C CONST(X'B5') D F18 C CONST(X'B6') D F19 C CONST(X'B7') D F20 C CONST(X'B8') D F21 C CONST(X'B9') D F22 C CONST(X'BA') D F23 C CONST(X'BB') D F24 C CONST(X'BC') D FCLEAR C CONST(X'BD') D FENTER C CONST(X'F1') D FHELP C CONST(X'F3') D FROLLD C CONST(X'F4') D FROLLU C CONST(X'F5') D FPRINT C CONST(X'F6') C SELECT * * EXIT C CFKEY WHENEQ F03 * * ENTER KEY C CFKEY WHENEQ FENTER * * INVALID KEY C OTHER * C ENDSL Christopher K. Bipes mailto:ChrisB@Cross-Check.com Sr. Programmer/Analyst mailto:Chris_Bipes@Yahoo.com CrossCheck, Inc. http://www.cross-check.com 6119 State Farm Drive Phone: 707 586-0551 x 1102 Rohnert Park CA 94928 Fax: 707 586-1884 ylka.marc@westpoint-stevens.com wrote: > > Tim, > > This is what I use and it works well. > > DIndicators DS Based(IndicatorP) > D F3 03 03 > D F5 05 05 > D F12 12 12 > D Eof_SKU 90 90 > DIndicatorP S * Inz(%Addr(*In)) > > Marc > > > ____________________Reply Separator____________________ > Subject: RE: Named Indicators... > Author: <RPG400-L@midrange.com> > Date: 8/17/99 9:36 AM > > 79 /***************** Map the function Keys *****************/ > 80 d InKa s * inz(%addr(*inka)) > 81 d FunctionKey ds Based(InKa) > 82 D F3 N Overlay(FunctionKey:3 > > Thanks, tim +--- | 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.
midrange.com
