IDENTIFICATION DIVISION.
       PROGRAM-ID. SOLUTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A        PIC 9(10)   VALUE ZEROES.
       01 B        PIC 9(10)   VALUE ZEROES.
       01 STR      PIC X(1).

       PROCEDURE DIVISION.
         ACCEPT STR.
         MOVE STR TO A.
         ACCEPT STR.
         MOVE STR TO B.
         ADD A TO B GIVING STR.
         DISPLAY STR.
         STOP RUN.