DIVIDE By

DIVIDE By Example

Arithmetic Statements Tutorial   

Scenario - Divide one variable with other using BY.

Code -

----+----1----+----2----+----3----+----4----+----5----+
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SIMPDIV.
       AUTHOR. MTH.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-VAR.
          05 WS-VAR1      PIC 9(03) VALUE 70.
          05 WS-VAR2      PIC 9(03) VALUE 5. 

       PROCEDURE DIVISION.
           DIVIDE WS-VAR1 BY WS-VAR2 
           DISPLAY "Result: " WS-VAR2.

           STOP RUN.

Output -

Result: 14

Explaining Example -

In the above example:

  • It declares two variables, WS-VAR1 and WS-VAR2, each capable of holding a 3-digit numeric value.
  • WS-VAR1 is initialized with the value 570, and WS-VAR2 is initialized with the value 5.
  • It divides the value of WS-VAR1 by the value of WS-VAR2 using the DIVIDE statement and stores the result in WS-VAR2.
  • Then, it displays the result with the message "RESULT: " followed by the content of WS-VAR2. So, the output will be "RESULT: 14".