Puedes hacer un único miembro con todos los updates y ejecutarlos en un solo RUNSQLSTM. Sólo tienes que separar cada sentencia por un ; (punto y coma).
Saludos. Juan Carlos. -----Mensaje original----- De: jose manuel lopez gestal [mailto:[EMAIL PROTECTED] Enviado el: jueves, 27 de marzo de 2008 14:58 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
