Trapping Key Presses

David Morrison - Corporate dmorrison@mcbrideelectric.com
Wed, 17 Nov 2004 07:10:10 -0800


This is a multi-part message in MIME format.

------_=_NextPart_001_01C4CCB7.880C1C40
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Glenn and Bob,
=20
We use the technique Bob suggested quite a bit, in the AS/400 =
environment.
=20
We use a KEY statement with ACTION AND DESIGNER pgmx plus PROCEDURE =
DESIGNER pgmx NODATA.
=20
The tricky thing is the timing:  when the user presses the function key, =
the procedure is executed after all the INPUT/EDIT/PROCESS procedures, =
and immediately prior to PREUPDATE.
=20
Unfortunately, there's no key word that you can examine to determine if =
a function key has been pressed.
=20
Thanks.
=20
David Morrison
McBride Electric

-----Original Message-----
From: powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Deskin, Bob
Sent: Wednesday, November 17, 2004 3:47 AM
To: Glenn Kimberley; powerh-l@lists.sowder.com
Subject: RE: Trapping Key Presses


By trapping key presses I take it that you want to assign specific key =
presses to specific QUICK commands. You can't directly run a procedure, =
other than named DESIGNER procedures. Take a look at the QKGO system and =
the TIC screens. Most terminals (and equivalent emulations) are set up =
to allow you to assign selected keys to commands.
=20
The other option is the KEY statement. It's designed to use the function =
keys. However, on a non-HP terminal (i.e. with no terminal labels), =
getting more than one bank is an issue. You don't want to use key levels =
because the user won't know what command is set.
Bob Deskin             =20
Senior Product Manager, Application Development Tools=20
Cognos Inc. 3755 Riverside Drive, Ottawa ON K1G 4K9 CANADA=20
bob.deskin@cognos.com (613) 738-1338 ext 7268=20

-----Original Message-----
From: powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of Glenn Kimberley
Sent: November 17, 2004 6:30 AM
To: powerh-l@lists.sowder.com
Subject: Trapping Key Presses


Hi
=20
Has anybody had any experience in trapping key presses in quick screens =
for example when a user presses F1 run an procedure.=20
Any pointers in the right direction would be gratefully received=20
=20
Running=20
Powerhouse   8.23.D7
Unix AIX   3.4
Oracle  version 8
=20
Thanks=20
Glenn
=20
=20
=20
=20

Glenn Kimberley
developer
research & development
e-mail:  <mailto:glenn.kimberley@crick.ramesys.com> =
glenn.kimberley@crick.ramesys.com
ramesys
professional services ltd
eldon way crick northants nn6 7sl
web:  <http://www.ramesys.com/> http://www.ramesys.com
ramesys professional services ltd is part of ramesys holdings ltd
=20
=20
=20

=20

       This message may contain privileged and/or confidential =
information.  If you have received this e-mail in error or are not the =
intended recipient, you may not use, copy, disseminate or distribute it; =
do not open any attachments, delete it immediately from your system and =
notify the sender promptly by e-mail that you have done so.  Thank you.=20


------_=_NextPart_001_01C4CCB7.880C1C40
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns:eXclaimer =3D "http://www.exclaimer.co.uk"><HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">


<META content=3D"MSHTML 6.00.2800.1476" name=3DGENERATOR></HEAD>
<BODY>
<DIV><FONT color=3D#0000ff size=3D2><SPAN =
class=3D486140315-17112004>Glenn and=20
Bob,</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN class=3D486140315-17112004>We =
use the=20
technique Bob suggested quite a bit, in the AS/400=20
environment.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN class=3D486140315-17112004>We =
use a KEY=20
statement with ACTION AND DESIGNER pgmx plus PROCEDURE DESIGNER pgmx=20
NODATA.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN class=3D486140315-17112004>The =
tricky thing=20
is the timing:&nbsp; when the user presses the function key, the =
procedure is=20
executed after all the INPUT/EDIT/PROCESS procedures, and immediately =
prior to=20
PREUPDATE.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN =
class=3D486140315-17112004>Unfortunately,=20
there's no key word that you can examine to determine if a function key =
has been=20
pressed.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004>Thanks.</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN=20
class=3D486140315-17112004></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN =
class=3D486140315-17112004>David=20
Morrison</SPAN></FONT></DIV>
<DIV><FONT color=3D#0000ff size=3D2><SPAN =
class=3D486140315-17112004>McBride=20
Electric</SPAN></FONT></DIV>
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
  <DIV class=3DOutlookMessageHeader dir=3Dltr align=3Dleft><FONT =
