ENDCMTCTL
MONMSG MSGID(CPF8350 CPF8356)
STRCMTCTL LCKLVL(*ALL)
CALL PGM(XXXXXXX)
MONMSG MSGID(RPG9001) EXEC(ROLLBACK)
ENDCMTCTL
MONMSG MSGID(CPF8350 CPF8356)
RETURN
En el RPG
A nivel de Hoja F definir el comit en los ficheros que desees lleva por comit
FFICHERO O A E K DISK
F COMMIT
A nivel de hoja C ejecutar COMMIT si se ha actualizado bien o ROLBK si
quieres que no actualice. De todas formas el COMMIT es necesario pero el ROLBK te lo har� en el programa CL si ocurre un error.
BIEN
C COMMIT
C MOVE *ON *INLR
MAL
C ROLBK
C MOVE *ON *INLR
From: Alfredo Reyes <[EMAIL PROTECTED]> Reply-To: [EMAIL PROTECTED] To: Forum 400 <[EMAIL PROTECTED]> Subject: Journal Date: Sat, 11 Jan 2003 22:44:40 -0600Saludos a todos en el foro: Necesito implementar un proceso protegido por journal's para evitar que las actualizaciones a los diferentes archivos queden incompletas. Han enviado en d�as pasados un manual de la creaci�n de los journal's y su posterior liga a los archivos f�sicos. Me pudiesen enviar alg�n ejemplo de CL o RPG de las instrucciones COMMIT y ROLLBACK ? Gracias de antemano. Jos� Alfredo Reyes Moncayo Sistemas de Computaci�n Administrativa Tel�fonos: Domicilio: +52 55-46-62-28 Celular: +52 044 55 85-53-90-66 Email: [EMAIL PROTECTED]
_________________________________________________________________
MSN Fotos: la forma m�s f�cil de compartir e imprimir fotos. http://photos.msn.es/support/worldwide.aspx
_____________________________________________________
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
