COBOL - Exemplos simples - DIVIDE

COBOL - Exemplos simples - DIVIDE

IDENTIFICATION DIVISION.
PROGRAM-ID.  DIVIDE.
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 9(009)V99          VALUE ZEROES. 
    05  VALOR-2         PIC 9(009)V99          VALUE ZEROES. 
    05  VALOR-3         PIC 9(009)V99          VALUE ZEROES. 
    05  VALOR-4         PIC 9(009)             VALUE ZEROES. 
    05  VALOR-5         PIC 9(009)             VALUE ZEROES. 
    05  VALOR-6         PIC 9(009)             VALUE ZEROES. 
    05  VALOR-7         PIC 9(009)             VALUE ZEROES. 

PROCEDURE DIVISION.

001-INICIO.

COBOL - Exemplos simples - DIVIDE

    MOVE 5892,00 TO VALOR-1
    DIVIDE 5 INTO VALOR-1	
    DISPLAY "VALOR-1 " VALOR-1

* Resultado do teste:

* VALOR-1 000001178,40

COBOL - Exemplos simples - DIVIDE

    MOVE 35,00 TO VALOR-1
    MOVE 10,00 TO VALOR-2
    MOVE  8,20 TO VALOR-3 
    DIVIDE VALOR-1 BY 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 000000035,00
* VALOR-2 000000010,00
* VALOR-3 000000003,50

COBOL - Exemplos simples - DIVIDE / GIVING

    MOVE 1250,00 TO VALOR-1
    MOVE ZEROES  TO VALOR-2
    DIVIDE VALOR-1 BY VALOR-2 GIVING VALOR-2 ON SIZE ERROR
           MOVE ZEROES TO VALOR-1	
    DISPLAY "VALOR-1 " VALOR-1
    DISPLAY "VALOR-2 " VALOR-2

* Resultado do teste:

* VALOR-1 000000000,00
* VALOR-2 000000000,00

COBOL - Exemplos simples - DIVIDE / GIVING / ROUNDED

    MOVE 28,00 TO VALOR-1
    MOVE 10,00 TO VALOR-2
    MOVE  4,00 TO VALOR-3 
    DIVIDE VALOR-1 BY VALOR-2 GIVING VALOR-3 ROUNDED	
    DISPLAY "VALOR-1 " VALOR-1
    DISPLAY "VALOR-2 " VALOR-2
    DISPLAY "VALOR-3 " VALOR-3

* Resultado do teste:

* VALOR-1 000000028,00
* VALOR-2 000000010,00
* VALOR-3 000000002,80

COBOL - Exemplos simples - DIVIDE / GIVING / ROUNDED

    MOVE 28 TO VALOR-4
    MOVE 10 TO VALOR-5
    MOVE  4 TO VALOR-6 
    DIVIDE VALOR-4 BY VALOR-5 GIVING VALOR-6 ROUNDED	
    DISPLAY "VALOR-4 " VALOR-4
    DISPLAY "VALOR-5 " VALOR-5
    DISPLAY "VALOR-6 " VALOR-6

* Resultado do teste:

* VALOR-4 000000028
* VALOR-5 000000010
* VALOR-6 000000003

COBOL - Exemplos simples - DIVIDE / GIVING / REMAINDER

    MOVE 28 TO VALOR-4
    MOVE 10 TO VALOR-5
    MOVE  4 TO VALOR-6 
    DIVIDE VALOR-4 BY VALOR-5 GIVING VALOR-6 REMAINDER VALOR-7	
    DISPLAY "VALOR-4 " VALOR-4
    DISPLAY "VALOR-5 " VALOR-5
    DISPLAY "VALOR-6 " VALOR-6
    DISPLAY "VALOR-7 " VALOR-7

* Resultado do teste:

* VALOR-4 000000028
* VALOR-5 000000010
* VALOR-6 000000002
* VALOR-7 000000008


    STOP RUN.