Author: migusd
Posted: Sun Jun 19, 2016 7:18 am (GMT 5.5)
this is the execution with the first part of your suggestions, Rohit & Bill
the msg I got is this
UBADS383,JS0030 , -SORTOF1 OUTREC RDW NOT INCLUDED
and the sort parms
_________________
shikoulitz
Posted: Sun Jun 19, 2016 7:18 am (GMT 5.5)
this is the execution with the first part of your suggestions, Rohit & Bill
the msg I got is this
UBADS383,JS0030 , -SORTOF1 OUTREC RDW NOT INCLUDED
and the sort parms
| Quote: |
| JOIN UNPAIRED,F1,F2 JOINKEYS FILE=F1,FIELDS=(19,64,A) JOINKEYS FILE=F2,FIELDS=(19,64,A) REFORMAT FIELDS=(F1:1,004, RDW F1:05,013, 005 - 017 PREVIOUS TES F2:05,013, 018 - 030 CURRENT TES F1:19, 031 - 094 PREVIOUS ESRIDNM F2:19), 095 - 158 CURRENT ESRIDNM FILL=X'FF' OMIT COND=(5,13,CH,EQ,18,13,CH,AND,031,064,CH,EQ,095,064,CH) SORT FIELDS=COPY OUTFIL FILES=1, * DELETED ESRIDNMS INCLUDE=(5,1,BI,EQ,X'FF'), BUILD=(DTES,PIP,PESR), HEADER2=(10:' DELETED ESRIDNMS',/, 01:'TES #', 15:'ESRIDNM DESCRIPTION') OUTFIL FILES=2, * ADDED ESRIDNMS INCLUDE=(018,1,BI,EQ,X'FF'), BUILD=(ATES,PIP,FESR), HEADER2=(10:' ADDED ESRIDNMS',/, 01:'TES #', 15:'ESRIDNM DESCRIPTION') * OUTFIL FILES=3, * CHANGED ESRIDNMS * INCLUDE=(018,1,BI,EQ,X'FF'), * BUILD=(RDW0,DTES,PIP,PESR,PIP,ATES,PIP,FESR), * HEADER2=(10:' CHANGED ESRIDNMS',/, * 01:'TES #', * 15:'ESRIDNM DESCRIPTION') DATA DICTIONARY SYMBOLS SUBSTITUTED : JOIN UNPAIRED,F1,F2 JOINKEYS FILE=F1,FIELDS=(19,64,A) JOINKEYS FILE=F2,FIELDS=(19,64,A) REFORMAT FIELDS=(F1:1,004,F1:05,013,F2:05,013,F1:19,F2:19),FILL=X'FF' OMIT COND=(5,13,CH,EQ,18,13,CH,AND,031,064,CH,EQ,095,064,CH) SORT FIELDS=COPY OUTFIL FILES=1,INCLUDE=(5,1,BI,EQ,X'FF'),BUILD=(5,13,C'|',31,64),HEADER2=(10:' D ELETED ESRIDNMS',/,01:'TES #',15:'ESRIDNM DESCRIPTION') OUTFIL FILES=2,INCLUDE=(018,1,BI,EQ,X'FF'),BUILD=(18,13,C'|',95,64),HEADER2=(10: ' ADDED ESRIDNMS',/,01:'TES #',15:'ESRIDNM DESCRIPTION') WER813I INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED WER276B SYSDIAG= 4290742, 11632663, 11632663, 9737185 WER164B 46,016K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED, WER164B 0 BYTES RESERVE REQUESTED, 1,000K BYTES USED WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED WER481I JOINKEYS REFORMAT RECORD LENGTH= 544, TYPE = V WER235A SORTOF1 OUTREC RDW NOT INCLUDED WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
_________________
shikoulitz