IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Using Wildcard for PDS names with PDSMAN SCAN/REPLACE


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
PokerGuru

New User


Joined: 23 Jul 2010
Posts: 33
Location: Europe

PostPosted: Fri May 22, 2015 2:30 pm
Reply with quote

I doubt if this is possible with PDSMAN, but maybe someone knows.

I know I can scan/replace multiple search strings with replace strings, but instead of specifying all the PDS I need to SCAN/REPLACE, can I use a prefix.* any way with PDSMAN to SCAN/REPLACE multiple string in all PDS that begin with a certain PREFIXHLQ.*


Or does anyone know another utility that I can do this with.
This will be a step in an automation process so I wouldn't necessarily know how many PDS will begin with PREFIXHLQ.* that I need to SCAN/REPLACE.
Back to top
View user's profile Send private message
Pete Wilson

Active User


Joined: 31 Dec 2009
Posts: 489
Location: London

PostPosted: Wed Jul 15, 2015 8:48 pm
Reply with quote

If you have FDREPORT you can easily SCAN for your PDS's with name masking, and it can punch out the JCL for doing the SCAN replace as well.
In this example is substitutes the dsnames into the <NAME> section in the PDSMPDS DD for each PDS it finds The 'XS XDSN=' parameter allows full masking while searching for matching PDS names.
e.g.

//FDRPUNCH EXEC PGM=FDREPORT,REGION=1024M
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ABRMAP DD SYSOUT=*
//ABRSUM DD SYSOUT=*
//SYSPUNCH DD DSN=PUNCH.OUTPUT.FILE,DISP=SHR
//MASK DD DATA,DLM=ZZ
//JSTE001 EXEC PGM=PDSM18
//PDSMPDS DD DSN=<NAME>,DISP=SHR
//PDSMRPT DD SYSOUT=0
//PDSMSEL DD *
A*.ALL
/*
//SYSIN DD *
OPTION TRANSLATE=Y TRANSNEW=Y MISSMSG=N
REPLACE TARGET='INPUT'
NEW='OUTPUT'

ZZ
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SYSUT3 DD SPACE=(CYL,(100,100))
//SYSUT4 DD SPACE=(CYL,(100,100))
//SYSIN DD *
REPORT FIELD=(NAME)
XS XDSN=HLQMASK.**,DSORG=(PO,POE)
SORT FIELD=(NAME),SEQ=A
PUNCH FDRLIB=MASK,NOECHO
PRINT SUM=NO,SORT=COMBINE,DATATYPE=CATVTOC,RPTYPE=SELPCH,
ENABLE=(FASTPATH,PUNCHMASK),
DISABLE=(FAMSDIRBLKS,FAMSFREESP),
RECORDSUMMARY=CLUSTER
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Need to split single line into two li... DFSORT/ICETOOL 7
No new posts Hex Value - vb file replace old date ... DFSORT/ICETOOL 14
No new posts Fetch the Dataset names from inside m... TSO/ISPF 18
No new posts Need help to concatenate files with w... All Other Mainframe Topics 3
No new posts Finding Esoteric Unit Names Programma... All Other Mainframe Topics 2
Search our Forums:

Back to Top