* ==== TYPE: ST-MUL-BY ====
      * FEATURE: MULTIPLY ... BY (constant)
      * STATEMENT: MULTIPLY
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MULBY.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-AMOUNT  PIC 9(5) VALUE 50.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           MULTIPLY 3 BY WS-AMOUNT.
           MOVE WS-AMOUNT TO WS-RESULT.
           IF WS-RESULT = 150
               DISPLAY 'OK: 50*3=150'
           ELSE
               DISPLAY 'ERROR'.
           STOP RUN.