COBOL no estaba muerto, solo andaba de parranda. En algún momento tuve la oportunidad de aprender un poco sobre COBOL, luego me olvidé de este lenguaje. Llegué a pensar que había quedado en desuso. Si bien no es un lenguaje muy conocido hoy en día, los grandes sistemas informáticos bancarios del planeta lo usan. El siguiente código fue probado en OpenCobolIDE.
IDENTIFICATION DIVISION. PROGRAM-ID. SUMA. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 NUM1 PIC 9(4). 01 NUM2 PIC 9(4). 01 RESULTADO PIC 9(5). PROCEDURE DIVISION. MAIN-PROCEDURE. DISPLAY "Introduce el primer número: ". ACCEPT NUM1. DISPLAY "Introduce el segundo número: ". ACCEPT NUM2. ADD NUM1 TO NUM2 GIVING RESULTADO. DISPLAY "El resultado es " RESULTADO. STOP RUN. END PROGRAM SUMA.