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

A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Sun Oct 15, 2006 10:56 am
Reply with quote

how to solve this erro
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Sun Oct 15, 2006 11:06 am
Reply with quote

Its a S0C-7 encountered.

You probably would have got a number before this message... Thats the last line number executed before this abend.
Back to top
View user's profile Send private message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Sun Oct 15, 2006 11:42 am
Reply with quote

hi yes
131 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
how i solve this
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Sun Oct 15, 2006 12:04 pm
Reply with quote

So now it was executed up to line number 131 before getting S0C-7.

now how to solve S0C-7... that you'll have to search in the forum.
Back to top
View user's profile Send private message
raviprasath_kp
Warnings : 1

New User


Joined: 20 Feb 2005
Posts: 65
Location: chennai

PostPosted: Mon Oct 16, 2006 5:03 am
Reply with quote

thanks,
Back to top
View user's profile Send private message
unnipbvr

New User


Joined: 27 Nov 2006
Posts: 7
Location: banglore

PostPosted: Tue Apr 03, 2007 11:58 am
Reply with quote

what if the line number is not displayed???

how to modify the program to get the line number in the error display???
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Tue Apr 03, 2007 7:53 pm
Reply with quote

Hello,

You should have more error information than what has been posted. You may be missing one or more DD statements and so the info was lost - you'll have to insert the missing DDs and rerun to get better info (if this is the case you should see "DD STATEMENT MISSING" in your output.

What were you running? Posting your JCL is a good start - please post it as "Code" ising the tab at the top of the Reply panel.
Back to top
View user's profile Send private message
unnipbvr

New User


Joined: 27 Nov 2006
Posts: 7
Location: banglore

PostPosted: Wed Apr 04, 2007 4:45 pm
Reply with quote

this is the error message : max cc 16

CODE REMOVED AS REQUESTED
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 6:15 pm
Reply with quote

F87750B09000 is a ZAP
FIRST OPERAND ADDRESS 1E3005D8 CONTENTS 000000000000000F packed decimal zero
SECOND OPERAND ADDRESS 1E70D0EC CONTENTS F0F0F0F0F0F0F0F0 zoned decimal zero - should be packed
INTERRUPT OCCURRED AT 05F8 BLOCK 1 should relate to a listing of the EZT compile
The fact that the sending field of the ZAP is zero bytes off of a register would lead me to look at the first field in a record I'd be reading to be defined as packed but actually containing zoned data.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Apr 04, 2007 7:46 pm
Reply with quote

Hello,

Is this a new bit of code?

It is likely that your record definition does not match the data being processed. Look at your data and compare the actjual data with the field definitions for the record.
Back to top
View user's profile Send private message
unnipbvr

New User


Joined: 27 Nov 2006
Posts: 7
Location: banglore

PostPosted: Wed Apr 04, 2007 7:55 pm
Reply with quote

ya u r spot on with the analysis...

it was defined as packed but contained numerics icon_smile.gif

but tell me how u analysed
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Apr 04, 2007 8:29 pm
Reply with quote

Hello,

Bill Thompson did the real analysis of what the operands of the abending instruction contained. He determined the problem from the info the abend presented (the instruction and operand contents). This
Quote:
F87750B09000 is a ZAP
is a Zero and Add Packed (assembler instruction) - which will generate an 0c7 if there is an invalid sign in one of the operands. One of the 2 operands had invalid packed-decimal content.

I just added a bit of wording hoping to clarify what to look for in the code.

If you have other questions, we're here icon_smile.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 10:19 pm
Reply with quote

unnipbvr wrote:
i was advised by my colleagues that posting pieces of code in forums is against company policy..so please delete the code part of that post,,,

thread : a006 program interrupt soc7 in the thread
First off, was it the first field in a record or some other WS structure?
Second, I didn't see any code? Other than the ZAP instruction, there was nothing that could have violated any company restriction. The code they would restrict is those whole sections that could constitute a business asset.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 10:23 pm
Reply with quote

unnipbvr wrote:
ya u r spot on with the analysis...
it was defined as packed but contained numerics icon_smile.gif
but tell me how u analysed
It is all in the prior post:
Quote:
F87750B09000 is a ZAP
FIRST OPERAND ADDRESS 1E3005D8 CONTENTS 000000000000000F packed decimal zero
SECOND OPERAND ADDRESS 1E70D0EC CONTENTS F0F0F0F0F0F0F0F0 zoned decimal zero - should be packed
Understanding a little assembly language helps and
Quote:
The fact that the sending field of the ZAP is zero bytes off of a register would lead me to look at the first field in a record I'd be reading to be defined as packed but actually containing zoned data.
experience has shown that the zeroth byte of a register is sometimes significant.
Back to top
View user's profile Send private message
unnipbvr

New User


Joined: 27 Nov 2006
Posts: 7
Location: banglore

PostPosted: Thu Apr 05, 2007 9:14 am
Reply with quote

thanks a lot william and dick it was very helpful..

to give a background the job was a file compare in easytrieve
the easytrieve program had defined the structure as packed, while the file it used contained normal decimal (written by a cobol pgm), hence the error
Back to top
View user's profile Send private message
unnipbvr

New User


Joined: 27 Nov 2006
Posts: 7
Location: banglore

PostPosted: Thu Apr 05, 2007 9:21 am
Reply with quote

it was the first field in a record
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Thu Apr 05, 2007 10:22 pm
Reply with quote

You're welcome - thanks for the followup icon_smile.gif
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 -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts Store the data for fixed length COBOL Programming 1
No new posts Using API Gateway from CICS program CICS 0
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
Search our Forums:

Back to Top