Error de Datos Decimales

Los campos declarados numéricos en archivos y programas serán chequeados por el OS/400 para verificar si contienen números validos, cuando la data cargada en ellos es utilizada en el programa. Si estos campos no tienen números validos, se produce un: Error de Datos Decimales: Data Decimal Error y al menos que el error sea monitoreado en el programa, el programa fallará.

Por ejemplo si recibes información de otro computador a través de un archivo, este podría venir con data errónea, si el campo numérico contiene blancos, caracteres especiales o caracteres alfabéticos. Cuando el archivo es abierto en el programa y el registro contiene data inválida no se produce un error. Pero si el campo que contiene data invalida es leído en el programa cuando es el primer operando de una operación MOVE o alguna operación DIV, SUB, ADD, MULT o si está es el dato origen en una operación EVAL (es decir si es el operando a la derecha). También una operación WRITE o UPDATE verificará data inválida y el programa caerá.

Si frecuentemente recibes archivos que contienen data inválida y necesitas corregir la data puedes declarar los campos como carácter y usar TESTN o CHECK para verificar
Que el campo contiene números validos y si la data es correcta o no.

Algunas veces el problema ocurre cuando el campo numérico es “solapado” (overlaid) con una definición numérica en la estructura de datos. Por ejemplo si tienes un empaquetado numérico (packed) y el programador define el campo como ZONED en la estructura de datos el campo contendrá data que es inválida para un campo zoned aún cuando sea validad para un campo empaquetado (packed)
Cuando declaras una estructura de datos con campos numéricos el inicializarla en la declaración evita que se produzcan errores de data decimal.

Cuando el programa RPG no contiene una rutina de monitoreo de errores, es posible que el programa falle y quede en manos del operador del sistema la responsabilidad de responder al error con: C= cancelar, D=Dump G= Go.
Es recomendable tener una rutina de monitoreo de error y provocar un DUMP forzado en el programa para poder analizar cual campo o variable contiene data inválida.

Eso lo vamos a ver en el siguiente artículo.

Si te pareció interesante, reenvialo a un amigo haciendo click en el sobrecito que está al final del artículo. El conocimiento es valioso, compártelo.

Autor:  Ing. Liliana Suárez