En principio, el problema que te est� dando en la compilaci�n es que no
encuentra la descripci�n de la tabla CRMPER1. Se me ocurre que puedes
crearte una tabla exactamente igual que la del DB2 UDB en alguna de las
bibliotecas que tienes en la lista antes de compilar.
Espero que te ayude.
Saludos.
Juan Carlos.
> -----Mensaje original-----
> De: Arbues Sanz, Jesus [SMTP:[EMAIL PROTECTED]
> Enviado el: lunes, 17 de noviembre de 2003 11:37
> Para: [EMAIL PROTECTED]
> Asunto: SQL en ILERPG
>
> 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]
_____________________________________________________
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]
