setrc in ICETOOLs

[Rahul Prakash]

Hi Julian
If setting RC is an issue won't this help...??

Set the return code after step1 to 0 if you need the operation people to run the job.
Insert the lines before the start of 2ns step and at the end of 1st step.

IF RC=12
RC=0
End

(Check for the syntax .)
This might be a crude method but will help.. Or you could check with ICETOOL manual to come up with an elegant solution.
Thanks
Rahul
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Hi, Lister

I need your help at set return code in icetools
step. For example, at following JCL. The step1 RC is
12 which 12 is normal as output file is empty. at step
STEP101 we add header/tailor record for the empty
file.
My problem is as step 1 RC is 12. So the whole job
RC=12. But 12 is not acceptable for operation staffs.
My question is how to set RC in step1 or job's RC.
Your help is greatly appreciated.

Regards,
Julian
<snip/>

</snip>

__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com





----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Gerry Anstey]

Hi Julian,

The only way to ensure a particular RC at the end of a step is to call
ICETOOL from a stub similar to this, it's only off the top of my head so
apologies for syntax etc but you get my drift:


(Equates for Reg's needed etc)

B STRT
EPICETL DS F
ICELIT DS CL8
STRT EQU *
MVC ICELIT,=CL8'ICETOOL' SET UP LITERAL
LOAD EPLOC=ICELIT LOAD ICETOOL
ST R0,EPICETL SAVE ADDRESS OF ICETOOL
L R15,EPICETL POINT AT EP for ICETOOL
BALR R14,R15 EXECUTE ICETOOL
SR R15,R15 Set R15 to 0
BR R14 Goodnight

Assemble as ICERUN for example, (may need APF auth), then run by changing
ICETOOL to ICERUN in your JCL.

Gerry








julian zhu
<***@YA To: IBM-***@BAMA.UA.EDU
HOO.COM> cc:
Sent by: IBM Subject: setrc in ICETOOLs
Mainframe
Discussion
List
<IBM-***@BAMA
.UA.EDU>


09/07/03 06:55
Please respond
to IBM
Mainframe
Discussion
List






Hi, Lister

I need your help at set return code in icetools
step. For example, at following JCL. The step1 RC is
12 which 12 is normal as output file is empty. at step
STEP101 we add header/tailor record for the empty
file.
My problem is as step 1 RC is 12. So the whole job
RC=12. But 12 is not acceptable for operation staffs.
My question is how to set RC in step1 or job's RC.
Your help is greatly appreciated.

Regards,
Julian
//ICEJOB1 JOB ,MSGCLASS=D,CLASS=A,NOTIFY=&SYSUID
//DEL001 EXEC PGM=IEFBR14,COND=(4,LE)
//DELFILE DD DSN=FILE2,UNIT=3390,
// SPACE=(TRK,(5,5)),DISP=(MOD,DELETE,DELETE)
//STEP1 EXEC PGM=ICETOOL,REGION=1024K
//TOOLMSG DD SYSOUT=X
//DFSMSG DD SYSOUT=X
//TOOLIN DD *
SORT FROM(EMBOSS) TO(B001) USING(SPLT)
COUNT FROM(B001) EMPTY
/*
//EMBOSS DD DSN=GDG(0),DISP=SHR
//B001 DD DSN=FILE2,
// DISP=(NEW,CATLG,CATLG),
// UNIT=3390,SPACE=(TRK,(5,5),RLSE),
// DCB=(LRECL=400,RECFM=FB,BLKSIZE=2000)
//SPLTCNTL DD *
SORT FIELDS=(1,3,A),FORMAT=CH
INCLUDE COND=(1,3,EQ,C'001'),FORMAT=CH
/*
//OPEZERO IF (STEP1.RC = 12 ) THEN
//STEP101 EXEC PGM=ICETOOL,REGION=1024K
//TOOLMSG DD SYSOUT=X
//DFSMSG DD SYSOUT=X
//TOOLIN DD *
COPY FROM(BEMPTY) TO(B00101)
/*
//BEMPTY DD DSN=DADP029.ISS.BEMPTY,DISP=SHR
//B00101 DD DSN=DADP029.ISS.CDTA013.B011,DISP=OLD
//ZEROEND ENDIF


__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Frank Yaeger]

Post by Gerry Anstey
The only way to ensure a particular RC at the end of a step is to call

ICETOOL from a stub ...

Julian,

You could actually do this since DFSORT's ICETOOL has a program interface
that allows you
to call ICETOOL from a ;program for multiple operators. You can find an
example of calling
DFSORT's ICETOOL from a program at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICECA109/6.16.2.2?SHELF=&DT=20020722140254

The complete description of ICETOOL's program interface starts at:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICECA109/6.16?DT=20020722140254

Frank Yaeger - DFSORT Team (IBM)
Specialties: ICETOOL, OUTFIL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

[Frank Yaeger]

... I can't simple setrc to 0 as I am not sure the empty file is the only
cause for rc 12. Perhaps there are other reason can led to 12 as well,
I am not sure. Frank, Could you confirm this for us.

Julian,

Looking at the DFSORT/ICETOOL job you're using, I wouldn't expect ICETOOL
to set RC=12 for
any reason other than the empty file. ICETOOL can set RC=12 for other
types of errors such as
syntax error or missing ddnames, but your ICETOOL job doesn't have any of
these problems.

Frank Yaeger - DFSORT Team (IBM)
Specialties: ICETOOL, OUTFIL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html