sería de ayuda que enviaras al forum como tienes declarada la estructura.
- No muevas el campo del archivo a un estructura (ds). Haz en su lugar
que la DS se llame igual que el campo del archivo.
debe funcionarte si declaras en la ds el subcampo "conflictivo" dos
veces, una como char y otra como empaquetado.
Incluyo un ejemplo
d campo_fichero ds
d t_char 1 3
d t_nump 1 3p 0
* compruebas con if t_char <> *blanks para manejar t_nump.
c if t_char <> *blanks
c eval t_nump = ( ... )
c endif
El FIXNBR no te funciona porque el campo de entrada es de tipo char, y
en este caso el sistema no tiene nada que arreglar. Por otro lado el
IGNDECERR simplemente ignora los errores de datos decimales de todos
los campos y esto SI que incluye a las estructuras.
La ayuda dice:
*INPUTPACKED
Indica que si mientras se procesan las
especificaciones de entrada se encuentran datos
decimales empaquetados no válidos, la variable interna
se establecerá en cero.
Salu2
On Thu, 9 Sep 2004 09:03:09 +0200, [EMAIL PROTECTED]
<[EMAIL PROTECTED]> wrote:
>
>
> El problema se produce xq como ya he comentado, el campo alfanumérico, en
> principio, contiene varios campos numéricos empaquetados validos, pero en
> algunos casos uno de esos campos que debo mover a la estructura contiene
> blancos y al mover el campo a la estructura cuando da el error.
>
> El campo en conjunto tiene datos, o sea no es distinto de *BLANKS y no
> puedo realizar ninguna comprobación en la estructura xq da error al
> moverlo. Por eso intente el FIXNBR, para que me moviera ceros en vez de
> blancos, puedo jugar con estructuras de datos alfanuméricas, hacer TESTN a
> casa uno y al final lo saco pero mi pregunta es xq puede ser que el FIXNBR
> > *INPUTPACKED - NO me funcione en el RPG IV que estoy compilando y si lo
> haga con los RPG III que ya existen.
>
> A ver si a alguien se le ocurre algo ....
> _____________________________________________
> Jose Luis Aguilera
> Analista
> Ediciones Rueda JM, S.A.
> Los Mesejo, 15
> 28007 Madrid
> Tfno:914 343 883 / 914 343 860 Ext: 166
> Fax: 915 518 161
_____________________________________________________
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]
