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 <lbd...@gmail.com> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
