rechercher si la chaîne d'un pds est présente dans un autre pds

Question

J'ai un pds (disons A) ayant des noms de travail (superset).J'ai un autre pds (disons B) ayant un nombre inférieur de noms de tâches (sous-ensemble).

meilleure façon de trouver un A-B dans un autre fichier C en utilisant JCL ?

Answer 1

Essayez d'utiliser JOINTS SYNCORT, ce exemple est à peu près ce dont vous avez besoin.Le JCL ci-dessous est un exemple spécifique. AF1 est le fichier Superset (A) contenant tous les noms de travaux, AF2 est le fichier de sous-ensemble (b). SORTOUT contiendra la différence (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
/*

Si vous exécutez ceci, SORTOUT contiendra les données suivantes :

J000002 
J000005 
J000006 
J000007 
J000009 
J000012 

Note:Vous devrez reformater le JOB carte à tout ce dont votre installation a besoin.Le reste devrait fonctionner à peu près comme illustré.