Suchen Sie, ob die Zeichenfolge aus einem PDS in einem anderen PDS vorhanden ist

Question

Ich habe ein PDS (z. B. A) mit Jobnamen (Obermenge).Ich habe ein anderes PDS (z. B. B) mit einer geringeren Anzahl von Jobnamen (Teilmenge).

Der beste Weg, mit JCL ein A-B in einer anderen Datei C zu finden?

Answer 1

Versuchen Sie es mit SYNCORT JOINKEYS, Das Beispiel ist so ziemlich das, was Sie brauchen.Die folgende JCL ist ein konkretes Beispiel. AF1 ist die Superset-Datei (A), die alle Jobnamen enthält, AF2 ist die Teilmengedatei (b). SORTOUT wird die Differenz (A-B) enthalten.

//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
/*

Wenn Sie dies ausführen, SORTOUT wird folgende Daten enthalten:

J000002 
J000005 
J000006 
J000007 
J000009 
J000012 

Notiz:Sie müssen das Format neu formatieren JOB Passen Sie die Karte an alles an, was Ihre Installation erfordert.Der Rest sollte so ziemlich wie illustriert funktionieren.