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

A006 PROGRAM INTERRUPT - CODE 7


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

New User


Joined: 01 May 2010
Posts: 7
Location: DE

PostPosted: Mon May 03, 2010 6:31 pm
Reply with quote

Hi All,

i got the below error while executing an easytrieve. Please help me to resolve this error.

494 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
0INTERRUPT OCCURRED AT 06F6 BLOCK 4 FROM EP CA-EASYTRIEVE PLUS 6.4
0INSTRUCTION AT 00021706 IS FA96405B505E
FIRST OPERAND ADDRESS 0002A7D8 CONTENTS 0000000000000000000C
SECOND OPERAND ADDRESS 0009DC46 CONTENTS 40404040404040
-PSW+4 AT INTERRUPT 8002170C

The line number 494 is report line to add space.

494 REPORT RPTXXX PRINTER RPT +
SPACE 1 +
SUMSPACE 0 +
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: Mon May 03, 2010 8:01 pm
Reply with quote

Hello and welcome to the forum,

The code is trying to use spaces (x'404040. . ') as a number.
SECOND OPERAND ADDRESS 0009DC46 CONTENTS 40404040404040

You need to correct the value or change the code.
Back to top
View user's profile Send private message
prabusmd

New User


Joined: 01 May 2010
Posts: 7
Location: DE

PostPosted: Mon May 03, 2010 8:08 pm
Reply with quote

thanks Dick! But i am not sure where to correct the code.. because i am not getting S0C7 in move statements its just report print statements icon_sad.gif... Now i submitted the job the abend location is moved to diff line number. not sure why?

501 *******A006 PROGRAM INTERRUPT - CODE 7 (DATA EXCP)
ERRUPT OCCURRED AT 0D9A BLOCK 4 FROM EP CA-EASYTRIEVE PLUS
TRUCTION AT 00021DAA IS FA91407C5050
ST OPERAND ADDRESS 0002A554 CONTENTS 0000000000000000000C
OND OPERAND ADDRESS 0002A62C CONTENTS 4040


line 501 also same as i pasted in previous post ... please help me.
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: Mon May 03, 2010 8:40 pm
Reply with quote

The program is attempting to Add Packed an uninitialized field to a field with zero in it.
Yes, the address changed, but did the length of the second operand change too? Or was the apparent change due to a mistake in your cut&paste?
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: Mon May 03, 2010 8:42 pm
Reply with quote

Hello,

The line number probably changed due to added source?

The problem is still the same - the problem "numeric" data contains spaces. Print statements cause a internal moves. . .

Only you (or someone else who can work on your system) can determine where the bad data is coming from. Suggest that before creating the report, you ensure that all of the numeric fields defined to the report actually contain valid numeric data.

When posting info for someone to use to help, you need to post all of the info. For whatever reason, you "chopped" the second set of diagnostic info. . . icon_confused.gif
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Tue May 04, 2010 9:16 am
Reply with quote

REPORT RPTXXX PRINTER RPT +
SPACE 1 +
SUMSPACE 0 +

Where is the rest of the report statement?
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


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

PostPosted: Tue May 04, 2010 10:47 am
Reply with quote

Add the following statement (the first) :

PARM DEBUG (PMAP DMAP STATE XREF LONG)

And show us the output.
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 May 06, 2010 1:42 am
Reply with quote

Hello,

Progress?
Back to top
View user's profile Send private message
prabusmd

New User


Joined: 01 May 2010
Posts: 7
Location: DE

PostPosted: Thu Jul 01, 2010 12:17 am
Reply with quote

Hello Dick.. sorry for the late reply..

I have input file layout defined wrongly..i corrected it and it worked fine:).. thanks all for you help!
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 Jul 01, 2010 12:36 am
Reply with quote

You're welcome - good to hear it is working - thank you for letting us know icon_smile.gif

d
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 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 DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
Search our Forums:

Back to Top