IBM Mainframe Forum

Hi All,

am facing issue with combining two records by using sort card. Please find below the details
Issue: WER213A ILLEGAL SUM DATA FIELD

//SORTIN DD *
00001STMT07
00001000013
00002STMT08
00002000098
00003STMT35
00003000003
//SORTOUT DD *
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=D
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(101:SEQNUM,1,ZD,RESTART=(1,5))),
IFTHEN=(WHEN=(101,1,ZD,EQ,1),BUILD=(1,5,6,6,6Z)),
IFTHEN=(WHEN=(101,1,ZD,EQ,2),BUILD=(1,5,6Z,12,6))
SORT FIELDS=(1,5,CH,A),EQUALS
SUM FIELDS=(6,6,12,6),FORMAT=BI

Expected Output:

00001STMT07000013
00002STMT08000098
00003STMT35000003

Error Message:

WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED
WER213A ILLEGAL SUM DATA FIELD
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 80

Can anyone please let me know what is the issue. Thank You

Did you look up the message WER213A ILLEGAL SUM DATA FIELD? If you do, it'll tell you that your field has to be 2, 4 or 8 bytes long when SUMming, I suspect.

These users thanked the author BillyBoyo for the post:

rtammire (Wed Nov 28, 2012 7:42 pm)

I've looked at your control cards now: you don't need FORMAT=BI, you need FORMAT=ZD, and you need to put zeros instead of the binary-zeros when you are doing the shuffling about.

It is an interesting way to combine two records, shows a bit of initiative, however, if you have WHEN=GROUP available, you'll find a neater solution which does not require sorting the file (for the SUM to operate). It will require an OUTFIL with OMIT/INCLUDE to get your complete records and discard the incomplete ones.

HI Billy,

Thanks for the help.. As per your response i understood that it will be easy to combine two records with WHEN=GROUP but am not much comfort with this keyword..

Can you please provide a sample sort card which is having WHEN=GROUP keyword so that i can modify it as per my requirement. It could be better if you provide sort card for my requirement.. Thank You

Have a try with this, then look it all up and explain how it works.

Hi Billy..

Thanks for sample sort card...

I have modified as per requirement and its working fine..

Thank you once again

Make sure you understand it, there is not much point in just having it.

Why the post in the other forum, you didn't trust answers here?