Discussion :

[Metalman]

Bonjour,

Suite à un petit problème d'ADRDSSU DUMP (un DS en lecture était locké... donc crash en RC=08...), on m'a demandé de rechercher l'autre processus pouvant lire ce dataset.
Afin de m'aider "un peu" dans cette tâche, je voudrais savoir s'il est possible rechercher une chaîne de caractères dans les JCL stockés dans TWS !

Je sais que les EQQ* servent à OPC/TWS, mais je ne suis pas expert encore...

Merci à vous !

[M.Dlb]

Eventuellement un "srchfor" dans chaque PDS de la JOBLIB ?

[bakounine]

Bonjour ,

En fasisant un 3.14 en batch et en concaténant les PDS de l'EQQJBLIB dans le DDNAME NEWDD , ainsi :

//BAKOUN00 (P,OP),OPC-ESA,CLASS=P,MSGCLASS=X,RESTART=*,
// NOTIFY=BAKOUNIN
//*
//CHER001 EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'ANYC,SDUPM')
//NEWDD DD DISP=SHR,DSN=PDS1
// DD DISP=SHR,DSN=PDS2
// DD DISP=SHR,DSN=...
// DD DISP=SHR,DSN=...
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'XXX'
/*

[Metalman]

Waouh ! C'est très gentil !

J'avais lu quelque part quelque chose sur EQQJS1DS et EQQJS2DS....
Mais je n'ai rien trouvé... et en cherchant dans une JCLLIB, je n'ai trouvé que quelques procédures.

Bref, j'ai au moins noté le "srchfor" pour chercher dans les PDS, et il faut que je retrouve les JOBLIBs pour appliquer votre recherche.

Merci bien !