|
View previous topic :: View next topic
|
| Author |
Message |
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
Hi,
Ihave been posting queries in Natural/Adabas till now. I have got an opportunity to work in Cobol.
Presently I am getting an error for my batch program.
The error details are
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=C03
TIME=15.09.19 SEQ=00676 CPU=0000 ASID=01A4
PSW AT TIME OF ERROR 070C0000 853F24F4 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 053F24EE - 58108010 0A0D58C0 549C9180
AR/GR 0: A5972E16/053F24F4 1: 00000000/80C03000
2: 00000000/853F24DC 3: 00000000/009A1630
4: 00000000/7F6B1470 5: 00000000/7F66B600
6: 00000000/7F58F010 7: 00000000/00995CF0
8: 00000000/053F30E8 9: 00000000/7F6B1470
A: 00000000/009A1630 B: 00000000/00FD8768
C: 00000000/009A1630 D: 00000000/009A169C
E: 00000000/00E59288 F: 00000000/00000004
END OF SYMPTOM DUMP
I have a main program and it is calling a subprogram. based on a condition I have set the RETURN-CODE to 32 in the subprogram and GOBACK in the subprogram.
I am checking the RETURN-CODE in the man program on return from the subprogram.
If I put the programs in Xpediter, it is working fine.but in a normal run it is giving problem.
Can someone help me with little guiadance on how can I fix this problem? |
|
| Back to top |
|
 |
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Try adjusting your JOB card, by specifying the system managed value of REGION=0M.
Bill |
|
| Back to top |
|
|
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
Hi Bill,
There is no REGION parameter in myJCL. When I run the program using a JCL, I see the return code of 12, where as I set return code of 32 in the program based on some condition.
In Xpediter, the entire flow is correct and batch gets executed successfully. |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Batch XPEDITER (perhaps, under the covers), may use REGION=0M.
Try specifying this in your JOB card and then run the JOB without XPEDITER.
Bill |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
You have realized that the abend is a C03 not an 0c3. . .
What happens when you use the REGION as suggested (the same i suspect)? |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Oops! 
You're right!
Monasu1998 -
Try Googling "C03 ABEND". You'll get many hits....
Bill |
|
| Back to top |
|
|
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
Hi Bill,
I tried but no success. It is the same error message in the spool. |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| A SC03 indicates that a data set is open and cannot be closed, not so? |
|
| Back to top |
|
|
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
Hi All,
yes you are correct. I also got confused to see the completion code. It is
ABEND CODE=SC03
May be what Akatsukami said is correct
| Akatsukami wrote: |
A SC03 indicates that a data set is open and cannot
be closed, not so? |
I am not sure till now. I am doubtful about it because, the VSAM file used is managed by some third level program which we only call by passing few parameters. |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL
|
|
|
|
| monasu1998 wrote: |
Hi All,
yes you are correct. I also got confused to see the completion code. It is
ABEND CODE=SC03 [...] I am not sure till now. I am doubtful about it because, the VSAM file used is managed by some third level program which we only call by passing few parameters. |
Search the JES message log for "IEC999I" (there may or may not be such a message).
The most likely cause is that the ACB is getting whacked by a storage overlay. You and/or your colleagues may have to do some serious analysis of the error if that be the case. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
I have got an opportunity to work in Cobol.
Presently I am getting an error for my batch program. |
Is your new cobol code the calling program or the called program or both?
Does either have an array that is new or modified?
Is this vsam file open to cics while this batch process is running?
When the file OPEN was issued in this batch code, was the status checked? |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India
|
|
|
|
Is(Are) the DCB(s) gets overlaid or "clobbered" in some way? With my little experience, I'd say -- generally you can get away with not closing DCBs and the system will close them. The problem occurs when the DCB is either in GETMAINed storage, or in a secondary load module brought in by the jobstep program with a LOAD - and the storage gets freed before end of jobstep. zOS goes to close the DCB and - thad - it's not there.
There can be other reasons for C03, however, the classic condition that causes a SC03 is:
1. Sub program loaded (dynamically linked)
2. Sub program opens files
3. Subprogram ends, gets freed...etc. .
4. Main program ends.
This results in a SC03 because at step termination the system closes open files. It does this by following the DEB chain. Each DEB points to the associated DCB / ACB. The DCB address is needed by CLOSE. But the storage that contains the DCB has been fremained as a result of step 3 above. Hence the reference by close to the DEB DCB address takes an 0C4. But the step has allready ended ... Its in clean up, hence the C03.
So now knowing that, how do you solve it -- the rule of the game is, if a program or subprogram opens a file, close it. |
|
| Back to top |
|
|
monasu1998
Active User
Joined: 23 Dec 2005
Posts: 176
Location: India
|
|
|
|
Hi All,
I thank all of you for your support and valuable time to resolve my query.
In fact after all searches I just got a hint that the problem is becuase of some File is open and can not be closed.
I have analysed my code and here are the fact
I was to test the new code. And particularly looking for a test case to fail.
In this program we read a VSAM file by calling a modules (this module is calling another chain of modules).
The return code is mostly successful.
To complete my testing, I forced the return code to fail code.
Like
IF ID=38 AND RET-CODE = ' ' - (Successful return code)
MOVE 'B010' to RET-CODE - (Fail return code)
END-IF
When I removed the above line, everyting went fine. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Good to hear this is resolved - thank you for posting the resolution 
d |
|
| Back to top |
|
|
|
|
