• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Client Access Hotspots

    October 11, 2002 Timothy Prickett Morgan

    Hey, Ted:

    I want to display a calendar if a user clicks on a date on the first line of a display. The date field is a ten-character output field in mm/dd/yyyy format.

    If I click on the year or a forward slash (/), the program works correctly. However, if I double-click on the month or date portion, the program goes crazy. Double-clicking on a date of 03, for example, shuts down the program. Double-clicking on a month of 10 locks the keyboard.

    Any ideas you have that will help solve my problem will be greatly appreciated.

    — Bill

    I have to thank Holley Davis of www.ProgrammerInaBox.com for teaching me this one.

    Here’s your problem: You have enabled hotspots in Client Access. A hotspot is an area on the display where you can click the left mouse button to carry out some action, such as simulating the press of a command key. In your case, double-clicking on the 03 in the date activates the 03 indicator, which you are using to shut down the program. Double-clicking on the 10 locks the keyboard, because you did not enable indicator 10 in your display file.

    How to disable hotspots depends on your version of Client Access (CA). On some versions of CA, the Hotspots option is under the Assist menu. Other versions require you to pull down the Edit menu and select Preferences. Once you have opened the Hotspots Setup window, de-select the nn option in the Point-and-Select Hotspots frame.

    For the benefit of anyone who wants to better understand this feature, I am including Bill’s DDS and a short RPG program to drive it. I suggest you compile this program with the Create Bound RPG Program (CRTBNDRPG) command, specifying DBGVIEW(*LIST). Then run this program under debug to see how clicking on a hotspot can affect a program.

    — Ted

     * display file cisne01d
     *
     * CRTDSPF FILE(xxx/CISNE01D) +
     *    SRCFILE(xxx/QDDSSRC) +
     *    SRCMBR(CISNE01D)
     *
    A                                      DSPSIZ(24 80 *DS3)         
    A                                      MSGLOC(23)                 
    A                                      PRINT                      
    A          R SCREEN01                                             
    A                                      CA03(03 'EXIT')            
    A                                      CF04(04 'PROMPT')          
    A                                      CA06(06 'UPD PF')          
    A                                      MOUBTN(*ULD ENTER)         
    A                                      RTNCSRLOC(&ORF### &CSRFLD) 
    A            ORF###        10A  H                                 
    A            CSRFLD        10A  H                                 
    A            ROW            3S 0H                                 
    A            COL            3S 0H                                 
    A                                  1 22' R E Q U E S T    -       
    A                                       C A N C E L '             
    A                                      COLOR(BLU)                 
    A                                  1  3'DATE:'   
    A            WSDATE        10A  O  1 10COLOR(BLU)
    
     * Program cisne01r
     *
     * CRTBNDRPG PGM(xxx/CISNE01R) +
     *    SRCFILE(xxx/SRC) +
     *    SRCMBR(CISNE01R) +
     *    DBGVIEW(*LIST)
     *
    Fcisne01d  cf   e             workstn               
    C                   eval      wsdate = '10/03/2002' 
    C                   dou       *in03                 
    C                   exfmt     screen01              
    C                   enddo                           
    C                   eval      *inlr = *on           
    

    Sponsored By
    inFORM DECISIONS

    ELIMINATE THE COSTS OF PRE-PRINTED FORMS, LABOR AND POSTAGE WITH
    inFORM Decisions iDocs™ ‘Suite’

    iSeries based e-Forms, e-Checks, e-Mail, e-FAX, and Document Retrieval from the Web are available as individual modules or as a complete e-Document processing ‘Suite’.

    Click to Download the Complete Suite or Individual Modules today
    www.inFORMDecisions.com

    or call (800) 858-5544

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags: Tags: mgo_rc, Volume 2, Number 78 -- October 11, 2002

    Sponsored by
    Maxava

    Migrate IBM i with Confidence

    Tired of costly and risky migrations? Maxava Migrate Live minimizes disruption with seamless transitions. Upgrading to Power10 or cloud hosted system, Maxava has you covered!

    Learn More

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Using APIs to Send Impromptu Messages Reader Feedback and Insights: Dynamic Result Field in Query/400

    Leave a Reply Cancel reply

MGO Volume: 2 Issue: 78

This Issue Sponsored By

    Table of Contents

    • Reader Feedback and Insights: Dynamic Result Field in Query/400
    • Odds and Ends
    • Client Access Hotspots

    Content archive

    • The Four Hundred
    • Four Hundred Stuff
    • Four Hundred Guru

    Recent Posts

    • POWERUp 2025 –Your Source For IBM i 7.6 Information
    • Maxava Consulting Services Does More Than HA/DR Project Management – A Lot More
    • Guru: Creating An SQL Stored Procedure That Returns A Result Set
    • As I See It: At Any Cost
    • IBM i PTF Guide, Volume 27, Number 19
    • IBM Unveils Manzan, A New Open Source Event Monitor For IBM i
    • Say Goodbye To Downtime: Update Your Database Without Taking Your Business Offline
    • i-Rays Brings Observability To IBM i Performance Problems
    • Another Non-TR “Technology Refresh” Happens With IBM i TR6
    • IBM i PTF Guide, Volume 27, Number 18

    Subscribe

    To get news from IT Jungle sent to your inbox every week, subscribe to our newsletter.

    Pages

    • About Us
    • Contact
    • Contributors
    • Four Hundred Monitor
    • IBM i PTF Guide
    • Media Kit
    • Subscribe

    Search

    Copyright © 2025 IT Jungle