COBOL Exemple

Exemple – FONCTION SUM

Voici des exemples de programme utilisant SUM :

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

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

PROCEDURE DIVISION.

001-INIT.

Exemple 1

    MOVE 100 TO VALEUR-A    
    MOVE FUNCTION SUM(VALEUR-1 VALEUR-2 VALEUR-3 VALEUR-4) TO VALEUR-A
 
    DISPLAY "VALEUR-1 ...... " VALEUR-1  
    DISPLAY "VALEUR-2 ...... " VALEUR-2  
    DISPLAY "VALEUR-3 ...... " VALEUR-3  
    DISPLAY "VALEUR-4 ...... " VALEUR-4  
    DISPLAY "VALEUR-A ...... " VALEUR-A

* Resultat de test:

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

Exemple 2

    MOVE 100 TO VALEUR-A    
    COMPUTE VALEUR-A = FUNCTION SUM(VALEUR-1 VALEUR-2 VALEUR-3 VALEUR-4 VALEUR-A)
 
    DISPLAY "VALEUR-1 ...... " VALEUR-1  
    DISPLAY "VALEUR-2 ...... " VALEUR-2  
    DISPLAY "VALEUR-3 ...... " VALEUR-3  
    DISPLAY "VALEUR-4 ...... " VALEUR-4  
    DISPLAY "VALEUR-A ...... " VALEUR-A

* Resultat de test:

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

    STOP RUN.