Eso tiene toda la pinta de estar devolviendo algún SQLCODE con error. ¡Cuidadito con los SQLCODE sin comprobar! Un error en la actualización de un fichero mediante la instrucción UPDATE de RPG nos da un error y hace cascar el programa. Un error en una actualización por la sentencia UPDATE de SQL devuelve un SQLCODE y un SQLSTATE y, como no los controles tú en el programa, ni te enteras de lo que ha sucedido. No comprobar estos valores después de una sentencia SQL es como ponerle el indicador de error a un UPDATE de RPG y no comprobar posteriormente su valor. Prueba a poner el programa en depuración y a comprobar el SQLCODE y el SQLSTATE despues del PREPARE y del EXECUTE. Y si no lo ves claro, envíanos esos valores. Saludos. Juan Carlos.
________________________________ De: Pedro Pinedo [mailto:[email protected]] Enviado el: mié 21/01/2009 13:04 Para: forum.help400 Asunto: sqlrpg sometido Hola compañeros, en esto del SQL en RPG, estoy un tanto pez (Que raro ¿verdad? cuando no) He creado un programita fácil, que me funciona perfectamente en interactivo, pero que no hace nada en batch ¿alguna pista? (ya he comprobado el valor de los parametros y es correcto. Gracias V5R4 H/EJECT H DECEDIT('0,') ALTSEQ(*EXT) DATEDIT(*DMY.) ***************************************************************** * * * PROCESO INICIAL * * * ***************************************************************** * D Seletq S 300 0018.00 * 0019.00 * PARMETROS TRANSFERIDOS 0020.00 * 0021.00 C *ENTRY PLIST 0022.00 C PARM usua 10 0023.00 C PARM WKSNAME 25 0031.00 * 0032.00 C EVAL Seletq= 'DELETE - 0033.00 C from REAL/USUWKS where - 0034.00 C USUWKSNAME = ' + 0035.00 C x'7D' + WKSNAME + x'7D' + 0036.00 C ' and USUcod <> ' + 0037.00 C x'7D' + usua + x'7D' 0038.00 * 0039.00 c/exec sql 0040.00 C+ PREPARE S1 FROM :Seletq 0041.00 c/end-exec 0042.00 c/exec sql 0043.00 c+ execute S1 0044.00 c/end-exec 0045.00 * 0046.00 C Seton Lr Pedro Pinedo Hernandez: Analista-Programador Grupo Amcor Flexibles Hispania S.L. Departamento de Informática / IT Department tfno.:+34 941 28 60 90 - 941 03 01 39 fax: +34 941 03 01 39 Avd. Burgos 67-95 26006 Logroño Spain [email protected] (quitar nospam del dominio, para enviar) ______________________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION ______________________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES. De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal, le informamos que los datos que nos facilite podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas del Grupo Everest dedicadas a actividades de impresión, encuadernación, edición, publicación, distribución y venta de libros y otra clase de publicaciones. Sus datos se presumen veraces mientras no nos comunique lo contrario. Podrá ejercitar sus derechos de acceso, rectificación, candelación y oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, código postal 24010 (León). *GRUPO EVEREST está integrado por EDITORIAL EVEREST,S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN,S.L., LA BOUTIQUE DEL LIBRO Y DEL OCIO,S.L., GRUPO EVERHOUSE,S.L., EDITORIAL EVEREST ANDALUCÍA,S.L., EDICIONES GAVIOTE,S.L., EDICIONES CADÍ,S.L., EDITORIAL EVERGRÁFICAS,S.L., GRUPO EVEREST DE COMUNICACIÓN,S.L., EDITORIAL EVEREST GALICIA,S.L., AIZKORRI ARGITALETXEA, S.L.
<<winmail.dat>>
__________________________________________________ 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
