Re: Global change in a TSO SPUFI library possible ?

Philip Sevetson

Re: Global change in a TSO SPUFI library possible ?
(in response to Rob Adams-Kane)
Umm... Compuware FileAid/MVS... a competitor product from Macro4...

Free? REXX to examine each member; an EDIT Macro and you just open each
member...

That's all that come to mind.

--Phil the Long-Away


On 12/20/06, Peter, Georg <[login to unmask email]> wrote:
>
> Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
> are about 400 members in it - every member is a DDL with a CREATE
> db2object.
>
> Each CREATE has a table-creator XYZ and a XYZ index creator inside the
> DDL.
>
> I have the need to change all these XYZ creators in ABC. One way is to
> open every member and run a "CHANGE XYZ ABC all".
>
> But there are - as mentioned before - about 400 members. Is there a way
> to fire somewhat like a global "CHANGE XYZ ABC all" without opening
> each DDL member piece for piece ?
>
> Thanks in advance for any advice you may be able to provide.
>
> With kind regards - mit freundlichen Gruessen,
> G e o r g H . P e t e r
> Vice Chair GSE Workinggroups DB2 Nord und Sued
> -------------------------------------------------------------------
> Datenzentrale Baden-Wuerttemberg
> Development and Product Support (E3)
> Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
> e:mail [login to unmask email]
> Phone 0049-711-8108-271
> PC-Fax 004971189696071
> Internet (only in german language):http://www.dzbw.de
> ----------------------------------------------------------------------
> >"Next time you think you're perfect - try walk on water!"<
>
>
> Abonnieren Sie den monatlichen Infobrief der Datenzentrale
> Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten uber
> aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem Link
> http://www.datenzentrale.de/Info-Brief
>
>
> ---------------------------------------------------------------------------------
> 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
>



--
--Phil Sevetson
IBM Certified Solutions Expert -- DB2 V7.1 Database Administration for
OS/390
IBM Certified Database Administrator -- DB2 Universal Database V8.1 for zOS
Wakefern Food Corporation
Edison, NJ, USA
ANY OPINIONS OR RECOMMENDATIONS EXPRESSED IN THIS EMAIL
ARE MY OWN, NOT MY EMPLOYER'S OR IBM'S.

---------------------------------------------------------------------------------
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

Rob Adams-Kane

[DB2-L] Global change in a TSO SPUFI library possible ?

YES. ISPF has this capability and so does File-Aid, and other editors. I don't have access to my mainframe connection from here so I can't give you the particulars - haven't done a cross-member global replace in a bit.

Rob Adams-Kane
Technical Recruiter
W.A. Hynes & Company, Inc.
(800) 823-1470
(707) 586-2222
fax (888) 562-1471
[login to unmask email]
www.waHco-it.com
This email, and any files attached, contains information intended only for the use of the addressee and may include information that is privileged, confidential or exempt from other disclosure under applicable law.  If you are not the intended recipient, you are hereby notified that any dissemination, copying, printing or other use of this email is prohibited.  If you have received this email in error, please delete it from you computer.  A reply email notifying the sender of the error would be greatly appreciated.  Thank you.


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf Of Peter, Georg
Sent: Wednesday, December 20, 2006 5:38 AM
To: [login to unmask email]
Subject: [DB2-L] Global change in a TSO SPUFI library possible ?

Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There are about 400 members in it - every member is a DDL with a CREATE db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the DDL.

I have the need to change all these XYZ creators in ABC. One way is to open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem Link http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------
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

---------------------------------------------------------------------------------
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

Rambabu Vanama

Re: Global change in a TSO SPUFI library possible ?
(in response to Philip Sevetson)
Georg,
This is possible using File-Aid Option 3 and then Option 6.

-Ram Vanama




"Peter, Georg" <[login to unmask email]>
Sent by: DB2 Data Base Discussion List <[login to unmask email]>
12/20/2006 08:38 AM
Please respond to
DB2 Database Discussion list at IDUG <[login to unmask email]>


