RE: How to track the key stroke of a screen displayed by executing a CL command inside a RPGLE program

rpg400-l-request@xxxxxxxxxxxx wrote:

>   8. How to track the key stroke of a screen displayed by
>      executing a CL    command inside a RPGLE program (Satheeshkumar_selvaraj)
>
>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?

I don't know how QCMDEXC might affect it, but IBM functions commonly report 
this. By calling QUSRJOBI after the function and using format JOBI0600, the 
Exit and Cancel Keys can be checked by looking at those values at offsets 102 
and 103 of that format. F12 usually sets the Cancel Key and F3 sets the Exit 
Key value.

I'm not clear on how that might be of value here. I don't even know if STRSEU 
sets the status. I suspect it will since both keys are enabled and both 
otherwise _seem_ to do the same thing.

Tom Liotta