//COPISECU JOB (9999),'',CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),           
// REGION=0M,NOTIFY=&SYSUID                                           
//* COPIA FICHERO SECUENCIAL ESPECIFICANDO DCB */                     
//* CATALOGA EL FICHERO EN UN DISCO UNIT=3390  */                     
//COPIA1   EXEC PGM=IEBGENER                                          
//SYSPRINT DD SYSOUT=*                                                
//SYSUT1   DD DISP=SHR,DSN=IBMUSER.PRUEBA                             
//SYSUT2   DD DSN=IBMUSER.PRUEBA.COPIA1,                              
//            DISP=(NEW,CATLG,DELETE),                                
//            UNIT=3390,                                              
//            SPACE=(TRK,(15,30),RLSE),                               
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)                    
//SYSIN    DD DUMMY                                                   
//* COPIA FICHERO SECUENCIAL USANDO DCB DE LOS FICHEROS DE ENTRADA */ 
//* AŅADE MULTIVOLUMEN UNIT=(3390,3) PARA CREAR EL FICHERO         */ 
//COPIA2   EXEC PGM=IEBGENER                                          
//SYSPRINT DD SYSOUT=*                                                
//SYSUT1   DD DISP=SHR,DSN=IBMUSER.PRUEBA.LARGO1                      
//         DD DISP=SHR,DSN=IBMUSER.PRUEBA.LARGO2                      
//SYSUT2   DD DSN=IBMUSER.PRUEBA.COPIA2,                              
//            DISP=(NEW,CATLG,DELETE),                                
//*           DSNTYPE=LARGE,                                          
//            UNIT=(3390,3),                                          
//            SPACE=(CYL,(10,3330)),                                  
//            DCB=*.SYSUT1                                            
//SYSIN    DD DUMMY