Yo ambos registros los obtengo de la siguiente manera:
* ---------------------------------------------
* Registro Original
* ---------------------------------------------
d @OrRecord s * Inz(*Null)
d OrRecord e ds ExtName(nombre_del_fichero)
Prefix(OR_)
d Based(@OrRecord)
* ---------------------------------------------
* Nuevo Registro
* ---------------------------------------------
[EMAIL PROTECTED] s * Inz(*Null)
d
dNwRecord e ds ExtName(nombre_del_fichero)
d Based(@NwRecord)
*
/free
@OrRecord = %Addr(Buffer) + OrOffset;
@NwRecord = %Addr(Buffer) + NwOffset;
Saludos.
Juan Carlos.
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> Enviado el: lunes, 11 de julio de 2005 17:10
> Para: [email protected]
> Asunto: RE: Triggers
>
>
> Vale. Ahora ya se parece más al correcto. Sólo una cosa,en la DS 'buffer'
> faltan los cuatro campos variables de registros originales y actuales que
> es donde tengo ahora el problema: en el registro 'original' me está
> enviando el nuevo registro y el antiguo me lo esta poniendo en venusiano.
> No sé si me explico.
> Aqui envio una copia de los parametros que propone IBM para los triggers,
> que están mal. El correcto es el que me envias tú, pero me faltan estos 4
> campos.(por supuesto,que he tenido en cuenta que un Bin de 4 es igual a un
> entero de 10.
>
> Offset
> Type Field
> Dec Hex
> 0
> 0
> CHAR(10) Physical file name
> 10
> A
> CHAR(10) Physical file library name
> 20
> 14
> CHAR(10) Physical file member name
> 30
> 1E
> CHAR(1) Trigger event
> 31
> 1F
> CHAR(1) Trigger time
> 32
> 20
> CHAR(1) Commit lock level
> 33
> 21
> CHAR(3) Reserved
> 36
> 24
> BINARY(4) CCSID of data
> 40
> 28
> BIN(4) Relative Record Number
> 44
> 2C
> CHAR(4) Reserved
> 48
> 30
> BINARY(4) Original record offset
> 52
> 34
> BINARY(4) Original record length
> 56
> 38
> BINARY(4) Original record null byte map offset
> 60
> 3C
> BINARY(4) Original record null byte map length
> 64
> 40
> BINARY(4) New record offset
> 68
> 44
> BINARY(4) New record length
> 72
> 48
> BINARY(4) New record null byte map offset
> 76
> 4C
> BINARY(4) New record null byte map length
> 80
> 50
> CHAR(16) Reserved
> *
> *
> CHAR(*) Original record
> *
> *
> CHAR(*) Original record null byte map
> *
> *
> CHAR(*) New record
> *
> *
> CHAR(*) New record null byte map
>
>
>
>
> Juan Carlos Paredes <[EMAIL PROTECTED]>
> Enviado por: [EMAIL PROTECTED] 11/07/05 15:49
> Por favor, responda a
> [email protected]
>
> Para
> [email protected]
> cc
> Asunto
> RE: Triggers
>
>
>
>
>
>
> Hola Alberto:
>
> En V5R3 funcionan correctamente con estos parámetros:
>
> 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
>
> c *entry plist
>
> c parm Buffer
>
> c parm BufferLen
>
>
>
> Saludos.
>
> Juan Carlos.
>
> > -----Mensaje original-----
> > De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> > Enviado el: lunes, 11 de julio de 2005 13:38
> > Para: [email protected]
> > Asunto: Triggers
> >
> >
> > Hola. A ver si alguien tiene por ahi los parametros de entrada de los
> > triggers para la V5R2 en adelante. He intentado un trigger con los
> > parametros que tenia en la V4r5(sacados de un manual de IBM) y me
> devuelve
> > cosas raras.
> > Gracias
> >
> > --
> > No virus found in this incoming message
> > Checked by AVG Anti-Virus.
> > Version: 7.0.323 / Virus Database: 267.8.11/45 - Release Date:
> 09/07/2005
> >
> >
> --
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.8.11/45 - Release Date: 09/07/2005
>
>
> __________________________________________________
> 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 visita la siguente URL:
> http://coyote.combios.es/mailman/listinfo/forum.help400
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.8.11/45 - Release Date: 09/07/2005
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.11/45 - Release Date: 09/07/2005
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
