Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
14
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Manuales
TEMARIOIntroducción
Identification Division
Environment Division
Data Division
Procedure Division
Instr. de Cálculo
Instr. de Archivos
Instr. de Pantalla
Instr. de Variables
Instrucción Perform

Instr. de Cálculo

página(s) : 1/4
(4515 palabras totales en este texto)
(106616 Lecturas)   Versión Imprimible



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.

   Inicio de Página    | Siguiente (2/4)
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]