IBM MAINFRAME HELP & SUPPORT FORUMS

vvmanyam · Joined: 16 Apr 2008 Posts: 37 Location: Bangalore

Hi friends,
I have an input file.
If it is empty I want the return code of sort step to be any no.
This can be achieved by
using COUNT fuction in icetool
But using Count I am able to set only 0,4,8 or 12
But for other return codes such as 3,5,6 etc i am not able to get with count.
How can this be achieved using Sort?
Please help me..

Thanks,
Balu

expat · Posted: Wed Aug 06, 2008 7:56 pm Post subject:

Take a look at this

Frank Yaeger · Joined: 15 Feb 2005 Posts: 4613 Location: San Jose, CA

Quote: But using Count I am able to set only 0,4,8 or 12
But for other return codes such as 3,5,6 etc i am not able to get with count. How can this be achieved using Sort?

Actually, with COUNT you can only get return codes of 0, 4 or 12 (not 8).
DFSORT does not return any other return codes with COUNT.
You'll need to find another way to do it.

expat,

The link you gave did NOT answer the question of how to get other return codes.

vvmanyam · Joined: 16 Apr 2008 Posts: 37 Location: Bangalore

Thanks for your information
Is there any other way in DFSORT itself to get any other return codes
My actual requrement is
I have a sample dataset with only one line init

Code:
Return Code: 02

Now return code of the step should be '02' i.e the 2 digit no in 14th column.
Depending on this return code I have 10 other steps to run, one step for each return code
if RC is 2 step 100
if RC is 3 step 200
if RC is 4 step 300
like this....
Hope I am clear
Can this be achived in a JCL

Thanks,
Balu

Frank Yaeger · Joined: 15 Feb 2005 Posts: 4613 Location: San Jose, CA

Quote: Is there any other way in DFSORT itself to get any other return codes

No.

Quote: Can this be achived in a JCL

I don't know. Perhaps somebody else can help you with a non-DFSORT solution.

superk · Joined: 26 Apr 2004 Posts: 3304 Location: Charlotte,NC USA

Seems to me like a simple DFSORT/IDCAMS solution would work:

Code:
//STEP1 EXEC PGM=ICEMAN
//SORTIN DD *
Return Code: 02
/*
//SORTOUT DD DSN=&&T1,DISP=(,PASS),UNIT=VIO
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC FIELDS=(1:C' SET MAXCC=',14,2)
/*
//*
//STEP2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&T1,DISP=(OLD,DELETE)

vvmanyam · Joined: 16 Apr 2008 Posts: 37 Location: Bangalore

Thanks a lot for the solution

Regrads,
Balu