I don't want to belabor the point. Well, OK, maybe a bit. The REXX-embedded panel I sampled from has no mention of ZSEL at all. The REXX stuff is in the )Init section. The panel itself is displayed by a REXX:
"DISPLAY PANEL(SHOPORD1)" As I said before, I would not necessarily recommend panel-embedded REXX, but it works. I last updated this app in 2005 and use it frequently to pull PTFs via RECEIVE ORDER. . . 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 Hobart Spitz Sent: Sunday, August 19, 2018 4:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Question ABout ISPF Panels Peter cover it well. A DISPLAYd panel cannot invoke a CLIST. A SELECTd panel can invoke any command, CLIST, REXX EXEC, or PGM, by setting &ZSEL. On Sun, 19 Aug 2018, 12:36 am Jesse 1 Robinson, <jesse1.robin...@sce.com> wrote: > 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
