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 ?
La solution
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é.
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow