COBOL Exemple

Exemple – SUBSTRACT

Programme utilisant le SUBSTRACT :

IDENTIFICATION DIVISION.
PROGRAM-ID.  SUBTRACT.
AUTHOR.      LA COMMUNAUTE DU COBOL.

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

DATA DIVISION.
WORKING-STORAGE SECTION.

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

PROCEDURE DIVISION.

001-INIT.

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

* Resultat du test:
* VALEUR-1: +000005

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

* Resultat du test:
* VALEUR-1: +000003
* VALEUR-2: +000005

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

* Resultat du test:
* VALEUR-1: +000006
* VALEUR-2: -000013

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

* Resultat du test:
* VALEUR-1: -000006
* VALEUR-2: -000001

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

* Resultat du test:
* VALEUR-1: -000006
* VALEUR-2: +000013

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

* Resultat du test:
* VALEUR-1: +000030
* VALEUR-2: +000020
* VALEUR-3: -000070

    MOVE  2 TO VALEUR-1
    MOVE  6 TO VALEUR-2
    MOVE 39 TO VALEUR-3
    SUBTRACT VALEUR-1 FROM VALEUR-2 GIVING VALEUR-3	
    DISPLAY 'VALEUR-1: ' VALEUR-1
    DISPLAY 'VALEUR-2: ' VALEUR-2
    DISPLAY 'VALEUR-3: ' VALEUR-3

* Resultat du test:
* VALEUR-1: +000002
* VALEUR-2: +000006
* VALEUR-3: +000004

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

* Resultat du test:
* VALEUR-1: +000080
* VALEUR-2: +000030

    STOP RUN.