Un saludo
El día 18/04/06, alex martinez <[EMAIL PROTECTED]> escribió:
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
