Dave,
If your input record count is NOT a multiple of 4, then you may want to see
the unpaired records too. My earlier job will only consider the paired
records. So in order to account for the unpaired records , change the main
task SYSIN to the following
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(31,9,A),SORTED,NOSEQCK
JOINKEYS F2=INB,FIELDS=(31,9,A),SORTED,NOSEQCK
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,39,F2:1,39,?)
INCLUDE COND=(79,1,CH,EQ,C'B',OR,
(79,1,CH,EQ,C'1',AND,39,1,ZD,LE,2))
INREC BUILD=(1,30,C'|',40,30)
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
