Abend ABENDU3134 while punchout the code

karthikr44 · Posted: Thu Mar 06, 2008 12:09 pm

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

expat · Posted: Thu Mar 06, 2008 1:00 pm

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 ?

karthikr44 · Posted: Thu Mar 06, 2008 2:07 pm

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

Not enough storage available to satisfy request.

module : IDMSBLDR

Severity : 0

Vijayendra · Posted: Fri Apr 17, 2009 8:53 pm

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.