Error Handling in REXX

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

I want to incorporate the below conditions in my REXX program -

1) I am preparing the skeleton jcl using some files as below -

"ISPEXEC LIBDEF ISPSLIB DATASET ID('ITA.REXX.TEMP.F')"
"ISPEXEC LIBDEF ISPFILE DATASET ID('TEST.TEMPNEW')"

"ALLOC DA('TEST.TEMPGHI') F(INPUT) SHR REUSE"
"EXECIO * DISKR INPUT (STEM LINES. FINIS)"

I want to check whether file 'TEST.TEMPGHI' is present or not .Also if present ,want to check whether it is blank before procedding further.

2) Also when reading in the below loop -

DO I = 1 TO LINES.0
PARSE VAR LINES.I VAR1 VAR2

I want to check whether VAR2 is blank or not

In both above cases,what is the appropriate error handling method.

Thanks!

superk · Posted: Wed Mar 02, 2011 6:50 pm

This is REALLY basic stuff ... anyway ...

dbzTHEdinosauer · Posted: Wed Mar 02, 2011 7:11 pm

SYSDSN will also work for checking on the existance of a file.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Thanks for the reply.

If i am submitting a REXX program using JCL ,if by using LISTDSI I get the return code as 16 i.e. file is not available.It should give some JCL error with some return code.

How to process that ?

Thanks!

expat · Posted: Thu Mar 03, 2011 6:15 pm

JCL ERROR and a non zero return code are two completely different animals.

Which do you require ?

Terminology is oh so important in the IT world. Please take the time to learn it.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

If my LISTDSI retun code is non-zero in the REXX program,i want the JCL to fail with some return code.

Thanks!

expat · Posted: Thu Mar 03, 2011 6:21 pm

Please read my previous comment again, and again, and again until you understand it thoroughly. Let's face it, if YOU don't know what you are on about, how are we supposed to

If the JCL fails, then a JCL ERROR will occur, if a non zero return code is issued then the JCL will be deemed to have be successful.

May I suggest that you read the REXX / TSO manuals for the EXIT statement.

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Apologies!

Failing of JCL with return code means the JCL error.So that means If

LISTDSI issues return code as 16,JCL should fail with some JCL error.

Thnaks!

daveporcelan · Posted: Thu Mar 03, 2011 6:29 pm

If you put a DD for dataset ITA.REXX.TEMP.F in your JCL then you will get a JCL error and the step will never get executed.

You would not need the listdsi in your rexx program.

Just an alternative.

Ignore me if you will.

daveporcelan · Posted: Thu Mar 03, 2011 7:07 pm

I said:

expat · Posted: Thu Mar 03, 2011 7:24 pm

Dave,

I believe that the OP wants to issue a non zero RC if the dataset specified does not exist. Based on the RC issued by this step the OP can determine what actions to take in the remainder of the job.

Unfortunately to me, this is just another case of the OP NOT understanding the correct terminology.

From my view, the OP understands that a non zero RC is a JCL ERROR or failure, which we both know is not the case.

I did try to educate the OP ................ but until the OP understands and uses the correct terminology then both the OP and responders are probably wasting their time

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Thanks for the reply.

I have many a things to check for 'TEST.TEMPGHI' dataset as below -

1) Existence of the file.As the file is coming from different system as an input to REXX program and so not specified in the jcl.

Expected Result - if the above file is not present,JCL should fail with JCL error

2) I have to check if that file is blank or not.

Expected Result - JCL should fail with JCL error and write something in the spool

3) Need to check whether the account number is valid or not.If invalid JCL should fail with JCL error.

Thanks!

dick scherrer · Posted: Mon Mar 07, 2011 10:47 am

Hello,

How did you get so hung up on "jcl error". . .

It makes no sense to try to force a jcl error when some incorrect condition is encouneterd. . .

1 - when the file does not exist, write a message to the spool and terminate with some return code or force an abend.
2 - when the file does is empty, write a message to the spool and terminate with some return code or force an abend (possibly the same as for 1).
3 - when the file contains an invalid account number, write a message to the spool and terminate with some return code or force an abend (probably not the same as 1 or 2).

kishpra · New User Joined: 24 May 2010 Posts: 92 Location: Pune

Thanks Dick,

I need the same thing as you suggested.In all the cases,I am writing error message to the spool.But I don't know,how to terminate with some return code in REXX.

Appreciate your help!

enrico-sorichetti · Posted: Mon Mar 07, 2011 11:46 am

what about reading the manual about the RETURN and EXIT statements
and IKJEFT01 IKJEFT1B difference
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/Shelves/IKJ4BK90

expat · Posted: Mon Mar 07, 2011 4:31 pm

dick scherrer · Posted: Mon Mar 07, 2011 8:08 pm

Hello,

In addition to reading the manual, you might also search in this Clict & REXX part of the forum. I believe there are previous topics that will help.