Cobol en español
MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
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) : 2/4
(4515 palabras totales en este texto)
(120353 Lecturas)   Versión Imprimible



SUBTRACT , ésta es la instrucción que utilizaremos para realizar restas y tiene los siguientes formatos:

1.- SUBTRACT variable ó literal variable ó literal ... FROM variable (ROUNDED) (ON SIZE ERROR ) instrucción

2.- SUBTRACT variable ó literal variable ó literal ... FROM variable ó literal GIVING variable (ROUNDED) (ON SIZE ERROR) instrucción

3.- SUBTRACT CORR variable FROM variable (ROUNDED) (ON SIZE ERROR) instrucción

Para ver las explicaciones de cada uno de los formatos partiremos de la misma WORKING que hemos utilizado con la instrucción ADD, poniendo a continuación un ejemplo y su explicación.

Formato 1:
SUBTRACT UNO TRES 5 FROM RESULTADO.

Se restarán todas las variables o literales numéricos (cifras) del valor de la variable que se de a continuación del
FROM, 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) = -545.
Como veis se le han restado los valores de UNO, TRES y 5 que suman -555 pero como RESULTADO valía +10, éste se suma y da un valor de -545.

Este formato lo podemos utilizar para hacer contadores en retroceso, poniendo:
SUBTRACT 1 FROM RESULTADO.


Formato 2:
SUBTRACT UNO 5 FROM TRES GIVING RESULTADO.

Aquí lo que conseguiremos será restar el valor de la variable UNO y 5 del valor de la variable TRES y el resultado guardarlo en la variable RESULTADO, sin tener en cuenta su valor inicial, es decir, será de: 540 (de la variable TRES) - 10 (de la variable UNO) - 5 = 525.

Formato 3:
SUBTRACT CORR VALORES FROM OTROS.

Al igual que con la instrucción ADD, con éste formato conseguimos que las variables del campo compuesto VALORES se resten 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) = 170.
Si hubiera coincidido alguna variable mas con el mismo nombre en ambos campos también se hubiese restado.


Nota:
Tened en cuenta que al utilizar restas el signo puede ser negativo y si no tenemos bien declarada la variable que va a contener el resultado, ésta cojerá su valor absoluto.

(1/4) Anterior |    Inicio de Página    | Siguiente (3/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]