john

REXX won't help you search faster, but you could use it to create JCL that
will call ISRSUPC against members of a PDS, which is what 3.14 does, but
you'd run it in batch:

//stepname EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'ANYC')
//NEWDD DD DISP=SHR,DSN=my.pds.name
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'PROC',W
/*

In REXX, you could store all that into a stem variable, then EXECIO it to
the internal reader:
/* REXX */
"ALLOC DD(INTRDR) SYSOUT(A) WRITER(INTRDR)"
"EXECIO * DISKW INTRDR (STEM mystem. FINIS)"
"FREE DD(INTRDR)"

If your shop's internal reader sysout class is set up differently, you would
have to change your ALLOC command to something else.