Program to add two numbers in COBOL..?

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 SUM PIC 9(4).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE SUM = A + B.
     DISPLAY "SUM=", SUM.
     STOP RUN.