IBM Mainframe Forum

Good day,

Could anyone please assist with this abend code? I found some posts relating to this but none seem to resolve my issue.

I am trying to load 13 Million rows into a table (new version of my database - must carry over all the data). At first I was getting an SB37 but this seemed to be resolved when I changed my temporary work files to tape:

//DSNUPROC.SORTWK01 DD DSN=&&SORT01,
// DISP=(NEW,DELETE,DELETE),
//* SPACE=(CYL,(500,300),RLSE),
//* UNIT=SYSDA
// UNIT=TAPE,VOL=(,,,12)

Now, I am getting the S04E abend and I can't seem to think of any way to get around it. My input file is on tape and I am not familiar with a way to split it in half or in four - if it was on disk I would use file aid.

In my log I have:
IEA848I DUMP SUPPRESSED - ABDUMP MAY NOT DUMP STORAGE FOR KEY 0-7 JOB OAL3A01L
IECTMS9 86C7,131611,** WORK TAPE **
IECTMS9 86C3,132291,** WORK TAPE **
IEC205I SORTOUT,OAL3A01L,DSNUPROC,FILESEQ=1, COMPLETE VOLUME LIST, 331
DSN=SYS15180.T104548.RA000.OAL3A01L.SORTUT.H03,VOLS=132291
IEF450I OAL3A01L DSNUPROC LOAD - ABEND=S04E U0000 REASON=00E40345 332

In the UTPRINT file I have:
SORT FIELDS=(00006.0,00000.4,A,00012.0,00135.0,A,00001.0,00005.0,A),
FORMAT=BI,FILSZ=E000000065327340
RECORD TYPE=F,LENGTH=(00146,00146,00146)
OPTION MSGPRT=ALL,MSGDDN=UTPRINT,MAINSIZE=MAX,NOEQUALS
BLOCKSET REQUIRED BUT COULD NOT BE USED - REASON CODE IS 17
END OF DFSORT

Any suggestions as to how to get my load to complete?

Did you:
a) research your reason code = 00E40345?
b) research your "BLOCKSET REQUIRED BUT COULD NOT BE USED - REASON CODE IS 17"?
If you did b) then maybe you might have to rethink your fix for the B37.

These users thanked the author NicC for the post:

vxd012 (Mon Jun 29, 2015 10:46 pm)

NicC wrote:a) research your reason code = 00E40345?

I did - that's where I got that this was related to the sort but not too much on how to resolve it

NicC wrote:b) research your "BLOCKSET REQUIRED BUT COULD NOT BE USED - REASON CODE IS 17"?

I just did as you were replying and this is what I found:

17 - A SORTWKdd data set resided on an unsupported device (such as tape).

Like you said, seems I will have to rethink my solution to the SB37..

Thanks!

For reference to others who might also be having this issue. This is how mine was fixed.

As discovered in my previous post, TAPE is not a valid device for the SORTWKxx datasets. I put these back to SYSDA but I was left with an SB37 abend. A colleague suggested I try the following which worked perfectly. Make sure you have the following in all your datasets and you should be good to go.

//DSNUPROC.SORTWK01 DD DSN=&&SORT01,
// DISP=(NEW,DELETE,DELETE),
// SPACE=(CYL,(500,300),RLSE),
// UNIT=(SYSDA,30)

Thanks NicC for pointing me in the right direction!