> 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 >
_________________________________________________________ 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
