somasundaran_k
Active User
Joined: 03 Jun 2003 Posts: 134
|
|
|
|
Vinit
Here is something you can start with. You can use SUPREC in batch for searching in these files. Only catch here is you need to create the search file names dynamically from the file which has the complete list of the file names to be searched.
So craete two files with an LRECL 80. First file is MY.TEST.SUPERC.PART1
Code: |
//SEARCH EXEC PGM=ISRSUPC, *
// PARM=(SRCHCMP,
// '')
//NEWDD DD DSN=SOME.EMPTY.DATASET,
// DISP=SHR
|
Then create another file MY.TEST.SUPERC.PART3
as follows.
Code: |
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'your search string'
//
|
Then using ICETOOL/SYNCTOOL
Code: |
//STEP1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
MY.FILE.TOBE.SEARCHED.FILE1
MY.FILE.TOBE.SEARCHED.FILE2
MY.FILE.TOBE.SEARCHED.FILE3
MY.FILE.TOBE.SEARCHED.FILE4
MY.FILE.TOBE.SEARCHED.FILE5
/*
//T1 DD DSN=&&T1,DISP=(,PASS)
//T2 DD DSN=&&T2,DISP=(,PASS)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=SHR
// DD DSN=*.T2,VOL=REF=*.T2,DISP=SHR
//OUT DD DSN=&&OUT,DISP=(,PASS)
//CON1 DD DSN=MY.TEST.SUPERC.PART1,DISP=SHR
// DD DSN=*.OUT,VOL=REF=*.OUT,DISP=SHR
// DD DSN=MY.TEST.SUPERC.PART3,DISP=SHR
//*
//FINAL DD DSN=MY.TEST.SUPERC.FINAL,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE),
// DCB=(P.GDGDUMY,RECFM=FB,LRECL=80)
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(CON) USING(CTL2)
COPY FROM(CON1) TO(FINAL)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
OUTREC=(C'// DD DISP=SHR',C',',59X,SEQNUM,8,ZD)
OUTFIL FNAMES=T2,
OUTREC=(C'// DSN=',1,63,1X,SEQNUM,8,ZD)
/*
//CTL2CNTL DD *
SORT FIELDS=(81,8,ZD,A)
OUTFIL FNAMES=OUT,OUTREC=(1,80)
/*
//STEP3 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=MY.TEST.SUPERC.FINAL,DISP=SHR
//SYSUT2 DD SYSOUT=(X,INTRDR)
//SYSIN DD DUMMY
//*
|
This will create a job in MY.TEST.SUPERC.FINAL as below
Code: |
//SEARCH EXEC PGM=ISRSUPC, *
// PARM=(SRCHCMP,
// '')
//NEWDD DD DSN=SOME.EMPTY.DATASET,
// DISP=SHR
// DD DISP=SHR,
// DSN=MY.FILE.TOBE.SEARCHED.FILE1
// DD DISP=SHR,
// DSN=MY.FILE.TOBE.SEARCHED.FILE2
// DD DISP=SHR,
// DSN=MY.FILE.TOBE.SEARCHED.FILE3
// DD DISP=SHR,
// DSN=MY.FILE.TOBE.SEARCHED.FILE4
// DD DISP=SHR,
// DSN=MY.FILE.TOBE.SEARCHED.FILE5
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'your search string'
//
|
Using IEBGENER and Inernal Reader submit the job. Using OUTREC you can create MY.TEST.SUPERC.PART1 and MY.TEST.SUPERC.PART3 as well.
hth
-Som |
|