MVSFORUMS.com

yadav2005 · Intermediate Joined: 10 Jan 2005 Posts: 348 Topics: 144

Members,

I am getting a S0C7 in one of my program execution and unable to determine the cause and the values of A and B are getting populated in the flow of execution of the program.

CraigG · Posted: Fri Aug 24, 2007 6:55 am Post subject: Re: S0C7 error resulution

kolusu · Posted: Fri Aug 24, 2007 6:59 am Post subject:

yadav2005,

The S0c7 abend is caused by the MOVE statement.so any statements following the Move statement would not get exceuted. Now let us see as to the reason why the MOVE statement caused the error.

S0C7 is basically a data exception error. This usually occurs when dealing with fields defined as decimal or packed decimal.Now in your program you have defined var A as comp-3 and you neither had a value clause or initialize the field or move a valid value to the variable A.

VarA is defined as PIC S9(9)V99 COMP-3 which is stored in 6 bytes. Since it is signed decimal, the sign is stored in last nibble.

For ex: a value of +1 is stored as

yadav2005 · Intermediate Joined: 10 Jan 2005 Posts: 348 Topics: 144

Kolusu & CraigG,

Thanks for your wonderful answers and i am very clear with the concepts.If i simply initialize A or MOVE 0 TO A S0C7 does not come.Now let me tell the situation in my program that A value and B values are populated during the execution of the program and in my post i have shown the values which i am printing just before move and it can be seen that both A & B have 0.Now why the move should give S0C7 .

I agree your answers but in my case the values are populated in the execution of the program.Is there something i am missing to mention in my post / i am not clear in my question.

kolusu · Posted: Fri Aug 24, 2007 7:24 am Post subject:

yadav2005 · Intermediate Joined: 10 Jan 2005 Posts: 348 Topics: 144

Kolusu,

I am getting more clearer from your answers , but i tried to move A to a editing variable declared as

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 7:42 am Post subject:

I think that if you look at the display command (object code from compiler listing) for

non-packed fields (PIC X and PIC 9 DISPLAY) straight move to output stream
packed-decimal (COMP-3) - executes and unpack to an intermediate area which is moved to the output stream. The unpack command does not check for sign - thus no SOC7.
Binary and HEX are just converted (can't have a SOC7 on binary data)

In this case, it appears that the program was loaded to an area in memory that contained binary zeros. Though IBM does not guarantee binary zeros for un-initialized fields, it occurs more times than not.

You can't get a SOC7 on a DISPLAY. SOC4 yes.
_________________
Dick Brenholtz
American living in Varel, Germany

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 7:46 am Post subject:

If you had populated A with bad data prior to moving it to B, you would have received a SOC7 on the MOVE ? TO A. guarranteed!!!
_________________
Dick Brenholtz
American living in Varel, Germany

yadav2005 · Intermediate Joined: 10 Jan 2005 Posts: 348 Topics: 144

Kolusu,

kolusu · Posted: Fri Aug 24, 2007 7:56 am Post subject:

yadav2005 · Intermediate Joined: 10 Jan 2005 Posts: 348 Topics: 144

Kolusu,

If i want to display the value of A in Hexadecimal format , how can i do that in my program ?

kolusu · Posted: Fri Aug 24, 2007 8:30 am Post subject:

dbzTHEdinosauer · Posted: Fri Aug 24, 2007 8:38 am Post subject:

yadav2005,

you are overlaying A with something during the execution of another instruction that has nothing to do with A; only the Working-Storage near A. potential culprits, table manipulation, Reference Modification.

Spend your time finding your programming error. Guaranteed you are pounding sand if you are going to try to prove Kolusu wrong.

I'll give you a W-S Table and some code that will allow you to display any data area in HEX this weekend. There are two copybooks that you just include in any program.
_________________
Dick Brenholtz
American living in Varel, Germany

bruce2359 · Posted: Fri Aug 24, 2007 1:45 pm Post subject:

"S0C7 is basically a data exception error."

More specifically, S0c7 is a decimal arithmetic exception. Either the from- or to-fields does not contain a packed decimal number.

Defining a field S9(9)V99 COMP-3 does not populate (initialize) the field with a packed decimal value. Unless you initialize it with VALUE or move a packed decimal value to the field (or other technique), decimal arithmetic instructions will result in a s0c7
_________________
"Time is what keeps things from happening all at once" - anonymous fortune cookie