      * https://www.tutorialspoint.com/cobol/cobol_basic_verbs.htm
        IDENTIFICATION DIVISION.
        PROGRAM-ID. HELLO.

        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 WS-NUM1 PIC 9(9) VALUE 5.
        01 WS-NUM2 PIC 9(9) VALUE 250.
        01 WS-NUMA PIC 9(9) VALUE 100.
        01 WS-NUMB PIC 9(9) VALUE 15.
        01 WS-NUMC PIC 9(9).
        01 WS-REM PIC 9(9). 

        PROCEDURE DIVISION.
            DIVIDE WS-NUM1 INTO WS-NUM2.
            DIVIDE WS-NUMA BY WS-NUMB GIVING WS-NUMC REMAINDER WS-REM.
            DISPLAY "WS-NUM1     : " WS-NUM1
            DISPLAY "WS-NUM2     : " WS-NUM2
            DISPLAY "WS-NUMA     : " WS-NUMA
            DISPLAY "WS-NUMB     : " WS-NUMB
            DISPLAY "WS-NUMC     : " WS-NUMC
            DISPLAY "WS-REM      : " WS-REM

            STOP RUN.
