Contact: aviboots(AT)netvision.net.il
41,163 questions
53,655 answers
573 users
IDENTIFICATION DIVISION. PROGRAM-ID. COBOL_PRO. DATA DIVISION. WORKING-STORAGE SECTION. 77 X PIC 99. 77 Y PIC 99. 77 Z PIC 99. PROCEDURE DIVISION. SET X TO 3. SET Y TO 7. ADD X Y GIVING Z. DISPLAY "X + Y = " Z. STOP RUN. # run: # # X + Y = 10 #