PDSからの文字列が別のPDSに存在するかどうかを検索する

Question

私はJobNames（SuperSet）を持つPDS（A）を持っています。 私は別のPDS（B）が少ないジョブ名（サブセット）を持っている（B）。

JCLを使用して別のファイルにA-Bを見つける最善の方法は？

Answer 1

Syncort Joinkeys 、 この例はかなりです 何が必要。以下の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 

.

注：あなたのインストールに必要なものは何でもJOBカードを補償する必要があります。残りはかなり働くべきです 図に示すように。