Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Using Wildcard for PDS names with PDSMAN SCAN/REPLACE

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: Using Wildcard for PDS names with PDSMAN SCAN/REPLACE
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: 471
Location: London

PostPosted: Wed Jul 15, 2015 8:48 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to copy\replace the members in pr... abdulrafi JCL & VSAM 6 Fri Mar 22, 2019 7:02 pm
No new posts Pipeline scan problem John Poulakos CICS 1 Thu Feb 28, 2019 10:02 pm
No new posts Add week number to a file name or rep... tejdeep0274 JCL & VSAM 2 Thu Jan 03, 2019 6:49 am
No new posts Silly question maybe - REPLACE member... Cloink TSO/ISPF 15 Thu Oct 25, 2018 6:38 pm
No new posts Replace comp-3 field value to comp-3 ... dharmaraok DFSORT/ICETOOL 5 Fri Sep 14, 2018 3:46 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us