IBM Mainframe Forum

by **MAINFRAME GURU** » Fri Jul 17, 2009 12:28 am

Hi Guys,

I am getting the abend code SB37 which is given below :

IEC030I B37-04,IFG0554A,USERID,STEP1,DD1,8FA3,. . . .
.
.
IEF450I USERID STEP1 JOB1 - ABEND=SB37 U0000 REASON=00000004 474

I am getting this error for file XYZ.ABX.FILE. Details of file is as follows:

Select all

//DD1 DD DSN=XYZ.ABX.FILE,
// DISP=(,CATLG,CATLG),
// UNIT=SYSDA,
// SPACE=(CYL,(700,650),RLSE),
// DCB=(MODEL,RECFM=FB,LRECL=400,BLKSIZE=27600)

Can any one please tell me how can I resolve this abend?

by **MAINFRAME GURU** » Fri Jul 17, 2009 12:32 am

I have changed the disp values from

Select all

DISP=(,CATLG,DELETE),

to

Select all

DISP=(,CATLG,CATLG),

as I want to see the size of the file...

Sysout is given below :

Select all

IGZ0034W The file with system-name xyz could not be extended. Secondary extents were not specified or were not
available. The last WRITE was at offset X'09D2' in program abc.
CEE3250C The system or user abend SB37 R=00000004 was issued.

by **dick scherrer** » Fri Jul 17, 2009 2:01 am

Hello,

You ran out of space. . .

How many records are to be written?

Might the code have gone into a loop and continues to "write forever"?

by **MAINFRAME GURU** » Fri Jul 17, 2009 2:25 am

Hi Dick,

Thanks for your response!!!

You are right... I ran out of space.. I resolved this issue and was about to post the solution....

I decreased the no of Cyls. in secondary and also deleted some files those have HLQ "XYZ"... There was no loop issue.

Again Thanks...

Guru

by **dick scherrer** » Fri Jul 17, 2009 2:34 am

You're welcome - good to hear it is working

Thanks for letting us know,

d

IBM Mainframe Forum

ABEND SB37

ABEND SB37

Re: ABEND SB37

Re: ABEND SB37

Re: ABEND SB37

Re: ABEND SB37