
	Home > AS/400 Tips > iSeries programmer tips > Know what user pressed what from any system command screen

iSeries 400 Tips:

EMAIL THIS

TIPS & NEWSLETTERS TOPICS

ISERIES PROGRAMMER TIPS

Know what user pressed what from any system command screen

Reynaldo Dandreb Medilla
12.15.2005
Rating: -4.80- (out of 5) Hall of fame tip of the month winner

Digg This!

StumbleUpon

Del.icio.us

In any application, you are surely using one of the iSeries system functions or commands (i.e. WRKSPLF, etc). And in some cases you want to easily track down programmatically what the user pressed when he left a system command screen, so that you can do next appropriate action. The only way to do that is to use the system API. How easy is always the question. Cheers, here is the simple program to make it easy for you. Just make a call to the program below passing a 3-char parameter after calling any system command. See the code below. Temporarily I have name this program 'CHKF3_F12', but you can name it anyway you want. You can cut and paste the code to your source member and compile.

Code

   
/*  FUNCTION:                                                     */
/*  CHECK IF USER PRESSED F3 OR F12 FROM ANY SYSTEM COMMAND       */
/*  RETURNS PARAMETER VALUE OF 'F3' OR 'F12' ACCORDINGLY.         */
/*                                                                */
/*  Note: This program can be called after running system command */

Pgm &KEYPRESSED

             Dcl        &KEYPRESSED  *CHAR      (     3 )
             Dcl        &JOB         *CHAR      (    26 )  VALUE('*')
             Dcl        &INTJOBID    *CHAR      (    16 )
             Dcl        &JOBINFO     *CHAR      (   350 )
             Dcl        &F3POS       *DEC       (   5 0 )  VALUE(103)
             Dcl        &F12POS      *DEC       (   5 0 )  VALUE(104)
             Dcl        &RTNLEN      *CHAR      (     4 )  VALUE(X'00000000')

             ChgVar     %BIN( &RTNLEN ) ( 350 )
             Call       QUSRJOBI (&JOBINFO &RTNLEN 'JOBI0600' &JOB &INTJOBID)

             ChgVar     &KEYPRESSED '   '

             If         (%SST(&JOBINFO &F3POS 1) = '1') +
                        Then( ChgVar &KEYPRESSED 'F3 ' )

             If         (%SST(&JOBINFO &F12POS 1) = '1') +
                        Then( ChgVar &KEYPRESSED 'F12' )

EndPgm
------test program----
PGM
     DCL &KEY *CHAR (  3 )
     WRKSPLF
     CALL CHKF3_F12  &KEY
     IF (&KEY Âª= ' ') THEN(SNDPGMMSG ('YOU PRESSED ' *CAT &KEY))
     IF (&KEY = ' ') THEN(SNDPGMMSG ('YOU PRESSED OTHER KEYS')) ENDPGM

Rate this Tip
To rate tips, you must be a member of Search400.com. Register now to start rating these tips. Log in if you are already a member.
Submit a Tip

Digg This!

StumbleUpon

Del.icio.us

RELATED CONTENT

	iSeries programmer tips
	Enhancing RPG with external SQL stored procedures
	Tracking data changes on IBM i with triggers
	Introduction to SQLRPGLE on IBM i: Making a report
	Implementing a browser interface in COBOL: Displaying database fields
	Taking advantage of CL advancements, starting with V5R3
	TAATOOL: Useful tools for programmers on IBM i
	Implementing a browser interface in COBOL: Creating your graphic Web page
	Implementing a browser interface in COBOL: Getting started
	Making the most of RPG data handling on IBM i
	Groovy programming on IBM i

RELATED RESOURCES

2020software.com, trial software downloads for accounting software, ERP software, CRM software and business software systems

Search Bitpipe.com for the latest white papers and business webcasts

Whatis.com, the online computer dictionary

DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.

iSeries Security - Security Tools, Physical Security and System Security

SEARCH

TechTarget provides technology professionals with the information they need to perform their jobs - from developing strategy, to making cost-effective purchase decisions and managing their organizations' technology projects - with its network of technology-specific websites, events and online magazines.


TechTarget Corporate Web Site \| Media Kits \| Site Map All Rights Reserved, Copyright 1999 - 2009, TechTarget \| Read our Privacy Policy