IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SOC7 using Address field


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
spadma

New User


Joined: 18 Dec 2007
Posts: 9
Location: India

PostPosted: Wed Apr 16, 2008 3:43 pm
Reply with quote

Hi All,

Can anyone suggest me how to resolve SOC7 USING Address not using the offset.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Wed Apr 16, 2008 7:45 pm
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Thu Apr 17, 2008 2:15 am
Reply with quote

Hi,

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

www.ibmmainframes.com/viewtopic.php?t=10853&highlight=s0c7
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Thu Apr 17, 2008 2:27 am
Reply with quote

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
View user's profile Send private message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 275
Location: Bang,iflex

PostPosted: Thu Apr 17, 2008 11:36 am
Reply with quote

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
View user's profile Send private message
spadma

New User


Joined: 18 Dec 2007
Posts: 9
Location: India

PostPosted: Thu Apr 17, 2008 3:36 pm
Reply with quote

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
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Thu Apr 17, 2008 6:09 pm
Reply with quote

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
View user's profile Send private message
vasanthkumarhb

Active User


Joined: 06 Sep 2007
Posts: 275
Location: Bang,iflex

PostPosted: Fri Apr 18, 2008 9:07 am
Reply with quote

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
View user's profile Send private message
spadma

New User


Joined: 18 Dec 2007
Posts: 9
Location: India

PostPosted: Fri Apr 18, 2008 10:04 am
Reply with quote

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
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Fri Apr 18, 2008 7:12 pm
Reply with quote

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
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Fri Apr 18, 2008 7:18 pm
Reply with quote

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
View user's profile Send private message
manikawnth

New User


Joined: 07 Feb 2007
Posts: 61
Location: Mumbai

PostPosted: Wed May 07, 2008 6:01 am
Reply with quote

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
View user's profile Send private message
IQofaGerbil

Active User


Joined: 05 May 2006
Posts: 183
Location: Scotland

PostPosted: Tue May 13, 2008 4:00 pm
Reply with quote

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

If you can get a listing - the error likely lies in line 33
Back to top
View user's profile Send private message
Kamaleshwaran

New User


Joined: 10 Apr 2010
Posts: 7
Location: Hyderabad

PostPosted: Wed Dec 01, 2010 9:31 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Wed Dec 01, 2010 9:33 pm
Reply with quote

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
View user's profile Send private message
Kamaleshwaran

New User


Joined: 10 Apr 2010
Posts: 7
Location: Hyderabad

PostPosted: Wed Dec 01, 2010 9:37 pm
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Wed Dec 01, 2010 9:40 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Wed Dec 01, 2010 10:26 pm
Reply with quote

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
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Wed Dec 01, 2010 10:32 pm
Reply with quote

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
View user's profile Send private message
aitha_prashanth

New User


Joined: 17 Mar 2005
Posts: 8
Location: chennai

PostPosted: Wed Dec 29, 2010 5:32 pm
Reply with quote

Use 'TEST(SYM)' option while compiling COBOL prog and run the job, it will give you the exact line number.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Wed Dec 29, 2010 6:57 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Wed Dec 29, 2010 7:05 pm
Reply with quote

Consider the topic moved icon_biggrin.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Wed Dec 29, 2010 7:14 pm
Reply with quote

Thats what i like in you so much expat, the immediate no nonsense response.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Help required to reset decimal points... DFSORT/ICETOOL 8
No new posts Sorting Date Field DFSORT/ICETOOL 4
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Join 2 files according to one key field. JCL & VSAM 3
Search our Forums:

Back to Top