MVSFORUMS.com

WallaceC · Beginner Joined: 17 Dec 2002 Posts: 22 Topics: 10

I would like to use SORT to validate header (record with 1HDR) and trailer (record with 9TRL) existence on a file. If both header and trailer are on file, step gives return code of 0; otherwise, step gives return code of 16 . Is it possible to do all in one step?

Sample File Layout

kolusu · Posted: Fri Apr 18, 2008 10:10 am Post subject:

Wallace,

The following DFSORT JCL will give you the desired results. A brief explanation of the job. We use an include statement to just include the header and trailer record. Using an Inrec statement we pad +1 in packed decimal format in byte 6 initially. If the record is a trailer record we flip that value to be -1. Now when sum these 2 records the total would be zero , which essentially proves that both header and trailer are present. if the file is empty or it has 2 headers or 2 trailers, the return code will be 16.

WallaceC · Beginner Joined: 17 Dec 2002 Posts: 22 Topics: 10

Thank you, Kolusu. I tested your suggestion and it worked!

Wallace

shash_modi · Posted: Thu Jun 19, 2008 3:07 am Post subject:

Kolusu,

What if I want a return code as 04 and not 16?

Nic Clouston · Posted: Thu Jun 19, 2008 4:25 am Post subject:

Read the manual for NULLOFL
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

shash_modi · Posted: Thu Jun 19, 2008 4:47 am Post subject:

Nic,

I read that but not got anything from it.

Nic Clouston · Posted: Thu Jun 19, 2008 4:59 am Post subject:

shash_modi · Posted: Thu Jun 19, 2008 5:16 am Post subject:

Nic,

Still I didn't got the answer. Can you please give me the link in which I can find so?

Nic Clouston · Posted: Thu Jun 19, 2008 5:22 am Post subject:

You use NULLOFL to set the RC to 0,4 or 16 when the OUTFIL is empty. Kolusu used NULLOFL=RC16 to set a return code of 16. Your question was how to set it to 4. Can you work it out from that? If you want DFSORT to set a RC=4 no matter what - not just an empty OUTFIL dataset then read the manual. You won't find anything because it is not a facility provided by DFSORT. BTW DFSORTs return codes are listed in the manual and you can see which ones may have been set by NULLOFL.

Now don't ask me why you cannot set any old RC eg 8 or 1 or 2 etc. Ask Frank/Kolusu. Probably reserved for future use.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.

shash_modi · Posted: Thu Jun 19, 2008 5:27 am Post subject:

Nic,

Thanks for providing the same.