Divide Verb
Divide verb is used to divide one number by the another and store the result.Following is the syntax of division operations:
DIVIDE A INTO B ----- syntax 1
DIVIDE A BY B GIVING C REMAINDER R ----- syntax 2
In syntax 1, B is divided by A and the result is stored in B. i.e B=B/A.
In syntax 2, A is divided by B and the result is stored in C. i.e C= A/B and remainder is stored in R.
Example : Demonstration of Divide verb
IDENTIFICATION DIVISION.
PROGRAM-ID. DV.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-N1 PIC 9(4) VALUE 15.
01 WS-N2 PIC 9(3) VALUE 150.
01 WS-NA PIC 9(3) VALUE 93.
01 WS-NB PIC 9(3) VALUE 18.
01 WS-NC PIC 9(4).
01 WS-REM PIC 9(3).
PROCEDURE DIVISION.
DIVIDE WS-N1 INTO WS-N2.
DIVIDE WS-NA BY WS-NB GIVING WS-NC REMAINDER WS-REM.
DISPLAY "WS-NUMBER-1 : " WS-N1
DISPLAY "WS-NUMBER-2 : " WS-N2
DISPLAY "WS-NUMBER-A : " WS-NA
DISPLAY "WS-NUMBER-B : " WS-NB
DISPLAY "WS-NUMBER-C : " WS-NC
DISPLAY "WS-REM : " WS-REM
STOP RUN.
Output:
WS-NUMBER-1 : 0015
WS-NUMBER-2 : 010
WS-NUMBER-A : 093
WS-NUMBER-B : 018
WS-NUMBER-C : 0005
WS-REM : 003
