ADUMAIN aplicatido - Descarga de tabla

JCL - Descarga de tabla con aplicativo ADUMAIN

Se muestra paso de descarga de tabla generando esta en el fichero ENT.SB0HBB.UNLOAD01.SYSREC00.

Codigo

//**********************************************************************
//* UNLOAD01 - DESCARGA DE LA TABLA DE EMISIONES POR ENTIDAD           *
//**********************************************************************
//UNLOAD01 EXEC PGM=ADUUMAIN,
//             PARM=(DBD4,'YYSB0HBB','NEW')
//STEPLIB  DD DSN=DBD4.BMCDB2.LOAD,DISP=SHR
//****** LINEA DE STEPLIB ELIMINADA POR JTRA **
//SYSUDUMP DD SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SY
SREC   DD DSN=ENT.SB0HBB.UNLOAD01.SYSREC00,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(200,100),RLSE)
//SYSPUNCH DD DSN=ENT.SB0HBB.UNLOAD01.SYSPUNCH,
//         DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(1,1),RLSE)
//SYSCNTL  DD DUMMY
//SYSIN    DD *
   UNLOAD
    SHRLEVEL(CHANGE)
    FIXEDVARCHAR YES
    ORDER  NO
   SELECT M0081_ENTIDAD, M0081_ENTIDAD2, M0081_VALOR
     FROM OREADM.S_ST_ENTEMI
     WHERE M0081_FECBAJA = '9999-12-31'
    ORDER BY M0081_VALOREMI,M0081_ENTIDAD,M0081_ENTIDAD2
   ;
/*