I have an app that imbeds REXX code in a panel. The REXX code happens to be in
the )Init section, but I think it could be )Proc. It has a marked beginning and
end:
*REXX(*,shopcsij,shoptgtj,zedsmsg,zedlmsg)
TRACE N
IF LEFT(shopcsij,1) = "4" THEN DO
shopcsij = shopcsi1
shoptgtj = shopc1tg
RETURN
END
...
RETURN
*ENDREXX
I wrote this partly to see if I could. It works, but I don't think I'd do it
again.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of CM Poncelet
Sent: Saturday, August 18, 2018 8:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Question ABout ISPF Panels
The Clist or program should be invoked from the )PROC section in the panel, as
the value of &ZSEL. E.g.
)BODY WIDTH(&ZSCREENW) EXPAND(//)
%-----------------------/-/-
!OPTION %===>¯ZCMD )PROC
&ZSEL = TRANS( &ZCMD
B,'CMD(%ZBROWSE &ZTRAIL)' /* Clist */
T,'PGM(ISRPTC)' /* Program */
U,'PANEL(ISRUTIL)' /* Panel */
*,'' )
)END
Your 'PAULD01.SPEX.CLIST' should be in your SYSPROC concatenation, unless you
want to invoke a SYSPROC Clist that issues its own EX
'PAULD01.SPEX.CLIST(XGETSYS)'.
To invoke XGETSYS from a panel, code:
)PROC
IF (&T01 = ABX3 )
&ZSEL = 'CMD(%XGETSYS)'
else see the above "&ZSEL = TRANS( &ZCMD <etc.>" to include multiple panel
options.
Chris Poncelet
On 18/08/2018 14:18, esst...@juno.com wrote:
> Hi,.I am trying to find examples of invoking a CLIST and a Program
> from the )PROC Section of a ISPF PANEL .
> I consistently get a syntax error.
> .
> For example:
> )PROC
> IF (&T01 = ABX3 )
> EX 'PAULD01.SPEX.CLIST(XGETSYS)'
> .
> My first question would be, is it legitimate to invoke either a CLIST
> or Assembler Program from the )PROC section of a PANEL ?
> .
> And secondly could some one post an example of each ?
> .
> .
> Paul
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
