Te env�o un Ejemplo... Este Trigger registra un archivo los movimeintos de Altas, Bajas y Cambios.
En Cambios, registra 2 movimientos... el origen... y
el cambio...
Esta en RPGLE...
Funciona para cualquier archivo de longitud 1500, pero
es posible manejar archivos de mayor longitud.
El �nico requisito, tener un archivo con la misma
estructura del archivo original, m�s los siguientes
campos:
Fecha de Evento 8,0
Hora de Evento 6,0
Usuario Autor 10A
Dispositivo 10A
Tipo de Movimiento 10A
As� como adoptar el nombre del archivo, m�s la letra
B... la cual puede cambiarse desde este programa...
Espero te sirva...
Cualquier duda, quedo a tus �rdenes.
Un saludo,
Juan Manuel Villazana
*
*
HDatfmt(*iso)
* Bitacora de cambios
FCGFVAR IF A F 1500 DISK Usropn
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
* Variables de programa
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
D Xio s 5 0
D Xlo s 5 0
D Xin s 5 0
D Xln s 5 0
D Xfeciso s d Datfmt(*iso)
D Xovr s 80a Dim(1) Ctdata
D Xcmd s 80a inz
D Xlon s 15 5 inz(80)
* - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - *
* Definici�n de Estructura de datos Gen�rica
*
* Teven; 1=Alta, 2=Baja, 3=Cambio
* - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - *
D Parm1 DS
D Fname 1 10
D Lname 11 20
D Mname 21 30
D Teven 31 31
D Ttime 32 32
D Cmtlck 33 33
D Reserv 34 36
D Ccsid 37 40b 0
D Reserv2 41 48
D Boldrcd 49 52b 0
D Loldrcd 53 56b 0
D Bsrcrcd 57 60b 0
D Lsrcrcd 61 64b 0
D Bnewrcd 65 68b 0
D Lnewrcd 69 72b 0
D Bnewmap 73 76b 0
D Lnewmap 77 80b 0
D Reserv3 81 96
D Rcdon 1 3000
D Parm2 Ds
D Long 1 4b 0
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
* Estructura de datos del Sistema
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
D SDS
D Sddev 244 253
D Sdusr 254 263
D Sdot1 264 293
D Jobn 264 269
D Hora 282 287
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
* Estructura de datos registro nuevo
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
D Regnvo Ds
D CGFFEC 1 8s 0
D CGFHOR 9 14s 0
D CGFUSR 15 24a
D CGFDEV 25 34a
D CGFTMO 35 44a
D CGFRCD 45 1500a
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
* Rutina Principal
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
C Z-add Boldrcd Xio
C Eval Xio = Xio +1
C Z-add Loldrcd Xlo
C Z-add Bnewrcd Xin
C Eval Xin = Xin +1
C Z-add Lnewrcd Xln
C Move Xfeciso CGFFEC
C Move Hora CGFHOR
C Movel Sdusr CGFUSR
C Movel Sddev CGFDEV
C Select
C When Teven = '1'
C Eval CGFTMO='ALTA'
C Eval CGFRCD =
%Subst(Rcdon:Xin:Xln)
C Write CGFVAR Regnvo
C When Teven = '2'
C Eval CGFTMO='BAJA'
C Eval CGFRCD =
%Subst(Rcdon:Xio:Xlo)
C Write CGFVAR Regnvo
C When Teven = '3'
C Eval
CGFTMO='ORIGEN'
C Eval CGFRCD =
%Subst(Rcdon:Xio:Xlo)
C Write CGFVAR Regnvo
C Eval CGFTMO='CAMBIO'
C Eval CGFRCD =
%Subst(Rcdon:Xin:Xln)
C Write CGFVAR Regnvo
C Endsl
*
C Eval *Inlr = *on
C Return
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
* Rutina de Inicializaci�n
*
* - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - *
C *Inzsr Begsr
*----
C *Entry Plist
C Parm
Parm1
C Parm Parm2
*----
C Move *Date Xfeciso
C Eval %Subst(Xovr(1):28:10) =
%Trim(Fname) +
C 'B'
C Movel Xovr(1) Xcmd
*----
C Pcmd Plist
C Parm Xcmd
C Parm Xlon
*----
C CALL 'QCMDEXC' Pcmd
*----
C Open CGFVAR
*----
C Endsr
** OVRDBF
OVRDBF FILE(CGFVAR) TOFILE( ) SHARE(*YES)
--- Nicolas Machado <[EMAIL PROTECTED]>
escribi�: > Hola donde puedo buscar ejemplos, solo uno
de
> triggers.
>
> es para aplicar a un PF en la hora *AFTER y en el
> Evento *delete y en el evento *Write.
>
> Gracias
>
>
> Nicol�s Machado
> Metodo Sistemas S.A.
> Paraguay 729 Piso:9 Of:38
> Te:4315.5777 Int:103
>
>
>
>
> ---
> Este Mail NO contiene Virus.
> Checked by AVG anti-virus system
> (http://www.grisoft.com).
> Version: 6.0.431 / Virus Database: 242 - Release
> Date: 17/12/02
>
_________________________________________________________
Do You Yahoo!?
La mejor conexi�n a internet y 25MB extra a tu correo por $100 al mes.
http://net.yahoo.com.mx
_____________________________________________________
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
