Abend ABENDU3134 while punchout the code

karthikr44

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 Post subject:

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

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

Not enough storage available to satisfy request.

module : IDMSBLDR

Severity : 0