To
[login to unmask email]
cc

Subject
[DB2-L] Global change in a TSO SPUFI library possible ?






Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten
uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem
Link http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------
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




-----------------------------------------
This transmission may contain information that is privileged,
confidential, legally privileged, and/or exempt from disclosure
under applicable law. If you are not the intended recipient, you
are hereby notified that any disclosure, copying, distribution, or
use of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED. Although this transmission and
any attachments are believed to be free of any virus or other
defect that might affect any computer system into which it is
received and opened, it is the responsibility of the recipient to
ensure that it is virus free and no responsibility is accepted by
JPMorgan Chase & Co., its subsidiaries and affiliates, as
applicable, for any loss or damage arising in any way from its use.
If you received this transmission in error, please immediately
contact the sender and destroy the material in its entirety,
whether in electronic or hard copy format. Thank you.

---------------------------------------------------------------------------------
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

Carol Anne Sutfin

Re: Global change in a TSO SPUFI library possible ?
(in response to Rambabu Vanama)
FileAid will do that for you.

Carol Sutfin
Corporate DBA
Regions Financial Corp.
(205)261-5214
[login to unmask email]



"Peter, Georg"
<[login to unmask email]>
Sent by: DB2 Data To
Base Discussion [login to unmask email]
List cc
<[login to unmask email]
ORG> Subject
[DB2-L] Global change in a TSO
SPUFI library possible ?
12/20/2006 07:38
AM


Please respond to
DB2 Database
Discussion list
at IDUG
<[login to unmask email]
2-L.ORG>






Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten uber
aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem Link
http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------

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

---------------------------------------------------------------------------------
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

Horacio Villa

Re: Global change in a TSO SPUFI library possible ?
(in response to Carol Anne Sutfin)
Georg,

I have used a REXX from myself and another from ...... I think it's Lionel
Dyck.... named doall

You create a macro that performs the changes and invoke doall.

The macro:

/* rexx */
address isredit
'MACRO'
"CHANGE XYZ ABC all"

The doall REXX:

arg dsn exec
x = outtrap("lm.","*")

"LISTD" "'"dsn"'" "MEMBERS"

x = outtrap("off")

do i = 1 to lm.0
if lm.i = "--MEMBERS--" then signal domem
end

domem:
do j = i+1 to lm.0
parse value lm.j with mem extra
say mem
Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
end

Now, let's say the macro is named chgxyz and the library where you have
your 400 members is GEORG.PETER.LIB

You execute TSO doall GEORG.PETER.LIB chgxyz

Both doall and chgxyz must be in SYSEXEC concatenation.

Cheers,

Horacio Villa






"Peter, Georg" <[login to unmask email]>
Sent by: DB2 Data Base Discussion List <[login to unmask email]>
20/12/2006 10:38
Please respond to
DB2 Database Discussion list at IDUG <[login to unmask email]>


To
[login to unmask email]
cc

Subject
[DB2-L] Global change in a TSO SPUFI library possible ?






Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten
uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem
Link http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------
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


---------------------------------------------------------------------------------
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

Kumaresh TK

