Perfect - thank you - just learned something new.

Lionel B. Dyck <sdg><
Website: http://www.lbdsoftware.com

"Worry more about your character than your reputation.  Character is what you 
are, reputation merely what others think you are." - John Wooden

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Peter Vels
Sent: Saturday, January 11, 2020 7:17 PM
To: [email protected]
Subject: Re: Detecting F3 (End) in Panel Rexx

Hi Lionel,

Try this.

)init
)proc                      if (.resp = end)           &response = END
     else                       &response = Not_END
 *REXX(response,zcmd,zverb)say 'Response:' response  say 'ZCMD    :' zcmd
   say 'ZVERB   :' zverb      *ENDREXX    *
)end

Regards,
Peter

On Sun, 12 Jan 2020 at 06:44, Lionel B Dyck <[email protected]> wrote:

> Is there a way to determine if F3 (END) was entered while in the )PROC 
> panel rexx routine.
>
>
>
> When I try zcmd is always null ???
>
>
>
> Thanks
>
>
>
> Lionel B. Dyck <sdg><
> Website:  <http://www.lbdsoftware.com/> http://www.lbdsoftware.com
>
> "Worry more about your character than your reputation.  Character is 
> what you are, reputation merely what others think you are." - John 
> Wooden
>
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to