MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ISRZ001 not displaying message

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Mon Jul 11, 2011 5:00 am    Post subject: ISRZ001 not displaying message Reply with quote

I have the following code in a Rexx macro
Code:

/***********************************************************************
 A defined amount for a variable is larger than we allow (at the       
 moment)                                                               
***********************************************************************/
variable_too_long:                                                     
arg line, field_length                                                 
                                                                       
parse var line field '(' .                                             
parse var field '[' .                                                   
field = strip(field)                                                   
zedsmsg = ""                                                           
zedlmsg = "Field "field" has a default definition with too many",       
          "characters - trim it by at least "field_length,             
          "character"                                                   
                                                                       
if field_length > 1 then                                               
  zedlmsg = zedlmsg!!"s"                                               
zedlmsg = zedlmsg!!"- (check also that your DIAL file member",         
          "has numbers off)"                                           
                                                                       
signal exit2                                                           
                                                                       
return 0                                                               


and
Code:

/**************************************************/
exit2:                                               
/*  trace ?a */                                     
Address Isredit "reset label"                       
Address Isredit "res"                               
address ispexec                                     
'SETMSG MSG(ISRZ001)'                               
exit 1                                               


What I don't understand is that if I run the code above, I get a nice "fat" message, but a colleague of mine doesn't see it at all. I know (?) there's a setting somewhere that enables/disables messages, but since I can't remember what it might be, I can't look it up to check if our values are different.

Can someone give an idea of what the profile (?) setting might be that is inhibiting his message being shown ? Thanx
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Mon Jul 11, 2011 2:24 pm    Post subject: Re: ISRZ001 not displaying message Reply with quote

misi01 wrote:

Can someone give an idea of what the profile (?) setting might be that is inhibiting his message being shown ? Thanx



http://www.mvsforums.com/helpboards/viewtopic.php?p=1527#1527

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
John_Deal
Beginner


Joined: 04 Sep 2003
Posts: 15
Topics: 1

PostPosted: Tue Jul 12, 2011 12:00 pm    Post subject: Reply with quote

Try instead:
Code:
ADDRESS ISPEXEC "SETMSG MSG(ISRZ002)"

8)
_________________
Life is a journey; enjoy the trip!
Back to top
View user's profile Send private message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jul 13, 2011 1:46 am    Post subject: Thanks for suggestions Reply with quote

Koluso - thanks for for the pointer, but I think we checked that before I posted and don't recall seeing any differences (let's face it, there aren't that options to compare)

John - to my knowledge, that shouldn't be needed. Having the "address ispexec" on its own line before simply says that any "unknown" Rexx commands should be sent to ISPEXEC after this. I can see the point if you're doing loads of ISREDIT calls with one ispexec call tucked in the moddle, but in this case, it was the last call I was going to make before exitting.

Be that as it may, needless to say, the next day I called my colleague again to check results and the code suddenly worked fine for him (logging off and on reverted settings to the standard ones ?)
Back to top
View user's profile Send private message Send e-mail
John_Deal
Beginner


Joined: 04 Sep 2003
Posts: 15
Topics: 1

PostPosted: Wed Jul 13, 2011 7:34 am    Post subject: Reply with quote

You obviously didn't notice the MAIN difference between your code and mine.... ISRZ002
Glad you got it working...
8)
_________________
Life is a journey; enjoy the trip!
Back to top
View user's profile Send private message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Thu Jul 14, 2011 1:23 am    Post subject: Reply with quote

You're quite right John - I didn't. Thanx for the reply anway.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group