//USUARIO JOB (PRU),'CRUCE NN',CLASS=X, // MSGCLASS=X,MSGLEVEL=(1,1),COND=(4,LT) //JOBLIB DD DSN=LIBRERIA.OBJETOS.BATCH,DISP=SHR //* //****************************************************** //**************************** BORRADO ***************** //BORRADO EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL APLI.FICHERO.SALIDA SET MAXCC = 0 //* //*-------------------------------------------------------------------- //* EJECUCIÓN DEL PROGRAMA R2BCCM05, GENERACIÓN DE CONTABILIDAD //* PARA LAS ENTREGAS DE ARTÍCULOS DE CAMPAÑAS DE MARKETING //*-------------------------------------------------------------------- //PASO002 EXEC PGM=CRUCENN //SYSPRINT DD SYSOUT=* //SYSABOUT DD SYSOUT=* //SYSDBOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSOUT DD SYSOUT=* //FICHERO1 DD DSN=APLI.FICHERO1.TANIA,DISP=SHR //FICHERO2 DD DSN=APLI.FICHERO2.TANIA,DISP=SHR //SALIDA DD DSN=APLI.FICHERO.SALIDA, // DISP=(,CATLG), // SPACE=(CYL,(500,100),RLSE),UNIT=SYSDA /*