Page 1 of 1

ABEND SB37

PostPosted: Fri Jul 17, 2009 12:28 am
by MAINFRAME GURU
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:

//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?

Re: ABEND SB37

PostPosted: Fri Jul 17, 2009 12:32 am
by MAINFRAME GURU
I have changed the disp values from

DISP=(,CATLG,DELETE),


to

DISP=(,CATLG,CATLG),


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

Sysout is given below :

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.     

Re: ABEND SB37

PostPosted: Fri Jul 17, 2009 2:01 am
by dick scherrer
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"?

Re: ABEND SB37

PostPosted: Fri Jul 17, 2009 2:25 am
by MAINFRAME GURU
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

Re: ABEND SB37

PostPosted: Fri Jul 17, 2009 2:34 am
by dick scherrer
You're welcome - good to hear it is working :)

Thanks for letting us know,

d