zos - pds からの文字列が別の pds に存在するかどうかを検索します

Question

ジョブ名（スーパーセット）を持つpds（たとえばA）があります。ジョブ名 (サブセット) の数が少ない別の pds (たとえば B) があります。

JCLを使用してABを別のファイルCに見つける最良の方法は?

Answer 1

SYNCORT JOINKEYSを使用してみてください。この例は、ほとんど必要なものです。以下のJCLは特定の例です。AF1はすべてのジョブ名を含むスーパーセットファイル（A）、AF2はサブセットファイル（B）です。SORTOUT差（AB）が含まれます。

//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インストールに必要なものにカードを再フォーマットする必要があります。残りは、図のようにほぼ機能するはずです。