比较两个VB平面文件中POSITION 1到5的RECORDS，并在第三个文件JCL中写入匹配的记录

Question

 file 1 :   AAAAA1234
            AAA111ZZZ
            BBBB111ZZ 

file2  :    KAAAA1234
            AAA111ZZZ
            BBBB111ZZ

文件将与第一个5个字母进行比较，并且将编写第3个文件

 FILE 3 :   AAA111ZZZ
            BBBB111ZZ

Answer 1

JOINKEYS FILE=F1,FIELDS=(1,5,A)
JOINKEYS FILE=F2,FIELDS=(1,5,A)
REFORMAT FIELDS=(F1:1,9)
SORT FIELDS=COPY

这将匹配两个文件，仅处理匹配（将忽略不匹配）并为JOINKEYS的主任务创建记录，该记录来自F1的输入记录。主任务只将其输入复制到其输出。输出将在SORTOUT上。输入是SRTJFNF1和SRTJNF2。

如果这与您之前的问题有关，则根据您拥有的SORT产品，该产品的级别以及是否有“补丁”，您可以将任何INCLUDE / OMIT处理放入JNFnCTNL文件中（其中n为1或2，具体取决于输入文件）。为您节省一大步。您还可以在JOINKEYS的主任务中包含/ OMIT，但为什么SORT超出您的需要。

如果您的文件1已按排序顺序排列，则可以将,SORTED添加到该文件的JOINKEYS中。如果是，并且您有DFSORT（请在前一个问题上告诉我们），您也可以,NOSEQCHK。