How to add two 3 digit numbers in COBOL

1 Answer

0 votes
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

 



answered Sep 16, 2020 by avibootz
...