)ATTR DEFAULT(%+@)
       % TYPE(TEXT)  INTENS(HIGH)
       ˇ TYPE(TEXT)  INTENS(HIGH) HILITE(REVERSE)
       + TYPE(TEXT)  INTENS(LOW)
       ~ TYPE(OUTPUT) INTENS(LOW) COLOR(YELLOW)
       @ TYPE(OUTPUT) INTENS(LOW) COLOR(GREEN)
       $ TYPE(OUTPUT) INTENS(LOW) COLOR(&COLOREST) HILITE(REVERSE)
       ? TYPE(INPUT) INTENS(LOW) COLOR(GREEN) PAD(_)
)BODY
+---------------------------%ESTADISTICAS SPOOL+-------------------------------
+
+%OPCION ===>?Z                                                                +
+
+  OBTIENE UNA LISTA CON LOS PROCESOS DEL SPOOL QUE CUMPLEN LO SIGUIENTE
+
+ ˇFILTAR POR :+
+
+     %JOB    : ?Z       +            %NOMBRE PROCESO. EJEMPLO: PE*
+     %TIPO   : ?Z%                    1-JOB        2-STC          3-TODOS
+     %ESTADO : ?Z%                    1-TERMINADOS 2-EN EJECUCION 3-TODOS
+
+ ˇINICIO     :+
+
+     %DESDE  : ?Z         +?Z       % FORMATO YYYY/MM/DD HH:MM:SS
+     %HASTA  : ?Z         +?Z       % FORMATO YYYY/MM/DD HH:MM:SS
+
+
+         PULSA%ENTER+PARA COMENZAR EL PROCESO. PULSA%F3+PARA SALIR
+
)INIT
.ZVARS = '(ZCMD,ZJOBNM,ZTIPRAD,ZESTRAD,ZDESFEC,ZDESHOR,+
           ZHASFEC,ZHASHOR)'
&ZJOBNM='*'
&ZTIPRAD=''
&ZESTRAD=''
&ZDESFEC=''
&ZDESHOR=''
&ZHASFEC=''
&ZHASHOR=''
)REINIT
 REFRESH(*)
)PROC
 VER (&ZJOBNM,NAMEF)
 VER (&ZTIPRAD,NONBLANK,LIST,'1','2','3')
 VER (&ZESTRAD,NONBLANK,LIST,'1','2','3')
 VER (&ZDESFEC,STDDATE)
 VER (&ZDESHOR,STDTIME)
 VER (&ZHASFEC,STDDATE)
 VER (&ZHASHOR,STDTIME)
)END