//VTSPRUEB JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),  
//   NOTIFY=&SYSUID                                
//* COPIA EL FICHERO A CINTA                       
//S0010    EXEC PGM=IEBGENER                       
//SYSUT1   DD DSN=IBMUSER.PRUEBA.TAPE,             
//           DISP=SHR                              
//SYSUT2   DD DSN=IBMUSER.PRUEBA.TAPE.COPIA12,     
//           DISP=(NEW,CATLG),                     
//           UNIT=580,                             
//           RETPD=1                               
//SYSPRINT DD SYSOUT=*                             
//SYSIN    DD DUMMY                                
//* LEE LA CINTA Y MUESTRA LA INFORMACION          
//S0020    EXEC PGM=IEBGENER                       
//SYSUT1   DD DSN=IBMUSER.PRUEBA.TAPE.COPIA12,     
//           DISP=SHR                              
//SYSUT2   DD SYSOUT=*                             
//SYSPRINT DD SYSOUT=*                             
//SYSIN    DD DUMMY