IDENTIFICATION DIVISION.
PROGRAM-ID. DIVIDE-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOMBRE              PIC 9(4) VALUE 47.
01 WS-DIVISEUR           PIC 9(2) VALUE 5.
01 WS-RESULTAT           PIC 9(4).
01 WS-RESTE              PIC 9(2).

PROCEDURE DIVISION.
DIVIDE WS-NOMBRE BY WS-DIVISEUR GIVING WS-RESULTAT REMAINDER WS-RESTE.
  DISPLAY "Resultat : " WS-RESULTAT.
  DISPLAY "Reste : " WS-RESTE.
  STOP RUN.