> -----Mensaje original----- > De: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] En nombre de > jose manuel lopez gestal > 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) :-( >
Puedes poner dentro un mismo miembro fuente todas las sentencias SQL y realizar un solo RUNSQLSTM. __________________________________________________ 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
