ABEND=S04E U0000 REASON=00E40009

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

Hi all,

I am facing this abend from last 2 days.

S020 - ABEND=S04E U0000 REASON=00E40009

and on checking the log i can see this.

DSNT500I DSNUGBAC - RESOURCE UNAVAILABLE
REASON 00C200EA
TYPE 00000201
NAME BBDD501 .BBDI501

The Step S020 is using an utility to upload records in to the some table BBDT501.

How can i solve the abend?

Any help would be much appreciated.

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

Forgot to add...BBDT501 is a DB2 Table.

enrico-sorichetti · Posted: Thu Nov 06, 2008 2:15 pm

look at the manual to see the resource type,
and take the appropriate action to make it available to Your process

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

is it possible? I checked the manuals and they were talking about the using Reorg utility.

This abend i feel is related to Tablespace or Indexspace.

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

I checked the reason codes in the manual..

The manual says:-
This abend reason code is issued by the following CSECTs: DSNUGACC,
DSNUGAGS, DSNUGUTC, DSNURLOG

But the log is talking about DSNUGBAC ?

Am i searching rightly?

Is there any way else to sought out this abend?

dick scherrer · Posted: Fri Nov 07, 2008 10:41 am

Hello,

It may help if you post the jcl and control statements from this job.

It may also help if you post all of the diagnostic info presented - do not pick and choose, but most all od the messages including the message id.

One possibility is that you are trying to load too much data.

anandinmainframe · Active User Joined: 31 May 2007 Posts: 171 Location: India

Hi,
Save you member if it it is in PDS and refresh it and again run the same one it will work

enrico-sorichetti · Posted: Fri Nov 07, 2008 12:22 pm

the resource type 201 as the manual says is related to the index space
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dsnm1k12/3.2?ACTION=MATCHES&REQUEST=resource+type&TYPE=FUZZY&SHELF=DSNSHKA2.bks&DT=20080204020214&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT

look at the manual for the meanng of the reason code as explained for the
dsnt500i and dsnt501i

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

JCL :

//S010 EXEC PGM=IDCAMS
//SYSUDUMP DD SYSOUT=A,HOLD=YES
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO IFILE(DD1) OFILE(DD2)
//DD1 DD DSN=W5.KSHSS1,DISP=SHR,
//DD2 DD DSN=&&W761010A,
// UNIT=DISK,DISP=(NEW,PASS),
// SPACE=(CYL,(6,1),RLSE),
// DCB=(RECFM=FB,LRECL=0110,BLKSIZE=09900)
//S011 EXEC AUTOABND,CODE=1212,COND=(0,EQ,S010)
//S020 EXEC Y2ZPUT0,UID=W761
//SYSREC DD DSN=&&W761010A,DISP=(OLD,DELETE)
//SYSDISC DD DSN=&&W761020A,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(1,1),RLSE)
//SYSERR DD DSN=&&W761020B,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(1,1),RLSE)
//SYSMAP DD DSN=&&W761020C,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(1,1),RLSE)
//SORTWK01 DD DSN=&&W761020D,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(8,2),RLSE)
//SORTWK02 DD DSN=&&W761020E,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(8,2),RLSE)
//SORTWK03 DD DSN=&&W761020F,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(5,1),RLSE)
//SORTWK04 DD DSN=&&W761020G,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(5,1),RLSE)
//SYSUT1 DD DSN=&&W761020H,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(25,2),RLSE)
//SORTOUT DD DSN=&&W761020I,
// UNIT=DISK,DISP=(NEW,DELETE),
// SPACE=(CYL,(25,2),RLSE)
//SYSIN DD DSN=USER.SYSIN1(LBBDT501),DISP=SHR
//
--------------------------------------------------------------------

sysin cARD says:-

LOAD DATA INDDN SYSREC
RESUME NO REPLACE LOG YES
SORTDEVT DISK SORTNUM 4
INTO TABLE DB2H00.BBDT501
(YAAC011 POSITION (00001) CHAR(0002),
XZAA013 POSITION (00003) CHAR(0007),
XZAA023 POSITION (00010) CHAR(0015),
XZAA024 POSITION (00025) CHAR(0015))

-----------------------------------------------------------------
SYSOUT message

-JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SE
-W761000T S010 00 723 708 .00 .00 .3 19
-W761000T S011 IOATEST FLUSH 0 0 .00 .00 .0
IEF450I W761000T U S020 - ABEND=S04E U0000 REASON=00E40009 577
TIME=00.21.47
-W761000T S020 U *S04E 46 72 .00 .00 5.1 5

DSNU000I DSNUGUTC - OUTPUT START FOR UTILITY, UTILID = W761
DSNU050I DSNUGUTC - LOAD DATA INDDN SYSREC RESUME NO REPLACE LOG YES
DSNU650I -RDB1 DSNURWI - INTO TABLE DB2H00.BBDT501
DSNU650I -RDB1 DSNURWI - (YAAC011 POSITION(1) CHAR(2),
DSNU650I -RDB1 DSNURWI - XZAA013 POSITION(3) CHAR(7),
DSNU650I -RDB1 DSNURWI - XZAA023 POSITION(10) CHAR(15),
DSNU650I -RDB1 DSNURWI - XZAA024 POSITION(25) CHAR(15))

DSNT500I DSNUGBAC - RESOURCE UNAVAILABLE
REASON 00C200EA
TYPE 00000201
NAME BBDD501 .BBDI501

---------------------------------------------------------------------------
S011 is autoabend step,which run based on the return code from previous step.

I hope these details will suffice you.

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

Y2ZPUT0 will be loading the records from input file to the DB [ mentioned in SYSIN Card ]

enrico-sorichetti · Posted: Fri Nov 07, 2008 12:52 pm

all the info needed to find out about the abend was right under Your eyes... and of Your support

the message ... DSNT0500I
-- in the messages and codes manual for db2

the resource type ... 201
-- I gave You the link to the table

the reason code 00C200EA
why did not try to help Yourself a bit
I googled with it and the answer war right there
publib.boulder.ibm.com/infocenter/dzichelp/v2r2/index.jsp?topic=/com.ibm.db29.doc.codes/00c200ea.htm

now....
work with Your support to find out why the resource is owned by somebody else !!

easy wasn' t it

nartcr · New User Joined: 06 Jun 2007 Posts: 83 Location: anada

Thanks Enrio for the prompt answer.
The help is much appreciated..Its only i am not used to these kind.
Thanks once again.