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