Thanks For help. Now I will try creating multiple target CSI and update
you, I encountered any error.
Regards
Saurabh Khandelwal
On 4/7/2011 6:50 PM, Walter Marguccio wrote:
Can anybody help me, how to setup multiple zone to follow above concept.
Once I receive a new z/OS with the ServerPac or SystemPac, I use this steps
to clone the delivered target zone:
//COPYSMP EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY DATASET( -
INCLUDE( -
SMPE11.tgtzone_name.*, -
)) -
RENUNC( -
(SMPE11.tgtzone.*,SMPE11.cloned_tgtzone.*) -
) -
OUTDYNAM(myvol) -
TOL(ENQF) CATALOG
Above step clones the target zone's CSI, along with its SMPxTS.
The datasets' 2nd qualifier equals to the "tgtzone" or "cloned_tgtzone" names.
//ADDZINDX EXEC PGM=GIMSMP
//SMPCSI DD DISP=SHR,DSN=my.GLOBAL.CSI
//SYSPRINT DD SYSOUT=*
//SMPLOG DD DUMMY
//SMPOUT DD SYSOUT=*
//SMPCNTL DD *
SET BDY(GLOBAL) .
ZREN(tgtzone) TO(cloned_tgtzone) NEWDATASET(SMPE11.cloned_tgtzone.CSI).
SET BDY(cloned_tgtzone) .
ZEDIT DDDEF .
CHANGE VOLUME(sysres,cloned_sysres) .
ENDZEDIT .
UCLIN.
REP DDDEF(SMPLTS) DA(SMPE11.cloned_tgtzone.SMPLTS) .
REP DDDEF(SMPMTS) DA(SMPE11.cloned_tgtzone.SMPMTS) .
REP DDDEF(SMPSCDS) DA(SMPE11.cloned_tgtzone.SMPSCDS).
REP DDDEF(SMPSTS) DA(SMPE11.cloned_tgtzone.SMPSTS) .
ENDUCL.
The above step adds the "cloned_tgtzone' to the GLOBAL zone index, changes the
sysres to every DDDEFs belonging to "cloned_tgtzone", and changes the dataset
names of allSMPxTS accordingly.
I don't clone the DLIB zone, nor the DLIB volumes, since I leave one DLIB
zone/volume(s)
for x Target zones/volume(s) (where 'x' can be 2, 3, or 4)
HTH
Walter Marguccio
z/OS Systems Programmer
BELENUS LOB Informatic GmbH
Munich - Germany
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
