Creo que me los envío en su día algún compañero del foro, pero no recuerdo
exactamente quién ni cuando.

Saludos.
Juan Carlos.

> -----Mensaje original-----
> De:   [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]
> Enviado el:   martes, 12 de julio de 2005 11:44
> Para: [email protected]
> Asunto:       RE: Triggers
> 
> 
> Ok. Correcto. Sólo por curiosidad, dónde has encontrado los parámetros
> correctos? ya has visto los que he enviado de la pagina de IBM para la
> version 5.2 y se les ha colado algun campo que no es de aquí. 
> 
> 
> 
>  Juan Carlos Paredes <[EMAIL PROTECTED]> 
>   Enviado por:   [EMAIL PROTECTED] 12/07/05 08:31 
> Por favor, responda a
> [email protected]
> 
> Para
> [email protected] 
> cc
> Asunto
> RE: Triggers
> 
>       
> 
> 
> 
> 
> 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
> 
> 
> 
> -- 
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.323 / Virus Database: 267.8.12/46 - Release Date: 11/07/2005
>  
> 
-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.12/46 - Release Date: 11/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

Responder a