Finding out PROC's from a JCL Lib

[sinmani]

Hi Friends,

If we have a JCL library having hundreds of Jobs. Now I want to list all the PROCS which are being used in this library.

How can we do it??

Well I think Rexx should be best way to do it but not everyone knows it. Is there any other way??

[BillyBoyo]

If you have access to anything which can search members in a PDS, you could use that.

Do you just want to "look" at the output or do something with it?

[sinmani]

Yes we have a search tool.

srchfor 'XXXX'

Here we can use like SRCHFOR ' PROC' and this would give me the number of occurence of PROC which means number of PROCs being used.

What I want is to make a repository of the PROC names.

[enrico-sorichetti]

in a library containg JCLs referring to PROCS
most probably searching for the word PROC will not return anything useful

I have seldom seen in JCL the construct EXEC PROC=<procname>
usually everybody writes EXEC <procname>

the most reasonable approach is to use SRCHFOR to search for the word EXEC
and process afterward the result wit SORT or REXX to extract the token that follows the EXEC word
and disambiguate between
EXEC PGM=
EXEC PROC=
EXEC <procname>

it is enough to ...

check for "//" in columns 1-2
scan/find the EXEC word
extract the token/word that follows
-- providing that the token could be " " terminated or "," terminated
reparse the token found for disambiguation

[Akatsukami]

I would also check that column 3 is not an asterisk (*). You might think that no one would be so stupid as to write JCL that would meet Dr. Sorichetti's criteria and not mine. You would be wrong.

[BillyBoyo]

Also EXEC should be second token in line, not just "found" somewhere in the line.

Code: Select all

// EXEC APROC
// EXEC PROC=APROC
//* EXEC APROC
//STEPN EXEC APROC
//THISDD DD DSN=A.DATA.SET,DISP=OLD Updated for EXEC APROC below
//A DD DSN=ANOTHER.DATA.SET,DISP=(OLD,DELETE) If EXEC above fails

Should find 1, 2 and 4 and ignore the rest, which are comments.