Compare FB with VB to get VB file
Posted: Fri Oct 14, 2011 11:04 pm
Hi All,
I have a requirement to extract the file, I used Key file as a FB file of 20 LRECL and the data file as 4096 LRECL VB file. The actual data is only 4092 and 4 byte is RDW.
My keys are @ first 10 position in both the Key and the data file. I used SORT to match between these two files and extract the data. Below is the sort Card.
In this in my input file, 1000 is the maximum length of the file, but the total length was defines assuming that we might get additional data for that file.
When I tried to execute this match, I got my matched / extracted record to O/P file, but the o/p file is filled with X'FF' till the rest of the record after 1000 position. Could you please advise me what I missed here.
Many thanks,
HK
I have a requirement to extract the file, I used Key file as a FB file of 20 LRECL and the data file as 4096 LRECL VB file. The actual data is only 4092 and 4 byte is RDW.
My keys are @ first 10 position in both the Key and the data file. I used SORT to match between these two files and extract the data. Below is the sort Card.
Code: Select all
JOINKEYS FILES=F1,FIELDS=(1,10,A)
JOINKEYS FILES=F2,FIELDS=(5,10,A)
REFORMAT FIELDS=(F1:1,20,F2:1,4096),FILL=X'FF'
JOIN UNPAIRED
SORT FIELDS=COPY
OUTFIL FILES=01,
INCLUDE=(25,2,BI,NE,X'FF',AND,1,2,CH,NE,X'FF'),
OUTREC=(25,4096)
OUTFIL FILES=02,
INCLUDE=(1,2,BI,NE,X'FF')
OUTREC=(25,4096)
When I tried to execute this match, I got my matched / extracted record to O/P file, but the o/p file is filled with X'FF' till the rest of the record after 1000 position. Could you please advise me what I missed here.
Many thanks,
HK