|
 |
 |
Instr. de Cálculo
página(s) : 1/4 (4515 palabras totales en este texto) (120078 Lecturas) 
Debido a que el lenguaje
Cobol fue concebido para la gestión de grandes cantidades de datos y a resolver problemas
de tipo comercial y de administración, no se incluyeron dentro de sus especificaciones
verbos que nos puedieran ayudar a resolver cálculos complejos como integrales,
trigonometría, raices cuadradas, etc..., sino simplemente las orientadas a los cálculos
básicos, suma, resta, multiplicación y división que son las que vamos a ver a
continuación:
ADD
, ésta es la instrucción que utilizaremos para
realizar sumas y tiene los siguientes formatos:
1.- ADD
variable ó literal variable ó
literal ... TO
variable (ROUNDED) (ON
SIZE ERROR ) instrucción
2.- ADD
variable ó literal variable ó
literal ...GIVING
variable (ROUNDED) (ON SIZE ERROR ) instrucción
3.- ADD CORR
variable TO
variable (ROUNDED) (
ON SIZE ERROR) instrucción
Para ver las explicaciones de cada uno de
los formatos partiremos de la misma WORKING
, y a continuación pondremos un ejemplo y su
explicación.
|
WORKING-STORAGE SECTION.
01 VALORES.
02 UNO PIC 99 VALUE 10.
02 DOS PIC 9(6) VALUE 280.
02 TRES PIC 9(4) VALUE 540.
01 OTROS
02 OTRO1 PIC 9.
02 DOS PIC 9(6) VALUE 110.
01 RESULTADO PIC S9(8) VALUE 10.
01 RESTO PIC 99.
PROCEDURE DIVISION.
INICIO. |
|
Formato 1: |
|
ADD UNO TRES 5 TO RESULTADO. |
|
Se sumarán todas las variables o literales numéricos
(cifras) al valor de la variable que se de a continuación del
TO,
guardandose el resultado también en ésta última.Por
tanto al realizar ésta operación el valor de la variable RESULTADO, será de: 10 (de la
variable UNO) + 540 (de la variable TRES) + 5 + 10 (de Resultado) = 565.
Como veis UNO + TRES + 5 suman 555 pero ésto se suma al valor que ya tenía la variable
RESULTADO, con lo que la suma total es de 565.
Este formato se usa mucho para hacer de contador y hacer
que una varable aumente en uno su valor poniendo:
ADD 1 TO
RESULTADO.
|
|
Formato 2: |
|
ADD UNO TRES 5 GIVING RESULTADO. |
|
En éste caso la variable RESULTADO tendrá el valor de
la suma de las variables anteriores, sin tener en cuenta su valor inicial, es decir, será
de: 10 (de la variable UNO) + 540 (de la variable TRES) + 5 = 555.
|
|
Formato 3: |
|
ADD CORR VALORES TO OTROS. |
|
Con éste formato conseguimos que las variables del
campo compuesto VALORES se sumen al valor de las variables con el mismo nombre del campo
compuesto OTROS, obteniendo como resultado: 280 (de la variable DOS del campo VALORES) +
110 (de la variable DOS del campo OTROS) = 390.
Si hubiera coincidido alguna variable mas con el mismo nombre en ambos campos también se
hubiese sumado.
|
|
Nota: Como habreis podido apreciar pueden coexistir variables con el mismo nombre
pero nunca al nivel 01 o 77, es decir nunca como variables independientes, pero si que
formen parte de otra, aunque yo personalmente nunca lo uso porque solo puede dar lugar a
confusiones. Si de todas formas lo utilizais, hay que tener en cuenta que para referirse a
éstas variables no solo bastará con poner su nombre, sino que además habrá que
especificar a que campo pertenece con la palabra IN u OF
. Esto se
explicará con mas detalle cuando veamos los verbos para manipular variables como MOVE. |
| | (2/4) |
|
|