Charles Hardee of the IBM Mainframe Discussion List <[email protected]> wrote on 07/21/2008 09:33:57 AM:
> Hi John, > > Thanks for the thought. I've tried that and either I have something not > quite right, or it doesn't work any longer. This is what I have: > > ISPEXEC VGET (ZDEL) > SET CMD = &STR(SCRNAME ON&ZDEL.SCRNAME &MEMBERNM PERM) > ISPEXEC DISPLAY PANEL(FAKETSO) COMMAND(&CMD) > > Yes, I am using CLIST and not REXX, sorry :(. > > The panel, FAKETSO has 3 lines: > > )BODY > > )END > > The line between the )BODY and )END is blank. When I just had 2 lines, > no blank line in between, panel management complained that I needed at > least 1 line in the panel body. > > This is what I get when I execute the IMACRO: > > ********************************************************************* > * ISPS109 > * > * Unexpected list found > * A list of names was found where a list was not expected. > * > * > * > * > * > * > * Current dialog statement: > * ISPEXEC DISPLAY PANEL(FAKETSO) COMMAND(SCRNAME ON;SCRNAME XXX PERM) > * > * Enter HELP command for further information regarding this error. > * Press ENTER key to terminate the dialog. > > If I use : > > ISPEXEC SELECT PGM(IEFBR14) PARM(&CMD) > > Instead of the DISPLAY PANEL, I don't receive any errors, but the upper > left portion where I am expecting the result of the SCRNAME command are > not correct. Specifically, I get "EDIT" for SCRNAME, not the name of the > member being edited. > > Chuck > > <snip> > > Gilbert Saint-flour posted this on the TSO-REXX list a few years ago.. > > Address ISPEXEC > "VGET ZSYSNODE" > cmd = 'PANELID OFF;SCRNAME ON;SCRNAME 'zsysnode 'PERM' > "DISPLAY PANEL(ISPSTRTP) COMMAND(CMD)" > </snip> > Charles, Remove the ampersand from your COMMAND(&CMD) operand. Also, add an )INIT section to your fake panel with a .RESP=END statment following it. ISPEXEC VGET (ZDEL) SET CMD = &STR(SCRNAME ON&ZDEL.SCRNAME &MEMBERNM PERM) ISPEXEC DISPLAY PANEL(FAKETSO) COMMAND(CMD) )BODY blank line )INIT .RESP=END )PROC )END Regards, John K ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
