He dejado el programa con *ZERO en vez de 100, haré algunas pruebas más a ver si es que se me ha olvidado algo, así que doy por finalizado el tema
Un saludo y gracias a todos
2006/4/24, alex martinez <[EMAIL PROTECTED]>:
He probado un sencillo programa rpg-free con sql sobre la tabla QRPGSRC de QGPL
y no se da el error en un sistema en V5R2 y con igual nivel de PTFs.
Debería probar con otras tablas para ir descartando posibles problemas.
2006/4/24, JUAN García <[EMAIL PROTECTED]>:
> Hola de nuevo, el identificador de mensaje es: MCH1210, en el trabajo no hay
> mas anotaciones relevantes, no he probado con otras tablas, pero tenemos mas
> pgms con con sqlrpg y no dán este problema aunque no son free, no uso
> control de compromiso y no tiene definida integridad referencial
>
> 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.
> (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
