Jcl: Cómo realizar búsquedas

Imagínate que quieres hacer una búsqueda masiva de algún elemento o mensaje en todos los programas cobol que hay en producción e incluso en las cadenas o copys de producción. Pues es tan fácil como lanzar (o submitir) en desarrollo el siguiente jcl:

//SEARCH EXEC PGM=ISRSUPC,PARM(SRCHCMP,'ANYC')
//NEWDD  DD DSN=LIBRERIA1,DISP=SHR
//               DD DSN=LIBRERIA2,DISP=SHR
//               DD DSN=LIBRERIA3,DISP=SHR
//OUTDD   DD SYSOUT=(X)
//SYSIN    DD *
   SRCHFOR 'CADENA-A-BUSCAR'
/*

Cabe destacar el área del NEWDD: ahí irán todas las librerías de producción que contengan programas cobol, copys, cadenas,... en las que queramos realizar la búsqueda. Cabe destacar que en función del cliente para el que estemos trabajando estas librerías serán distintas de un sitio a otro. Es decir, si estamos en un cliente X la librería de las cadenas se llamará de una forma pero en un cliente Y se llamará de otra forma. Y con el resto de las librerías pasa exactamente lo mismo. Por lo tanto, en función del cliente en el que estés, las librerías que pongas aquí variarán.

Otra cosa importante es el SRCHFOR porque a continuación pondrás entre comillas aquello que quieras buscar en las librerías indicadas en el NEWDD.

De manera que sólo tendrías que hacer un SUB, es decir, submitir o lanzar dicha cadena en desarrollo para saber qué elementos utilizan dicha cadena que quieras buscar.