сравните два файла, затем поместите совпавшие записи в один файл и непревзойденные записи в другой

Question

У меня есть требование сравнить два файла, затем сопоставить записи одного файла и сопоставить их в другом файле с помощью joinkeys в jcl. Я не уверен, является ли этот файл правильным или нет.Не могли бы вы мне помочь?

JOINKEYS FILE=F1,FIELDS=(1,18,A)                      
JOINKEYS FILE=F2,FIELDS=(1,18,A)                      
JOIN UNPAIRED,F1,F2                                   
REFORMAT FIELDS=(F1:1,100,F2:1,503,?)                 
SORT FIELDS=COPY                                      
OUTFIL FNAMES=NOMATCH,INCLUDE=(604,1,SS,EQ,C'1,2'),   
IFTHEN=(WHEN=(604,1,CH,EQ,C'1'),                      
                BUILD=(1:1,258,260:264,1,263:334,2)), 
      IFTHEN=(WHEN=NONE,                              
                BUILD=(604,603))                      
   OUTFIL FNAMES=MATCH,SAVE,                          
      BUILD=(1:1,258,260:264,1,263:334,2)