Copying from VSAM to Flatfile

//STEP005   EXEC PGM=IDCAMS                                   
//SYSPRINT DD  SYSOUT=*                                       
//BTCHIN   DD  DSN=OCCUL.IDPI991.POLMASTR,                    
//*BTCHIN   DD  DSN=TCCPU.IOBSC.MASTER,                       
//             DISP=SHR                                       
//*                                                           
//*BTCHSQ   DD  DSN=TCCPU.IOBSC.MASTER.ALLDB,                 
//BTCHSQ   DD  DSN=TCCPU.OCCUL.IDPI991.POLMASTR,              
//             DISP=(NEW,CATLG,DELETE),                       
//             UNIT=CART,                                     
//             DCB=RECFM=VB                                   
//*            UNIT=SYSDA,                                    
//*            SPACE=(CYL,(800,800),RLSE),                    
//*            DCB=RECFM=FB                                   
//*            DCB=(RECFM=VB,LRECL=2000)                      
//SYSIN    DD  *                                              
  REPRO INFILE(BTCHIN) OUTFILE(BTCHSQ)                        
/*