IDENTIFICATION DIVISION. PROGRAM-ID. TEST_ADD. DATA DIVISION. WORKING-STORAGE SECTION. 77 NUM-01 PIC 9(3)V9(2) VALUE 64.2. 77 NUM-02 PIC 9(15)V9(2) VALUE 1234567890123.67. 77 NUM-03 PIC 9(3)V9(2) COMP VALUE 123.45. 77 NUM-04 PIC S9(4)V9(3) COMP VALUE -90.6. 77 NUM-05 PIC 9(3)V9(2) COMP VALUE 1. 77 NUM-06 PIC 9(3)V9(2) COMP VALUE 0.02. 77 NUM-07 PIC 9(6)V9(2) COMP VALUE 876543.67. 77 NUM-08 PIC 9(14)V9(3) COMP VALUE 876543.67. 01 GROUP-01. 05 N-01 PIC 9(4) VALUE 11. 05 N-02 PIC 9(5)V9(2) COMP VALUE 22.22. 05 N-03 PIC 9(3)V9(1) VALUE 33.3. 01 GROUP-02. 05 N-02 PIC 9(5)V9(2) COMP VALUE 66.66. 05 N-01 PIC 9(4) VALUE 55. 05 N-03 PIC 9(3)V9(1) VALUE 77.7. 77 EDI-01 PIC -,---,---,---,--9.999. PROCEDURE DIVISION. MAIN. * Add data-1 to data-2 MOVE NUM-01 TO EDI-01 DISPLAY \" \" EDI-01 MOVE NUM-02 TO EDI-01 DISPLAY \"+\" EDI-01 ADD NUM-01 TO NUM-02 MOVE NUM-02 TO EDI-01 DISPLAY \"=\" EDI-01 DISPLAY \" \" * Add data-1 to data-2 MOVE NUM-03 TO EDI-01 DISPLAY \" \" EDI-01 MOVE NUM-04 TO EDI-01 DISPLAY \"+\" EDI-01 ADD NUM-03 TO NUM-04 MOVE NUM-04 TO EDI-01 DISPLAY \"=\" EDI-01 DISPLAY \" \" * Add data-1 data-2 to data-3 MOVE NUM-05 TO EDI-01 DISPLAY \" \" EDI-01 MOVE NUM-06 TO EDI-01 DISPLAY \"+\" EDI-01 MOVE NUM-07 TO EDI-01 DISPLAY \"+\" EDI-01 ADD NUM-05 NUM-06 TO NUM-07 MOVE NUM-07 TO EDI-01 DISPLAY \"=\" EDI-01 DISPLAY \" \" * Add data-1 + data2 + literal giving data-3 MOVE NUM-07 TO EDI-01 DISPLAY \" \" EDI-01 MOVE NUM-01 TO EDI-01 DISPLAY \"+\" EDI-01 MOVE 50.2134 TO EDI-01 DISPLAY \"+\" EDI-01 ADD NUM-07 NUM-01 50.2134 GIVING NUM-08 MOVE NUM-08 TO EDI-01 DISPLAY \"=\" EDI-01 DISPLAY \" \" * Add corr MOVE N-01 OF GROUP-01 TO EDI-01 DISPLAY \" \" EDI-01 WITH NO ADVANCING MOVE N-02 OF GROUP-01 TO EDI-01 DISPLAY \" \" EDI-01 WITH NO ADVANCING MOVE N-03 OF GROUP-01 TO EDI-01 DISPLAY \" \" EDI-01 MOVE N-01 OF GROUP-02 TO EDI-01 DISPLAY \"+\" EDI-01 WITH NO ADVANCING MOVE N-02 OF GROUP-02 TO EDI-01 DISPLAY \" \" EDI-01 WITH NO ADVANCING MOVE N-03 OF GROUP-02 TO EDI-01 DISPLAY \" \" EDI-01 ADD CORRESPONDING GROUP-01 TO GROUP-02 MOVE N-01 OF GROUP-02 TO EDI-01 DISPLAY \"=\" EDI-01 WITH NO ADVANCING MOVE N-02 OF GROUP-02 TO EDI-01 DISPLAY \" \" EDI-01 WITH NO ADVANCING MOVE N-03 OF GROUP-02 TO EDI-01 DISPLAY \" \" EDI-01 STOP RUN . * ================================================================= * The result is: * 64.200 * +1,234,567,890,123.670 * =1,234,567,890,187.870 * * 123.450 * + -90.600 * = 32.850 * * 1.000 * + 0.020 * + 876,543.670 * = 876,544.690 * * 876,544.690 * + 64.200 * + 50.213 * = 876,620.903 * * 11.000 22.220 33.300 * + 55.000 66.660 77.700 * = 66.000 88.880 111.000