Buenos d�as.
Estoy intentando hacer un SQLRPGLE para insertar registros desde el
ISeries a una BD en DB2 UDB.
Previo a este programa en sql interactivo funciona perfectamente con
estos pasos:
CHGJOB CCSID(37)
STRSQL
DISCONNECT ALL
CONNECT TO nombreBD_DB2UDB USER db2admin USING
'password'
INSERT INTO DB2ADMIN.CRMPER1 (CODIGO, NOMBRE)
VALUES(69, 'KKKK')
y funciona perfectamente.
Intento compilar este SQLRPGLE y me da error
C/EXEC SQL WHENEVER SQLERROR GOTO ERROR
C/END-EXEC
*
C/EXEC SQL
C+ DISCONNECT ALL
C/END-EXEC
*
C/EXEC SQL
C+ CONNECT TO nombreBD_DB2UDB USER db2admin USING
'password'
C/END-EXEC
*
* Intento insertar un registro en una tabla que
existe en el DB2
C/EXEC SQL
C+ INSERT INTO DB2ADMIN.CRMPER1
C+ (CODIGO, NOMBRE)
C+ VALUES(69, 'KKKK')
C/END-EXEC
*
C/EXEC SQL
C+ DISCONNECT ALL
C/END-EXEC
*
C ERROR TAG
C SETON
LR
mandato de compilaci�n:
===> ? CRTSQLRPGI ??OBJ(CRM/CRMSQL) ?*SRCFILE(CRM/QILESRC)
?*SRCMBR(CRMSQL) RDB
(INFORME) ?*OBJTYPE(*PGM) USER(DB2ADMIN) PASSWORD('password')
OPTION(*SQL) DATFMT(*ISO) TI
MFMT(*ISO) ??REPLACE(*YES)
listado de compilaci�n:
5722ST1 V5R1M0 010525 Crear Objeto RPG ILE SQL
CRMSQL 17/11/03 11:20:35 P�gina 1
Tipo fuente.................RPG
Nombre de objeto..........CRM/CRMSQL
Archivo fuente............CRM/QILESRC
Miembro...................CRMSQL
Archivo fuente de origen..QTEMP/QSQLTEMP1
Opciones..................*SQL
Opci�n de listado.........*NONE
Release destino...........V5R1M0
Archivo INCLUDE...........*LIBL/*SRCFILE
Compromiso................*CHG
Permitir copia de datos...*OPTIMIZE
Cerrar cursor SQL.........*ENDACTGRP
Permitir bloques..........*ALLREAD
Retardar PREPARE..........*NO
Nivel generaci�n..........10
Archivo impresora.........*LIBL/QSYSPRT
Formato de fecha..........*ISO
Separador de fecha........*JOB
Formato de hora...........*ISO
Separador de hora.........*JOB
Sustituir.................*YES
Base de datos relacional..INFORME
Usuario ..................DB2ADMIN
M�todo de conexi�n RDB ...*DUW
Colecci�n por omisi�n.....*NONE
Din�mico por omisi�n
colecci�n...............*NO
Nombre de paquete.........*OBJLIB/*OBJ
V�a de acceso.............*NAMING
Creado tipo de objeto.....*PGM
Vista de depuraci�n.......*NONE
Perfil usuario ...........*NAMING
Perfil usuario din�mico...*USER
Secuencia de ordenaci�n...*JOB
Identificador de idioma...*JOB
Distintivo IBM SQL .......*NOFLAG
Distintivo ANS............*NONE
Texto.....................*SRCMBRTXT
CCSID del archivo fuente..284
CCSID del trabajo.........37
Miembro fuente cambiado el 17/11/03 11:20:10
5722ST1 V5R1M0 010525 Crear Objeto RPG ILE SQL
CRMSQL 17/11/03 11:20:35 P�gina 2
Registro*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5
...+... 6 ...+... 7 ...+... 8 NUMSEC Ultimo cambio Comentarios
9 C+ CONNECT TO nombre_BD-db2udb USER db2admin
USING 'password' 006190031117 6190 17/11/03
12 C/EXEC SQL
006220031114 6220 14/11/03
5722ST1 V5R1M0 010525 Crear Objeto RPG ILE SQL
CRMSQL 17/11/03 11:20:35 P�gina 3
MENSAJES
DIAGNOSTICO
MSJ ID GRV REG TEXTO
SQL0084 30 9 Posici�n 9 Sentencia SQL no permitida.
SQL1109 10 12 Definiciones de campo para archivo
CRMPER1 de DB2ADMIN
en INFORME no encontradas. SQLCODE
devuelto: -30070,
Mensaje: Mandato de Gesti�n de Datos
Distribuidos (DDM)
Resumen
Mensajes
Total Info Aviso Error Grave Terminal
2 0 1 0 1 0
En el fuente se encontraron errores con nivel de gravedad 30
Se procesaron 23 registros fuente
* * * * * F I N D E L I S
T A D O * * * * *
La verdad es que no se si hacerlo asi o �como?, admito todo
tipo de sugerencias.
Este es una prueba, lo que realmente necesito hacer es
recorrer una tabla del Iseries e insertar los registros en la BD de DB2 UDB.
Como digo admito todo tipo de sugerencias.
Gracias de antemano.
Jes�s
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
