Re: How to track the key stroke of a screen displayed by executing a CLcommand inside a RPGLE program

There is a uttility RTVEXITKEY at RPGIV.com download

Best regards,

Vengoal

Holden Tommy 提到:

You can't. The key press is a call level below your program.

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Satheeshkumar_selvaraj
Sent: Tuesday, October 25, 2005 11:39 AM
To: RPG programming on the AS400 / iSeries
Subject: How to track the key stroke of a screen displayed by executing
a CLcommand inside a RPGLE program

Hi All,



I am using STRSEU (with option '5') command inside my RPGLE code.

It is displaying the source properly.

Now there are 3 ways to exit the source,

1.      By pressing Enter
2.      By pressing F12
3.      By pressing F3

After executing this command in the program, I want to track which key
is pressed in the SEU (display) screen.



I am giving here the part of my code.

Monitor ; Cmd = 'STRSEU SRCFILE(' +

      %Trim(Wk_Library) + '/' + %Trim(Wk_SrcPF) + ') ' +

'SRCMBR(' + %Trim(Wk_Member) + ') ' + 'OPTION(5)' ; CmdLen = %Len(%Trim(Cmd)) ; QCmdExc(Cmd : CmdLen) ; On-Error ; // Do nothing EndMon ;

How Can I track the key stroke in my code after executing this command?



Thanks in Advance,

-Satheesh



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.