//FCOPMOVE JOB (,0100),CLASS=R,MSGCLASS=R                        
//STEP04  EXEC PGM=ADRDSSU,REGION=0M,TIME=1440 PARM='TYPRUN=NO   
//SYSPRINT DD  SYSOUT=*                                          
//I1 DD DISP=SHR,UNIT=3390,VOL=SER=TRN029                        
//I2 DD DISP=SHR,UNIT=3390,VOL=SER=TRN034                        
//I3 DD DISP=SHR,UNIT=3390,VOL=SER=TRN037                        
//I4 DD DISP=SHR,UNIT=3390,VOL=SER=TRN038                        
//I5 DD DISP=SHR,UNIT=3390,VOL=SER=TRN040                        
//I6 DD DISP=SHR,UNIT=3390,VOL=SER=TRN044                        
//O01 DD DISP=SHR,UNIT=3390,VOL=SER=TRN001                       
//SYSIN DD *                                                     
 COPY DATASET(INCLUDE( -                                         
 KCI03.**               -                                        
 KCI33.**               -                                        
 ))  -                                           
 LOGINDD(I1,I2,I3,I4,I5,I6) OUTDD(O01) -         
 SELECTMULTI(ANY) WAIT(0,0) SPHERE -             
 RECATALOG(CATALOG.MVSICF1.VTRN001) DELETE PURGE 
/*