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>

----------------------------------------------------------------------
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

Reply via email to