I have two input files F1 with lrecl 80 and F2 with lrecl 390, I want to merge these two files on the basis of a key field.
I have used the below sortcard, but getting abend S013:-
JOINKEYS F1=SORTIN1,
FIELDS=(25,6,A)
JOINKEYS F2=SORTIN2,
FIELDS=(115,6,A)
REFORMAT FIELDS=(F1:1,390)
SORT FIELDS=COPY
SYSOUS- AN S013 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT
SYSOUT-
---+----2----+----3----+----4----+----5----+----6----+----7----+---->
RECORD TYPE IS F - DATA STARTS IN POSITION 1
C5-I21470 C6-BASE C7-K96411 C8-I25275 E4-BASE C9-BASE E5-I25610
BLOCKSET SORT TECHNIQUE SELECTED
- CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R1 - 15:32 ON SUN M
** SORT ON CONTRACT ID, EFFECTIVE DATE AND **
** GROUP ID **
** **
SORT FIELDS=(1,25,CH,A,30,10,CH,A,118,12,CH,A,130,12,CH,A)
SYSOUS NOT FOUND - SYSOUT USED
ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
SXP0213A.STEP01 .SORTB , INPUT LRECL = 331, BLKSIZE = 27804, TYPE
MAIN STORAGE = (MAX,10485760,10485760)
MAIN STORAGE ABOVE 16MB = (10383344,10383344)
OPTIONS: OVFLO=RC4 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC4 ,VLSCMP=N,SZERO=Y
OPTIONS: SIZE=10485760,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,E
OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=Y,CHALT
OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKP
OPTIONS: TMAXLIM=10485760,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CF
OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
OPTIONS: NULLOUT=RC0
OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=MAX ,EXPOLD=35 ,
EXCP ACCESS METHOD USED FOR SORTOUT
EXCP ACCESS METHOD USED FOR SORTIN
DC 166128900 TC 0 CS DSVVV KSZ 63 VSZ 63
FSZ=501900 RC IGN=0 E AVG=336 0 WSP=219032 C DYN=0 0
DE-BASE D5-I29410 D3-BASE ED-BASE E8-I29717
OUTPUT LRECL = 390, BLKSIZE = 27690, TYPE = FB
SORTOUT LRECL OF 390 IS DIFFERENT FROM SORTIN(NN) LRECL OF 331 - RC=0
INSERT 0, DELETE 0
FIELDS=(25,6,A)
JOINKEYS F2=SORTIN2,
FIELDS=(115,6,A)
REFORMAT FIELDS=(F1:1,390)
SORT FIELDS=COPY
SYSOUS- AN S013 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT
SYSOUT-
---+----2----+----3----+----4----+----5----+----6----+----7----+---->
RECORD TYPE IS F - DATA STARTS IN POSITION 1
C5-I21470 C6-BASE C7-K96411 C8-I25275 E4-BASE C9-BASE E5-I25610
BLOCKSET SORT TECHNIQUE SELECTED
- CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R1 - 15:32 ON SUN M
** SORT ON CONTRACT ID, EFFECTIVE DATE AND **
** GROUP ID **
** **
SORT FIELDS=(1,25,CH,A,30,10,CH,A,118,12,CH,A,130,12,CH,A)
SYSOUS NOT FOUND - SYSOUT USED
ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
SXP0213A.STEP01 .SORTB , INPUT LRECL = 331, BLKSIZE = 27804, TYPE
MAIN STORAGE = (MAX,10485760,10485760)
MAIN STORAGE ABOVE 16MB = (10383344,10383344)
OPTIONS: OVFLO=RC4 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC4 ,VLSCMP=N,SZERO=Y
OPTIONS: SIZE=10485760,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,E
OPTIONS: VIO=N,RESDNT=NONE,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=Y,CHALT
OPTIONS: RESALL=12288,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKP
OPTIONS: TMAXLIM=10485760,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CF
OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
OPTIONS: NULLOUT=RC0
OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=MAX ,EXPOLD=35 ,
EXCP ACCESS METHOD USED FOR SORTOUT
EXCP ACCESS METHOD USED FOR SORTIN
DC 166128900 TC 0 CS DSVVV KSZ 63 VSZ 63
FSZ=501900 RC IGN=0 E AVG=336 0 WSP=219032 C DYN=0 0
DE-BASE D5-I29410 D3-BASE ED-BASE E8-I29717
OUTPUT LRECL = 390, BLKSIZE = 27690, TYPE = FB
SORTOUT LRECL OF 390 IS DIFFERENT FROM SORTIN(NN) LRECL OF 331 - RC=0
INSERT 0, DELETE 0
code' d for readability
Please tell me, how do i get through this abend?
recased the text,
all caps is equivalent to shouting
and on any forum it is considered bad manners,
a moderator
