* ==== TYPE: ST-MUL-GIVING ====
      * FEATURE: MULTIPLY ... BY ... GIVING
      * STATEMENT: MULTIPLY GIVING
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MULGIV.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-A       PIC 9(5) VALUE 7.
       01 WS-B       PIC 9(5) VALUE 8.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           MULTIPLY WS-A BY WS-B GIVING WS-RESULT.
           IF WS-RESULT = 56
               DISPLAY 'OK: 7*8=56'
           ELSE
               DISPLAY 'ERROR'.
           STOP RUN.