Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec

[Vinson Lee]

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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html