COBOL - Exemplos simples - ADD - www.cadcobol.com.br

Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

COBOL - Exemplos simples - ADD

IDENTIFICATION DIVISION.
PROGRAM-ID.  ADD.
AUTHOR.      CARLOS ALBERTO DORNELLES.

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  VALOR-1         PIC 9(009)          VALUE ZEROES. 
    05  VALOR-2         PIC 9(009)          VALUE ZEROES. 
    05  VALOR-3         PIC 9(009)          VALUE ZEROES. 

PROCEDURE DIVISION.

001-INICIO.

COBOL - Exemplos simples - ADD

    MOVE 8 TO VALOR-1
    ADD  3 TO VALOR-1

    DISPLAY "VALOR-1 " VALOR-1
 
* Resultado do teste:

* VALOR-1 000000011

COBOL - Exemplos simples - ADD

    MOVE 7      TO VALOR-1
    MOVE 8      TO VALOR-2
    ADD VALOR-1 TO VALOR-2	

    DISPLAY "VALOR-1 " VALOR-1 
    DISPLAY "VALOR-2 " VALOR-2 

* Resultado do teste:

* VALOR-1 000000007
* VALOR-2 000000015

COBOL - Exemplos simples - ADD

    MOVE 4              TO VALOR-1
    MOVE 2              TO VALOR-2
    MOVE 1              TO VALOR-3
    ADD VALOR-1 VALOR-2 TO VALOR-3 
	
    DISPLAY "VALOR-1 " VALOR-1 
    DISPLAY "VALOR-2 " VALOR-2 
    DISPLAY "VALOR-3 " VALOR-3 

* Resultado do teste:

* VALOR-1 000000004
* VALOR-2 000000002
* VALOR-3 000000007

COBOL - Exemplos simples - ADD

    MOVE 30        TO VALOR-1
    MOVE 20        TO VALOR-2
    ADD 50 VALOR-1 TO VALOR-2	

    DISPLAY "VALOR-1 " VALOR-1 
    DISPLAY "VALOR-2 " VALOR-2 
 
* Resultado do teste:

* VALOR-1 000000030
* VALOR-2 000000100

COBOL - Exemplos simples - ADD / GIVING

    MOVE 30 TO VALOR-1
    MOVE 20 TO VALOR-2
    MOVE 40 TO VALOR-3
    ADD 60 VALOR-1 VALOR-2 GIVING VALOR-3	

    DISPLAY "VALOR-1 " VALOR-1 
    DISPLAY "VALOR-2 " VALOR-2 
    DISPLAY "VALOR-3 " VALOR-3 

* Resultado do teste:

* VALOR-1 000000030
* VALOR-2 000000020
* VALOR-3 000000110

    STOP RUN.

COBOL - Exemplos simples - ADD / GIVING

    MOVE 30 TO VALOR-1
    MOVE 20 TO VALOR-2
    MOVE 40 TO VALOR-3
    ADD 60 VALOR-1 VALOR-2 GIVING VALOR-3	

    DISPLAY "VALOR-1 " VALOR-1 
    DISPLAY "VALOR-2 " VALOR-2 
    DISPLAY "VALOR-3 " VALOR-3 

* Resultado do teste:

* VALOR-1 000000030
* VALOR-2 000000020
* VALOR-3 000000110

COBOL - Exemplos simples - ADD / TO / GIVING

IDENTIFICATION DIVISION.
PROGRAM-ID. ADD.
AUTHOR.     DORNELLES CARLOS ALBERTO. 
DATA DIVISION.

WORKING-STORAGE SECTION.
01  WS-ACUMULADORES.
    05  WS-A    PIC 9(002).
    05  WS-X    PIC 9(002).
    05  WS-Y    PIC 9(002).
    05  WS-Z    PIC 9(002).
	
PROCEDURE DIVISION.

    SET WS-X TO 10.
    SET WS-Y TO 25.
    ADD WS-X WS-Y TO WS-A GIVING WS-Z.
    DISPLAY "A     = " WS-A
    DISPLAY "X + Y = " WS-Z.
	
STOP RUN.

* Resultado do teste:

A     = 00
X + Y = 35