Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 437
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 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
No new posts Replace function abdulrafi COBOL Programming 13 Mon Sep 12, 2016 10:12 am
No new posts Wildcard logic in COBOL dudenithy COBOL Programming 13 Thu Sep 01, 2016 7:36 pm
No new posts CICS TS 5.3 migr after DFHCSDUP UPGRA... Kyle Carroll CICS 6 Wed Aug 31, 2016 10:58 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us