Hola compañeros:
Tengo, de vez en cuando, el problema de datos alfanumericos dentro de un
campo numérico.
Al intentar leer estos datos, los programas dan el error de "error de
datos decimales".
Para poder corregirlos (normalmente son datos nulos - x'4040') los leo
describiendo por programa el campo numérico como alfabético y haciendo el
test de numérico.
¿Sabeis si existe alguna forma mas elegante?
H ALWNULL(*USRCTL)
H DECEDIT('0,') ALTSEQ(*EXT) DATEDIT(*DMY.)
H DFTNAME(PROOF)
Fpedidos up F 1009 disk
d valor s 11
Ipedidos NS
I 1 1002 PRIME
I 1003 1009 pedcanpdteA
c testn pedcanpdteA 808182
C IF *in82
C Z-ADD *ZEROS pedcanpdte 12 3
C SETON 90
C ELSE
C SETOFF 90
C ENDIF
C 90 EXCEPT CABE
O
Opedidos E cabe
O PRIME 1003
O pedcanpdte 1009
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 03 01 39
Avd. Burgos 67-95
26006 Logroño Spain
[email protected]
(quitar nospam del dominio, para enviar)
______________________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
______________________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
