IDENTIFICATION DIVISION.
PROGRAM-ID. RENAME-EXAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 EMPLOYEE-RECORD.
   05 EMP-NAME.
      10 FIRST-NAME PIC X(10).
      10 LAST-NAME  PIC X(15).
   05 EMP-ID     PIC 9(5).

66 FULL-NAME RENAMES FIRST-NAME THRU LAST-NAME.

PROCEDURE DIVISION.
MAIN-PARA.
   MOVE "John     Doe          " TO FULL-NAME.
   DISPLAY "Nom complet : " FULL-NAME.
   STOP RUN.