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

Reply via email to