Re: Global change in a TSO SPUFI library possible ?
(in response to Horacio Villa)
I think PDS Tool (CBT Tape File # 182) can do it - it's a freeware program.

Thanks,
KT



Horacio Villa
<[login to unmask email]
M> To
Sent by: DB2 Data [login to unmask email]
Base Discussion cc
List
<[login to unmask email] Subject
ORG> Re: [DB2-L] Global change in a TSO
SPUFI library possible ?

12/20/2006 03:40
PM


Please respond to
DB2 Database
Discussion list
at IDUG
<[login to unmask email]
2-L.ORG>







Georg,

I have used a REXX from myself and another from ...... I think it's Lionel
Dyck.... named doall

You create a macro that performs the changes and invoke doall.

The macro:

/* rexx */
address isredit
'MACRO'
"CHANGE XYZ ABC all"

The doall REXX:

arg dsn exec
x = outtrap("lm.","*")

"LISTD" "'"dsn"'" "MEMBERS"

x = outtrap("off")

do i = 1 to lm.0
if lm.i = "--MEMBERS--" then signal domem
end

domem:
do j = i+1 to lm.0
parse value lm.j with mem extra
say mem
Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
end

Now, let's say the macro is named chgxyz and the library where you have
your 400 members is GEORG.PETER.LIB

You execute TSO doall GEORG.PETER.LIB chgxyz

Both doall and chgxyz must be in SYSEXEC concatenation.

Cheers,

Horacio Villa





"Peter, Georg" <[login to unmask email]>
Sent by: DB2 Data Base Discussion List
<[login to unmask email]> To
[login to unmask email]
cc
20/12/2006 10:38
Subject
[DB2-L] Global change in a
Please respond to TSO SPUFI library possible
DB2 Database Discussion list at IDUG ?
<[login to unmask email]>











Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten uber
aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem Link
http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------

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

---------------------------------------------------------------------------------
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

---------------------------------------------------------------------------------
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

Horacio Villa

Re: Global change in a TSO SPUFI library possible ?
(in response to Horacio Villa)
Another option I think will work is IPOUPDTE.

You want to change the CREATOR, is always followed by a '.'. IPOUPDTE
works with full words, and '.' is a separator. (it doesn't recognize
substrings in a word).

Cheers,

Horacio Villa



Horacio Villa/Argentina/Contr/IBM
20/12/2006 18:40

To
DB2 Database Discussion list at IDUG <[login to unmask email]>
cc

Subject
Re: [DB2-L] Global change in a TSO SPUFI library possible ?





Georg,

I have used a REXX from myself and another from ...... I think it's Lionel
Dyck.... named doall

You create a macro that performs the changes and invoke doall.

The macro:

/* rexx */
address isredit
'MACRO'
"CHANGE XYZ ABC all"

The doall REXX:

arg dsn exec
x = outtrap("lm.","*")

"LISTD" "'"dsn"'" "MEMBERS"

x = outtrap("off")

do i = 1 to lm.0
if lm.i = "--MEMBERS--" then signal domem
end

domem:
do j = i+1 to lm.0
parse value lm.j with mem extra
say mem
Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
end

Now, let's say the macro is named chgxyz and the library where you have
your 400 members is GEORG.PETER.LIB

You execute TSO doall GEORG.PETER.LIB chgxyz

Both doall and chgxyz must be in SYSEXEC concatenation.

Cheers,

Horacio Villa






"Peter, Georg" <[login to unmask email]>
Sent by: DB2 Data Base Discussion List <[login to unmask email]>
20/12/2006 10:38
Please respond to
DB2 Database Discussion list at IDUG <[login to unmask email]>


To
[login to unmask email]
cc

Subject
[DB2-L] Global change in a TSO SPUFI library possible ?






Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten
uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem
Link http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------
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



---------------------------------------------------------------------------------
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

Philip Sevetson

Re: Global change in a TSO SPUFI library possible ?
(in response to Kumaresh TK)
Horacio, that's REALLY slick. I'm stealing it for personal use.

On 12/20/06, Horacio Villa <[login to unmask email]> wrote:
>
>
> Georg,
>
> I have used a REXX from myself and another from ...... I think it's Lionel
> Dyck.... named doall
>
> You create a macro that performs the changes and invoke doall.
>
> The macro:
>
> /* rexx */
> address isredit
> 'MACRO'
> "CHANGE XYZ ABC all"
>
> The doall REXX:
>
> arg dsn exec
> x = outtrap("lm.","*")
>
> "LISTD" "'"dsn"'" "MEMBERS"
>
> x = outtrap("off")
>
> do i = 1 to lm.0
> if lm.i = "--MEMBERS--" then signal domem
> end
>
> domem:
> do j = i+1 to lm.0
> parse value lm.j with mem extra
> say mem
> Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
> end
>
> Now, let's say the macro is named chgxyz and the library where you have
> your 400 members is GEORG.PETER.LIB
>
> You execute TSO doall GEORG.PETER.LIB chgxyz
>
> Both doall and chgxyz must be in SYSEXEC concatenation.
>
> Cheers,
>
> Horacio Villa
>
>
>
>
> Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
> are about 400 members in it - every member is a DDL with a CREATE
> db2object.
>
> Each CREATE has a table-creator XYZ and a XYZ index creator inside the
> DDL.
>
> I have the need to change all these XYZ creators in ABC. One way is to
> open every member and run a "CHANGE XYZ ABC all".
>
> But there are - as mentioned before - about 400 members. Is there a way
> to fire somewhat like a global "CHANGE XYZ ABC all" without opening
> each DDL member piece for piece ?
>
>
>




--
--Phil Sevetson
IBM Certified Solutions Expert -- DB2 V7.1 Database Administration for
OS/390
IBM Certified Database Administrator -- DB2 Universal Database V8.1 for zOS
Wakefern Food Corporation
Edison, NJ, USA
ANY OPINIONS OR RECOMMENDATIONS EXPRESSED IN THIS EMAIL
ARE MY OWN, NOT MY EMPLOYER'S OR IBM'S.

---------------------------------------------------------------------------------
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

Ford Wong

Re: Global change in a TSO SPUFI library possible ?
(in response to Philip Sevetson)
Hopefully someone hasn't already mentioned this? This will change every member.

We have a product called PDSEDIT:

//UPDATE1 EXEC PGM=PDSEDIT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//*
//PDS01 DD DISP=SHR,DSN=GEORG.SPUFIDDL.CNTL
//*
//* the(1,72) below says change in cols 1 to 72
//* take this out if you don't cols 1 to 72.
//SYSIN DD DATA
PDS IN(PDS01)
C (1,72) ?XYZ?ABC?
/*


----- Original Message -----
From: "Peter, Georg" <[login to unmask email]>
Date: Wednesday, December 20, 2006 6:38 am
Subject: [DB2-L] Global change in a TSO SPUFI library possible ?

> Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL .
> Thereare about 400 members in it - every member is a DDL with a CREATE
> db2object.
>
> Each CREATE has a table-creator XYZ and a XYZ index creator inside the
> DDL.
>
> I have the need to change all these XYZ creators in ABC. One way
> is to
> open every member and run a "CHANGE XYZ ABC all".
>
> But there are - as mentioned before - about 400 members. Is there
> a way
> to fire somewhat like a global "CHANGE XYZ ABC all" without opening
> each DDL member piece for piece ?
>
> Thanks in advance for any advice you may be able to provide.
>
> With kind regards - mit freundlichen Gruessen,
> G e o r g H . P e t e r
> Vice Chair GSE Workinggroups DB2 Nord und Sued
> -------------------------------------------------------------------
> Datenzentrale Baden-Wuerttemberg
> Development and Product Support (E3)
> Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
> e:mail [login to unmask email]
> Phone 0049-711-8108-271
> PC-Fax 004971189696071
> Internet (only in german language):http://www.dzbw.de
> -------------------------------------------------------------------
> ---
> >"Next time you think you're perfect - try walk on water!"<
>
>
> Abonnieren Sie den monatlichen Infobrief der Datenzentrale Baden-
> Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten
> uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit
> diesem Link http://www.datenzentrale.de/Info-Brief
>
> -------------------------------------------------------------------
> --------------
> 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
>

---------------------------------------------------------------------------------
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

Amit Agarwal

Re: Global change in a TSO SPUFI library possible ?
(in response to Ford Wong)
I use this program called ipoupdte..Its installed in my system. As far
as I remember, its from IBM and free.(I may be wrong)
Try googling for jcl batch tailoring aid


//DB001IDC JOB (0543),'IOPUPDTE',CLASS=C,MSGCLASS=X,NOTIFY=&SYSUID

//STEP01 EXEC PGM=IPOUPDTE,PARM=UPDATE

//SYSPRINT DD SYSOUT=*

//@LIB1 DD DSN=BMC.M9A.JCL.TDSN,DISP=SHR

//SYSIN DD *

TDSN.SDSNLOAD<DSN710.SDSNLOAD<

/*

//


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On
Behalf Of Peter, Georg
Sent: Wednesday, December 20, 2006 8:38 AM
To: [login to unmask email]
Subject: [DB2-L] Global change in a TSO SPUFI library possible ?

Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale
Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten
uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem
Link http://www.datenzentrale.de/Info-Brief

------------------------------------------------------------------------
---------
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

--------------------------------------------------------

The information contained in this message is intended only for the recipient, and may be a confidential attorney-client communication or may otherwise be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, please be aware that any dissemination or copying of this communication is strictly prohibited. If you have received this communication in error, please immediately notify us by replying to the message and deleting it from your computer. The McGraw-Hill Companies, Inc. reserves the right, subject to applicable local law, to monitor and review the content of any electronic message or information sent to or from McGraw-Hill employee e-mail addresses without informing the sender or recipient of the message.
--------------------------------------------------------

---------------------------------------------------------------------------------
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

Ramon Santiago

Re: Global change in a TSO SPUFI library possible ?
(in response to Amit Agarwal)
FileAid, PDS Tools, and FileManager have these capabilities.

You can also use REXX to read the members and run a replace.

Sample of file manager utility...

//FILEMGR EXEC PGM=FMNMAIN
//*STEPLIB DD DSN=FMN.SFMNMOD1,DISP=SHR
//* DD DSN=IGY.SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//FMNTSPRT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSIN DD *
$$FILEM FCH ,
$$FILEM MEMBER=*,
$$FILEM PACK=ASIS,
$$FILEM DSNIN=xxxxx.xxxxxxxx.DDLLIB
C 'XYZ' 'ABC'
/+
//*


"Peter, Georg" <[login to unmask email]> wrote:
Let us say we have a TSO SPUFI library named GEORG.SPUFIDDL.CNTL . There
are about 400 members in it - every member is a DDL with a CREATE
db2object.

Each CREATE has a table-creator XYZ and a XYZ index creator inside the
DDL.

I have the need to change all these XYZ creators in ABC. One way is to
open every member and run a "CHANGE XYZ ABC all".

But there are - as mentioned before - about 400 members. Is there a way
to fire somewhat like a global "CHANGE XYZ ABC all" without opening
each DDL member piece for piece ?

Thanks in advance for any advice you may be able to provide.

With kind regards - mit freundlichen Gruessen,
G e o r g H . P e t e r
Vice Chair GSE Workinggroups DB2 Nord und Sued
-------------------------------------------------------------------
Datenzentrale Baden-Wuerttemberg
Development and Product Support (E3)
Krailenshaldenstrasse 44, 70469 Stuttgart, Germany, Europe
e:mail [login to unmask email]
Phone 0049-711-8108-271
PC-Fax 004971189696071
Internet (only in german language):http://www.dzbw.de
----------------------------------------------------------------------
>"Next time you think you're perfect - try walk on water!"<


Abonnieren Sie den monatlichen Infobrief der Datenzentrale Baden-Wurttemberg und erfahren Sie regelma?ig die neuesten Nachrichten uber aktuelle Projekte und Entwicklungen. Melden Sie sich an mit diesem Link http://www.datenzentrale.de/Info-Brief

---------------------------------------------------------------------------------
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


---------------------------------------------------------------------------------
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