Yo tengo publicada en recursos una utilidad para ver los Trabajos QZDASOINIT en un
subfichero la API que ejecuta para obtener estos datos es parametrizable:
CALL QUSLJOB (&USRSPC 'JOBL0100' &JOBNAME '*ACTIVE ')
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(26) +
VALUE(' *ALL ')
DCL VAR(&JOB) TYPE(*CHAR) LEN(10) +
VALUE('QZDASOINIT') /* Input job name */
DCL VAR(&USER) TYPE(*CHAR) LEN(10) +
VALUE('QUSER ') /* Input user name */
CHGVAR VAR(%SST(&JOBNAME 1 10)) VALUE(&JOB)
CHGVAR VAR(%SST(&JOBNAME 11 10)) VALUE(&USER)
Creo que la puedes utilizar para lo que deseas (con las modificaciones que necesites).
Hasta luego.
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
> Enviado el: mi�rcoles, 17 de abril de 2002 11:56
> Para: [EMAIL PROTECTED]
> Asunto: WRKACTJOB
>
> Hola.
>
> Tengo una duda "existencial". Quiero que cuando los usuarios hagan un
> WRKACTJOB solo puedan ver los subsistemas que tienen autorizaci�n a usar.
> Por ejemplo, si un usuario solo tiene acceso a QINTER y no tiene
> autorizaci�n *EXCLUDE para el subsistema QBATCH, al hacer WRKACTJOB solo
> salga el QINTER.
>
> P.D.: Estoy en 4.2.
>
> Un saludo
> Carlos.
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
