Better tests for function keys in RPG

You Can View User Feedback To This Tip

Traditional methods of testing for function keys in RPG can be bothersome. And how can you test to see if the user pressed ENTER without eliminating ALL other possible function keys? Use the INFDS for the WORKSTN device.

As an RPG programmer, I am always dismayed by the existence of statements that test for function keys using the *INKC format. Sometimes I find myself counting the keys on the keyboard to determine which key is being tested. Since the DDS uses the numeric equivalent (CA03), there is oftentimes no easy way to match them. At least this is true when you go above, let's say, CF10. I also found it disturbing that the only way I could test for the ENTER key was to eliminate all of the other function keys that the user may have pressed. A number of years ago I discovered something in the INFDS for the WORKSTN device that has proven helpful. This is how I have used it.

I created a program that I call SETKEY. I then call this during the initial calcs of a program that uses the WORKSTN device.

Click here to view the program.

USER FEEDBACK TO THIS TIP

• If you are on V4R4 and up and use RPG4 There is no need to write a program. The idea is base on INZ(*EXTDFT)

  From the IBM site:
  Title: ILE RPG for AS/400 Reference
  Document N...
  

  To continue reading for free, register below or login

  Requires Membership to View

  To gain access to this and all member only content, please provide the following information:

  Email Address:
  
  
  

  By joining Search400.com you agree to receive email updates from the TechTarget network of sites, including updates on new content, magazine or event notifications, new site launches and market research surveys. Please verify all information and selections above. You may unsubscribe at any time from one or more of the services you have selected by editing your profile or unsubscribing via email.
  
  TechTarget cares about your privacy. Read our Privacy Policy
  To read more you must become a member of Search400.com

  As an existing member of the TechTarget network please activate your Search400.com account 

  By joining Search400.com you agree to receive email updates from the TechTarget network of sites, including updates on new content, magazine or event notifications, new site launches and market research surveys. Please verify all information and selections above. You may unsubscribe at any time from one or more of the services you have selected by editing your profile or unsubscribing via email.
  
  TechTarget cares about your privacy. Read our Privacy Policy
  
  
  

  Digg This!     StumbleUpon     Del.icio.us

  
  
  
  

  RELATED CONTENT iSeries CL programming Taking advantage of CL advancements, starting with V5R3 Checking in on your IBM i authorization lists Running PHP open source applications: NOBODY needs authority Simplify the process of converting a spool file from iSeries into an Excel spreadsheet CL program for daily backups An automated CL method of moving a query from AS/400 to Excel Changing user password expiration Eight steps for creating program documentation using AS/400 utilities DAYSPAST CLLE program for AS/400: Compares object creation date with today's date Advanced Job Scheduler help RPG iSeries programming Enhancing RPG with external SQL stored procedures Introduction to SQLRPGLE on IBM i: Making a report Making the most of RPG data handling on IBM i IBM i shop boosts online sales with RPG-based Web platform Migrating from RPG to EGL on IBM i Allow access to data from a stored procedure result set using COBOL or RPG EGL Rich UI on IBM i: Do you Dojo? Programming for the Web on the IBM i, what is possible A taste of COMMON: ILE, IBM releases, Web applications and new products Documenting nested program structures on the AS/400 iSeries ILE programming Tracking data changes on IBM i with triggers Introduction to SQLRPGLE on IBM i: Making a report How to use an embedded SQL statement and display the result in a subfile Eight steps for creating program documentation using AS/400 utilities Searching fields for values Searching part of a name or address in AS/400 Top 10 programmer tips YTD How to use the binder language to manage service programs -- Part 3: Examples and pitfalls Top 10 programmer tips of 2005 How to use the binder language to manage service programs -- Part 2: Understanding the binder language

  RELATED GLOSSARY TERMS Terms from Whatis.com − the technology online dictionary Report Program Generator  (Search400.com)

  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

  
  
  umber: SC09-2508-02
  Build Date: 03/23/99 17:38:15 Build Version: 1.3.0

  INZ(*EXTDFT) allows you to use the default values in the DDS for initializing externally described data structure subfields.

  Fdem011 cf e workstn infds(infd01)

  — Eitan Rosenberg
• I don't really see the trouble with checking if the user presses the ENTER key or function key as in the DSPF, only the function keys you have defined will be allowed by the display file. In other words, your program will just have to check for the function keys specified in your display file. You do not have to count(ie *INKC is Function F3), you can assign 03 under the Response column of the Indicator keywords screen for your display file. Function Resp CA03 03 In your program you just use *IN03 instead. —Alex Lee

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your programming questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.




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