Ya lo pille, NO estaba haciendo commit despues de la ejecución, por eso no
daba error, y no me borraba nada (bueno lo borraba y lo dejaba igual) en
interactivo, hasta no terminar la sesión 5250, no hacia rollback y
parecían borrados.
Gracias.
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)
From:
[email protected]
To:
"forum.help400" <[email protected]>
Date:
21/01/2009 13:21
Subject:
RE: sqlrpg sometido
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.
__________________________________________________
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
______________________________________________________
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.__________________________________________________
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
