搜索pds中的字符串是否存在於另一個pds中

Question

我有一個具有jobnames（超集）的pds（比如說A）。 我有另一個pds（稱爲B）具有較少數量的作業名稱（子集）。

使用JCL將A-B查找到另一個文件C的最佳方式是？

Answer 1

嘗試使用SYNCORT JOINKEYS, 這example是非常多 你需要什麼。下面的JCL是一個具體的例子。 AF1是包含所有作業名稱的Superset文件（A），AF2是子集 文件（B）。 SORTOUT將包含差異（A-B）。

//MYJOB JOB Whatever your job card needs 
//AMINUSB EXEC PGM=SYNCSORT,PARM='INCORE=OFF' 
//AF1 DD *     Superset file 'A' 
J000001 
J000002 
J000003 
J000004 
J000005 
J000006 
J000007 
J000008 
J000009 
J000010 
J000011 
J000012 
/* 
//BF2 DD *     Subset file 'B' 
J000001 
J000003 
J000004 
J000008 
J000010 
J000011 
/* 
//SORTOUT DD SYSOUT=* 'A' - 'B' 
//* 
//SORTMSG DD SYSOUT=* 
//SYSOUT DD SYSOUT=* 
//CEEDUMP DD SYSOUT=* 
//STATOUT DD SYSOUT=* 
//SYSIN  DD * 
    JOINKEYS FILE=F1,FIELDS=(1,7,A) 
    JOINKEYS FILE=F2,FIELDS=(1,7,A) 
    JOIN UNPAIRED,F1,ONLY 
    REFORMAT FIELDS=(F1:1,7) 
    OPTION COPY 
    END 
/* 

如果你運行這個，SORTOUT將包含以下數據：

J000002 
J000005 
J000006 
J000007 
J000009 
J000012 

注意：您將不得不refomat的JOB卡，無論您的安裝需要。其餘的應該如圖所示幾乎可以工作 。