COBOL Exemple

Exemple – ADD

Voici des exemples de programme utilisant le ADD :

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

DATA DIVISION.
WORKING-STORAGE SECTION.

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

PROCEDURE DIVISION.

001-INIT.

Exemple 1

    MOVE 8 TO VALEUR-1
    ADD  3 TO VALEUR-1

    DISPLAY "VALEUR-1 " VALEUR-1
	
STOP RUN.
 
* Resultat du test:

* VALEUR-1 000000011

Exemple 2

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

    DISPLAY "VALEUR-1 " VALEUR-1 
    DISPLAY "VALEUR-2 " VALEUR-2 
	
STOP RUN.

* Resultat du test:

* VALEUR-1 000000007
* VALEUR-2 000000015

Exemple 3

    MOVE 4              TO VALEUR-1
    MOVE 2              TO VALEUR-2
    MOVE 1              TO VALEUR-3
    ADD VALEUR-1 VALEUR-2 TO VALEUR-3 
	
    DISPLAY "VALEUR-1 " VALEUR-1 
    DISPLAY "VALEUR-2 " VALEUR-2 
    DISPLAY "VALEUR-3 " VALEUR-3 
	
STOP RUN.

* Resultat du test:

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

Exemple 4

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

    DISPLAY "VALEUR-1 " VALEUR-1 
    DISPLAY "VALEUR-2 " VALEUR-2 
	
STOP RUN.
 
* Resultat du test:

* VALEUR-1 000000030
* VALEUR-2 000000100

Exemple 5

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

    DISPLAY "VALEUR-1 " VALEUR-1 
    DISPLAY "VALEUR-2 " VALEUR-2 
    DISPLAY "VALEUR-3 " VALEUR-3 
	
STOP RUN.

* Resultat du test:

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

Exemple 6

IDENTIFICATION DIVISION.
PROGRAM-ID. ADD.
AUTHOR.     LA COMMUNAUTE DU COBOL. 
DATA DIVISION.

WORKING-STORAGE SECTION.
01  WS-AUXILIARES.
    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.

* Resultat du test:

A     = 00
X + Y = 35