Re: Discerning the "Enter" key

[Alan Shore <AlanShore@xxxxxxxx>]

Use STRDBG and put a breakpoint at

C                   exfmt     cr1ctl
then step through (F10)
once you come back from the screen display
on the "command line" type
eval  cfkey :x

the :x will display the hex value.

What is the value?



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


rpg400-l-bounces@xxxxxxxxxxxx wrote on 09/26/2006 03:51:07 PM:

> HI, this is a strange case here. I have been using the same basic
> Subfile program for some time. I have to retrofit it into an older
> subfile program, which has been accomplished, except for the keys. I
> have code that checks if the Enter key is hit and then does whatever.
>
>
>
> I define this:
>
> Dinfo             ds
>
> D cfkey                 369    369
>
>
>
> Dexit             C                   const(X'33')
>
> Dcancel           C                   const(X'3C')
>
> Dadd              C                   const(X'36')
>
> Denter            C                   const(X'F1')
>
> Drollup           C                   const(X'F5')
>
> Dsflpag           C                   const(12)
>
> Ddisplay          C                   const('5')
>
> D*
>
>
>
> And then the code:
>
>
>
> C                   write     cky1
>
> c                   eval      rrn=1
>
> C                   exfmt     cr1ctl
>
> C                   select
>
> C                   when      (cfkey = enter)
>
> c                   exsr      prolin
>
>
>
>
>
> I debugged on the "when Cfkey = enter" statement  and enter was = ' ',
> which is strange bec. This code has been working fine.
>
>
>
> Any ideas would be greatly appreciated and save my hair from being torn!
>
>
>
> Thank you,
>
> Phil Kestenbaum
>
>
> This message contains information proprietary to our company. It is
> intended to be read only by the individual or entity named above or
> their designee.
> Any distribution of this message or the information contained herein
> without written permission from our company is strictly prohibited.
> If the reader of this message is not the intended recipient or an
> agent responsible for delivering it to the intended recipient, you
> are hereby notified that you have received this document in error
> and that any review, dissemination, distribution, or copying of this
> message is strictly prohibited. If you have received this
> communication in error, please notify us immediately by e-mail, and
> delete the original 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.