* ==== TYPE: ST-DIV-BY-GIVING ====
      * FEATURE: DIVIDE ... BY ... GIVING ... REMAINDER
      * STATEMENT: DIVIDE BY GIVING
      * BRANCHES: 4, DECISIONS: 2
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DIVBYG.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-A       PIC 9(5) VALUE 100.
       01 WS-B       PIC 9(5) VALUE 30.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       01 WS-REM     PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           DIVIDE WS-A BY WS-B GIVING WS-RESULT
               REMAINDER WS-REM.
           IF WS-RESULT = 3
               DISPLAY 'OK: QUOTIENT=3'
           ELSE
               DISPLAY 'ERROR: QUOTIENT'.
           IF WS-REM = 10
               DISPLAY 'OK: REMAINDER=10'
           ELSE
               DISPLAY 'ERROR: REMAINDER'.
           STOP RUN.