//MOVEDISK JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID,   
//  REGION=0M                                                      
//* ADRDSSU PARA MOVER FICHERO DE DISCO                            
//* USAR STORCLAS(XXXXXXXX) PARA DISCOS SMS                        
//* USAR NULLSTORCLAS PARA DISCOS NO-SMS                           
//* ELEGIR EL PARAMETRO ADECUADO SEGUN EL DISCO - DATASET          
//STEP01   EXEC PGM=ADRDSSU                                        
//ENTRADA1  DD  VOL=SER=PRD000,UNIT=3390,DISP=SHR                  
//SALIDA    DD  VOL=SER=PRD001,UNIT=3390,DISP=SHR                  
//SYSPRINT  DD  SYSOUT=*                                           
//SYSIN     DD  *                                                  
 COPY DATASET(                                 -                   
        INCLUDE(                               -                   
         ZDBUG.V142.SMPLOG.**                  -                   
                ))                             -                   
      CANCELERROR                              -                   
      PERCENTUTILIZED(100)                     -                   
      LOGINDD(ENTRADA1)                        -                   
      OUTDDNAME(SALIDA)                        -                   
      DELETE PURGE                             -  
      RECATALOG(*)                             -  
      ADMIN                                    -  
      BYPASSACS(**)                            -  
      NULLSTORCLAS                             -  
      TOL(ENQF)                                -  
      TGTALLOC(TRK)                            -  
      WRITECHECK                               -  
      WAIT(2,2)                                   
/*