kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
 Posted: Mon Mar 23, 2009 11:22 am Post subject: |
 |
|
kamineni.anil,
A Batch version of 3.15 (Extended Search-For Utility) with IDPFX option and later use a sort step to count the occurrences of the strings involved. change the string1 and string2 to the strings you are searching/looking for
| Code: |
//STEP0100 EXEC PGM=ISRSUPC,PARM=(SRCHCMP,IDPFX)
//NEWDD DD DSN=Your pds to be searched,
// DISP=SHR
//OUTDD DD DSN=&&O,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE)
//SYSIN DD *
SRCHFOR 'string1'
SRCHFOR 'string2'
/*
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&O,DISP=SHR
//SORTOUT DD SYSOUT=*,RECFM=FB
//SYSIN DD *
OMIT COND=(01,10,CH,EQ,C'1 ISRSUPC',OR,
02,05,CH,EQ,C' ',OR,
02,15,CH,EQ,C'PROCESS OPTIONS',OR,
02,13,CH,EQ,C'THE FOLLOWING',OR,
02,11,CH,EQ,C'LINES-FOUND',OR,
03,15,CH,EQ,C'MEMBER LINE-#',OR,
05,07,CH,EQ,C'SRCHFOR',OR,
07,26,CH,EQ,C'SEARCH-FOR SUMMARY SECTION')
INREC IFTHEN=(WHEN=INIT,OVERLAY=(134:16C'0')),
IFTHEN=(WHEN=(20,113,SS,EQ,C'string1'),
OVERLAY=(141:C'1'),HIT=NEXT),
IFTHEN=(WHEN=(20,113,SS,EQ,C'string2'),
OVERLAY=(149:C'1'))
SORT FIELDS=(2,8,CH,A)
SUM FIELDS=(134,8,142,8),FORMAT=ZD
OUTREC OVERLAY=(134:134,8,ZD,M10,LENGTH=8,
142:142,8,ZD,M10,LENGTH=8)
OUTFIL REMOVECC,NODETAIL,BUILD=(80X),
INCLUDE=(134,8,ZD,NE,142,8,ZD),
HEADER1=('MEMBER NAME',15:'STRING1 COUNT',30:'STRING2 COUNT',/,
'===========',15:'=============',30:'============='),
SECTIONS=(2,8,TRAILER3=(2,8,15:134,8,30:142,8))
/* |
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