face=3DTahoma=20
  size=3D2>-----Original Message-----<BR><B>From:</B>=20
  powerh-l-admin@lists.sowder.com =
[mailto:powerh-l-admin@lists.sowder.com]<B>On=20
  Behalf Of </B>Deskin, Bob<BR><B>Sent:</B> Wednesday, November 17, 2004 =
3:47=20
  AM<BR><B>To:</B> Glenn Kimberley; =
powerh-l@lists.sowder.com<BR><B>Subject:</B>=20
  RE: Trapping Key Presses<BR><BR></FONT></DIV>
  <DIV>
  <DIV><SPAN class=3D654284211-17112004><FONT face=3DArial =
color=3D#0000ff size=3D2>By=20
  trapping key presses I take it that you want to assign specific key =
presses=20
  to&nbsp;specific QUICK commands. You can't directly run a procedure, =
other=20
  than named DESIGNER procedures. Take a look at the QKGO system and the =
TIC=20
  screens. Most terminals (and equivalent emulations) are set up to =
allow you to=20
  assign selected keys to commands.</FONT></SPAN></DIV>
  <DIV><SPAN class=3D654284211-17112004><FONT face=3DArial =
color=3D#0000ff=20
  size=3D2></FONT></SPAN>&nbsp;</DIV>
  <DIV><SPAN class=3D654284211-17112004><FONT face=3DArial =
color=3D#0000ff size=3D2>The=20
  other option is the KEY statement. It's designed to use the function =
keys.=20
  However, on a non-HP terminal (i.e. with no terminal labels), getting =
more=20
  than one bank is an issue. You don't want to use key levels because =
the user=20
  won't know what command is set.</FONT></SPAN></DIV>
  <DIV><SPAN class=3D654284211-17112004>
  <P><FONT face=3DArial size=3D2>Bob=20
  =
Deskin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;=20
  </FONT><BR><FONT face=3DArial size=3D2>Senior</FONT> <FONT =
face=3DArial=20
  size=3D2>Product Manager</FONT><FONT face=3DArial size=3D2>,</FONT> =
<FONT face=3DArial=20
  size=3D2>Application Development Tools</FONT> <BR><FONT face=3DArial =
size=3D2>Cognos=20
  Inc.</FONT><FONT face=3DArial size=3D2></FONT> <FONT face=3DArial =
size=3D2>3755=20
  Riverside Drive</FONT><FONT face=3DArial size=3D2>,</FONT> <FONT =
face=3DArial=20
  size=3D2>Ottawa ON K1G 4K9 CANADA</FONT> <BR><FONT face=3DArial=20
  size=3D2>bob.deskin@cognos.com</FONT><FONT face=3DArial =
size=3D2></FONT> <FONT=20
  face=3DArial size=3D2>(613) 738-1338 ext</FONT> <FONT face=3DArial=20
  size=3D2>7268</FONT> </P></SPAN></DIV>
  <BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
    <DIV class=3DOutlookMessageHeader dir=3Dltr align=3Dleft><FONT =
face=3DTahoma=20
    size=3D2>-----Original Message-----<BR><B>From:</B>=20
    powerh-l-admin@lists.sowder.com=20
    [mailto:powerh-l-admin@lists.sowder.com]<B>On Behalf Of </B>Glenn=20
    Kimberley<BR><B>Sent:</B> November 17, 2004 6:30 AM<BR><B>To:</B>=20
    powerh-l@lists.sowder.com<BR><B>Subject:</B> Trapping Key=20
    Presses<BR><BR></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004>Hi</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN =
