Author: Susanta
Subject: Joinkeys operation betwen VB and FB file
Posted: Sun Sep 25, 2016 9:49 pm (GMT 5.5)
Hi...
Facing issue with joinkey operation for F1 (VB file with len 80) and F2 (FB file of len 55) , when F1s 1,14 mathces with F2s 2,14 then write F2s 16,14 and f1s 15 to end of record to F1only file. (In case no match then write complete F1 record to F1ONLY.)
Output file F1ONLY need to be of lrecl and format same as F1 file.
In this same step JNF1CNTL is used to add SEQNUM of 10 bytes to F1 file
XXX.XXXX.XXXXX.XXXX.VB.V1
The card is ..
Job gives abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000
The card details from sysout..
Could you please help.
Thanks
_________________
Regards
Subject: Joinkeys operation betwen VB and FB file
Posted: Sun Sep 25, 2016 9:49 pm (GMT 5.5)
Hi...
Facing issue with joinkey operation for F1 (VB file with len 80) and F2 (FB file of len 55) , when F1s 1,14 mathces with F2s 2,14 then write F2s 16,14 and f1s 15 to end of record to F1only file. (In case no match then write complete F1 record to F1ONLY.)
Output file F1ONLY need to be of lrecl and format same as F1 file.
In this same step JNF1CNTL is used to add SEQNUM of 10 bytes to F1 file
XXX.XXXX.XXXXX.XXXX.VB.V1
The card is ..
Code: |
INREC FIELDS=(1:1,4,5:SEQNUM,10,ZD,15:5,76) |
Job gives abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000
The card details from sysout..
Code: |
SYNCSORT FOR Z/OS 2.1.1.1R U.S. PATENTS: 4210961, 5117495 (C) 2014 SYNCSO z/OS 2.1.0 SYNCSORT LICENSED FOR CPU SERIAL NUMBER 19D64, MODEL 2827 718 LICEN SYSIN : JOINKEYS FILE=F1,FIELDS=(15,14,CH,A) JOINKEYS FILE=F2,FIELDS=(2,14,CH,A) JOIN UNPAIRED,F1 REFORMAT FIELDS=(F1:1,4,5,86,F2:1,55),FILL=C'$' SORT FIELDS=(5,10,ZD,A) OUTFIL FNAMES=F1ONLY,IFOUTLEN=80, IFTHEN=(WHEN=(5,1,CH,NE,C'$',AND,91,1,CH,EQ,C'$'), BUILD=(1,4,15,76)), IFTHEN=(WHEN=(5,1,CH,NE,C'$',AND,91,1,CH,NE,C'$'), BUILD=(1,4,106,14,29,62)) WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED WER164B 17,736K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED, WER164B 0 BYTES RESERVE REQUESTED, 416K BYTES USED WER146B 32K BYTES OF EMERGENCY SPACE ALLOCATED WER481I JOINKEYS REFORMAT RECORD LENGTH= 145, TYPE = F WER202A F1ONLY RECFM INCOMPATIBLE WER110I F1ONLY : RECFM=VB ; LRECL= 80; BLKSIZE= WER074I F1ONLY : DSNAME=TXX.XX.XXXXX.TEST.VB.V2 WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 WER482I JNF1 STATISTICS WER483B 1,956K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED, WER483B 0 BYTES RESERVE REQUESTED, 476K BYTES USED WER108I SORTJNF1 : RECFM=VB ; LRECL= 80; BLKSIZE= 27998 WER073I SORTJNF1 : DSNAME=XXX.XXXX.XXXXX.XXXX.VB.V1 WER482I JNF2 STATISTICS WER483B 1,956K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED, WER483B 0 BYTES RESERVE REQUESTED, 476K BYTES USED WER108I SORTJNF2 : RECFM=FB ; LRECL= 55; BLKSIZE= 5500 WER073I SORTJNF2 : DSNAME=TXX.XX.XREF.FILE |
Could you please help.
Thanks
_________________
Regards