|
View previous topic :: View next topic
|
| Author |
Message |
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
Hi,
I need to search a for multiple strings in PDS... "XXXX.SRC.LIB" having 100 members.
The strings are '-int' and 'CICS'. These strings are not in the same line.
Please provide me the JCLs needed for that. I have tried many methods from google, but non worked. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Have you tried ISPF option 3.14 and put a slash by "Specify additional search strings" near the bottom of the screen? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Ronny John wrote: |
| Please provide me the JCLs needed for that. |
By following the suggestion of Robert, you can process this in background, or batch to use another name, and then keep the JCL for future reference. |
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
No that is not working. It does "OR" operation. ie we get members with either -int or CICS.
I need to get members having both -int and CICS, ie AND operation( and that too both strings need not be necessarily on the same line).
Tried many things . Did not work  |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
| I dont think that will work either. Tried that earlier. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
Add FINDALL to the PARM process option.
For example:
| Code: |
//SEARCH EXEC PGM=ISRSUPC,
// PARM=('SRCHCMP,ANYC,DPCBCMT,COBOL,FINDALL') |
|
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
| tried FINDALL also. But to be on the right page, what is the SRCHFOR parameter to be given if we are going to give two strinsg to be searched? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
I vaguely recall that in the past the first execution of SUPERC picked all of the members with one string, the output was parsed via REXX and used to build the member select statements for a second pass of SUPERC which searched for the second string.
If your REXX coding isn't up to performing the parse operation it can quite easily be done manually. |
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
| Rather than just limiting to ISRSUPC, is there any other way? Without REXX also, as i am not that good in REXX.? |
|
| Back to top |
|
|
Ronald Burr
Active User
Joined: 22 Oct 2009
Posts: 293
Location: U.S.A.
|
|
|
|
Try using SyncSort or DFSORT as follows to consolidate the output of two searches:
| Code: |
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,'LMTO,XREF,NOSUMS')
//NEWDD DD DSN=your.pds.library,DISP=SHR
//OUTDD DD DSN=&&SUPC,UNIT=SYSDA,DISP=(,PASS)
//SYSIN DD *
SRCHFOR 'STRING1'
SRCHFOR 'STRING2'
/*
//SORT EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&SUPC,DISP=(OLD,DELETE)
//SORTOUT DD DSN=your.report.file,UNIT=DISK,DISP=(,CATLG),
// SPACE=(TRK,(1,1),RLSE)
//SYSIN DD *
INCLUDE COND=(28,1,CH,EQ,C' ',AND,29,1,CH,GE,C'A')
INREC IFTHEN=(WHEN=INIT,BUILD=(29,9,C'0001',6,12)),
IFTHEN=(WHEN=GROUP,BEGIN=(14,1,CH,GT,C' '),PUSH=(14:14,12))
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=(10,4,ZD)
OUTFIL OUTREC=(1,9,10,4,CHANGE=(12,C'0001',14,12),
NOMATCH=(C'MULTIPLE '))
/* |
After running the job, each member will either be flagged with the single search string that was found, or MULTIPLE if the member contained BOTH search strings. In your case, you only want the members marked MULTIPLE. |
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
let me try this out. But please tell me what this sort card does
"INREC IFTHEN=(WHEN=INIT,BUILD=(29,9,C'0001',6,12)),
IFTHEN=(WHEN=GROUP,BEGIN=(14,1,CH,GT,C' '),PUSH=(14:14,12))
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=(10,4,ZD) " |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1322
Location: Vilnius, Lithuania
|
|
|
|
| Ronny John wrote: |
let me try this out. But please tell me what this sort card does
"INREC IFTHEN=(WHEN=INIT,BUILD=(29,9,C'0001',6,12)),
IFTHEN=(WHEN=GROUP,BEGIN=(14,1,CH,GT,C' '),PUSH=(14:14,12))
SORT FIELDS=(1,8,CH,A)
SUM FIELDS=(10,4,ZD) " |
Holy Sith, is it so flucking difficult to RTFM? |
|
| Back to top |
|
|
don.leahy
Active Member
Joined: 06 Jul 2010
Posts: 767
Location: Whitby, ON, Canada
|
|
|
|
| prino wrote: |
[
Holy Sith, is it so flucking difficult to RTFM? |
Evidenthly. |
|
| Back to top |
|
|
Ronny John
New User
Joined: 30 Mar 2010
Posts: 33
Location: USA
|
|
|
|
what was that in red?  |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
