IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL_PRO.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 X PIC 999.
77 Y PIC 999.
77 Z PIC 9999.
PROCEDURE DIVISION.
SET X TO 499.
SET Y TO 600.
ADD X Y GIVING Z.
DISPLAY "X + Y = "Z.
STOP RUN.
# run:
#
# X + Y = 1099