البحث إذا سلسلة من نظام التوزيع العام موجود في نظام التوزيع العام آخر

Question

لدي بدس (قل أ) وجود أسماء الوظائف (مجموعة شاملة).لدي بدس آخر (يقول ب) وجود عدد أقل من أسماء الوظائف (مجموعة فرعية).

أفضل طريقة للعثور على أ-ب في ملف آخر ج باستخدام جكل ?

Answer 1

حاول استخدام سينكورت جوين كيز, هذا مثال هو الى حد كبير ما تحتاجه.جكل أدناه هو مثال محدد. AF1 هل ملف المجموعة الشاملة (أ) يحتوي على جميع أسماء الوظائف, AF2 هي المجموعة الفرعية الملف (ب). SORTOUT سوف تحتوي على الفرق (أ-ب).

//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 بطاقة إلى كل ما يتطلب التثبيت الخاص بك.يجب أن يعمل الباقي إلى حد كبير كما هو موضح.