MVSFORUMS.com

[anandss_75]

Hello All,
I am confronting a SB37 while SORT to find out matching records between two files.
My jcl looks something like this

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=VSISNAG.SORT.ACPUNLOD.OUTPUT,DISP=SHR
//IN2 DD DSN=VSISNAG.SORT.INPUT2,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=VSISNAG.ACPUNLOD.OUTPUT,DISP=OLD
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CP02)
COPY FROM(IN2) TO(T1) USING(CP01)
SELECT FROM(T1) TO(OUT) ON(20,4,BI) ALLDUPS USING(CP03)
/*
//CP01CNTL DD *
OUTREC BUILD=(19X,2,10,ZD,TO=BI,LENGTH=4,37X,61:C'2')
/*
//CP02CNTL DD *
OUTREC BUILD=(1,60,C'1')
//*//CP03CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(61,1,CH,EQ,C'1'),BUILD=(1,60)
//*
//DFSPARM DD *
OPTION SOLRF
FILSZ=E45000000
/*



My dfsmsg gives the following messages

ICE084I 0 EXCP ACCESS METHOD USED FOR TEMP1
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN2
ICE751I 2 EF-K10929 F0-Q84357 DA-K26318
ICE185A 0 AN SB37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (


Please help me resolving this abend.

Thanks
Anand

[krisprems]

try increasing space for the T1 dataset

[vkphani]

Anand,
You encounter a B37 system abend when you run out of space for the target dataset.So try increasing the space parameters on the OUT dataset of your job and try.

[anandss_75]

Phani,
I had tried increasing the same to the extent possible and still i am getting this issue. Only due to this reason did i give filsiz option under dfsparms.
Also what you said about spool is true..the jcl i gave was a sample jcl for you to understand. the error is a fact.

Search on ICE185A gives me hits like S0C9 on sort.
just increasing space won't do here. Thanks anyways for the inputs.

Thanks
Anand

[vkphani]

Anand,

you have post your error statements here.

[CraigG]

[vkphani]

Anand,

Always put your code in between [code] and [ /code] which makes the code to look better.

[krisprems]

if error messages and JCL are not connected then
_________________
cHEERs
krisprems

[Frank Yaeger]

Anand,

You haven't posted information that will allow anybody to help you much. You said you received a B37 abend which indicates a space problem. But you haven't shown us the JES messages that indicate which data set the B37 was issued for. We don't know if the B37 is associated with T1, OUT or a work data set. The messages you did show don't even relate to the JCL you show so they're pretty useless.

If you want somebody to help you, you need to provide the correct information which in this case would be the JES, TOOLMSG and DFSMSG output for the job that received the B37 abend.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

[anandss_75]

Hello Everyone,
Regret the misinformation delivered. The Jcl i had posted was just a sample. The actual jcl is in production and the control cards are in specific card libraries. Hence the mismatch in the error messages and the card. To set things straight, please find below the corrected Jcl and the corresponding messages

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=PRWTPGG..SORT.PGG429PA.ULCLPTBL(0),DISP=SHR
//IN2 DD DSN=VSISNAG.SORT.CLIENTS.ADDED.DX072891,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(9000,9000),RLSE),
// DISP=(MOD,PASS)
//OUT DD DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=1270),
// SPACE=(CYL,(9000,9000),RLSE),
// LABEL=RETPD=9,
// DSN=VSISNAG.SORT.CLIENTS.ADDED.ULCLPTBL.DX072891
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CP01)
COPY FROM(IN2) TO(T1) USING(CP02)
SELECT FROM(T1) TO(OUT) ON(1,4,BI) ALLDUPS USING(CP03)
/*
//CP01CNTL DD * OUTREC BUILD=(1271:C'1')
/*
//CP02CNTL DD *
OUTREC BUILD=(2,10,ZD,TO=BI,LENGTH=4,1271:C'2')
//*
//CP03CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=(1271,1,CH,EQ,C'1'),BUILD=(1,1270)
//*
//DFSPARM DD *
OPTION SOLRF
FILSZ=E45000000
/*



MESSAGES
========

JESMSGLG
IEF403I VSISNAGR - STARTED - TIME=02.07.39
IEC030I B37-04,IFG0554A,VSISNAGR,STEP055,TEMP1,1F07,WK7066,04210010,S
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=B37 REASON CODE=00000004
TIME=02.11.30 SEQ=54142 CPU=0000 ASID=02D4
PSW AT TIME OF ERROR 075C1000 80D72CDE ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00D72CD8 - 41003846 0A0DB20A 00509808
GR 0: 00000003_00D72EE8 1: 00000000_A4B37000
2: 00000000_0001B0F8 3: 00000000_00D726A2
4: 00000000_008D0340 5: 00000000_00D88000
6: 00000000_008D05E4 7: 00000000_008D063C
8: 00000000_008D0604 9: 00000000_008E77E0
A: 00000000_008B7AC8 B: 00000000_008D0000
C: 00000000_008C6210 D: 00000000_00000008
E: 00000000_00D72B04 F: 00000000_00000004
END OF SYMPTOM DUMP
+ICE185A 0 VSISNAGR.PGGXXXP1 AN SB37 ABEND WAS ISSUED BY DFSORT, ANO
IEF450I VSISNAGR STEP055 PGGXXXP1 - ABEND=SB37 U0000 REASON=00000004OPS1094J ERROR 94 RUNNING $COMMON.IEF450I, LINE 69: OVER 10 SECONDS U
- --TIMINGS (MINS.)--



TOOLMSG

ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(SORTIN1) TO(TEMP1) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM SORTIN1 TO TEMP1 USING CTL1CNTL CO
ICE602I 0 OPERATION RETURN CODE: 00

COPY FROM(SORTIN2) TO(TEMP1) USING(CTL2)



DFSMSG MESSAGES
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=33554432,MAXLIM=524288,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=N,CF
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR TEMP1
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN2
ICE751I 2 EF-K10929 F0-Q84357 DA-K12640
ICE185A 0 AN SB37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE OR AN EXIT (PHASE C 3)



Thanks for all your help thus far.

Thanks
Anand

[krisprems]

Your TOOLMSG says

[anandss_75]

Krisprems,
Regret the typo again. Please find the correct messages

JCL

//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=PRWTPGG..SORT.PGG429PA.ULCLPTBL(0),DISP=SHR
//IN2 DD DSN=VSISNAG.SORT.CLIENTS.ADDED.DX072891,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(9000,9000),RLSE),
// DISP=(MOD,PASS)
//OUT DD DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=1270),
// SPACE=(CYL,(9000,9000),RLSE),
// LABEL=RETPD=9,
// DSN=VSISNAG.SORT.CLIENTS.ADDED.ULCLPTBL.DX072891
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CP01)
COPY FROM(IN2) TO(T1) USING(CP02)
SELECT FROM(T1) TO(OUT) ON(1,4,BI) ALLDUPS USING(CP03)
/*
//CP01CNTL DD * OUTREC BUILD=(1271:C'1')
/*
//CP02CNTL DD *
OUTREC BUILD=(2,10,ZD,TO=BI,LENGTH=4,1271:C'2')
//*
//CP03CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=(1271,1,CH,EQ,C'1'),BUILD=(1,1270)
//*
//DFSPARM DD *
OPTION SOLRF
FILSZ=E45000000
/*



TOOLMSG
ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(IN1) TO(T1) USING(CP01)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN1 TO T1 USING CP01CNTL
ICE602I 0 OPERATION RETURN CODE: 00

COPY FROM(IN2) TO(T1) USING(CP02)


DFSMSG









ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 02:49 ON TUE OC
OPTION SOLRF
FILSZ=E45000000
ICE140I 0 END OF PARAMETERS FROM DFSPARM - SYSIN OR CP02CNTL/PARAMETER LIST CO
OUTREC BUILD=(2,10,ZD,TO=BI,LENGTH=4,1271:C'2')
ICE146I 0 END OF STATEMENTS FROM CP02CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CP02,SORTIN=IN2,
RTOUT=T1,DYNALLOC
SORT FIELDS=COPY
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE E5-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 VSISNAG0.S1 . , INPUT LRECL = 133, BLKSIZE = 133, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,4194304,4194304)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4101751,4101751)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=YICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=524288,MINLIM=450560,EQUALS=N,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=N,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=N,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=Y,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=0 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE084I 0 EXCP ACCESS METHOD USED FOR IN2
ICE751I 2 EF-K10929 F0-Q84357 DA-K26318
ICE185A 0 AN SB37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHAS



JESMSGLG
IEF403I VSISNAG0 - STARTED - TIME=02.44.32
IEC030I B37-04,IFG0554A,VSISNAG0,S1,T1,1F0C,WK7071,04210010,SYS07296.
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=B37 REASON CODE=00000004
TIME=02.49.23 SEQ=22214 CPU=0000 ASID=004C
PSW AT TIME OF ERROR 075C1000 80D65CDE ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00D65CD8 - 41003846 0A0DB20A 00509808
GR 0: 00000002_00D65EE8 1: 00000000_A4B37000
2: 00000000_0001C0F8 3: 00000000_00D656A2
4: 00000000_008D2420 5: 00000000_00D7C000
6: 00000000_008D26C4 7: 00000000_008D271C
8: 00000000_008D26E4 9: 00000000_008E8780
A: 00000000_008B9DE8 B: 00000000_008E8EC8
C: 00000000_008C614C D: 00000000_00000008
E: 00000000_00D65B04 F: 00000010_00000004
END OF SYMPTOM DUMP
+ICE185A 0 VSISNAG0.S1 AN SB37 ABEND WAS ISSUED BY DFSORT, ANO
IEF450I VSISNAG0 S1 - ABEND=SB37 U0000 REASON=00000004

[vivek1983]

anandss_75,

As Phani has advised, please use [CODE] tags for clarity of the code you are posting.

Also you are still not posting the error messages corresponding to the job which returned with a SB37.
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[vivek1983]

anandss_75,

Regrets ! Didnt refresh my page before posting.
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[vkphani]

Anand,

You are not providing the correct error messages.