Buenos d�as, Jes�s: Haz una prueba (lo he sacado de un programa ILE/RPG de ejemplo que trae la biblioteca del DATA PROPAGATOR de IBM). Monta una variable de texto con el valor del CONNECT, o sea, algo as�:
c eval datos_conexion='INFORME USER DB2ADMIN USING 'datawh'' c/exec sql CONNECT TO :datos_conexion c/end-exec Saludos. Juan Carlos > -----Mensaje original----- > De: Arbues Sanz, Jesus [SMTP:[EMAIL PROTECTED] > Enviado el: martes, 18 de noviembre de 2003 10:09 > Para: [EMAIL PROTECTED] > Asunto: RE: SQL en ILERPG > > Hola Juan Carlos. > > Creo que no es el problema, te cuento: > > Despu�s de probar 1001 formas diferentes, he comentado las lineas de > conexi�n y compila bien. > > Ejecuto y me da error de que no hay conexi�n con la bd (recuerda que > no esta en el ISeries) > > Cuando dejo el CONNECT la compilaci�n falla: > > 5722ST1 V5R1M0 010525 Crear Objeto RPG ILE SQL > CRMSQL 18/11/03 09:13:09 P�gina 2 > Registro*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 > ...+... 6 ...+... 7 ...+... 8 NUMSEC Ultimo cambio Comentarios > 8 C/EXEC SQL CONNECT TO INFORME USER DB2ADMIN > USING 'datawh' 006180031118 6180 18/11/03 > 15 C/EXEC SQL > 006260031114 6260 14/11/03 > 5722ST1 V5R1M0 010525 Crear Objeto RPG ILE SQL > CRMSQL 18/11/03 09:13:09 P�gina > MENSAJES > DIAGNOSTICO > > MSJ ID GRV REG TEXTO > > SQL0084 30 8 Posici�n 17 Sentencia SQL no permitida. > > SQL1109 10 15 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 > > > > �Que puede pasar?�no puedo hacer un CONNECT? > > > > > -----Mensaje original----- > De: Juan Carlos Paredes [mailto:[EMAIL PROTECTED] > Enviado el: lunes, 17 de noviembre de 2003 11:49 > Para: '[EMAIL PROTECTED]' > Asunto: RE: SQL en ILERPG > > > 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] > > _____________________________________________________ > 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]
