Cómo: |
Idiomas disponibles: informes, Maintain
La función ITONUM convierte un número entero binario grande de un origen de datos que no sea de tipo FOCUS, al formato de doble precisión.
Algunos lenguajes de programación y sistemas de almacenamiento de datos que no son de tipo FOCUS, emplean formatos de números enteros binarios, grandes. Sin embargo, los enteros binarios grandes (de más de 4 bytes de longitud) no están soportados en el archivo máster y requieren conversión al formato de precisión doble.
Debe indicar cuántos de los bytes, situados a la derecha del todo del campo de entrada, son significativos. El resultado es un campo de doble precisión de 8 bytes.
ITONUM(maxbytes, infield, output)
donde:
Numérico
Es el número máximo de bytes, en el campo de entrada binario de 8 bytes, que contienen datos numéricos significativos, incluido el signo binario. Los valores válidos son:
5 ignora los 3 primeros bytes de la izquierda.
6 ignora los 2 primeros bytes de la izquierda.
7 ignora el primer byte de la izquierda.
A8
Es el campo que contiene el número binario. Los formatos USAGE y ACTUAL del campo deben ser A8.
Punto flotante de doble precisión (Dn)
Es el nombre del campo que contiene el resultado, o el formato del valor de salida puesto entre comillas solas. El formato debe ser Dn.
Supongamos que un número binario de un archivo externo está en el formato COBOL siguiente:
PIC 9(8)V9(4) COMP
Está definido en el archivo máster EUROCAR como un campo llamado BINARYFLD. Los formatos de sus campos son USAGE=A8 y ACTUAL=A8, puesto que su longitud es superior a 14 bytes.
La siguiente solicitud convierte el campo al formato de doble precisión:
DEFINE FILE EUROCAR
MYFLD/D14 = ITONUM(6, BINARYFLD, MYFLD);
END
TABLE FILE EUROCAR
PRINT MYFLD BY CAR
END
| WebFOCUS |