//PRUEBVTS 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.COPIA2,    
//           DISP=(,CATLG,DELETE),               
//           UNIT=VTS,                           
//           LRECL=80,RECFM=FB,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.COPIA2,    
//           DISP=SHR                            
//SYSUT2   DD SYSOUT=*                           
//SYSPRINT DD SYSOUT=*                           
//SYSIN    DD DUMMY