Adding REXX to ISPF Panels

[richard rozentals]

I didn't see anyone post this in the past so I thought I'd let everyone know. 


As of z/OS 1.12 ISPF panels can now execute REXX execs. It does have limitations like no ISPF services, but is still really useful.
You can call in a REXX from a member or use in stream REXX.

This is the example out of the the ISPF Developer's Guide and Reference  


)PROC
/* Call REXX routine VALUSER to validate the user is allowed to use */
/* this application. */
*REXX(ZPANELID,ZUSER,(VALUSER))
/* If the user is not allowed, display a message and protect the */
/* input fields.

Richard Rozentals

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Thom Stone]

Yes, it works great in the )PROC section like so:

IF (.PFKEY = '') /* run rexx if no pf key pressed */
*REXX(*,GADR,S1)
If verify(GACNTRS,'123456T9_')='0' then
NOP
Else
Do
ZRXRC = 8
ZRXMSG = 'GAERR002'
RETURN
End
IF S1 = '*' THEN DO
IF POS('DSIPARM',GATARGET) > 0 THEN DO
ZRXRC = 8
ZRXMSG = 'GAERR010'
RETURN
END
IF GADR/=''THEN DO
ZRXRC = 8
ZRXMSG = 'GAERR012'
RETURN
END
Say 'Are you sure you want equalize ALL members? Answer Y or N:'
Pull answer .
upper answer
if answer/='Y' then do
ZRXRC = 8
ZRXMSG = 'GAERR011'
return
IF GAKILL = 'Y' THEN DO
Say 'Are you sure you want to KILL the target? Answer Y or N:'
Pull answer .
upper answer
if answer/='Y' then do
ZRXRC = 8
ZRXMSG = 'GAERR011'
return
end
END
IF GADR /= '' THEN DO
IF LENGTH(GADR) /= 5 Then do
ZRXRC = 8
ZRXMSG = 'GAERR013'
return
end
END
*ENDREXX

[Steve Comstock]

On 4/7/2012 5:56 PM, richard rozentals wrote:
> I didn't see anyone post this in the past so I thought I'd let everyone know.
>
>
> As of z/OS 1.12 ISPF panels can now execute REXX execs. It does have limitations like no ISPF services, but is still really useful.
> You can call in a REXX from a member or use in stream REXX.
>
> This is the example out of the the ISPF Developer's Guide and Reference
>
>
> )PROC
> /* Call REXX routine VALUSER to validate the user is allowed to use */
> /* this application. */
> *REXX(ZPANELID,ZUSER,(VALUSER))
> /* If the user is not allowed, display a message and protect the */
> /* input fields.
>
> Richard Rozentals

1. You did not set your Reply-to address to be the list - you should do this
otherwise replies go to you and not to the list

2. This has been available since z/OS 1.6 and was discussed then and, from
time to time, since, on the ISPF list and this list


--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment

* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html