Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
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    Post subject: A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
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: 1452
Location: Chicago, IL

PostPosted: Sun Oct 15, 2006 11:06 am    Post subject: Re: A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
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    Post subject:
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: 1452
Location: Chicago, IL

PostPosted: Sun Oct 15, 2006 12:04 pm    Post subject: Re: A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
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    Post subject:
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    Post subject: Re: A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
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

Site Director


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

PostPosted: Tue Apr 03, 2007 7:53 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 6:15 pm    Post subject:
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

Site Director


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

PostPosted: Wed Apr 04, 2007 7:46 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Wed Apr 04, 2007 8:29 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 10:19 pm    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Apr 04, 2007 10:23 pm    Post subject:
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    Post subject:
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    Post subject:
Reply with quote

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

Site Director


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

PostPosted: Thu Apr 05, 2007 10:22 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us