As a rule, reorg only to make your CDS bagger. You can go beyond the 4GB limit with extended addressability. You can also make your CDS multi-cluster up to 4 separate clusters. If you do, make the middle cluster(s) FREESPACE(0)
Terry Traylor charlesSCHWAB TIS Mainframe Storage Management Remedy Queue: tis-hs-mstg (602) 977-5154 -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of John Dawes Sent: Monday, April 20, 2009 7:08 AM To: [email protected] Subject: DFHSM QUESTION - REORG OF MCDS Good Day, We have a new client on board. I have noticed that the MCDS is at 93%. I have never reorged the HSM cds's (for this client). I would like to know if my reorg job is okay. Please let me know if I am missing anything or spot something irregular? /* //STEP1 EXEC PGM=ADRDSSU,REGION=4096K,TIME=1439,COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSMAP DD SYSOUT=* //DD1 DD UNIT=3390,VOL=SER=SYBSS1,DISP=SHR //TAPE1 DD DSN=DFHSM.MCDS.BKUP1,DISP=(,CATLG,DELETE),UNIT=3490, // VOL=(,,,15) //TAPE2 DD DSN=DFHSM.MCDS.BKUP2,DISP=(,CATLG,DELETE),UNIT=3490, // VOL=(,,,15) DUMP DATASET(INCLUDE(DFHSM.MCDS)) - SPHERE - SELECTMULTI(FIRST) - LOGINDDNAME(DD1) - OUTDD(TAPE1,TAPE2) OPT(4) ALLDATA(*) ALLEXCP /* //BACKUP EXEC PGM=ADRDSSU,REGION=4M,TIME=1440 //TAPE1 DD DSN=DFHSM.MCDS.PHYSICAL.BKUP, // DISP=(,CATLG,DELETE),UNIT=3490,VOL=(,,,99),TRTCH=COMP //SYSPRINT DD SYSOUT=* //SYSMAP DD SYSOUT=* //SYSIN DD * DUMP DATASET(INCLUDE(DFHSM.MCDS)) - OPT(4) ALLX ALLD(*) SPHERE OUTDD(TAPE1) /* //STEPA EXEC PGM=IEFBR14,COND=(0,NE) //MCDS DD DSNAME=DFHSM.REOGMCDS.T,DISP=(,CATLG), // DCB=(RECFM=VBS,LRECL=2044,BLKSIZE=0), // SPACE=(CYL,(550,550)),UNIT=SYSALLDA,VOL=SER=SYBSS2 /* //STEPB EXEC PGM=IDCAMS,REGION=2048K,COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSIN DD * EXPORT DFHSM.MCDS ODS(DFHSM.REOGMCDS.T) TEMPORARY /* //STEPC EXEC PGM=IDCAMS,REGION=2048K,COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSIN DD * IMPORT IDS(DFHSM.REOGMCDS.T) ODS(DFHSM.MCDS) /* //STEPD EXEC PGM=IDCAMS,REGION=2048K,COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL DFHSM.REOGMCDS.T /* //STEPE EXEC PGM=IDCAMS,REGION=4K //SYSPRINT DD SYSOUT=* //DADA DD SYSOUT=* //SYSIN DD * LISTC ENT('DFHSM.MCDS') ALL /* // Thanks in advance. Enjoy a safer web experience. Upgrade to the new Internet Explorer 8 optimised for Yahoo!7. Get it now. ---------------------------------------------------------------------- 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
