aah,forgot remove by condition so job can be ..

//V&FRVOLSER EXEC  PGM=ADRDSSU,REGION=4M,PARM='TYPRUN=NORUN'    
//SYSPRINT  DD  SYSOUT=*                                             
//INVOL1    DD  VOL=SER=FRVOLSER,UNIT=3390,DISP=SHR                 
//OUTVOL1   DD  VOL=SER=TOVOLSER,UNIT=3390,DISP=SHR                 
//SYSIN     DD  *                                                    
 COPY DATASET(INCLUDE(**)  -                                         
              EXCLUDE(SYS1.VTOCIX.** -                               
              SYS1.VVDS.** -                                         
              SYSUCAT.** -                                           
              OMVS.**    -                                           
              MVSSMP*.** -                                           
              )) -                                                   
      LOGINDDNAME(INVOL1) -                                          
      ALLDATA(*)  -                                                  
      ALLEXCP     -                                                  
      CANCELERROR -                                                  
      BYPASSACS(**) -                                                
      FORCE         -                                                
      NULLMGMTCLAS  -                                                
       NULLSTORCLAS  -                                               
       OUTDDNAME(OUTVOL1)   -                                        
       PERCENTUTILIZED(100) -                                        
       PROCESS(SYS1) -                                               
       REPLACE -                                                     
       SHARE -                                                       
       SPHERE -                                                      
       TGTALLOC(SOURCE) -                                            
       TOLERATE(ENQFAILURE) -                                        
       ADMINISTRATOR                                                 
 //*                                                                        
                                     

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to