José Manuel: Gracias por el cumplido, en lo personal para tareas como esa uso el interprete de scripts del client access, separo cada sentencia con un punto y coma (;) y las ejecuta todas, se detiene en la que encuentre algún error.
-----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de jose manuel lopez gestal Enviado el: Jueves, 27 de Marzo de 2008 07:58 a.m. Para: 'forum.help400' Asunto: update en varias tablas (muchas) Buenos días tengo que hacer un update en varios campos de varias tablas UPDATE LIBRERIA1/TABLA1 SET CAMPO1 = 'BIEN' WHERE CAMPO1 = 'MAL' UPDATE LIBRERIA1/TABLA1 SET CAMPO2 = 'BIEN' WHERE CAMPO2 = 'MAL' UPDATE LIBRERIA1/TABLA1 SET CAMPO3 = 'BIEN' WHERE CAMPO3 = 'MAL' UPDATE LIBRERIA1/TABLA2 SET CAMPO1 = 'BIEN' WHERE CAMPO1 = 'MAL' UPDATE LIBRERIA1/TABLA2 SET CAMPO2 = 'BIEN' WHERE CAMPO2 = 'MAL' UPDATE LIBRERIA2/TABLA1 SET CAMPO1 = 'BIEN' WHERE CAMPO1 = 'MAL' UPDATE LIBRERIA2/TABLA1 SET CAMPO2 = 'BIEN' WHERE CAMPO2 = 'MAL' UPDATE LIBRERIA2/TABLA1 SET CAMPO3 = 'BIEN' WHERE CAMPO3 = 'MAL' ETC, ETC, ETC, ... evidentemente introduciendo sentencias SQL con STRSQL tengo que ir UPDATE A UPDATE desde el Operations Navigator tampoco desdel el AS400QryM de Martín Esquivel tampoco (por cierto, bravo por Martín) tengo que hacer un miembro en la QSQLSRC de mi LIBL para cada update y luego un cl en el que llamar a cada fuente? PGM RUNSQLSTM SRCFILE(MILIBL/QSQLSRC) SRCMBR(MIEMBRO1) + COMMIT(*NONE) RUNSQLSTM SRCFILE(MILIBL/QSQLSRC) SRCMBR(MIEMBRO2) + COMMIT(*NONE) RUNSQLSTM SRCFILE(MILIBL/QSQLSRC) SRCMBR(MIEMBRO3) + COMMIT(*NONE) RUNSQLSTM SRCFILE(MILIBL/QSQLSRC) SRCMBR(MIEMBRO4) + COMMIT(*NONE) etc, etc, ... ENDPGM o hay un método mejor (sin utilizar RPG) :-( Gracias ************************************** José Manuel López Gestal Dpto. Sistemas de Información Hospital Modelo http://www.hospitalmodelo.com ************************************** Por favor, antes de imprimir este correo considera tu aportación a la conservación del medio ambiente. Please consider your environmental responsibility before printing this e-mail. Este mensaje puede contener Información Privilegiada o Confidencial. Si no eres el destinatario indicado en este mensaje (o el responsable de la entrega del mensaje a dicha persona), no debes copiar o entregar este mensaje a ninguna persona. Por el contrario, debes destruir este mensaje y notificárnoslo inmediatamente. This e-mail and any attachment contains information which is private and confidential and is intended for the addressee only. If you are not an addressee, you are not authorised to read, copy or use the e-mail or any attachment. If you have received this e-mail in error, please notify the sender by return e-mail and then destroy it. __________________________________________________ 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://listas.combios.es/mailman/listinfo/forum.help400 __________________________________________________ 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://listas.combios.es/mailman/listinfo/forum.help400
