IDENTIFICATION DIVISION.
PROGRAM-ID. ADDING-TWO-NUMBERS.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER.
OBJECT-COMPUTER.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(3).
01 NUM2 PIC 9(3).
01 SUM PIC 9(3).
01 E-SUM PIC ZZ9.
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY (01 01) ERASE.
DISPLAY (02 05) "Enter the First Number : ".
ACCEPT (02 31) NUM1.
DISPLAY (04 05) "Enter the Second Number : ".
ACCEPT (04 31) NUM2.
COMPUTE SUM = NUM1 + NUM2.
MOVE SUM TO E-SUM.
DISPLAY (06 05) "Sum of the two Numbers : ".
DISPLAY (06 31) E-SUM.
DISPLAY (07 05) "=============================".
STOP RUN.