Puedes utilizar REXX,
Sería un fuente similar a éste, no lo he probado, pero puede servir como
idea general.
STRREXXPRC SRCMBR(ACTUALIZAR) SRCFILE(LIB/FUENTEREXX) PARM('LIBRERIA1 TABLA1
BIEN MAL')
Y un fuente REXX algo así:
PARSE UPPER ARG LIBRERIA TABLA BUENO MALO
ADDRESS EXECSQL, ' UPDATE :LIBRERIA.:TABLA SET CAMPO1 = :BUENO WHERE CAMPO1
= :MALO'
más información
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/rzajp/rzajpssrexx.htm
El día 27/03/08, jose manuel lopez gestal <[EMAIL PROTECTED]>
escribió:
>
> 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&#225;s de NEWS/400.
> &#169; 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
>
--
Mi blog sobre as400
http://www.ajut400.com
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; 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
