Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

A006 program interrupt

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Tue Dec 11, 2007 3:49 pm    Post subject: A006 program interrupt
Reply with quote

Hi,

I have an easytrieve program where termdate is declared as

TERMDATE 57 6 N
TRMYY 57 2 N
TRMMM 59 2 N
TRMDD 61 2 N

When i execute the condition

IF TERMDATE = 020318

I am getting the error

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

Could anyone please help me on this.

P.S: I have seen a previous topic with the same error, but was not clarified with the answer.
Back to top
View user's profile Send private message

G-Johnson

New User


Joined: 12 Mar 2007
Posts: 20
Location: USA

PostPosted: Wed Dec 12, 2007 4:59 am    Post subject:
Reply with quote

This is similar to a SOC7 - data exception. You probably have non-numeric data in field TERMDATE of your input file.
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 Dec 12, 2007 5:04 am    Post subject:
Reply with quote

Hello,

Yes, it is a s0c7.

As suggested, the value in TERMDATE is not numeric.

If you post the actual value in TERMDATE, we can help.
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Wed Dec 12, 2007 11:38 am    Post subject:
Reply with quote

@ dich scherrer

There are 10,000 records with the termdate. So will not be able to find which record is having non-numeric data using displays.
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Wed Dec 12, 2007 3:01 pm    Post subject:
Reply with quote

how will i be able to identify which record is having non-numeric data when there are close to 10,000 records?

Putting displays will not be a good method.
Back to top
View user's profile Send private message
G-Johnson

New User


Joined: 12 Mar 2007
Posts: 20
Location: USA

PostPosted: Wed Dec 12, 2007 8:47 pm    Post subject:
Reply with quote

You can try changing the file definition to TERMDATE 57 6 A and test for
IF TERMDATE NE '000000' THRU '999999'
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Dec 12, 2007 8:51 pm    Post subject:
Reply with quote

G-Johnson wrote:
You can try changing the file definition to TERMDATE 57 6 A and test for
IF TERMDATE NE '000000' THRU '999999'


What about '00zzz9'?
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 Dec 12, 2007 10:21 pm    Post subject:
Reply with quote

Hello,

Quote:
There are 10,000 records with the termdate. So will not be able to find which record is having non-numeric data using displays.
You might test if TERMDATE is numeric and display the value when it is not. . . (along with the record number). . .

Then that/those record(s) could be viewed on the terminal.
Back to top
View user's profile Send private message
sanil m

New User


Joined: 24 Aug 2007
Posts: 38
Location: chennai

PostPosted: Wed Dec 12, 2007 11:36 pm    Post subject:
Reply with quote

Hi,

Thanks all of you.

I was able to solve the issue. I declared the termdate as alphanumeric

and used the condition

Code:
IF TERMDATE NOT NUMERIC
                             
DISPLAY 'TERM DATE WHICH IS NOT NUMERIC IS ' TERMDATE

END-IF                                               
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 Dec 13, 2007 12:46 am    Post subject: Reply to: A006 program interrupt
Reply with quote

You're welcome icon_smile.gif

Thank you for posting that it is solved.

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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us