******************************************************************
      * Author: Alain Stevens - Formation Pacta
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. AdditionSalaire.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MONTANT-BASE      PIC 9(5) VALUE 1200.
       01 PRIME             PIC 9(5) VALUE 300.
       01 SALAIRE-TOTAL     PIC 9(5).

       PROCEDURE DIVISION.
    .  ADD MONTANT-BASE PRIME GIVING SALAIRE-TOTAL
       DISPLAY "MONTANT-BASE : " MONTANT-BASE.
       DISPLAY "PRIME : " PRIME.
       DISPLAY "Salaire total : " SALAIRE-TOTAL.
       STOP RUN.