Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums 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: 445
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 RFE: DB2 support for mixed case names. Pedro DB2 0 Tue Jul 04, 2017 1:32 am
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Replace repeated JCL with looping REXX prino CLIST & REXX 3 Thu Oct 13, 2016 5:30 am
This topic is locked: you cannot edit posts or make replies. Sort card to replace text using cross... Susanta SYNCSORT 32 Tue Sep 13, 2016 4:17 pm

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