MVSFORUMS.com

[neoframer]

I am using ISRUPC search program for searching a test string in one PDS :

//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,ANYC)
//NEWDD DD DSN=TSOID.DATASET1,DISP=SHR
//OUTDD DD DSN=TSOID.SRCH,DISP=OLD
//SYSIN DD *
SRCHFOR 'TEXT1'
//*

Now what I want to do is that , if TEXT1 is found in any of the members of DATASET1 then write the name of those members of DATASET1 in one file (any sequential dataset) and if TEXT1 is not found in DATASET1 then write TEXT1 in another file. How can this be done ?

[mayuresh.tendulkar]

Hello neoframer,

Below is the link posted by kolusu,

http://www.mvsforums.com/helpboards/viewtopic.php?t=1032&highlight=isrsupc

At this link he has showed how to write the pds member names to the output file.

Follow his procedure upto step 2 (sorting of the member names)

Do the following to get the results: (solution may be a lengthy one.)

1) Write all the pds member names in one file, sort it on name
2) Follow Kolusu's procedure upto step 2.