MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Easytrieve S0C4
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Thu Sep 13, 2007 9:37 pm    Post subject: Easytrieve S0C4 Reply with quote

Hi,
I am getting a A006 program interrupt - code 4 error in my easytrieve program. When i tried debugging using displays, looks like it is happening in a Cursor open. The error line number also matches the CURSOR OPEN stmt.

Same code works in our production, and also when i tried running in Instream its working. But when i compile and execute , i am getting a S0C4 abend. Any idea , looks like some compiler option issue,i am not able to trace , any help/suggestions.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Thu Sep 13, 2007 10:29 pm    Post subject: Reply with quote

shivraj,

you have to post your ezt code to help you.
Back to top
View user's profile Send private message Send e-mail
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Thu Sep 13, 2007 10:51 pm    Post subject: Reply with quote

vkphani,

Thanks for the reply. But i cant post my code over here. I know with out code its difficult to answer, if you are suspect anything in general i can check that.

For your information, the same code works in my production. Rolling Eyes
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
vivek1983
Intermediate


Joined: 20 Apr 2006
Posts: 222
Topics: 24

PostPosted: Fri Sep 14, 2007 2:24 am    Post subject: Reply with quote

s_shivaraj,


Please check the following and reply.

1. Is the cursor (You are mentioning) the first SQL statement in the program?

2. How are u executing the program? Are u using EXEC
PGM=EZTPA00?

3. Have u included the correct libraries?

4. Since its involving DB2, have u included the correct dsn subsystem?

Vivek G
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)
Back to top
View user's profile Send private message
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Fri Sep 14, 2007 2:49 am    Post subject: Reply with quote

shivaraj,

You have to check for correct SSID in your EZT code.

you can just compare your code with the code present in the below link. http://www.mvsforums.com/helpboards/viewtopic.php?t=478&highlight=easytrieve+db2
Back to top
View user's profile Send private message Send e-mail
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Fri Sep 14, 2007 3:13 am    Post subject: Reply with quote

Sometimes SOC4 could also be because of lack of space while writing data to output file. Just check if the number of records fetched by the query have increased over time - if not - try running your job on a later date/time when resources become available.
Back to top
View user's profile Send private message Send e-mail
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3

PostPosted: Fri Sep 14, 2007 4:40 am    Post subject: Reply with quote

s_shivaraj wrote:
I know with out code its difficult to answer, if you are suspect anything in general i can check that.
Check the link/bind map for errors....
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Fri Sep 14, 2007 6:31 am    Post subject: Reply with quote

s_shivaraj,

SOC4 is a data issue. When you get the abend the dump also shows the contents of error variable in hex format. And also make sure that you have the variables defined correctly and before the cursor declaration.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Fri Sep 14, 2007 10:56 am    Post subject: Reply with quote

vivek1983,
Its not the first query. I just double checked the libraries , all looks fine and i am executing through IKJEFT. With instream its working perfectly fine.


kolusu,

I just got this from SYSPRINT. there no dump generated.

Code:
   180 *******A006 PROGRAM INTERRUPT - CODE 4 (PROTECTION EXCP)       
INTERRUPT OCCURRED AT 0A9A88                                           
INSTRUCTION AT 0A9A88   IS 95FF301D                                   
FIRST  OPERAND ADDRESS C40027                                         
PSW AT INTERRUPT  07850004 A00A9A8C                                   
REGISTERS AT INTERRUPT 


CICS Guy,
Tried looking for any errors in Link/Bind, there is no Errors.

Strange thing is when i comment the cursor statment which is giving the S0C4, its now failing the previous cursor open.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
vkphani
Intermediate


Joined: 05 Sep 2003
Posts: 483
Topics: 48

PostPosted: Mon Sep 17, 2007 4:48 am    Post subject: Reply with quote

s_shivaraj,

You have to post the code in line # 175 to 185.
Back to top
View user's profile Send private message Send e-mail
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Mon Sep 17, 2007 11:03 am    Post subject: Reply with quote

vkphani,

This time i got in 120th line. So pasted the lines around that code.

Code:
110    SQL CLOSE CURTS_CURSOR                                               
111    WS-FLAG = 'CURTS_CURSOR CLOSE'                                       
112    PERFORM CHECK-SQLCODE1                                               
113 *                                                                       
114    READ FILECTRL KEY WS-KEY STATUS                                       
115    IF FILECTRL:FILE-STATUS EQ 0                                         
116       WS-EXTRACT-DATE      = EXTRACT-DATE                     
117       WS-LAST-EXTRACT-DATE = LAST-EXTRACT-DATE                 
118    END-IF                                                               
119 *                                                                       
120    SQL OPEN TABLE_CURSOR                                               
121    WS-FLAG = 'TABLE_CURSOR OPEN'                                       
122    PERFORM CHECK-SQLCODE1                                               
123 *                                                                       
124    DO UNTIL SQLCODE = 100                                               
125       SQL FETCH TABLE_CURSOR INTO :WS-FIELD1,               +   
                                        :WS-FIELD2

_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
Terry_Heinze
Supermod


Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA

PostPosted: Mon Sep 17, 2007 8:22 pm    Post subject: Reply with quote

Your open cursor statement is being executed no matter what the FILECTRL status is. Is that what you really intended?
_________________
....Terry
Back to top
View user's profile Send private message Send e-mail
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Mon Sep 17, 2007 10:32 pm    Post subject: Reply with quote

Terry_Heinze,
Yes terry, that is what we intended.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
s_shivaraj
Beginner


Joined: 21 Sep 2004
Posts: 140
Topics: 14
Location: Chennai, India

PostPosted: Mon Oct 01, 2007 4:13 pm    Post subject: Reply with quote

Atlast got the Issue resolved, there was some changes went in Easytrieve installation, which has caused this S0C4. System people helped us in resolving this. Just ran the Job with a overide, job went through.
Thank you guys for your time.
_________________
Cheers
Sivaraj S

'Technical Skill is the Master of complexity, while Creativity is the Master of Simplicity'
Back to top
View user's profile Send private message AIM Address
CICS Guy
Intermediate


Joined: 30 Apr 2007
Posts: 292
Topics: 3

PostPosted: Mon Oct 01, 2007 6:15 pm    Post subject: Reply with quote

Can you hint to the resolution? The over-ride?
This thread will be in existence tor quite a while, pointers to a resolution will help all followers....
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group