//IODEF36 JOB   (),                                                    
//         'CORNERSTONE',                                              
//         CLASS=A,                                                    
//         MSGCLASS=X,                                                 
//         MSGLEVEL=(1,1),                                             
//         NOTIFY=,                                                    
//         TIME=1440,                                                  
//         USER=                                                       
//*                                                           /*JCTRL*/
//*                                                                    
//*************************************************************        
//*                                                                    
//* LIB: CORNERST.ZOS140.BASE.LIB(IODEF35)                             
//* DOC: THIS JOB MIGRATES AN MVSCP DECK TO HCD.                       
//*                                                                    
//*************************************************************        
//*                                                                    
//* ENSURE THE WORK IODF TO BE USED FOR MIGRATE IS DELETED      
//*                                                             
//DEL1     EXEC PGM=IDCAMS,REGION=1024K                         
//SYSPRINT DD SYSOUT=*                                          
//SYSIN    DD *                                                 
  DELETE (SYS1.IODF36.CLUSTER) CLUSTER                          
  DELETE (SYS1.IODF36.WORK.CLUSTER) CLUSTER                     
  DELETE (CSUSER.BC2MCC.HCD.PROFILE) NONVSAM SCRATCH            
  SET LASTCC = 0                                                
  SET MAXCC = 0                                                 
//*                                                             
//* ALLOCATE THE WORK IODF TO BE USED FOR MIGRATE               
//*                                                             
//ALOC2    EXEC PGM=IDCAMS,REGION=4096K                         
//SYSPRINT DD SYSOUT=*                                          
//SYSIN  DD *                                                   
  DEFINE CLUSTER ( -                                            
     NAME (SYS1.IODF36.WORK.CLUSTER) -                          
     LINEAR -                                                   
     RECORDS (720 1) -                                          
     VOLUMES (BC2MCC) -                         
     ) -                                        
     DATA (NAME (SYS1.IODF36.WORK))             
  DEFINE CLUSTER ( -                            
     NAME (SYS1.IODF36.CLUSTER) -               
     LINEAR -                                   
     RECORDS (720 1) -                          
     VOLUMES (BC2MCC) -                         
     ) -                                        
     DATA (NAME (SYS1.IODF36))                  
/*                                              
//*                                             
//* INITIODF THE WORK IODF                      
//*                                             
//INITW3   EXEC PGM=CBDMGHCP,REGION=4096K,      
//       PARM='INITIODF SIZE=720,ACTLOG=NO',    
//       COND=(0,NE)                            
//STEPLIB  DD  DSN=SYS1.LINKLIB,                
//             DISP=SHR                         
//         DD  DSN=SYS1.NUCLEUS,                
//             DISP=SHR                                         
//HCDIODFT DD  DSN=SYS1.IODF36.WORK,                            
//             DISP=(OLD,KEEP)                                  
//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)  
//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)  
//*                                                             
//* INITIALIZE THE TARGET IODF                                  
//*                                                             
//INIT4    EXEC PGM=CBDMGHCP,REGION=4096K,                      
//       PARM='INITIODF SIZE=720,ACTLOG=NO',                    
//       COND=(0,NE)                                            
//STEPLIB  DD  DSN=SYS1.LINKLIB,                                
//             DISP=SHR                                         
//         DD  DSN=SYS1.NUCLEUS,                                
//             DISP=SHR                                         
//         DD  DSN=SYS1.LPALIB,                                 
//             DISP=SHR                                         
//HCDIODFT DD  DSN=SYS1.IODF36,                                 
//             DISP=(OLD,KEEP)                                  
//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)  
//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)    
//*                                                               
//*                                                               
//* CREATE A DATASET TO HOLD THE HCD PROFILE                      
//*                                                               
//* WARNING: IF RERUNNING THE IODEF JOB DO NOT DELETE THIS STEP.  
//*                                                               
//GENE5    EXEC PGM=IEBGENER                                      
//SYSPRINT DD  SYSOUT=*                                           
//SYSUT2   DD  DSN=CSUSER.BC2MCC.HCD.PROFILE,                     
//             DISP=(NEW,CATLG),DCB=(RECFM=FB,LRECL=80),          
//             UNIT=SYSALLDA,SPACE=(TRK,1)                        
//SYSIN    DD  DUMMY                                              
//SYSUT1   DD  DATA,DLM=XX                                        
 UIM_LIBNAME=*                                                    
XX                                                                
//*                                                               
//*                                                               
//* MIGRATE INPUT DECK INTO THE WORK IODF                         
//*   SOURCE: CORNERST.ZOS140.BASE.BACKUP.LIB(MVSIO36)            
//*                                                                    
//MIGR5    EXEC PGM=CBDMGHCP,REGION=4096K,                             
//             PARM=('MIGR,B,BC1B,MVS,BC1B',                           
//             '2066-0A1,LPAR'),                                       
//             COND=(0,NE)                                             
//STEPLIB  DD  DSN=SYS1.LINKLIB,                                       
//             DISP=SHR                                                
//         DD  DSN=SYS1.NUCLEUS,                                       
//             DISP=SHR                                                
//         DD  DSN=SYS1.SCBDHENU,                                      
//             DISP=SHR                                                
//         DD  DSN=SYS1.LPALIB,                                        
//             DISP=SHR                                                
//HCDLIB   DD  DSN=SYS1.MACLIB,                                        
//             DISP=SHR                                                
//HCDIN    DD  DSN=CORNERST.ZOS140.BASE.BACKUP.LIB(MVSIO35),           
//             DISP=SHR,UNIT=SYSALLDA                                  
//HCDIODFT DD  DSN=SYS1.IODF36.WORK,                                   
//             DISP=SHR                                                
//HCDPROF  DD  DSN=CSUSER.BC2MCC.HCD.PROFILE,DISP=(OLD,DELETE,DELETE)  
//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)   
//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)   
//HCDASMP  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650)   
//*                                                              
//* CREATE A PRODUCTION IODF FROM THE WORK IODF                  
//*   TARGET: SYS1.IODF36                                        
//*                                                              
//PROD6    EXEC PGM=CBDMGHCP,REGION=4096K,                       
//       PARM='PRODIODF',                                        
//       COND=(4,LT)                                             
//STEPLIB  DD  DSN=SYS1.LINKLIB,                                 
//             DISP=SHR                                          
//         DD  DSN=SYS1.NUCLEUS,                                 
//             DISP=SHR                                          
//         DD  DSN=SYS1.SCBDHENU,                                
//             DISP=SHR                                          
//         DD  DSN=SYS1.LPALIB,                                  
//             DISP=SHR                                          
//HCDIODFS DD  DSN=SYS1.IODF36.WORK,                             
//             DISP=SHR                                          
//HCDIODFT DD  DSN=SYS1.IODF36,                                
//             DISP=SHR                                        
//HCDMLOG  DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) 
//HCDPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) 
//*