[Maybe Spam] [DB2-L] Global change in a TSO SPUFI library pos sible ?

Raymond Bell

[Maybe Spam] [DB2-L] Global change in a TSO SPUFI library pos sible ?
Hi George,

You've already had some good suggestions, but here's another. Do you have
Ezy-Edit? Or Sleasy Edit as we call it. It'll do this very easily. Or you
could set up a P-Comm (or whatever your terminal emulator software is)
'play' key and record something like S, C XYX ABC ALL, END, tab, S and hit
the play key 400 times. Not very elegant but it works.

Cheers,


Raymond Bell
Database Administrator

-----Original Message-----
From: DB2 Data Base Discussion List on behalf of Peter, Georg
Sent: Wed 12/20/2006 1:38 PM
To: [login to unmask email]
Subject: [Maybe Spam] [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 e-mail (and any attachments) may contain privileged and/or confidential information. If you are not the intended recipient please do not disclose, copy, distribute, disseminate or take any action in reliance on it. If you have received this message in error please reply and tell us and then delete it. Should you wish to communicate with us by e-mail we cannot guarantee the security of any data outside our own computer systems. For the protection of Legal & General's systems and staff, incoming emails will be automatically scanned.

Any information contained in this message may be subject to applicable terms and conditions and must not be construed as giving investment advice within or outside the United Kingdom.

The following companies are subsidiary companies of the Legal & General Group Plc which are authorised and regulated by the Financial Services Authority for advising and arranging the products shown: Legal & General Partnership Services Limited (insurance and mortgages), Legal & General Insurance Limited (insurance), Legal & General Assurance Society Limited
(life assurance, pensions and investments), Legal & General Unit Trust Managers Limited and Legal & General Portfolio Management Services Limited (investments).

They are registered in England under numbers shown.
The registered office is Temple Court, 11 Queen Victoria Street, London EC4N 4TP.

Legal & General Partnership Services Limited: 5045000 Legal & General Assurance Society Limited: 166055 Legal & General (Unit Trust Managers) Limited: 1009418 Legal & General (Portfolio Management Services) Limited: 2457525 Legal & General Insurance Limited: 423930

They are registered with the Financial Services Authority under numbers shown. You can check this at www.fsa.gov.uk/register

Legal & General Partnership Services Limited: 300792 Legal & General Assurance Society Limited: 117659 Legal & General (Unit Trust Managers) Limited: 119273 Legal & General (Portfolio Management Services) Limited: 146786 Legal & General Insurance Limited: 202050


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

Isaac Yassin

Re: [Maybe Spam] [DB2-L] Global change in a TSO SPUFI library pos sible ?
(in response to Raymond Bell)
Hi,

A liitle bit of edit macro + REXX will do the trick:

Reading all members:

/*rexx*/
TRACE O
X=MSG(OFF)
PARSE UPPER ARG LIB
CALL FR1
SAY ' STARTING ' TIME()
#MEM=0;
#INS=0;
"ISPEXEC LMINIT DATAID(TMPID) DATASET('"LIB"') ENQ(SHR)" "ISPEXEC LMOPEN DATAID(&TMPID) OPTION(INPUT)" "ISPEXEC LMMLIST
DATAID(&TMPID) OPTION(LIST) MEMBER(MEM)" SAY " "ZMEMCNT" MEMBERS IN LIB" DO WHILE RC=0;
#MEM = #MEM + 1;
MEM=STRIP(MEM);
IF MEM<>'GC' THEN /* GC is the edit macro name */
CALL CHKMBR ; /* CHECK MEMBER IN LIB */
"ISPEXEC LMMLIST DATAID(&TMPID) OPTION(LIST) MEMBER(MEM)" END;

"ISPEXEC LMMLIST DATAID(&TMPID) OPTION(FREE)"
"ISPEXEC LMCLOSE DATAID(&TMPID)"
"ISPEXEC LMFREE DATAID(&TMPID)"

CALL FR
SAY ' ENDED ' TIME()
RETURN ; /****************************************************************/
CHKMBR:
IF #MEM//25=0 THEN SAY #MEM " OF " ZMEMCNT
"ISPEXEC EDIT DATASET('"LIB"("MEM")') MACRO(GC)"
RETURN ; /****************************************************************/
FR:
"FREE F(IN,OUT,LIST)"
RETURN ; /****************************************************************/
FR1:
"FREE F(SYSUT1,SYSPRINT,SYSIN)"
RETURN ; /****************************************************************/

Doing the change:

/* REXX */ /*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*/
/* CALLED BY GCHANGE TO DO GLOBAL CHANGE */
/*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*/
ISREDIT MACRO
ISREDIT CHANGE ALL 'DSN410' 'DSN510'
"ISREDIT (CHGS) = CHANGE_COUNTS"
IF CHGS > 0 THEN
DO
"ISREDIT (MEM1) = MEMBER"
SAY " # OF CHANGES DONE: "CHGS" - FOR MEMBER: " MEM1
ISREDIT END
END
ELSE ISREDIT CAN

Isaac Yassin


-----Original Message-----
From: DB2 Data Base Discussion List [mailto:[login to unmask email] On Behalf Of Bell, Raymond
Sent: Thursday, December 21, 2006 12:14 AM
To: [login to unmask email]
Subject: Re: [DB2-L] [Maybe Spam] [DB2-L] Global change in a TSO SPUFI library pos sible ?


Hi George,

You've already had some good suggestions, but here's another. Do you have Ezy-Edit? Or Sleasy Edit as we call it. It'll do this
very easily. Or you could set up a P-Comm (or whatever your terminal emulator software is) 'play' key and record something like S,
C XYX ABC ALL, END, tab, S and hit the play key 400 times. Not very elegant but it works.

Cheers,


Raymond Bell
Database Administrator

-----Original Message-----
From: DB2 Data Base Discussion List on behalf of Peter, Georg
Sent: Wed 12/20/2006 1:38 PM
To: [login to unmask email]
Subject: [Maybe Spam] [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

--
I am using the free version of SPAMfighter for private users. It has removed 2651 spam emails to date. Paying users do not have this
message in their emails. Get the free SPAMfighter here: http://www.spamfighter.com

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

Steve Tennant

Re: [Maybe Spam] [DB2-L] Global change in a TSO SPUFI lib rary pos sible ?
(in response to Isaac Yassin)
Also File-Aid has some nifty options that allow this, I do this often.

-----Original Message-----
From: Bell, Raymond [mailto:[login to unmask email]
Sent: Thursday, 21 December 2006 09:14
To: [login to unmask email]
Subject: Re: [DB2-L] [Maybe Spam] [DB2-L] Global change in a TSO SPUFI
library pos sible ?


Hi George,

You've already had some good suggestions, but here's another. Do you have
Ezy-Edit? Or Sleasy Edit as we call it. It'll do this very easily. Or you
could set up a P-Comm (or whatever your terminal emulator software is)
'play' key and record something like S, C XYX ABC ALL, END, tab, S and hit
the play key 400 times. Not very elegant but it works.

Cheers,


Raymond Bell
Database Administrator

-----Original Message-----
From: DB2 Data Base Discussion List on behalf of Peter, Georg
Sent: Wed 12/20/2006 1:38 PM
To: [login to unmask email]
Subject: [Maybe Spam] [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 e-mail (and any attachments) may contain privileged and/or confidential
information. If you are not the intended recipient please do not disclose,
copy, distribute, disseminate or take any action in reliance on it. If you
have received this message in error please reply and tell us and then delete
it. Should you wish to communicate with us by e-mail we cannot guarantee the
security of any data outside our own computer systems. For the protection of
Legal & General's systems and staff, incoming emails will be automatically
scanned.

Any information contained in this message may be subject to applicable terms
and conditions and must not be construed as giving investment advice within
or outside the United Kingdom.

The following companies are subsidiary companies of the Legal & General
Group Plc which are authorised and regulated by the Financial Services
Authority for advising and arranging the products shown: Legal & General
Partnership Services Limited (insurance and mortgages), Legal & General
Insurance Limited (insurance), Legal & General Assurance Society Limited
(life assurance, pensions and investments), Legal & General Unit Trust
Managers Limited and Legal & General Portfolio Management Services Limited
(investments).

They are registered in England under numbers shown.
The registered office is Temple Court, 11 Queen Victoria Street, London EC4N
4TP.

Legal & General Partnership Services Limited: 5045000 Legal & General
Assurance Society Limited: 166055 Legal & General (Unit Trust Managers)
Limited: 1009418 Legal & General (Portfolio Management Services) Limited:
2457525 Legal & General Insurance Limited: 423930

They are registered with the Financial Services Authority under numbers
shown. You can check this at www.fsa.gov.uk/register

Legal & General Partnership Services Limited: 300792 Legal & General
Assurance Society Limited: 117659 Legal & General (Unit Trust Managers)
Limited: 119273 Legal & General (Portfolio Management Services) Limited:
146786 Legal & General Insurance Limited: 202050


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

************************************************************************
IMPORTANT:

* This transmission is intended for the use of the addressee only and might contain sensitive or legally privileged information. If you are NOT the intended recipient, you are notified that any use or dissemination of this communication is strictly prohibited. If you receive this transmission in error, please notify the author immediately by telephone and delete all copies of this transmission together with any attachments.

* The Australian Customs Service DOES NOT AUTHORISE the recipient to further disclose this email or its contents without permission of the originator.

* Unsolicited commercial emails MUST NOT be forwarded to the originator of this transmission unless prior consent has been given.


***********************************************************************

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

Venkatesh Mokshagundam

Global change in a TSO SPUFI lib rary pos sible ?
(in response to Steve Tennant)
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

-----Original Message-----
From: DB2 Data Base Discussion List on behalf of Peter, Georg
Sent: Wed 12/20/2006 1:38 PM
To: [login to unmask email]
Subject: [Maybe Spam] [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!"<

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