JCL 002 Copy Dataset

//APKEN002 JOB ,'COPY DATASET',CLASS=C,MSGCLASS=S,MSGLEVEL=(1,1),               
//             REGION=4096K,TIME=1440,COND=((4,LT)),NOTIFY=&SYSUID              
// !!! PLS DOUBLE CHECK AND REMARK THIS LINE TO SUBMIT                          
//* COPY DATASET                                                                
//STEP0010 EXEC PGM=ADRDSSU                                                     
//SYSPRINT DD SYSOUT=*                                                          
//SYSIN    DD *                                                                 
  COPY DS(INCLUDE(                                         -                    
    IBMUSER.TEST*                                          -                    
         ))                                                -                    
  RENAMEU(                                                 -                    
    (IBMUSER.TEST1, IBMUSER.TEST2)                         -                    
         )                                                 -                    
  SPHERE                                                   -                    
  WAIT(0,0)                                                -                    
  SHR                                                      -                    
  VOLCOUNT(ANY)                                                                 
/*                                                                              
//*                                                                             
//* COPY DATASET WITH EXCLUDE                                                   
//STEP0020 EXEC PGM=ADRDSSU                                                     
//SYSPRINT DD SYSOUT=*                                                          
//SYSIN    DD *                                                                 
  COPY DS(INCLUDE(                                         -                    
    IBMUSER.TEST*                                          -                    
         )                                                 -                    
         EXCLUDE(                                          -                    
    IBMUSER.TEST2                                          -                    
         ))                                                -                    
  RENAMEU(                                                 -                    
    (IBMUSER.TEST1, IBMUSER.TEST3)                         -                    
         )                                                 -                    
  SPHERE                                                   -                    
  WAIT(0,0)                                                -                    
  SHR                                                      -                    
  VOLCOUNT(ANY)                                                                 
/*                                                                              
//*                                                                             

标签：TEST1,COPY,DD,PGM,DATASET,IBMUSER,002,JCL,Copy
来源： https://blog.csdn.net/daiyoko/article/details/120091486