IDENTIFICATION DIVISION.
       PROGRAM-ID. AFFICHAGE-LIGNE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NOM     PIC X(10) VALUE "DUPONT".
       01 PRENOM  PIC X(10) VALUE "ALAIN".

       PROCEDURE DIVISION.
           DISPLAY "Nom : " WITH NO ADVANCING.
           DISPLAY NOM.
           DISPLAY "Prenom : " WITH NO ADVANCING.
           DISPLAY PRENOM.
           STOP RUN.