That's exactly what I needed. Thank you very much for the helpful tips and quick response Dave!
Vince -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Dave Salt Sent: Friday, May 15, 2009 8:01 PM To: [email protected] Subject: Re: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec The panel is doing a VGET but the program didn't do a VPUT. Simply remove the VGET from the panel or add a VPUT to the program. Either one of those should fix it. However, I'd suggest that instead of doing either of those things it would be much better to simply issue the message directly from the program. For example, change the program to look like this: ZERRHM = 'ISR00000' ZERRSM = 'New dataset exists' ZERRLM = 'The new dataset name entered already exists.' ZERRALRM = 'YES' "SETMSG MSG(ISRZ002)" "DISPLAY PANEL(HLVERF)" This allows you to remove all the message logic from the panel and not worry about passing flags back and forth. As an alternative you could remove the SETMSG shown above and do it this way instead: msgnum = "ISRZ002" "DISPLAY PANEL(HLVERF) MSG("msgnum")" If you do it this second way then remember to set MSGNUM to null before you first display the panel, and reset it back to null after each display. HTH, Dave Salt SimpList(tm) - try it; you'll get it! http://www.mackinney.com/products/SIM/simplist.htm ---------------------------------------- > Date: Fri, 15 May 2009 18:36:21 -0700 > From: [email protected] > Subject: Trying to issue an Error Message during ISPF Panel > Initialization in REXX Exec > To: [email protected] > > I'm trying to issue an error message when displaying an ISPF panel in > a Rexx exec but the panel comes up without the error message. Here is > the Rexx > code: > > errfnd = 'Y' > "DISPLAY PANEL(HLVERF)" > > Here is the INIT section of the panel: > > )INIT > .ZVARS = '(REPL)' > &NEWDSN = &Z > &REPL = &Z > VGET errfnd > IF (&ERRFND EQ 'Y') > &ZERRHM = 'ISR00000' > &ZERRSM = 'New dataset exists' > &ZERRLM = 'The new dataset name entered already exists.' &ZERRALRM = > 'YES' .MSG = ISRZ002 > .RESP = ENTER > > > Any ideas on what I'm doing wrong? > > Thanks. > > Vince > > ---------------------------------------------------------------------- > 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 _________________________________________________________________ Create a cool, new character for your Windows Live(tm) Messenger. http://go.microsoft.com/?linkid=9656621 ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
