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



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

COBOL - Exemplos simples - SUBTRACT 
IDENTIFICATION DIVISION.
PROGRAM-ID.  SUBTRACT.
AUTHOR.      CARLOS ALBERTO DORNELLES.

ENVIRONMENT DIVISION.                                            
CONFIGURATION SECTION.                                           
SPECIAL-NAMES.                                                   
    DECIMAL-POINT IS COMMA. 

DATA DIVISION.
WORKING-STORAGE SECTION.

01  WS-AUXILIARES.
    05  VALOR-1             PIC S9(006)       VALUE ZEROES. 
    05  VALOR-2             PIC S9(006)       VALUE ZEROES. 
    05  VALOR-3             PIC S9(006)       VALUE ZEROES. 

PROCEDURE DIVISION.

001-INICIO.

    MOVE  8 TO VALOR-1
    SUBTRACT 3 FROM VALOR-1	
    DISPLAY 'VALOR-1: ' VALOR-1

* Resultado do teste:
* VALOR-1: +000005

    MOVE  3 TO VALOR-1
    MOVE  8 TO VALOR-2
    SUBTRACT VALOR-1 FROM VALOR-2	
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2

* Resultado do teste:
* VALOR-1: +000003
* VALOR-2: +000005

    MOVE  6 TO VALOR-1
    MOVE -7 TO VALOR-2
    SUBTRACT VALOR-1 FROM VALOR-2	
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2

* Resultado do teste:
* VALOR-1: +000006
* VALOR-2: -000013

    MOVE -6 TO VALOR-1
    MOVE -7 TO VALOR-2
    SUBTRACT VALOR-1 FROM VALOR-2	
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2

* Resultado do teste:
* VALOR-1: -000006
* VALOR-2: -000001

    MOVE -6 TO VALOR-1
    MOVE  7 TO VALOR-2
    SUBTRACT VALOR-1 FROM VALOR-2	
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2

* Resultado do teste:
* VALOR-1: -000006
* VALOR-2: +000013

    MOVE 30 TO VALOR-1
    MOVE 20 TO VALOR-2
    MOVE 40 TO VALOR-3
    SUBTRACT 60 VALOR-1 VALOR-2 FROM VALOR-3	
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2
    DISPLAY 'VALOR-3: ' VALOR-3

* Resultado do teste:
* VALOR-1: +000030
* VALOR-2: +000020
* VALOR-3: -000070

    MOVE  2 TO VALOR-1
    MOVE  6 TO VALOR-2
    MOVE 39 TO VALOR-3
    SUBTRACT VALOR-1 FROM 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: +000002
* VALOR-2: +000006
* VALOR-3: +000004

    MOVE 80 TO VALOR-1
    MOVE 20 TO VALOR-2
    SUBTRACT 50      FROM VALOR-1 GIVING VALOR-2  
    DISPLAY 'VALOR-1: ' VALOR-1
    DISPLAY 'VALOR-2: ' VALOR-2

* Resultado do teste:
* VALOR-1: +000080
* VALOR-2: +000030

    STOP RUN.