//USZCZT0C JOB (AD00),'#07B42 ZELDEN', // NOTIFY=&SYSUID, // CLASS=M,MSGCLASS=H,MSGLEVEL=(1,1) //* //* //************************************************************ //* Sample clone of z/OS 1.8 maintenance sysres set / zones * //************************************************************ //* GLOBALLY CHANGE "RESM81" TO VOLID OF CURRENT SYSRES * //* GLOBALLY CHANGE "RESM82" TO VOLID OF SECONDARY SYSRES * //* (These should be okay already for normal cloning) * //* * //* GLOBALLY CHANGE "NEWRS" TO 1ST 5 CHARACTERS OF NEW * //* SYSRES SET (Example: RESP3) * //* * //* WHEN CLONING IS COMPLETE THE NEW SYSRES SET WILL BE: * //* * //* NEWRS1 - PRIMARY SYSRES (IBM - LOAD ADDRESS) * //* NEWRS2 - SECONDARY SYSRES (IBM - ROOT + OTHER HFS) * //* * //************************************************************ //* NOTE: If cloning from a prior "production" IBM sysres * //* set instead of the maintenance sysres set, you * //* must change RESM81/RESM82 to the volsers of the * //* production sysres set. * //* * //************************************************************ //* NOTE: You must manually mount the following HFS files * //* to the proper service mount points in order to apply * //* maintenance. Examples: * //* * //* SYS1.OMVS.RESM82.ROOT * //* mount at: /servz18 * //* SYS1.OMVS.RESM82.TIVOLI * //* mount at: /servz18/usr/lpp/Tivoli * //* SYS1.OMVS.RESM82.NETVHFS * //* mount at: /servz18/usr/lpp/netview * //* SYS1.OMVS.RESM82.PLI.SIBMROOT * //* mount at: /servz18/usr/lpp/pli * //* SYS1.OMVS.RESM82.SIGYROOT * //* mount at: /servz18/usr/lpp/cobol * //* SYS1.OMVS.RESM82.XML * //* mount at: /servz18/usr/lpp/ixm * //* * //* This job also copies all of these HFS files to * //* NEWRS2. They should already be (perhaps indirectly) * //* cataloged on the target system prior to ipling. * //************************************************************ //* DON'T FORGET TO REPLY "YES" TO THE FOLLOWING MESSAGES * //* "FDRW01 CONFIRM REQUEST TO RESTORE UNIT=CUU,VOL=NEWRS1 * //* AND * //* "FDRW01 CONFIRM REQUEST TO RESTORE UNIT=CUU,VOL=NEWRS2 * //* THIS IS DONE IN THE 1ST AND 2ND STEPS * //************************************************************ //* =================== * //* ===> WARNING <=== * //* =================== * //* CANCEL OUT OF THIS JOB AFTER MAKING CHANGES * //* AND SUBMITTING IT OR IT WILL BE UNUSABLE NEXT TIME. * //* ===> WARNING <=== * //* ALL VSAM DATASETS COPIED TO NEWRS1/NEWRS2 WILL BE * //* REMOVED DURING THIS JOBSTREAM IF THEY EXIST. YOU MUST * //* MANUALLY MAKE PROVISIONS FOR COPYING/MOVING VSAM * //* DATA SETS TO NEWRS1/NEWRS2 AFTER THIS JOB COMPLETES. * //************************************************************ //* //*************************************** //* VOLUME COPY OF RESM81 TO NEWRS1 * //*************************************** //COPYRES EXEC PGM=FDR,REGION=2M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSALLDA,VOL=SER=RESM81,DISP=SHR //TAPE1 DD UNIT=SYSALLDA,VOL=SER=NEWRS1,DISP=SHR //SYSIN DD * COPY TYPE=FDR,VOLRESET=YES /* //* COPY TYPE=FDR,VOLRESET=YES //* COPY TYPE=FDR,VOLRESET=YES,CONFMESS=NO //*************************************** //* COPY OF MAINTENANCE HFS FILES * //* TO NEWRS2 * //*************************************** //COPYHFS EXEC PGM=FDRCOPY,REGION=4M //SYSPRINT DD SYSOUT=* //SYSPRIN1 DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSIN DD * COPY TYPE=DSF,DSNENQ=NONE,ENQERR=NO,NOCAT,HFS=QUIESCE SELECT CATDSN=SYS1.OMVS.RESM82.**, NEWI=..NEWRS2,NVOL=NEWRS2 /* //* //************************************** //* REMOVE EXISTING VSAM ZONES, DSN'S * //* AND VVDS IF THEY EXIST ON NEWRS1 * //* (DUE TO FULL VOLUME DISK TO DISK * //* COPIES) * //* * //* CHANGE SYS1.ICFCAT.MASTER TO THE * //* MCAT OF THE DRIVING SYSTEM BELOW * //************************************** //REMOVE EXEC PGM=IDCAMS,REGION=2M,COND=(0,NE) //NEWRS1 DD UNIT=SYSALLDA,DISP=SHR,VOL=SER=NEWRS1 //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER SYS1.ICFCAT.MASTER FILE(NEWRS1) + REMOVEVOLUMES(NEWRS1) /* //************************************** //* DEL/DEF NEW TARGET ZONE * //************************************** //DEFREPRO EXEC PGM=IDCAMS,REGION=2M,COND=(0,NE) //VDSBYPAS DD DUMMY /* BYPASS VAM */ //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (SMPE.IBM.ZOS18.NEWRS1.CSI) IF LASTCC = 8 THEN SET MAXCC=0 DEFINE CLUSTER( + NAME(SMPE.IBM.ZOS18.NEWRS1.CSI) + FREESPACE(10,5) + KEYS(24 0) + RECORDSIZE(24 143) + SHR(2) + BUFSP(90000) + VOLUME(SYSMT2) + ) + DATA( + NAME(SMPE.IBM.ZOS18.NEWRS1.CSI.DATA) + CYLINDERS(100 10) + CISZ(8192) + ) + INDEX( + NAME(SMPE.IBM.ZOS18.NEWRS1.CSI.INDEX) + CYLINDERS(1 1) + CISZ(2560) + ) IF MAXCC = 0 THEN + REPRO INDATASET(SMPE.IBM.ZOS18.RESM81.CSI) + OUTDATASET(SMPE.IBM.ZOS18.NEWRS1.CSI) /* //************************************** //* DEFINE ZONES TO SMP/E AND ZONEEDIT * //* DDDEFS TO POINT TO NEW VOLUMES. * //************************************** //********************************************************* //* RC=8 (GIM35701E) IS EXPECTED THE FIRST TIME YOU CLONE * //* TO A PREVIOUSLY UNUSED SYSRES SET FOR THIS GZONE DUE * //* TO THE "DEL GLOBALZONE ZONEINDEX" COMMAND. * //********************************************************* //SMPE EXEC PGM=GIMSMP,REGION=0M, // PARM='CSI=SMPE.IBM.ZOS18.GLOBAL.CSI' //SMPOUT DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPLIST DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SMPCNTL DD * SET BOUNDARY(GLOBAL). UCLIN. DEL GLOBALZONE ZONEINDEX((NEWRS11)). ENDUCL. RESETRC. ZONERENAME(RESM811) TO(NEWRS11) NEWDATASET(SMPE.IBM.ZOS18.NEWRS1.CSI) RELATED(ZNAD100). SET BOUNDARY(NEWRS11). ZONEEDIT DDDEF. CHANGE VOLUME(RESM81,NEWRS1). ENDZONEEDIT. /* //* //************************************** //* RESYNCHRONIZE THE GENERATION AND * //* CYCLE NUMBERS IN THE FDR/ABR MODEL * //* DSCB TO MATCH THE FDR/ABR CATALOG. * //************************************** //FDRABRM EXEC PGM=FDRABRM, // COND=((8,LT,SMPE.SMPE),(0,NE,COPYRES),(0,NE,COPYHFS), // (0,NE,DEFREPRO)) //SYSPRINT DD SYSOUT=* //ABRMAP DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //DISK1 DD UNIT=SYSDA,DISP=SHR,VOL=SER=NEWRS1 //DISK2 DD UNIT=SYSDA,DISP=SHR,VOL=SER=NEWRS2 //SYSIN DD * REMODEL VOL=NEWRS1,FORCE REMODEL VOL=NEWRS2,FORCE /* //*