How to send msg to user using Rexx after successful of job

rakeshdsire4u · New User Joined: 26 May 2009 Posts: 11 Location: Bangalore

Hi,
How to send the msg to user after succesful or failure of the job status.

e.g I am trying to read one file and writing to another file and i want to send the user a msg that job went file or it abended using TSO send msg cmd.

expat · Posted: Wed May 27, 2009 4:07 pm

NOTIFY=userid on the jobcard

rakeshdsire4u · New User Joined: 26 May 2009 Posts: 11 Location: Bangalore

i am asking abt to send msg using rexx code

Below is the ex:-

=======================================
ADDRESS TSO "ALLOC DA("INT1")FI(INDD1)SHR REUSE"
"EXECIO * DISKR INDD1(FINIS STEM IN1."
"FREE FI(INDD1)"
"END"
ADDRESS TSO "ALLOC DA("INT2")FI(INDD1)SHR REUSE"
"EXECIO * DISKW OUTDD1(FINIS STEM IN1."
"FREE FI(OUTDD1)"
"END"
IF RC=0 THEN
TSO SEND 'FILE CREATED' USER(USERID)
ELSE
TSO SEND 'FILE ERROR' USER(USERID)
EXIT

=======================================

TSO send cmd is not working in rexx.

can u help me in this.

enrico-sorichetti · Posted: Thu May 28, 2009 2:01 pm

looks like You have discovered a bug

by the way, Your rexx should give You an error
for the write You allocate INDD1 but You use OUTDD1

it is a good practice also to specify the number of record to be written like

rakeshdsire4u · New User Joined: 26 May 2009 Posts: 11 Location: Bangalore

By mistake i have mentioned INDD1 instead of OUTDD1.
code is worikinf fine upto reading and writing to a file but giving error in msg cmd.
=============================================

+++ TSO SEND 'FILE CREATED' USER(USERID)

Error running REXX4, line 15: Routine not found

============================================

dbzTHEdinosauer · Posted: Thu May 28, 2009 2:36 pm

when you type in your code instead of cut & paste
and
you don't PREVIEW your post,
why do you think we would believe anything you say?

you don't even bother to debug you script..., use: trace ?R

now, what do you think 'ROUTINE NOT FOUND' means?

maybe, TSO SEND is not a command (routine)?????

You only preface commands with TSO in a FOREGROUND session at the command line.

In a REXX Script, you address the environment and then invoke the command.

ADDRESS TSO
SEND..................................

rakeshdsire4u · New User Joined: 26 May 2009 Posts: 11 Location: Bangalore

thanks for the reply,
since i am beginner in the rexx, i don't know the use of trace and second the difference between TSO cmd in foreground and in rexx script.

Code is working fine after initiliaze with ADDRESS

dbzTHEdinosauer · Posted: Thu May 28, 2009 2:48 pm

expat · Posted: Thu May 28, 2009 2:53 pm

The reason that I suggested using NOTIFY instead of the "wheel reinvention" method is that the NOTIFY option will also notify the recipient of a JCL error as well as the sucess or failure of a job.

Also, it is so much easier to change the NOTIFY parameter than to insert a whole new step into a job. Well, most places that I have worked this only needed s simple change notification rather than a full change notice, test plan, and results review. But maybe your change control is a lot more lax than most other.

Are you going to have a different REXX EXEC for each job to specify the jobname or just a generic message to be sent.

I suppose that you could have a PARM on the IKJEFT01 EXEC card with the jobname, or of course you could go chasing z/OS control blocks to get the information.

Sigh ........ All this when all it would take is merely a change to the NOTIFY parm on the jobcard.

dbzTHEdinosauer · Posted: Thu May 28, 2009 2:58 pm

Expat,

don't confuse people with facts!

he has developed a Tool, he wants to use it.

expat · Posted: Thu May 28, 2009 3:22 pm