OLDRCD E DS EXTNAME(RTEDIF) PREFIX(O_) NEWRCD E DS EXTNAME(RTEDIF) PREFIX(N_)
* Declaracion de Variables
DsRTEDIF E DS EXTNAME(RTEDIF)
X S 4P 0 INZ(0)
Y S 4P 0 INZ(0)
Cmd S 140A
Length S 15P 5
sTID S 2A
* Parametros Trigger
PARM1 DS
FILNAM 1 10A
LIBNAM 11 20A
MBRNAM 21 30A
TRGEVT 31 31�
TGMTIM 32 32A
COMMIT 33 33A
FIL01 34 36A
CCSID 37 40B 0
FIL02 41 48A
OLDOPP 49 52B 0
OLDLEN 53 56B 0
ONOFF 57 60B 0
NOFF 61 64B 0
NEWLEN 69 72B 0
NNOFF 73 76B 0
NNLEN 77 80B 0
RESV3 81 96A
DATA 1 5660A
PARM2 DS
LENG 1 4B 0
*Entry Plist
PARM1 Parm PARM1
PARM2 Parm PARM2
Eval X = OLDOPP + 1
Eval Y = OLDLEN
Get old record
Eval OLDRCD = %Subst(DATA:X:Y)
Eval X = (OLDOPP + 1) + NOFF + NEWLEN
Eval Y = NEWLEN
new record
Eval NEWRCD = %Subst(DATA:X:Y)
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] En nombre de medina
Enviado el: Lunes, 17 de Junio de 2002 05:42 a.m.
Para: [EMAIL PROTECTED]
Asunto: RE: Triggers - par�metros a programas
Segun veo en un ejemplo que tengo :
* longitud registro original
D OLDLEN 53 56B 0
* longitud del nuevo registro
D NEWLEN 69 72B 0
luego debe tener hasta 9999.Creo.
Saludos.
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Enviado el: lunes, 17 de junio de 2002 10:17
Para: [EMAIL PROTECTED]
Asunto: Triggers - par�metros a programas
Hola,
�Alguien sabe si hay alguna longitud m�xima de registro para los
par�metros que pasa el sistema al programa llamado en el trigger?
Lo que estoy haciendo es llamar un programa ILE COBOL (siguiendo el
ejemplo que viene en el manual DB2 UDB for AS/400 Database Programming
V4R5). Si lo hago tal y como pone el ejemplo funciona perfectamente
(veo registro anterior y posterior a modificaci�n, que es lo que
quiero), pero si lo hago con otro fichero (longitud 1104) no me
recupera los registros.
Saludos,
Angel
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
(c) 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=AVE
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
(c) 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
<<attachment: winmail.dat>>
