SOC7 using Address field

spadma · New User Joined: 18 Dec 2007 Posts: 9 Location: India

Hi All,

Can anyone suggest me how to resolve SOC7 USING Address not using the offset.

CICS Guy · Posted: Wed Apr 16, 2008 7:45 pm Post subject: Re: SOC7 using Address field

Anuj D. · Posted: Thu Apr 17, 2008 2:15 am Post subject:

Hi,

Check this link..there is some good explanation by socker_dad, might help.

http://www.ibmmainframes.com/viewtopic.php?t=10853&highlight=s0c7

CICS Guy · Posted: Thu Apr 17, 2008 2:27 am Post subject:

Thanks Anuj, that helped one possible explaination click.....

Swaraj,
Are you saying that you have the address of the S0C7 but not the displacement into the program where the abend occured?

Do you have the link/bind map?

Do you have a dump of the program storage at the time of the abend with the PSW and register contents?

vasanthkumarhb · Posted: Thu Apr 17, 2008 11:36 am Post subject:

Hi,

I can give you simple hints to rule out SOC7,

(i) Exped the variable contents which is involved in arthmetic operation.

(ii) check whether copy book variables are all intialized to their respective initial value.

(iii) check for the subprogram variables may contain junk values

(iv) work out for CEEDUMP obtained in SPOOL area

(vi) Get the details about PSW in CEEDUMP

spadma · New User Joined: 18 Dec 2007 Posts: 9 Location: India

Hi,

I have only Addrees with me not the offset in the program. let us suppose i am running an Eztrieve and my job got abended with SOC7, then the spool looks as below.

X-GRS1-IN-FI-SCORES-TBL 6 29 32 33 33 34
33 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
INTERRUPT OCCURRED AT 0224 BLOCK 1 FROM EP CA-EASYTRIEVE PLUS 6.4 0311-04/16/0
INSTRUCTION AT 00015234 IS F811169A269A
FIRST OPERAND ADDRESS 00030FF1 CONTENTS 4040
SECOND OPERAND ADDRESS 0003369C CONTENTS 0000
PSW+4 AT INTERRUPT 8001523A
REGISTERS AT INTERRUPT
R0 0003369C R1 00030957 R2 00033002 R3 00023010 R4 0000D000 R5 0000F
R8 00000000 R9 0000D3B8 R10 A3607626 R11 00015010 R12 8DEA7B12 R13 0000A

In this case how to reslove SOC7

CICS Guy · Posted: Thu Apr 17, 2008 6:09 pm Post subject:

vasanthkumarhb · Posted: Fri Apr 18, 2008 9:07 am Post subject:

Hi CICS GUY,

Please can you tell us, how to find out the bad data through PSW in CEEDUMP?

I guess PSW is known as Program Status Word

this will helps us surely.

spadma · New User Joined: 18 Dec 2007 Posts: 9 Location: India

Hi CICS GUY,

i understood a little bit what you were saying. You are saying that i am trying to move or add to a filed which has spaces or junk data right. But how can i find out which filed it is?

And also can you expalin in deatil about

"The F8 is a ZAP
ZERO AND ADD
The second operand is placed at the first-operand location. The operation is equivalent to an addition to zero. "

And one more doubt is where can i get the listings of this EZT? can i get it in SPOOL? can you please explain me in detail how to locate the field.

CICS Guy · Posted: Fri Apr 18, 2008 7:12 pm Post subject:

CICS Guy

manikawnth · New User Joined: 07 Feb 2007 Posts: 5 Location: Mumbai

F811169A269A
Look this as F8 11 169A 269A
F8 - ZAP instruction
1 - Length of first operand (length is 2 bytes)
1 - Length of second operand (length is 2 bytes)
169A - Base address is in R1 and displacement is 69A
269A - Base address is in R2 and displacement is 69A

First operand is at R1 + 69A = 30957 + 69A = 30FF1
Second operand is at R2 + 69A = 33002 + 69A = 3369C
value at second operand address is 0000 (2 bytes)
This is expected as a valid packed decimal data but not...It should be 000C
Problem with initialization of second operand.
To know the field, check the assembler listing of the program... I can't help that until u have that listing...

IQofaGerbil · Posted: Tue May 13, 2008 4:00 pm Post subject:

33 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)

If you can get a listing - the error likely lies in line 33