ken herbolic
New User
Joined: 24 Jan 2011 Posts: 16 Location: buffalo
|
|
|
|
thanks for all the help....sync sort support has shown me the problem with my code....the below is a working sample for anyone that may have a simiplar need.
Code: |
JOINKEYS FILE=F1,FIELDS=(1,9,A)
JOINKEYS FILE=F2,FIELDS=(1,9,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,9,10,51,F2:1,9,10,58),FILL=X'40'
OUTREC IFTHEN=(WHEN=(1,1,BI,EQ,X'40'),BUILD=(61,9,51X,70,58)),
IFTHEN=(WHEN=(NONE),BUILD=(1,60,70,58))
SORT FIELDS=COPY |
|
|