Check if file is empty and pass returncode=20

snehasai · New User Joined: 14 Nov 2008 Posts: 23 Location: bangalore

Hi,
can anyone help me out in writing JCL for checking the input file is empty or not.

If file is empty then returncode should be 20 so that my next processing steps should be stopped and Rc=20 is making my job abend.

I have tried using RC=04 for following jcl which worked if input file is empty but i need RC=20 instead of RC=4

//STEP001 EXEC PGM=SORT,PARM='NULLOUT=RC4'
//SORTIN DD DSN=inputfile,
//* DISP=SHR
//SORTOUT DD DUMMY
//SYSIN DD *
SORT FIELDS=COPY
//*
//SYSOUT DD SYSOUT=*

expat · Posted: Mon Apr 27, 2009 2:23 pm

Oh well, I think you may find that either SORT or IDCAMS will only set a RC up to a value of 16

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 87 Location: Bangalore

Try using SELCOPY ..!

expat · Posted: Mon Apr 27, 2009 2:50 pm

Gousiya Mulla · New User Joined: 02 Jun 2008 Posts: 87 Location: Bangalore

snehasai · New User Joined: 14 Nov 2008 Posts: 23 Location: bangalore

I have no option other than using SORT.

Or another option may be 1st step wud be checking the file empty or not
step1:IF empty RC=4 else RC=0 it will provide
step2: The next processing steps should have Rc=20 if 1st step RC=4 so that it hits abend in our system

How to to this what is the condition to be specified for further steps so depending on File to process the follwing steps or not.

enrico-sorichetti · Posted: Mon Apr 27, 2009 3:00 pm

Just curious - waiting for my coffee to cool down a bit
there is some psychics behind testing for 20 and not wanting to test for 4
- sigmund might go crazy with some people way of thinking

neelesht · Posted: Tue Apr 28, 2009 3:59 am

Enrico,

If I am not wrong, Sowjanya wants to assign RC=20 and not RC=04 because in one of the later steps she wants to abend the JCL if file was empty and she can not abend it with RC=04 since any step can have RC=04 but none can have RC=20.

Hope I am not confusing.

Thanks
Neelesh

dbzTHEdinosauer · Posted: Tue Apr 28, 2009 4:27 am

Neelesh,

how can she 'ABEND' the JCL?

in the later step she can very simply COND on the step
(the one she wants a RC-20)
for 04 and not execute the step. Or use an IF/THEN/ELSE.

dneufarth · Posted: Tue Apr 28, 2009 4:45 am

Perhaps an in house pgm that invokes abend macro.

dick scherrer · Posted: Tue Apr 28, 2009 5:48 am

Hello,

If the utilities that can set an rc for an "empty" file cannot be used as written/documented, one can always write their "own code" to generate any valid rc. . .

If it rather nonsense to not use a particular rc because it is "not the one we want" - especially when that particular step issuing an "04" is different from any other step and might be tested individually.

I expect Neelesh has understood exactly why the request is made and all it shows is there is a certain amount of laziness (or lack of understanding about how jcl can use the rc) about. . .

Suggest the rc be used as implemented or a bit of code be written to do exactly what is wanted. . .

CICS Guy · Posted: Tue Apr 28, 2009 6:37 am

expat · Posted: Tue Apr 28, 2009 11:18 am

dbzTHEdinosauer · Posted: Tue Apr 28, 2009 2:15 pm

aishwarya_20 · New User Joined: 19 Nov 2008 Posts: 57 Location: pune

This topic has already been discussed. Please check below link.

ibmmainframes.com/viewtopic.php?t=11350

You can use IDCAMS

enrico-sorichetti · Posted: Tue Apr 28, 2009 2:30 pm

let' s stop all this please!

1) how to find if a dataset is empty has been discussed too many times
and belongs to
www.ibmmainframes.com/viewtopic.php?t=20820

2) how to set a return code to 20...
no utility will let You do it,