IBM Mainframe Discussion List On Behalf Of
Peter Vels
Sent: Saturday, January 11, 2020 7:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Detecting F3 (End) in Panel Rexx
Hi Lionel,
Try this.
)init
)proc if (.resp = end) &response = END
else
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
Wouldn't it be in ZVERB?
On Sat, 11 Jan 2020 13:44:41 -0600 Lionel B Dyck 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 ???
--
Binyamin Dissen
http://www.dissensoftware.com
Director, Dissen Software, Bar
