Recherche de chaîne de caractères dans le PDS et excluent les résultats à l'aide de JCL

Il y a probablement beaucoup de meilleures façons de le faire, mais cela devrait fonctionner pour vous.
Copiez le texte suivant JCL et remplacer:

• votre-job-voiture-info avec tout ce que votre carte de travail besoins
• pds à la recherche avec le nom de la PDS vous souhaitez rechercher
• temp-pds-nom avec une pièce d'PDS nom pour ne pas les dupliquer tout ce que vous avez déjà
• chaîne-de-recherche-pour avec la chaîne que vous souhaitez rechercher PDS membres pour

La liste du PDS membres qui ne contiennent pas de chaîne-de-recherche-pour seront inscrites en vertu de DD LISTE,
qui vous pouvez rediriger, le cas échéant.

La première étape de travail (de RECHERCHE) invoque l'ISPF SEARCHFOR utilitaire, pour identifier tous les PDS membres qui contiennent la chaîne.
La deuxième étape (LSTPDS invoque le TSO LISTDS utilitaire permettant de lister tous les membres du PDS. La troisième étape (REXXPGM) écrit un peu
REXX procédure temporaire PDS pour une utilisation dans l'étape suivante. La dernière étape (LSTMBR) exécute la procédure REXX pour construire la LISTE de dataset
et supprime les fichiers temporaires construits le long de la manière.

Si l'on a été assez intelligent, je pense que ICETOOL pourrait probablement remplacer les 2 dernières étapes (mais que diable... en Fait je n'ai trouver un meilleur processus, voir le prochain JCL après celui-ci)

//LOOKFOR JOB your-job-card-info
//*====================================================================
//SEARCH  EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'ANYC')
//NEWDD  DD DSN=pds-to-search,DISP=SHR
//OUTDD DD DSN=&&SRCH,DISP=(NEW,PASS,DELETE),
//           AVGREC=K,
//           SPACE=(133,(5,5)),
//           DCB=(LRECL=133,BLKSIZE=133,RECFM=FB)
//SYSIN  DD *
SRCHFOR  'string-to-search-for'
/*
//*====================================================================
//LSTPDS   EXEC PGM=IKJEFT01
//SYSTSPRT DD DSN=&&MBRS,DISP=(NEW,PASS,DELETE),
//           AVGREC=K,
//           SPACE=(80,(5,5)),
//           DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)
//SYSTSIN  DD *
 LISTDS 'pds-to-search' MEMBERS
/*
//REXXPDS  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 ALLOCATE DSN('temp-pds-name') NEW KEEP -
          DSORG(PO) RECFM(F,B) LRECL(80) -
          AVGREC(U) SPACE(80,100) DIR(5) DSNTYPE(PDS)
/*
//*====================================================================
//REXXPGM  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 REPRO INFILE(REXXPROG) OUTDATASET('temp-pds-name(MBRLIST)')
/*
//REXXPROG DD *
'EXECIO * DISKR SRCH(FINIS STEM X.'
FND = ''
DO I = 1 TO X.0
  IF WORD(X.I, 3) = 'STRING(S)' THEN FND = FND WORD(X.I, 1)
END
DROP X.
'EXECIO * DISKR MBRS(FINIS STEM X.'
MBRS = 0
DO I = 1 TO X.0 - 2
  IF MBRS & WORDPOS(WORD(X.I, 1), FND) = 0 THEN
     QUEUE WORD(X.I,1)
  ELSE
     IF X.I = '--MEMBERS--' THEN MBRS = 1 
END
'EXECIO * DISKW LISTING(FINIS'
RETURN
/*
//*====================================================================
//LISTMBR  EXEC PGM=IKJEFT01,PARM=('%MBRLIST')
//SYSEXEC  DD DSN=NXB123.JUNK,DISP=(OLD,DELETE,DELETE)
//SRCH     DD DSN=&&SRCH,DISP=(OLD,DELETE,DELETE)
//MBRS     DD DSN=&&MBRS,DISP=(OLD,DELETE,DELETE)
//LISTING  DD SYSOUT=A
//SYSTSPRT DD SYSOUT=A
//SYSTSIN  DD *
/*
//

Et c'est une encore meilleure réponse... Juste fallu un certain temps pour y arriver

//MYJOB JOB your-job-card-info
//SEARCH  EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'LNFMTO')
//NEWDD  DD DSN=pds-to-search,DISP=SHR
//OUTDD DD DSN=&&SRCH,DISP=(NEW,PASS,DELETE),
//           AVGREC=K,
//           SPACE=(133,(5,5)),
//           DCB=(LRECL=133,BLKSIZE=133,RECFM=FB)
//SYSIN  DD *
 SRCHFOR  'string-to-search-for'
/*
//STEP02  EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTIN DD DSN=&&SRCH,DISP=(OLD,DELETE,DELETE)
//SORTOUT DD SYSOUT=*
//SYSIN DD *
 SORT FIELDS=COPY -
 INCLUDE COND=(30,6,CH,EQ,C'    0 ') -
 OUTREC  FIELDS=(1,8)
/*

La clé est la LNFMTO paramètre de la fed à ISRSUPC. Ce paramètre indique à ISRSUPC pour répertorier uniquement les membres
la chaîne de recherche n'a pas été trouvé. Exactement ce qui était demandé. La prochaine étape juste
les formats les résultats de l'étape précédente. La liste des membres qui ne contiennent pas de la recherche
chaîne sont répertoriés dans SYSOUT qui peut être redirigé en cas de besoin.