class=3D134222411-17112004>Has anybody had=20
    any experience in trapping key presses in quick screens for=20
    example&nbsp;when a&nbsp;user presses F1 run an=20
    procedure.&nbsp;</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN =
class=3D134222411-17112004>Any pointers in=20
    the right direction would be gratefully =
received&nbsp;</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN =
class=3D134222411-17112004>Running=20
    </SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004>Powerhouse&nbsp;&nbsp; =
8.23.D7</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN =
class=3D134222411-17112004><SPAN=20
    class=3D134222411-17112004>Unix AIX&nbsp;&nbsp; =
3.4</SPAN></SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004>Oracle&nbsp;&nbsp;version =
8</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN =
class=3D134222411-17112004>Thanks=20
    </SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004>Glenn</SPAN></FONT></DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV><FONT face=3DArial size=3D2><SPAN=20
    class=3D134222411-17112004></SPAN></FONT>&nbsp;</DIV>
    <DIV>
    <TABLE id=3DTable1 width=3D"100%">
      <TBODY>
      <TR>
        <TD vAlign=3Dtop align=3Dleft><FONT face=3DArial size=3D3>
          <DIV><STRONG>Glenn Kimberley</STRONG></DIV></FONT><FONT =
face=3DArial=20
          color=3D#ff0000 size=3D2>
          <DIV>developer</DIV></FONT><FONT face=3DArial color=3Dblack =
size=3D2>
          <DIV>research &amp; development</DIV></FONT>
          <DIV><FONT face=3DArial size=3D2><B>e-mail: </B></FONT><A=20
          href=3D"mailto:glenn.kimberley@crick.ramesys.com"><FONT =
face=3DArial=20
          =
size=3D2>glenn.kimberley@crick.ramesys.com</FONT></A></STRONG></DIV></FON=
T></TD>
        <TD vAlign=3Dtop align=3Dright><FONT face=3D"Arial Black" =
color=3Dblack=20
size=3D4>
          <DIV>ramesys</DIV></FONT><FONT face=3DArial color=3D#ff0000 =
size=3D2>
          <DIV><STRONG>professional services =
ltd</STRONG></DIV></FONT><FONT=20
          face=3DArial color=3Dblack size=3D2>
          <DIV><STRONG>eldon way crick northants nn6=20
          7sl</STRONG></DIV></FONT><FONT face=3D"Arial Special G1" =
color=3Dblack=20
          size=3D2><FONT color=3Dblack>
          <DIV><FONT face=3DArial size=3D2><STRONG>web: =
</STRONG></FONT><A=20
          href=3D"http://www.ramesys.com/"><FONT face=3DArial=20
          =
size=3D2><STRONG>http://www.ramesys.com</STRONG></FONT></A></DIV></FONT><=
FONT=20
          color=3Dblack>
          <DIV><FONT face=3DArial size=3D1>ramesys professional services =
ltd is part=20
          of ramesys holdings =
ltd</FONT></DIV></FONT></FONT></TD></TR></TBODY></TABLE>
    <DIV>&nbsp;</DIV>
    <DIV>&nbsp;</DIV></DIV>
    <DIV><FONT face=3DArial =
size=3D2></FONT>&nbsp;</DIV></BLOCKQUOTE></DIV>
  <DIV>&nbsp;</DIV>
  <DIV>
  <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT face=3DArial =
size=3D2>This=20
  message may contain privileged and/or confidential information.&nbsp; =
If you=20
  have received this e-mail in error or are not the intended recipient, =
you may=20
  not use, copy, disseminate or distribute it; do not open any =
attachments,=20
  delete it immediately from your system and notify the sender promptly =
by=20
  e-mail that you have done so.&nbsp; Thank you.</FONT>=20
</P></DIV></BLOCKQUOTE></BODY></HTML>

------_=_NextPart_001_01C4CCB7.880C1C40--