       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-NUM1 PIC 9(9) VALUE 10 .
       01 WS-NUM2 PIC 9(9) VALUE 10.
       01 WS-NUM3 PIC 9(9) VALUE 100.
       01 WS-NUM4 PIC 9(9) VALUE 100.
       01 WS-NUMA PIC 9(9) VALUE 10.
       01 WS-NUMB PIC 9(9) VALUE 10.
       01 WS-NUMC PIC 9(9) VALUE 10.
       01 WS-NUMD PIC 9(9) VALUE 100.
       01 WS-NUME PIC 9(9) VALUE 10.

       PROCEDURE DIVISION.
       SUBTRACT WS-NUM1 WS-NUM2 FROM WS-NUM3 WS-NUM4.
       SUBTRACT WS-NUMA WS-NUMB WS-NUMC FROM WS-NUMD GIVING WS-NUME.

       DISPLAY "WS-NUM1     : " WS-NUM1
       DISPLAY "WS-NUM2     : " WS-NUM2
       DISPLAY "WS-NUM3     : " WS-NUM3
       DISPLAY "WS-NUM4     : " WS-NUM4
       DISPLAY "WS-NUMA     : " WS-NUMA
       DISPLAY "WS-NUMB     : " WS-NUMB
       DISPLAY "WS-NUMC     : " WS-NUMC
       DISPLAY "WS-NUMD     : " WS-NUMD
       DISPLAY "WS-NUME     : " WS-NUME

       STOP RUN.
