COBOL - Exemplos simples - ADD X COMPUTE X FUNCTION SUM - www.cadcobol.com.br



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

COBOL - Exemplos simples - ADD X COMPUTE X FUNCTION SUM 
IDENTIFICATION DIVISION.
PROGRAM-ID.  CALCULO01.
AUTHOR.      CARLOS ALBERTO DORNELLES.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-AUXILIARES.
    05  VALOR-1         PIC 9(009)          VALUE 1. 
    05  VALOR-2         PIC 9(009)          VALUE 2. 
    05  VALOR-3         PIC 9(009)          VALUE 3. 
    05  VALOR-4         PIC 9(009)          VALUE 4. 
    05  VALOR-A         PIC 9(009)          VALUE ZEROES. 

PROCEDURE DIVISION.

001-INICIO.
Comandos diferentes e com o mesmo resultado
COBOL - Exemplos simples - COMPUTE 
    MOVE 100 TO VALOR-A    
    COMPUTE VALOR-A = VALOR-1 + VALOR-2 + VALOR-3 + VALOR-4
 
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000010

COBOL - Exemplos simples - ADD/GIVING 
    MOVE 100 TO VALOR-A    
    ADD VALOR-1 VALOR-2 VALOR-3 VALOR-4 GIVING VALOR-A
 
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000010

COBOL - Exemplos simples - FUNCTION SUM 
    MOVE 100 TO VALOR-A    
    MOVE FUNCTION SUM(VALOR-1 VALOR-2 VALOR-3 VALOR-4) TO VALOR-A
 
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000010

Comandos diferentes e com o mesmo resultado
COBOL - Exemplos simples - COMPUTE 
    MOVE 100 TO VALOR-A    
    COMPUTE VALOR-A = VALOR-1 + VALOR-2 + VALOR-3 + VALOR-4 + VALOR-A
   
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000110

COBOL - Exemplos simples - ADD 
    MOVE 100 TO VALOR-A    
    ADD VALOR-1 VALOR-2 VALOR-3 VALOR-4 TO VALOR-A
 
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000110

COBOL - Exemplos simples - FUNCTION SUM 
    MOVE 100 TO VALOR-A    
    COMPUTE VALOR-A = FUNCTION SUM(VALOR-1 VALOR-2 VALOR-3 VALOR-4 VALOR-A)
 
    DISPLAY "VALOR-1 ...... " VALOR-1  
    DISPLAY "VALOR-2 ...... " VALOR-2  
    DISPLAY "VALOR-3 ...... " VALOR-3  
    DISPLAY "VALOR-4 ...... " VALOR-4  
    DISPLAY "VALOR-A ...... " VALOR-A

* Resultado do teste:

VALOR-1 ...... 000000001
VALOR-2 ...... 000000002
VALOR-3 ...... 000000003
VALOR-4 ...... 000000004
VALOR-A ...... 000000110

    STOP RUN.