IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Appending multiple texts to send message via REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rajatbagga

Active User


Joined: 11 Mar 2007
Posts: 199
Location: india

PostPosted: Fri Dec 12, 2014 5:01 am
Reply with quote

Hello Everyone,

I am trying to append multiple messages and then send it to the user via REXX.

Below is what i am trying to achieve :-
Code:

 /** REXX  ***/                                                 
 MSG1 = 'THIS IS MESSAGE 1 '                                     
 MSG2 = 'THIS IS MESSAGE 2 '                                     
 MSG3 = 'THIS IS MESSAGE 3 '                                     
 MSG4 = 'THIS IS MESSAGE 4 '                                     
 MSG0 = TRANSLATE(MSG1 || MSG2 || MSG3 || MSG4)                 
 ADDRESS TSO 'SEND '|| "'MSG0'" ||' USER('||USERID()||') LOGON' 


the output should be the combination of messages stored in the variable MSG0 to user (in this case it will be me).

But presently i am not able to substitute the data inside MSG0 to put that into strings and send it to the user.

Thanks,
Rajat
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Fri Dec 12, 2014 12:55 pm
Reply with quote

Your quotes are not proper. Check the MSG0 quotes again.
Code:
ADDRESS TSO 'SEND '|| "'"MSG0"'" ||' USER('||USERID()||') LOGON'
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1353
Location: Israel

PostPosted: Fri Dec 12, 2014 2:37 pm
Reply with quote

Personally, I prefer using double quotes for TSO and other external commands. Many of them can include single quotes:
Code:
Address TSO "SEND '"Msg0"' USER("UserID()") LOGON"

And don't forget:
TSO/E User Guide wrote:
The message cannot exceed 115 characters, including blanks.

You can do too (it looks nicer on the receiver side):
Code:
Address TSO "SEND '"Left(Msg1,72)"' USER("UserID()") LOGON"
Address TSO "SEND '"Left(Msg2,72)"' USER("UserID()") LOGON"
Address TSO "SEND '"Left(Msg3,72)"' USER("UserID()") LOGON"
Address TSO "SEND '"Left(Msg4,72)"' USER("UserID()") LOGON"

In fact, you can also do (note: no trailing space in MSGs):
Code:
 /** REXX  ***/                                                 
 MSG1 = 'THIS IS MESSAGE 1'                                     
 MSG2 = 'THIS IS MESSAGE 2'                                     
 MSG3 = 'THIS IS MESSAGE 3'                                     
 MSG4 = 'THIS IS MESSAGE 4'                                     
 MSG0 = TRANSLATE(MSG1 MSG2 MSG3 MSG4)
(and TRANSLATE can be omitted if you have only uppercase text)
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Dec 12, 2014 3:18 pm
Reply with quote

If you had used HILITE in edit you would immediately have seen what was wrong.
Back to top
View user's profile Send private message
rajatbagga

Active User


Joined: 11 Mar 2007
Posts: 199
Location: india

PostPosted: Tue Dec 16, 2014 5:51 am
Reply with quote

Thanks a lot Marso, very informative and helpful

Regards,
Rajat
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Compile Several JCL JOB Through one r... CLIST & REXX 4
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top