//MERGCAT  JOB   (9999,IPO,10,10),                                   
//         'CORNERSTONE',                                            
//         CLASS=A,                                                  
//         MSGCLASS=X,                                               
//         MSGLEVEL=(1,1),USER=,                                     
//         TIME=1440                                                 
//*                                                                  
//IMPCON1 EXEC PGM=IDCAMS,REGION=512K                                
//SYSPRINT DD  SYSOUT=*                                              
//SYSIN    DD  *                                                     
     IMPORT   OBJ( (CATALOG.MVSICF1.VARH101                       -  
           DEVT(3390    ) VOL(ARH101))) CONNECT                    - 
           CAT(CATALOG.MVSICFM.VBC2MCC                              )
//*                                                                  
//DELETE  EXEC PGM=IDCAMS,REGION=512K                    
//SYSPRINT DD  SYSOUT=*                                  
  DELETE  KCI08                      +                   
     ALIAS                                     +         
     CATALOG(CATALOG.MVSICFM.VBC2MCC)                    
/*                                                       
//MERGE   EXEC PGM=IDCAMS,REGION=512K                    
//SYSPRINT DD  SYSOUT=*                                  
//UCAT1    DD  DSN=CATALOG.MVSICF1.VARH001,DISP=OLD      
//UCAT2    DD  DSN=CATALOG.MVSICF1.VARH101,DISP=OLD      
//SYSIN    DD  *                                         
   REPRO -                                               
       INFILE (UCAT1/PWUPDATE) -                         
       OUTFILE (UCAT2/PWUPDATE) -                        
       LEVEL(KCI08) -                                    
       MERGECAT                                          
//DEFINE  EXEC PGM=IDCAMS,REGION=512K                    
//SYSPRINT DD  SYSOUT=*                         
//SYSIN    DD  *                                
     DEF ALIAS(REL(CATALOG.MVSICF1.VARH101)  -  
          NAME(KCI08))  -                       
          CATALOG(CATALOG.MVSICFM.VBC2MCC       
/*