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
 

 

S878/S40D Abend with a PL/I program

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
CICS fan

New User


Joined: 03 Apr 2008
Posts: 82
Location: United States

PostPosted: Wed Jul 06, 2011 1:53 am    Post subject: S878/S40D Abend with a PL/I program
Reply with quote

Hello,

We have a Pl/1 program which dynamically creates around 240 files. We have been getting S878 abend. Tried using REGION parameter(in jobcard and step), and using VOL=(,,,250), BUFNO=1, but to no avail.

We are sometimes getting S40D when we are reducing the space in DCB for the same job.

Can anybody help on this?
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Wed Jul 06, 2011 2:09 am    Post subject: Reply to: S878/S40D
Reply with quote

NO!
how do You expect somebody to help with the absolutely nothing You have told us ?

You should at least give evidence that You have looked at the manual for s878 abend...

but you did not ( look at the manual ),
if You had You would have noticed that the s878 abend is associated to some reason code
and You should have shown the good sense of posting also the reason code

but we are expecting too much icon_evil.gif
Back to top
View user's profile Send private message
CICS fan

New User


Joined: 03 Apr 2008
Posts: 82
Location: United States

PostPosted: Wed Jul 06, 2011 2:19 am    Post subject: Reply to: S878/S40D
Reply with quote

Relax :-)
We have been researching a lot on this and trying a few different things
BTW this is what we got:

Code:
CFFE100 SVCSRECV S878  AT 158982C4 LMOD N/A      CSECT N/A 
CFFE901 NSI: 070C0000 958982C4                             
CFFE902 ILC: 02 INTERRUPT CODE: 78 REASON CODE: 0000000C   
CFFE909 TRANSLATION EXCEPTION ADDRESS 17236000 17236000     
CFFE904 R0 - R3  00005040 00000000 96B9FD0C 17235880       
CFFE905 R4 - R7  9589825C 9589821E 96B9FB7E 172358E0       
CFFE906 R8 - R11 158D62E0 00C6A020 00C76020 15898F18       
CFFE907 R12- R15 95897F18 172358F0 15898E1C 0000FD12       
CFFE001 SVCSRECV DUMP IN PROGRESS                           
CFFE003 SVCSRECV DUMP UNSUCCESSFULLY COMPLETED - RC,X'000000
CF99032 SVC S HAS ABENDED AND AN SDUMP HAS OCCURRED         
@DRTPS01:  NOT ENOUGH SPACE ON VOLUME                         
 ACFFE100 SVCSRECV S878  AT 158982C4 LMOD N/A      CSECT N/A 
 ACFFE901 NSI: 070C0000 958982C4                             
 ACFFE902 ILC: 02 INTERRUPT CODE: 78 REASON CODE: 0000000C   
 ACFFE909 TRANSLATION EXCEPTION ADDRESS 1724A000 1724A000     
 ACFFE904 R0 - R3  00005040 00000000 96B9FD0C 17249880       
 ACFFE905 R4 - R7  9589825C 9589821E 96B9FB7E 172498E0       
 ACFFE906 R8 - R11 158D62E0 00C6A020 00C76020 15898F18       
 ACFFE907 R12- R15 95897F18 172498F0 15898E1C 0000FD12       
*ACFFE001 SVCSRECV DUMP IN PROGRESS                           
 ACFFE003 SVCSRECV DUMP UNSUCCESSFULLY COMPLETED - RC,X'000000
 ACF99032 SVC S HAS ABENDED AND AN SDUMP HAS OCCURRED         
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7992
Location: Bellevue, IA

PostPosted: Wed Jul 06, 2011 2:28 am    Post subject:
Reply with quote

Quote:
Can anybody help on this?
With the little you've provided so far, no we cannot help you. At a minimum, you need to tell us the reason code for the S878 -- as enrico said. You also need to describe the process in a LOT more detail -- are you allocating 240 files one at a time and not releasing or freeing them? Do you expect to be able to allocate 240 files to your program? Is this a program that is brand new, or did it used to work before you changed something?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7992
Location: Bellevue, IA

PostPosted: Wed Jul 06, 2011 2:31 am    Post subject:
Reply with quote

Just out of curiosity, do you not consider this a clue?
Code:
@DRTPS01:  NOT ENOUGH SPACE ON VOLUME
Which raises the question, are you checking the dynamic allocation return code or just assuming it worked?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
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


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