//GDGCOPIA JOB (9999),'',CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1), // REGION=0M,NOTIFY=&SYSUID //* COPIA UN FICHERO SECUENCIAL EN UNA NUEVA GENERACION */ //COPIAGDG EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=IBMUSER.PRUEBA //SYSUT2 DD DSN=IBMUSER.PRUEBA.GDG(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=3390, // SPACE=(TRK,(2,2),RLSE), // DCB=*.SYSUT1 //SYSIN DD DUMMY //* MUESTRA EL CONTENIDO DE LA GENERACION EN LA SALIDA */ //* SE USA +1 PORQUE AUNQUE SE HAYA CREADO EN EL PASO */ //* ANTERIOR, AUN NO ES LA VERSION ACTUAL Y NO SE PONE (0) */ //VERGDG EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=IBMUSER.PRUEBA.GDG(+1) //SYSUT2 DD SYSOUT=* //SYSIN DD DUMMY