Global change in a TSO SPUFI lib rary pos sible ? - Just some clarification

Venkatesh Mokshagundam

Global change in a TSO SPUFI lib rary pos sible ? - Just some clarification
Hello listeners,

Last week, I had posted the info below about a utility to change strings
in a PDS.

I'm sorry, I always assumed this program was part of z/OS, since we
always had it here. But, I was just told by my sysprog that it is not.
However, the good news is, it is a freeware available on
http://www.cbttape.org/freepds.htm, if any of you still think it may be
useful to you. The PDS Utility also has some other neat futures like
COPY, FIND, DELETE etc.

Hope this helps!

A very happy 2007 to all of you!

Venkatesh


-----Original Message-----
From: Mokshagundam, Venkatesh
Sent: Friday, December 29, 2006 10:18 AM
To: 'DB2 Database Discussion list at IDUG'
Subject: Global change in a TSO SPUFI lib rary pos sible ?

If your SPUFI input library is a PDS, you can use the following JCL:

//* ADD YOUR JOB CARD
//*
//*------------------------------------------------------------------*
//* PDS84: PDS UTILITY - MODIFY ALL / SELECTED MEMBERS
//*------------------------------------------------------------------*
//STEP01 EXEC PGM=IKJEFT1B,DYNAMNBR=30
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PDS 'GEORG.SPUFIDDL.CNTL'
MEMLIST :
REPLACE * /XYZ/ABC/ WRITE

If you omit the WRITE keyword, you'll get a report of everything that
will be replaced, which you can verify to make sure it is doing what it
is supposed to.

Remember, the above JCL will change ALL members in a PDS. You can also
choose the members you want to change by coding them in the MEMLIST.

I don't think the above JCL works against PDS-E datasets. The easy
workaround I have is to make a copy of the library, which is just a PDS
and make the changes. You can then copy the changed members to the
original library. One more advantage of doing it in a separate library
is, if something goes wrong, the original data is still there.

HTH,

Venkatesh Mokshagundam
Sr. Systems Administrator - Database
1212, Ross Street
Amarillo, TX 79102
Phone: 806-337-3374
Fax: 806-376-4077

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm