Aquí van los dos programas que permiten cambiar el usuario al indicado, y
luego restaurar el usuario inicial. Es importante acordarse de restaurar
el usuario por defecto, en caso contrario los listados que genere irán al
usuario cambiado (en vuestro caso QSECOFR imagino).
H**************************************************************************
H* *
H* Descripción: CAMBIAR EL PERFIL DE USUARIO EFECTIVO Y REAL
TEMPORAL *
H* *
H* ?Ver: RestaUSR *
H* *
H* PARÁMETROS TIP E/S Descripción *
H* ---------- --- --- ------------------------- *
H* USER10 10A E Usuario destino *
H* *
H* AUTOR FECHA P R O P O S I T O *
H* ---------- ----------
---------------------------------------------- *
H* JVCERCOS 15/09/04 CREACION *
H* *
H**************************************************************************
H DFTACTGRP(*NO)
D*
D* Definición de variables
D*
D UID S 10U 0
D USER10 S 10
D*
D USRUID S 10
D USRUIDN S 10 0
D*
D RES S 1 0
D*
D qsysetreuid PR 10I 0 ExtProc('qsysetreuid')
D ruid 10U 0 value
D euid 10U 0 value
D*
D* Api Qsysrusri
D*
D APIERR DS 256
D APILEN 1 4B 0 INZ(256)
D APIERL 5 8B 0
D APIMSG 9 15
D APIDTA 17 256
D*
D LGTRCV DS
D LONGI 1 4B 0
D*
D RCVVAR DS 596
D RESTO 1 592
D RCVUID 593 596U 0
C****************************************************************
C*
C *ENTRY PLIST
C PARM USER10
C*
C EVAL PUSRNM = USER10
C EVAL LONGI = %LEN(RCVVAR)
C*
C* Recuperar UID del usuario
C CALL 'QSYRUSRI'
C PARM RCVVAR
C PARM LGTRCV
C PARM 'USRI0300' FMTNAM 8
C PARM PUSRNM 10
C PARM APIERR
C*
C EVAL UID = RCVUID
C*
C* Cambiar usuario Real y Efectivo
C IF APIERL = *ZERO
C EVAL RES = QSYSETREUID(UID:UID)
C ENDIF
C*
C EVAL *INLR = *ON
========================================================================
H**************************************************************************
H* *
H* Descripción: RESTAURA PERFIL DE USUARIO EFECTIVO Y REAL TEMPORAL
*
H* *
H* ?VER: CambiaUsr *
H* *
H* AUTOR FECHA P R O P O S I T O *
H* ---------- ----------
---------------------------------------------- *
H* JVCERCOS 28/09/04 CREACION *
H* *
H**************************************************************************
H DFTACTGRP(*NO)
D*
D CambiaUsr PR ExtPGM('CAMBIAUSR')
D PrUser 10
D*
D SDS
D PAUSUA 254 263
C****************************************************************
C*
C CALLP CambiaUsr(PAUSUA)
C*
C EVAL *INLR = *ON
Un Saludo.
Jose Vicente.
Raul Segura Torres <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
21/02/2007 07:54
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
Re: Autorizaciones en el IFS.
Buenos días y muchas gracias a todos. Evidentemente, Jose Vicente
está exagerando con el tema de la fiera, soy más bien un gatito grande.
Bromas aparte; el programa que está generando el fichero en el IFS es un
programa externo a nuestra aplicación, del cual no tenemos fuentes, y si
tengo que decir la verdad, no sé exactamente las operaciones que hace
internamente para la generación del fichero. El programa que llama a esta
función externa sí que es nuestro, el propietario es el QSECOFR y usa
autorización adoptada, pero aún así no funciona. Voy a probar todo lo que
me habéis dicho, a ver si se deja la función esta que os comento. Jose
Vicente, si puedes enviarme un trocito de código donde tengas la api esta
que me comentas me harías un gran favor, porque esta solución es la que
nos evitaría más problemas en la administración, ya que la aparición de
nuevos usuarios no provocaría casques en la generación de los ficheros.
Un Saludo, Raúl.
Jose Vicente Cercos Barres <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
20/02/2007 21:02
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
Re: Autorizaciones en el IFS.
Hola Raúl.
Se me ocurre que también puedes compilar la CL que haga el copy
como QSECOFR con USRPRF = *OWNER. De ese modo seguramente podrás depositar
los ficheros donde quieras, y los usuarios no podrán leerlos desde
windows. Además si solo quieres poder manipularlos por "pantalla verde",
en el momento que quieras puedes aplicar el mismo concepto para borrarlo,
o volver a leerlo. No lo he probado pero imagino que debe funcionar.
Si no te gusta el tema de acordarte de como hay que compilarlo (a mi no me
gusta), otra opción es hacer un cambio de usuario efectivo por programa,
poniendo uno que si tenga acceso, y luego restaurarlo. Es útil cuando
quieres realizar desde programa ciertas manipulaciones especiales y no
quieres dar autorización al usuario a lo bruto. Nosotros lo usamos para
tratamientos con los SPOOL's, duplicados, o generar listados en el spool
de un determinado usuario sin que ese usuario esté realmente ejecutando el
proceso. El cambio de usuario efectivo se realiza con la api qsysetreuid
es muy sencilla, mas para un profesional como tú, que tengo entendido que
eres un fiera.
Un Abrazo.
Jose Vicente.
Raul Segura Torres <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
20/02/2007 12:18
Por favor, responda a
"forum.help400" <[email protected]>
Para
[email protected]
cc
Asunto
Autorizaciones en el IFS.
Buenos días a todos. Nos ha surgido la necesidad de que ciertos
usuarios del sistema puedan depositar ficheros en un determinado
directorio IFS desde "la pantalla verde", pero que no todos tengan
autorización a poder visualizarlos ni modificarlos desde el explorador de
Windows. Para las personas encargadas de la gestión del directorio en el
explorador, la autorización que tenemos en el directorio es *RWX a datos y
*ALL a objetos, pero ¿qué autorización debemos otorgar a los usuarios para
que se les permita depositar los ficheros en el directorio pero no puedan
ver los datos que otros usuarios han depositado en el mismo?
Muchas gracias a todos.
MENSAJE MEDIOAMBIENTAL
Antes de imprimir este mensaje, por favor, compruebe que es necesario. Una
tonelada de papel implica la tala de 15 árboles y el consumo de 250.000
litros de agua.
El Medio Ambiente es cuestión de TODOS.
ADVERTENCIA LEGAL
"Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la lectura, utilización, divulgación y/o
copia sin autorización está prohibida en virtud de la legislación vigente.
Si ha recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. El correo
electrónico vía Internet no permite asegurar la confidencialidad
de los mensajes que se transmiten ni su integridad o correcta recepción.
La empresa no asume ninguna responsabilidad por estas circunstancias."
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
MENSAJE MEDIOAMBIENTAL
Antes de imprimir este mensaje, por favor, compruebe que es necesario. Una
tonelada de papel implica la tala de 15 árboles y el consumo de 250.000
litros de agua.
El Medio Ambiente es cuestión de TODOS.
ADVERTENCIA LEGAL
"Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es vd. el destinatario
indicado, queda notificado de que la lectura, utilización, divulgación y/o
copia sin autorización está prohibida en virtud de la legislación vigente.
Si ha recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción. El correo
electrónico vía Internet no permite asegurar la confidencialidad
de los mensajes que se transmiten ni su integridad o correcta recepción.
La empresa no asume ninguna responsabilidad por estas circunstancias."
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
