Hola de nuevo: sí, ya lo he leido, pero el error que se produce me parece extraño y sin más información poco más te puedo decir.
Prueba a realizar un dsply de la variable sqlcod y de la variable sqlstt antes de la sentencia dow, por ejemplo. ¿cual es el identificardor del mensaje "El destino de una operación numérica es demasiado pequeño? ¿un MCH1210, RNQ0103. RNX0103 ? ¿alguna anotación más en el joblog del trabajo? ¿el error igualmente se produce con otras tablas ? ¿usas control de compromiso? ¿la tabla tiene definida integridad referencial? En fin, se me ocurren muchas más preguntas pero hay algun detalle que no has contado ........ SAlu2 2006/4/18, JUAN García <[EMAIL PROTECTED]>: > No he probado sin free, pero el error que me dá es en tiempo de ejecución, > el programa compila perfectamente > > 2006/4/18, alex martinez <[EMAIL PROTECTED] >: > > > ¿has probado a NO utilizar la sintaxis /free para la sentencia dow ? > > Quizás sea un error del precompilador SQL-RPG > > El 12/04/06, JUAN GARCIA<[EMAIL PROTECTED]> escribió: > > Buenas tardes a todos > > (Espero que haya alguien que no esté de puente para poder contestar), he > > codificado un pgm con sentencias sql embebidas y tengo un bucle que > recupera > > datos de un select con un fetch, el bucle es así: > > > > dow sqlcod <> 100; > > exsr RECUPERADATOS; > > exsr GRABAR; > > enddo; > > > > pero al ejecutar el pgm me dá el siguiente error: > > Mensaje . . . . : El destino de una operación numérica es demasiado > > pequeño > > para contener el resultado (C G D F). > > este error lo dá en la sentencia del dow, he cambiado la constante 100 por > > un campo binario de 9,0 posiciones al que le muevo un 100, pero sigue > dando > > el mismo error, sin embargo si lo codifico así: > > dow sqlcod = *Zero; > > > > no hay problema, pero me gustaría saber porqué dá el error de la otra > manera > > ¿alguien sabe porqué puede pasar? > > > > Un saludo > > > > > > > > > > ________________________________ > > > > LLama Gratis a cualquier PC del Mundo. > > Llamadas a fijos y móviles desde 1 céntimo por minuto. > > http://es.voice.yahoo.com > > > > > > > -- > Mi blog sobre as400 > http://www.ajut400.com > > __________________________________________________ > Forum.HELP400 es un servicio más de NEWS/400. > (c) Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja visita la siguente URL: > http://coyote.combios.es/mailman/listinfo/forum.help400 > > -- Mi blog sobre as400 http://www.ajut400.com __________________________________________________ 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 visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
