• 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
    Midrange Dynamics North America

    Want to deliver DevOps on IBM i?

    DevOps enables your IBM i development teams to shorten the software development lifecycle while delivering features, fixes, and frequent updates that are closely aligned with business objectives. Flexible configuration options within MDChange make it easy to adapt to new workflow strategies and policies as you adopt DevOps practices across your organization.

    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

    • The Power11 Transistor Count Discrepancies Explained – Sort Of
    • Is Your IBM i HA/DR Actually Tested – Or Just Installed?
    • Big Blue Delivers IBM i Customer Requests In ACS Update
    • New DbToo SDK Hooks RPG And Db2 For i To External Services
    • IBM i PTF Guide, Volume 27, Number 33
    • Tool Aims To Streamline Git Integration For Old School IBM i Devs
    • IBM To Add Full System Replication And FlashCopy To PowerHA
    • Guru: Decoding Base64 ASCII
    • The Price Tweaking Continues For Power Systems
    • IBM i PTF Guide, Volume 27, Numbers 31 And 32

    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