RE: RPG400-L Digest, Vol 5, Issue 1081

message: 10
date: Tue, 26 Sep 2006 15:51:07 -0400
from: "Phil Kestenbaum" <pkestenbaum@xxxxxxxxxxx>
subject: Discerning the "Enter" key

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!

My first suggestion would be to enter "EVAL cfkey:x" in the debugger,
that will show the contents of the field in hexadecimal code and may
show any unprintable character contents.

Cor Takken


This e-mail and any attachment is for authorised use by the intended 
recipient(s) only. It may contain proprietary material, confidential 
information and/or be subject to legal privilege. It should not be copied, 
disclosed to, retained or used by, any other party. If you are not an intended 
recipient then please promptly delete this e-mail and any attachment and all 
copies and inform the sender. Thank you.