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
 

 

Abend ABENDU3134 while punchout the code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Thu Mar 06, 2008 12:09 pm    Post subject: Abend ABENDU3134 while punchout the code
Reply with quote

HI,

I got the follwing abned ABENDU3134 while punchout the code from
production.

JOB LOG:
-----------
+IDMS DB347018 Not enough storage - size requested 167BC0
+IDMS DC208001 IDMS job abending with abend code 5003
+IDMS DC208001 #ABEND from Module IDMSBLDR at Location 15E80A20 Offset 008178
IEF450I TPSSPNCH DDDL - ABEND=S000 U3134 REASON=00000000 555

But Destination PDS has enough space.

PDS Information:
-------------------

General Data
Management class . . : MC#DEV01
Storage class . . . : SC#DV3
Volume serial . . . : DV3022
Device type . . . . : 3390
Data class . . . . . : **None**
Organization . . . : PO
Record format . . . : FB
Record length . . . : 133
Block size . . . . : 27930
1st extent cylinders: 2
Secondary cylinders : 25
Data set name type : PDS

Creation date . . . : 2007/12/10
Expiration date . . : ***None***

Current Allocation
Allocated cylinders : 2
Allocated extents . : 1


Current Utilization
Used cylinders . . : 2
Used extents . . . : 1

I am also tried the JCl after compressing the PDS.
Anyone please help me.

Regards
R.Karthik
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Mar 06, 2008 1:00 pm    Post subject:
Reply with quote

If it was the PDS that threw the error I would expect a Sx37 type abend.

Have you looked up the message codes issued by the failing job and what did they tell you ?
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Thu Mar 06, 2008 2:07 pm    Post subject: Reply to: Abend ABENDU3134 while punchout the code
Reply with quote

IDMS CODE 5003:
--------------------

Not enough storage available to satisfy request.

module : IDMSBLDR

Severity : 0
Back to top
View user's profile Send private message
Vijayendra

New User


Joined: 16 Apr 2009
Posts: 1
Location: Columbus, Ohio

PostPosted: Fri Apr 17, 2009 8:53 pm    Post subject: Reply to: Abend ABENDU3134
Reply with quote

ERROR: -

+IDMS DB347018 Not enough storage - size requested 1CC40
+IDMS DC208001 IDMS job abending with abend code 5003
+IDMS DC208001 #ABEND from Module IDMSBLDR at Location 0AD3BA20 Offset 00817
IEF450I PCFO1A95 STEP0010 STEP403B - ABEND=S000 U3134 REASON=00000000 897


OR


IEW4000I FETCH FOR MODULE IDMSULIO FROM DDNAME STEPLIB FAILED BECAUSE INSUFFICIENT STORAGE WAS AVAILABLE
CSV031I LIBRARY ACCESS FAILED FOR MODULE IDMSULIO, RETURN CODE 24, REASON CODE 26080021, DDNAME STEPLIB
+IDMS DC021011 Failed trying to load nucleus module IDMSULIO
+IDMS DC208001 IDMS job abending with abend code DYLD
+IDMS DC208001 #ABEND from Module RHDCLODR at Location 0AD0B918 Offset 004684
IEF450I PCFO1A95 STEP0010 STEP403B - ABEND=S000 U3134 REASON=00000000 717


Reason:
It due to limited REGION parameter value in Job card or step.

Resolution:

We promoted a program with REGION=1026K in Job card, and Job failed, We got the REGION increased to REGION=4M, and then Job was rerun , which ended OK.
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 UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am


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