cobol
¿Cómo funciona el computacional en cobol?
Buscar..
Introducción
La cláusula computacional se usa para describir el tipo de almacenamiento utilizado en COBOL. Se utiliza para 3 formas: COMP-1, COMP-2 y COMP-3. La forma más común de computación es COMP-3. Con frecuencia es simplemente llamado "COMP" por los programadores.
COMP-3
El elemento de datos se almacena en formato decimal empaquetado en COMP-3. El formato decimal empaquetado significa que cada byte de almacenamiento (excepto el byte de orden bajo) puede contener dos números decimales. El byte de orden inferior contiene un dígito en la parte izquierda y el signo (positivo o negativo) en la parte derecha.
"Formato decimal zonificado" en la imagen de abajo es el almacenamiento predeterminado para un número en COBOL.
01 WS-NUM PIC 9(5) USAGE IS COMP-3 VALUE 21544.
El almacenamiento computacional se usa frecuentemente para reducir el tamaño de un archivo.
Implementaciones comunes
La implementación de comp, comp-1 ... comp-5 depende de la implementación.
Format Normal Implementation
Comp Big endian binary integer
Comp-1 4 byte floating point
Comp-2 8 byte floating point
Comp-3 Packed decimal 123 is stored as x'123c'
Comp-5 Binary Integer optermised for performance.
Big Endian on the Mainframe, Little Endian on Intel Hardware
Los compiladores de Ibm normalmente admiten Comp, Comp-4, Comp-5 en tamaños de 2,4,8 bytes. Soporte GNU Cobolo con tamaños de 1,2,4,8.
Comp-1, los campos de Comp-2 se definen sin una cláusula de imagen:
03 Floating-Field Comp-1.
03 Double-Field Comp-2
Para otros Comp's se ingresa la imagen:
03 Big-Endian Pic S9(4) Comp.
03 Packed-Decimal Pic S9(5) Comp.