Re: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec
- From: vlee@xxxxxxxxx (Vinson Lee)
- Date: 18 May 2009 10:37:33 -0700
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:IBM-MAIN@xxxxxxxxxxx] On Behalf
Of Dave Salt
Sent: Friday, May 15, 2009 8:01 PM
To: IBM-MAIN@xxxxxxxxxxx
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: vlee@xxxxxxxxx
Subject: Trying to issue an Error Message during ISPF Panel
Initialization in REXX Exec
To: IBM-MAIN@xxxxxxxxxxx
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 listserv@xxxxxxxxxxx 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
listserv@xxxxxxxxxxx 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 listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.
- References:
- Prev by Date: Re: BLOCK CONTAINS
- Next by Date: HTTP servers on z/OS
- Previous by thread: Re: Trying to issue an Error Message during ISPF Panel Initialization in REXX Exec
- Next by thread: How to find out if the network trafic is going through hipersocket and not osa?
- Index(es):
Relevant Pages
|
