//RESTHFS  JOB                                                                  
//***********************************************************/                  
//*                                                         */                  
//*  Job to restore serviced root HFS                       */                  
//*                                                         */                  
//*  Replace YYYYYY with VOLSER SYSRES copied to            */                  
//*  Replace XXXXXX with VOLSER SYSRES copied from          */                  
//*  Replace hlq with the high level qualifier of your HFS  */                  
//*    data sets                                            */                  
//*  Replace llq with the low level qualifier of your HFS   */                  
//*    data sets                                            */                  
//*                                                         */                  
//***********************************************************/                  
//*******************************************************************           
//* DELETE EXISTING ROOT                                                        
//*******************************************************************           
//DELROOT EXEC  PGM=IKJEFT01                                                    
//SYSTSPRT DD SYSOUT=(H,,STD)                                                   
//SYSABEND DD SYSOUT=(H,,STD)                                                   
//SYSTSIN  DD DATA,DLM='/>'                                                     
 DELETE 'hlq.YYYYYY.ROOT.llq'                                                   
/>                                                                              
//**********************************************************************        
//* RESTORE NEW ROOT HFS                                                        
//**********************************************************************        
//RSTROOT  EXEC PGM=ADRDSSU,TIME=60,REGION=4096K                                
//SYSPRINT DD SYSOUT=*                                                          
//SYSABEND DD SYSOUT=*                                                          
//DD1      DD DSN=ROOT.YYYYYY.HFSDUMP,DISP=SHR,                                 
//         UNIT=3390,VOL=SER=YYYYYY                                             
//SYSIN    DD *                                                                 
 RESTORE DATASET(INCLUDE(hlq.XXXXXX.ROOT.llq)) -                                
      INDD(DD1) -                                                               
      TOL(ENQF) -                                                               
      STORCLAS(SMSOE) -                                                         
      NULLMGMTCLAS -                                                            
      RENAMEU(hlq.XXXXXX.ROOT.llq,hlq.YYYYYY.ROOT.llq) -                        
      REPLACE CATALOG                                                           
/*