Set Return Code using DFSORT

[raveendra_ibm]

Hi All,

I need to set a return code if the input dataset contains only header and trailer record, ie., record count = 2.
I have referred the manuals to find COUNT with EQUAL option, but it sets a return code of 4 or 12.
But I need to set a return code other than the standard return codes like 4,8,12,18 etc.
My requirement is to set the return code as 1234, is this possible through DFSORT ?

Please help !!!

Thanks,
Raveendra.

[Veera]

Raveendra,

Do you just want to set the RETURN-CODE if the record count = 2 ,

Assumption:
**********
you does not want to check if the 2 records are header and trailer.
Ok lets assume the file always contians header and trailer. So if
we have 2 records then it means only header and trailer.

And do you want to copy the records into outfile or do you just want to
set RETURN-CODE??

Thanks,
Veera.

[raveendra_ibm]

Hi Veera,

Thanks for your time..

[Veera]

Raveendra,

As u said in ur first post looks like RC Can be used to set RC=12,
RC=4 or RC=0. I am not sure if we can set user defined RC.

Well i will try to get back if there is any means to do it.

[Frank Yaeger]

[raveendra_ibm]

Thanks for your response Frank !!!

Could you suggest me any other way of achieving the same...

Regards,
Raveendra.

[Frank Yaeger]

Well, you could write an Assembler program to call ICETOOL, have ICETOOL pass back RC=12 or RC=0 for COUNT, and then have the Assembler program pass back RC=1234 instead of RC=12. Or you could just use a program (e.g. COBOL) to check for two records and pass back RC=1234.
_________________
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/

[Veera]

Raveendra,

Here is what i have done to acheive what you said,

STEP1 -> ICETOOL

COUNT FROM(INPFILE) EQUAL(2) RC4

STEP2 -> DUMMY COBOL PGM WHICH WILL EXECUTE ONLY
IF RC = 4.

NOTE : I HAVE SET 4 , YOU CAN SET 4/ 12/16 AND YOU NEED TO
BE CAREFUL AND ENSURE THAT YOU WILL NOT
GET THOSE RETURN CODES IN ANYOTHER EXCEPTION
CONIDTIONS. BEACUSE WE WANT THE NEXT STEP TO
BE EXECUTED ONLY UNDER THIS CONDITION.

I know this is not the best way but i dint find any other means too

[raveendra_ibm]

[Veera]

Raveendra,

Just a taught ....

If u r sure that file will never be empty , i.e file will atleast contain the hearder and trailer even if it doesnt contain any records then u can set the rc to empty file condition and then run the cobol dummy step..Well even if u code a complete cobol pgm and if the file contains records apart from the header and trailer then what r u planning to do ..have one more sort step to do the process or u can
handle the process in COBOL.


If we go with assumption that file will never be EMPTY , you can use the
above approach for sure.

Frank can give his taught on this ....

Frank in SORT when the file is empty rc will be 4 i guess ..is there a possibility that the rc could be 4 under any other conditions....please let us know.

Thanks,
Veera.

[Frank Yaeger]

[Veera]

Thanks Frank ,

Ok so with ICETOOL it can be handled with EMPTY file thru COUNT and by setting the RC appropriately we can achieve the solution of setting RC = 1234 or any userdefined value with combination of ICETOOL and a DUMMY COBOL PGM.

Rest is upto Raveendra how he goes about it.

Thanks,
Veera.