View previous topic :: View next topic
|
Author |
Message |
thirunarayanan
New User
Joined: 06 Oct 2006 Posts: 9
|
|
|
|
Can anyone help me if there is a command to replace/change
certain text across all the members of a PDS.
Regards
Thiru |
|
Back to top |
|
|
MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
- Use PDSMAN
- Use Edit Macro/Rexx, Search forum and you will find more information.
If your shop has PDSMAN you can do this interactively or submit a job:
Code: |
//STEP1 EXEC PGM=PDSM18
//PDSMSEL DD *
/*
//SYSIN DD *
OPTION TRANSLATE=Y TRANSNEW=Y MISSMSG=N
REPLACE TARGET=TEST1
NEW=TEST2
/*
//PDSMPDS DD DSN=PDSNAME,
// DISP=SHR
//PDSMRPT DD SYSOUT=*
|
PDSMSEL ==> Here if you want all members leave it blank or if you want selected members specify like TEST*.ALL
In Sysin REPLACE TARGET= is search string
NEW= is replacement string. |
|
Back to top |
|
|
Kevin
Active User
Joined: 25 Aug 2005 Posts: 234
|
|
|
|
The IPOUPDTE program. |
|
Back to top |
|
|
param_rajesh_2001 Warnings : 1 New User
Joined: 23 Jun 2006 Posts: 18 Location: Bangalore
|
|
|
|
Hi u can use fileaid utility to change the text in PDS
//jobcard
//**
//STEP010 EXEC PGM=FILEAID
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD02 DD DISP=SHR,DSN=INPUTFILE NAME
//SYSIN DD *
$$DD02 UP ME=9999,
EA=(1,0,T"text1",C"text2")
/*
where text1 - text to be changed
text2 - replace the new text .
Hope this will work for you |
|
Back to top |
|
|
|