IBM Mainframe Forum

by **jvinoth** » Fri Jun 15, 2012 5:46 pm

Hi,
I need to search for a string like 'pgm=sort' in the pds members.
if that string found i need to write the proc name into seperate file using REXXplease tell me how to do this.

by **jvinoth** » Fri Jun 15, 2012 5:47 pm

Need to wite the list of members which has the string like that and need to write the only member name into the other file.

by **Akatsukami** » Fri Jun 15, 2012 6:04 pm

Your post is incoherent:

Justify why SRCHFOR cannot be used.
Where is the PDS name supposed to come from?
What is
Need to wite the list of members which has the string like that and need to write the only member name into the other file.
supposed to mean?

by **jvinoth** » Fri Jun 15, 2012 6:57 pm

if it finds the pgm=sort string..ya we can do using srchfor and also 3.14 option.but trying to write in rexx

by **Ed Goodman** » Fri Jun 15, 2012 8:04 pm

Try this:
- Run SRCHFOR in batch.
- examine the JCL that is created
- add alloc/free commands to your rexx
- run the rexx

Something like this:

Select all

/* NOW CALL IDCAMS TO PROCESS IT */

"ALLOC DDNAME(SYSOUT) DSNAME('*')"
"ALLOC DDNAME(SYSDBOUT) DSNAME('*')"
"ALLOC DDNAME(SYSUDUMP) DSNAME('*')"
"ALLOC DDNAME(AMSDUMP) DSNAME('*')"
"ALLOC DDNAME(SYSABEND) DSNAME('*')"
"ALLOC DDNAME(SYSPRINT) DSNAME('*')"
"ALLOC DDNAME(SYSIN) DSNAME('WTSO.WNEG.SYSIN') SHR"

"CALL 'SYS1.LINKLIB(IDCAMS)'"

COMPILER_RC=RC
"FREE DD(SYSOUT,SYSDBOUT,SYSUDUMP,AMSDUMP,SYSABEND,SYSPRINT,SYSIN)"
"DELETE ('WTSO.WNEG.SYSIN') NONVSAM"

This is running IDCAMS, but you get the picture.

IBM Mainframe Forum

Finding a string in the pds members

Finding a string in the pds members

Re: Finding a string in the pds members

Re: Finding a string in the pds members

Re: Finding a string in the pds members

Re: Finding a string in the pds members