RE: when user presses ENTER key in Display screen How to detect it inan RPG program?

  
  
 Hi there
 
One way would be to test the workstation DS, then test if the Enter key has 
been pressed. 
 
For example;
 
 //  Screen                                                       
FUtEod10d1 Cf   E             WorkStn InfDs( ws_Info )            
                  
 // Workstation Info                                              
D ws_Info         Ds                                              
D  cfKey                369    369                                
 
D Enter           C                   x'F1'   
 
When cfKey = Enter ;    
  Leave ;               
 
Hope this helps
 
Andy Youens | Senior IBM Consultant | formaserve systems ltd
* 01908 609500 | * 07770 380276 | http://www.formaserve.co.uk

________________________________

From: rpg400-l-bounces@xxxxxxxxxxxx on behalf of Shijith_Chand
Sent: Thu 01/09/2005 09:27
To: rpg400-l@xxxxxxxxxxxx
Subject: when user presses ENTER key in Display screen How to detect it inan 
RPG program? 





Dear all,

            When the user presses F1 key we can capture that in the RPG
program by

            checking the *INKA indicator. Similarly I guess F2 - F24 has
a unique indicator

            associated which can be checked for on/off in the program to
find whether user

            has pressed it.

            My problem is because of the lack any such indicator
associated with the ENTER

            Key .In the program I need to figure out using a single IF
condition whether user

            Has pressed the ENTER key.

            I understand I can do the same by checking all the *INKA -
*INKT indicators and

            If all of them are *OFF it is conclusive that user has
pressed the ENTER key.

          

            Can anybody please tell me a better/smarter option to this?
May be I am missing out

            On some inbuilt features of handling this condition.



Thanks & Regards,

S.chand







DISCLAIMER:
This email (including any attachments) is intended for the sole use of the 
intended recipient/s and may contain material that is CONFIDENTIAL AND PRIVATE 
COMPANY INFORMATION. Any review or reliance by others or copying or 
distribution or forwarding of any or all of the contents in this message is 
STRICTLY PROHIBITED. If you are not the intended recipient, please contact the 
sender by email and delete all copies; your cooperation in this regard is 
appreciated.
--
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.   
--------------------------------------------------------
FormaServe Systems Ltd 
E: Info@xxxxxxxxxxxxxxxx 
W: www.FormaServe.co.uk 
T: +44 (0)1908 609500 
  
Company registered in England, number 2458169 
 
  
 
This message (and any associated files) is intended only for the use by  of the 
individual or entity to which it is addressed and may contain information that 
is confidential, subject to copyright or constitutes a trade secret. If you are 
not the intended recipient you are hereby notified that any dissemination, 
copying or distribution of this message, or files associated with this message, 
is strictly prohibited. If you have received this message in error, please 
notify us immediately by replying to the message and deleting it from your 
computer. Messages sent to and from us may be monitored.  
 
Internet communications cannot be guaranteed to be secure or error-free as 
information could be intercepted, corrupted, lost, destroyed, arrive late or 
incomplete, or contain viruses. Therefore, we do not accept responsibility for 
any errors or omissions that are present in this message, or any attachment, 
that have arisen as a result of e-mail transmission. If verification is 
required, please request a hard-copy version. Any views or opinions presented 
are solely those of the Andy@xxxxxxxxxxxxxxxx and do not necessarily represent 
those of FormaServe Systems.