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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
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    Post subject: A006 PROGRAM INTERRUPT - CODE 7
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

Site Director


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

PostPosted: Mon May 03, 2010 8:01 pm    Post subject:
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    Post subject: Reply to: *******A006 PROGRAM INTERRUPT - CODE 7
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: 2150
Location: At my coffee table

PostPosted: Mon May 03, 2010 8:40 pm    Post subject:
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

Site Director


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

PostPosted: Mon May 03, 2010 8:42 pm    Post subject:
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: 2442
Location: Netherlands, Amstelveen

PostPosted: Tue May 04, 2010 9:16 am    Post subject:
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: 2442
Location: Netherlands, Amstelveen

PostPosted: Tue May 04, 2010 10:47 am    Post subject:
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

Site Director


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

PostPosted: Thu May 06, 2010 1:42 am    Post subject:
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    Post subject: Reply to: A006 PROGRAM INTERRUPT - CODE 7
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

Site Director


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

PostPosted: Thu Jul 01, 2010 12:36 am    Post subject: Reply to: A006 PROGRAM INTERRUPT - CODE 7
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    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 Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am

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