Author: Susanta
Posted: Sun Sep 25, 2016 4:34 pm (GMT 5.5)
Hi...
I am facing issue with F1 (VB file with len 80) and F2 (FB file of len 55).
getting abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000
The card is ..
In this same step JNF1CNTL is used to add SEQNUM of 10 bytes to file
XXX.XXXX.XXXXX.XXXX.VB.V1
The card is ..
Could you please help.
Thnaks,
_________________
Regards
Posted: Sun Sep 25, 2016 4:34 pm (GMT 5.5)
Hi...
I am facing issue with F1 (VB file with len 80) and F2 (FB file of len 55).
getting abend..
IEF450I TXXXYY03 PS080 JS010 - ABEND=S000 U0016 REASON=00000000
The card is ..
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 |
In this same step JNF1CNTL is used to add SEQNUM of 10 bytes to file
XXX.XXXX.XXXXX.XXXX.VB.V1
The card is ..
Code: |
INREC FIELDS=(1:1,4,5:SEQNUM,10,ZD,15:5,76) |
Could you please help.
Thnaks,
_________________
Regards