Gente, buenos dias/tardes/noches (lo que se aplique).
He estado intentando hacer un trigger sobre los bases donde se almacenan los
spooles pero no he tenido exito.
El programa que me registra el usuario, biblioteca, base, miembro, y tipo de
operacion lo he probado sobre otras bases y funciona correctamente.
Alguien ha querido realizar lo mismo? ha tenido exito? como?
Al programa lo compile con QSECOFR, le puse utilizar autorizacion adoptada =
*yes, perfil de usuario = *owner
sin embargo no he logrado que registre una entrada en el archivo de login,
el programita es bastente sencillo, se los copio al final,
si alguien me puede tirar una cuerda, se los voy a agradecer.
Saludos,
Dario.-
PD: estoy en V4R4M0
fLogin o f 100 disk
d LoginTxt s 100 Varying
dBuffer ds 4000
dTrgFile 1 10
dTrgLib 11 20
dTrgMbr 21 30
dTrgEvent 31 31
dTrgTime 32 32
dOldOffset 49 52b00
dOldLength 53 56b00
dNewOffset 65 68b00
dNewLength 69 72b00
d sds
dUserId 254 263
c *entry plist
c parm Buffer
c parm BufferLen 4
* Asinar valores a campos
c eval LoginTxt = LoginTxt + UserId
c eval LoginTxt = LoginTxt + '@'
c eval LoginTxt = LoginTxt + TrgFile
c eval LoginTxt = LoginTxt + '@'
c eval LoginTxt = LoginTxt + TrgLib
c eval LoginTxt = LoginTxt + '@'
c eval LoginTxt = LoginTxt + TrgMbr
c eval LoginTxt = LoginTxt + '@'
* Evento desencadenante
c select
c when TrgEvent = '1'
c eval LoginTxt = LoginTxt + 'A'
c when TrgEvent = '2'
c eval LoginTxt = LoginTxt + 'B'
c when TrgEvent = '3'
c eval LoginTxt = LoginTxt + 'M'
c endsl
* Grabar registro
c* write tralmao
c except LoginFrm
c eval *inlr=*on
oLogin e LoginFrm
o LoginTxt 100
_____________________________________________________
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]
