Ahí va:
//
// Definición datos de entrada trigger
//
d Buffer ds
d PFName 10
d PFLibrary 10a
d PFMember 10a
d TrgEvent 1a
d TrgTime 1a
d TrgCmtLvl 1a
d Trgfill1 3a
d TrgCCSID 10u 0
d Trgfill2 8a
d OrOffset 10u 0
d OrRcdLen 10u 0
d OrNBMapOfs 10u 0
d OrNBMapLen 10u 0
d NwOffset 10u 0
d NwRcdLen 10u 0
d NwNBMapOfs 10u 0
d NwNBMapLen 10u 0
d BufferLen s 10u 0
//
// Registro Original
//
d @OrRecord s * Inz(*Null)
d OrRecord e ds ExtName(agencia) Prefix(Or_)
d Based(@OrRecord)
//
// Nuevo Registro
//
[EMAIL PROTECTED] s * Inz(*Null)
d
dNwRecord e ds ExtName(agencia) Prefix(Nw_)
d Based(@NwRecord)
*
/free
@OrRecord = %Addr(Buffer) + OrOffset;
@NwRecord = %Addr(Buffer) + NwOffset;
Saludos.
Juan Carlos.
-----Mensaje original-----
De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED] En nombre de Xabier Lizarazu
Enviado el: lunes, 13 de febrero de 2006 12:37
Para: Forum. Help400
Asunto: Triggers
Alguien sabe donde puedo encontrar la estructura de datos que se pasa al programa cuando se lanza un trigger
Saludos
Xabier Lizarazu Unanue
Difusión Moda Internacional S.L.
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.1.375 / Virus Database: 267.15.6/257 - Release Date: 10/02/2006
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.375 / Virus Database: 267.15.6/257 - Release Date: 10/02/2006
