S0C7 with no packed decimal involved !!!

raveendra_ibm · New User Joined: 07 Jan 2006 Posts: 31

Hi All,

I was testing this piece of code and am hit with a S0C7 ABEND.
I was trying to justify the same but failed to do so. My understanding is that S0C7 occurs ONLY when Packed Decimal values are involved.

expat · Posted: Tue Apr 03, 2007 4:57 pm

Not being a programmer, I'd hazard a guess that the field WS-VAR4 does not contain numeric data.

agkshirsagar · Posted: Tue Apr 03, 2007 5:13 pm

'Program attempting to do math on illegal data'. This is the reason why you got s0c7.

guptae · Posted: Tue Apr 03, 2007 6:15 pm

Hi There,

You have niether initialized WS-VAR4 nor move any numeric value to WS-VAR4 that why it's contain junk data & giving SOC7

William Thompson · Posted: Tue Apr 03, 2007 7:51 pm

Since you compare a numeric field against a numeric literial, the compiler generated a compare packed instruction for the test. That required a pack instruction for the data.
Possibly if you did "WS-VAR4 = '14'" instead, the compiler might generate a simpler character compare.....

raveendra_ibm · New User Joined: 07 Jan 2006 Posts: 31

Thanks "expat", Abhijit and Ekta for your replies....

And thank you William, you could identify the area of my concern.

Does the compiler generate a packed instruction for all the "compare" operations ? i.e, numeric field against numeric literal, numeric field against another numeric field..etc.

I tried replacing the numeric literal with a numeric field and again got a S0C7... On the other hand changing the numeric literal to a character ( '14' ), was successful ....

Could you please explain what are all the scenarios wherein the compiler generates a packed instruction for compare...

Thanks.
Raveendra.

William Thompson · Posted: Tue Apr 03, 2007 9:08 pm

raveendra_ibm · New User Joined: 07 Jan 2006 Posts: 31

Thanks a lot William !!!

It was indeed helpful .....

Regards,
Raveendra.