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, <[email protected]> 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 > [email protected] > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of CM Poncelet > Sent: Saturday, August 18, 2018 8:18 PM > To: [email protected] > 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, [email protected] 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 [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
