�No ser�a mejor utilizar otra t�cnica con los archivos de spool?
Es posible asignar una cola de datos a una cola de salida, con lo que cada vez que se registra una salida a �sta (y/o se libera, no lo recuerdo con exactitud), se a�ade una entrada en la cola de datos. Puedes tener un programa servidor para gestionarla, como si fuera un trigger, pero con la ventaja de que no vas a afectar el funcionamiento del sistema, y que puedes gestionarlo de forma as�ncrona.
Este sistema es utilizado para tratar spools de una cola de determinada forma, como enviarlos a otro sitio, archivarlos, limpiarlos, enviar por fax...
Un saludo
Jesus Busquets
Grespania, SA
Please respond to [EMAIL PROTECTED]
Sent by: [EMAIL PROTECTED]
To: Forum400 <[EMAIL PROTECTED]>
cc:
Subject: Triggers spool
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]
