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?
DSNUPROC abend: ABEND=S04E U0000 REASON=00E40345
-
- Global moderator
- Posts: 3025
- Joined: Sun Jul 04, 2010 12:13 am
- Skillset: JCL, PL/1, Rexx, Utilities and to a lesser extent (i.e. I have programmed using them) COBOL,DB2,IMS
- Referer: Google
- Location: Pushing up the daisies (almost)
Re: DSNUPROC abend: ABEND=S04E U0000 REASON=00E40345
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.
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.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
Regards
Nic
-
- Posts: 3
- Joined: Mon Jun 29, 2015 8:32 pm
- Skillset: COBOL, JCL, DB2, CICS
- Referer: Google search
Re: DSNUPROC abend: ABEND=S04E U0000 REASON=00E40345
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!
-
- Posts: 3
- Joined: Mon Jun 29, 2015 8:32 pm
- Skillset: COBOL, JCL, DB2, CICS
- Referer: Google search
Re: DSNUPROC abend: ABEND=S04E U0000 REASON=00E40345
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!
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!
-
- Similar Topics
- Replies
- Views
- Last post
-
- 0
- 2117
-
by MainframeCoder
View the latest post
Thu Oct 14, 2021 6:13 am
-
- 0
- 1788
-
by bwissink
View the latest post
Thu Sep 02, 2021 10:04 pm
-
- 3
- 1781
-
by Blackthorn
View the latest post
Fri Mar 05, 2021 9:34 pm