MVSFORUMS.com

Manas Biswal

Hi,

I am writing and submitting a JCL through a REXX routine. I need to trap the return code of the JCL into my REXX routine and do further processing in the REXX routine accordingly. How can I trap the return code?. Please suggest me the trapping mechanism for both the cases - when I am using Queues as well as FT Skels to prepare and submit the job.

Regards,
Manas

tidda · Posted: Sat Dec 14, 2002 4:14 pm Post subject:

for some reason, i feel that i'm a bit fascinated with the capabilities of the 'outtrap' command Smile

... manas, is it possible to trap the job notification to a variable and process that ? you might have to parse that message properly to get the return code.

hmmm ... i was just wondering. Is it possible to make the rexx program 'sleep' for sometime ?

tidda

kolusu · Posted: Sat Dec 14, 2002 5:28 pm Post subject:

Tidda,

You can use STIMER which allows you to wait until a certain time or aletrnatively you can call "ILBOWAT0" COBOL pgm from rexx and it will delay the execuetion.

ex:

Manas Biswal · Posted: Mon Dec 16, 2002 12:11 am Post subject:

Hi Tidda,
I don't think you can use the outtrap function to trap the return code of the job. OUTTRAP is used to trap TSO messages but the return code is generated by SDSF.
Whenever you submit a job, you get a message like -

DaveyC · Posted: Mon Dec 16, 2002 7:11 am Post subject:

Try this REXX to get the return code. It's a bit messy, I would normally use a ptr() function but I can't be bothered to convert it.

Manas Biswal · Posted: Mon Dec 16, 2002 11:47 pm Post subject:

Hi Daveyc,

Thanks for the code. I had also got this code from some search on google. But frankly I am not able to make head or tail out of it. I can simply copy the code and run it but I don't want to do it that way. Can you please provide me some details about the storage function and how it works.
What is d2x, c2x etc. Can you please spare some time to explain a little about it. I did a lot of search on google for STORAGE function but didn't find anything useful.

Regards,
Manas

DaveyC · Posted: Tue Dec 17, 2002 4:09 am Post subject:

What I will do is tell you that the REXX Reference manual contains detailed explanations of these functions and does a better job than I possibly can. But the conversion functions are simple D2X = Decimal to Hex, X2D = Hex to Decimal etc, etc.

STORAGE returns the value from a location in storage. It's the only way in REXX that you can chase control blocks and do similar things to assembler, C etc. As far as understanding what the REXX does, well you will have to read up on the MVS data areas manuals. Start with the CVT, TCB, ASCB etc and work out the control block chains.

It's system programming... Getting to know the control blocks takes experience and practice.
_________________
Dave Crayford

Manas Biswal · Posted: Tue Dec 17, 2002 4:30 am Post subject:

Hi Dave,

Thanks a lot for your advice. As I understand, this code basically accesses some internal storage of MVS to get the return code of the job. I just want to know where in the code, do you actually specify the jobname(or anything to uniquely identify a job) for which you want the return code. Of course, learning all this will take time and I am preapared for the long haul but if you can point out where I can specify the job name in the code, then at least I can start working.

It will be great Dave if you can suggest me some links to start with MVS data areas manuals.
Thanks again for your time and patience.

Regards,
Manas

DaveyC · Posted: Tue Dec 17, 2002 6:49 am Post subject:

In that code you cannot specify a jobname. It gets the jobname after chaining down from the TCB. The TCB is the TASK CONTROL BLOCK and is specific to the task that is currently running. To get return codes from other jobs is non-trivial.

Data Areas manuals
_________________
Dave Crayford

Manas Biswal · Posted: Tue Dec 17, 2002 7:48 am Post subject:

Hi Dave,

After I have submitted a job from my REXX program, I have no control on when the job ends. How will I make sure that the task for that job is running when I use this code. Will this code give me the return code of the last job that I had run. Will it be specific to my userid.

Thanks for the link again. Smile

Regards,
Manas

DaveyC · Posted: Tue Dec 17, 2002 7:59 am Post subject:

The TCB that is running is the batch job, so all the steps will be from that batch job. A batch job has a TCB. To create a new TCB you use the ATTACH macro to run a program as a new task. You may choose to multi-task but that's out of our scope at the moment.

Here is a very simple program that mimicks the userid() REXX function. See if you can work it out.

Manas Biswal · Posted: Tue Dec 17, 2002 11:37 pm Post subject:

Thanks Dave for your time. I suppose I will have to go through the manuals before attempting anything. That will be the best thing to do.

Regards,
Manas

dorkhead · Posted: Tue Jan 07, 2003 11:44 am Post subject:

Manas,

but the return code is generated by SDSF.

I think the PGM generates the Return Code and not SDSF as u implie
_________________
Dorkhead