View previous topic :: View next topic |
Author |
Message |
sivasankaric Beginner
Joined: 19 Aug 2008 Posts: 4 Topics: 3
|
Posted: Wed Aug 20, 2008 8:27 am Post subject: How to search 100 variables in almost 3000 programs |
|
|
We are expanding 7 existing fields in our application. Our application may have 3000 programs and most of the Programs
are written in COBOL-DB2.
The fields which we planned to expand may be defined with different names through out the application (Say if I am expanding
the varible Employee_no, it could be used in one program as emp_no, in another program as empno, in another program as ws-empno and so on)
So I am approximately expecting 15 possible naming possibility for each field that has to be expanded, so for my 7 fields it could be 7 * 15 = 105 search variables
I have to search these 105 (approximate) search variable through out my application to see which programs uses these variables.
Could anyone of you suggest me the best way to identify the impacted programs as part of these input fields without going through the programs individually. |
|
Back to top |
|
 |
dbzTHEdinosauer Supermod
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
|
Posted: Wed Aug 20, 2008 9:18 am Post subject: |
|
|
well now you can appreciate the idea of a data dictionary.
use 3.14 and request that it be batch instead of foreground, and request to edit the jcl. put in one search key.
now you have jcl to run superc. save it in your jcl library.
add all the different search keys where your input search key is found in the jcl for the job.
use the parm IDPFX. this will put the module name on each line. _________________ Dick Brenholtz
American living in Varel, Germany |
|
Back to top |
|
 |
sivasankaric Beginner
Joined: 19 Aug 2008 Posts: 4 Topics: 3
|
Posted: Wed Aug 20, 2008 9:59 am Post subject: |
|
|
Code: |
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,IDPFX,
// '')
//INPDD DD DSN=XXXXXXX.XXX.XXXXXXXX,
// DISP=SHR
//OUTDD DD SYSOUT=(*)
//SYSIN DD *
SRCHFOR 'EMP_NO'
SRCHFOR 'ENO'
SRCHFOR 'EMPNO'
SRCHFOR 'EMPNUM'
SELECT PDS_MEMBER_NAME
/* |
This JCL will search in one PDS member...
But how to search in all members of the PDS and write the result |
|
Back to top |
|
 |
callanand Beginner

Joined: 12 Jun 2007 Posts: 23 Topics: 2
|
Posted: Wed Aug 20, 2008 11:34 am Post subject: |
|
|
Use this JCL
Code: |
//???????? JOB CLASS=A,NOTIFY=&SYSUID
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,IDPFX,
// '')
//NEWDD DD DSN=YOUR PDS,
// DISP=SHR
//OUTDD DD SYSOUT=(A)
//SYSIN DD *
SRCHFOR 'EMP_NO'
SRCHFOR 'ENO'
SRCHFOR 'EMPNO'
SRCHFOR 'EMPNUM'
/* |
This will send your output to SYSOUT. |
|
Back to top |
|
 |
|
|