|
View previous topic :: View next topic
|
| Author |
Message |
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. |
|
| Back to top |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| spadma wrote: |
| Can anyone suggest me how to resolve SOC7 USING Address not using the offset. |
Firstly, that is S0C7....
Secondly, you are going to have to provide a little more information than just "USING Address not using the offset"....
Awaiting your answer...... |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
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? |
|
| Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007
Posts: 275
Location: Bang,iflex
|
|
|
|
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 |
|
| Back to top |
|
|
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 |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| Quote: |
INSTRUCTION AT 00015234 IS F811169A269A
SECOND OPERAND ADDRESS 0003369C CONTENTS 0000 |
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. The operand and result are in the packed format.
Only the second operand is checked for valid sign and digit codes.
The second operand is not a valid packed number.
Whatever you are doing, is a move of a two or three digit packed value to a packed area that is currently spaces.
Uninitialized storage?
Bad input data?
Look at the EZT listing, the "INTERRUPT OCCURRED AT 0224 BLOCK 1 FROM EP" might help to point to the move.
And again, displays can help isolate the bad move too. |
|
| Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007
Posts: 275
Location: Bang,iflex
|
|
|
|
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. |
|
| Back to top |
|
|
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. |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| vasanthkumarhb wrote: |
| Please can you tell us, how to find out the bad data through PSW in CEEDUMP? |
The PSW points to the operand that failed but more usually to the operand after the one that failed.
Figure out which one failed and look at the base/displacement indicated to check the data involved.
The Principles of Operation is your friend..... |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| spadma wrote: |
| 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? |
Actually the field you are moving is susposed to be a packed decimal field but only contains low values. It is a two or three digit field, two bytes in length.
| Quote: |
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. " |
The Principles of Operation is your friend.....
| Quote: |
| And one more doubt is where can i get the listings of this EZT? can i get it in SPOOL?. |
Compiled or interpreted, it is/was in the jes queue...
| Quote: |
| can you please explain me in detail how to locate the field |
Sorry, no.... |
|
| Back to top |
|
|
manikawnth
New User
Joined: 07 Feb 2007
Posts: 61
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... |
|
| Back to top |
|
|
IQofaGerbil
Active User
Joined: 05 May 2006
Posts: 183
Location: Scotland
|
|
|
|
33 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
If you can get a listing - the error likely lies in line 33 |
|
| Back to top |
|
|
Kamaleshwaran
New User
Joined: 10 Apr 2010
Posts: 7
Location: Hyderabad
|
|
|
|
I got a smilar abend as discussed above... Could u please help me in solving this..
PROGRAMS AND ALL SUPPORTING MATERIALS COPYRIGHT (C) 1982, 1996 BY COMPUTER ASSOC
871 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
INTERRUPT OCCURRED AT 08FE BLOCK 1 FROM EP CA-EASYTRIEVE PLUS 6.3 0201- 5/13/0
INSTRUCTION AT 0010D866 IS F952805C7DC8
FIRST OPERAND ADDRESS 00114B58 CONTENTS 404040404040
SECOND OPERAND ADDRESS 0010B3F0 CONTENTS 00000C
PSW+4 AT INTERRUPT 8010D86C
REGISTERS AT INTERRUPT
R0 00000001 R1 0010B91C R2 0010B51E R3 0010BF78 R4 00114C6A R5 00109
R8 00114AFC R9 0010AF78 R10 00108648 R11 0010CF68 R12 000B7CD0 R13 00040
I tried to undertsand from the above discussin, but am not getting...
The 871st line in the program is given below.
000871 MOVE SPACES TO XL-OUTCREDIT$$
Variable XL-OUTCREDIT$$ is of length 4 and alphanumeric..
Thanks in advance... |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
| Quote: |
FIRST OPERAND ADDRESS 00114B58 CONTENTS 404040404040
SECOND OPERAND ADDRESS 0010B3F0 CONTENTS 00000C |
what do the messages and the bolded strings tell ? |
|
| Back to top |
|
|
Kamaleshwaran
New User
Joined: 10 Apr 2010
Posts: 7
Location: Hyderabad
|
|
|
|
The first operand is spaces which is moved to second opernad. The first operand contains Spaces and the second one has a packed decimal value...
But here we are moving spaces to the second operand and the second operand is an alphanumeric.
000871 MOVE SPACES TO XL-OUTCREDIT$$ |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10888
Location: italy
|
|
|
|
review the IBM manual for the meaning of abend 0C7
and the easytrieve manual for what You can move from into what !
it is irrelevant what You think You are doing, what counts is what You told easytrieve to do!
move statement, variable declaration! |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| But here we are moving spaces to the second operand and the second operand is an alphanumeric. |
You post that you have moved an alphanumeric value (spaces) to another alphanumeric field.
Is there a question here?
It is always valid to move an alphanumeric field to another alphanumeric field. If the receiving field contains some packed-decimal fields within it, and the sending field does not have the same, subsequent use of the packed-decimal data may cause abends. . .
If you clarify what you are having trouble with or want to learn, someone should be able to provide a more useful reply. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Follow on. . .
When i replied, i didn't notice that i was on page 2 . . .
When posting a questoin it is best to start a new topic for your question and not post a reply to a topic that has been inactive for over 2 years. . .
FWIW - it makes no sense to intentionally move spaces to a a numeric field. . . |
|
| Back to top |
|
|
aitha_prashanth
New User
Joined: 17 Mar 2005
Posts: 8
Location: chennai
|
|
|
|
| Use 'TEST(SYM)' option while compiling COBOL prog and run the job, it will give you the exact line number. |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
This is such a lot of crap. The TS is running EASYTREV, has nothing to
do with cobol. Show us the field definition of XL-OUTCREDIT$$.
This topic should be moved to CA products, or split accordingly. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales
|
|
|
|
Consider the topic moved  |
|
| Back to top |
|
|
PeterHolland
Global Moderator
Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen
|
|
|
|
| Thats what i like in you so much expat, the immediate no nonsense response. |
|
| Back to top |
|
|
|
|
