Re: PSHBTNFLD with *GUTTER

[Michael_Schutte@xxxxxxxxxxxx]

I found this in one our production programs

A            SBFKEY         2Y 0B 23  2PSHBTNFLD((*GUTTER 2))
A                                      PSHBTNCHC(1 'F3=EXIT' CF03)
A                                      PSHBTNCHC(2 'F12=PREVIOUS' CF12)
A                                      PSHBTNCHC(3 'ENTER')

On a side note, just something interesting I found out a long time ago on a
5250, you can make F3=Exit a button without extra programming... it's a
setting with client access. Under, Edit --> Preferences --> Hotspots,  put
a check mark on 3-D buttons after checking the your perferred options above
it.

When you click on a 3-D button it returns control back to the program
indicating that you pushed that button.  I wonder though if it works with
programs that are designed to check for hex value x'33' as the key pressed.
I haven't tried it this way, but I just thought it was interesting.

D ScreenDS        ds
D KeyPressed            369    369


Michael Schutte



                                                                           
             GKern@toledoclini                                             
             c.com                                                         
             Sent by:                                                   To 
             rpg400-l-bounces@         rpg400-l@xxxxxxxxxxxx               
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             05/05/2006 10:16          PSHBTNFLD with *GUTTER              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I've been assigned a project where I need to create a 5250 app that is as
mouse friendly as possible. One of the things I incorporated is the
PSHBTNFLD keyword for command keys. Since the default width is 3 spaces
between each command key choice, I'd like to reduce this value to two, but
cannot get the syntax correct.

There is limited talk about this via google. Anyone ever use the *GUTTER
parameter with PSHBTNFLD keyword and get it to work?



Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.