Compile and Execute COBOL Online

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULADORA.

ENVIRONMENT DIVISION.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 WKS-NUM-1      PIC S9(05)V99.
77 WKS-NUM-2      PIC S9(05)V99.
77 WKS-RESULTADO  PIC S9(10)V99.
77 WKS-RESULTADO2 PIC S9(10)V99.
77 WKS-OPCION     PIC A(01).


PROCEDURE DIVISION.
00001-MI-SECCION SECTION.
00001-MAIN.
    DISPLAY 'CALCULADORA'.
    DISPLAY "DAME EL NUMERO 1:".
    ACCEPT WKS-NUM-1.
    DISPLAY "DAME EL NUMERO 2:".
    ACCEPT WKS-NUM-2.
    DISPLAY "INDICA LA OPERACION A REALIZAR: S = SUMA,R = RESTA,"
    "M = MULTIPLICACION, D = DIVISION".
    ACCEPT WKS-OPCION.
    
    IF WKS-OPCION = "S"
       ADD WKS-NUM-1 TO WKS-NUM-2 GIVING WKS-RESULTADO
       DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "R"
       SUBTRACT WKS-NUM-1 FROM WKS-NUM-2 GIVING WKS-RESULTADO
       DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "M"
    MULTIPLY WKS-NUM-1 BY WKS-NUM-2 GIVING WKS-RESULTADO
    DISPLAY WKS-RESULTADO
    ELSE
    IF WKS-OPCION = "D"
    DIVIDE WKS-NUM-1 INTO WKS-NUM-2 GIVING WKS-RESULTADO
    DISPLAY WKS-RESULTADO
    ELSE
    DISPLAY "OPERACION INVALIDA, VERIFIQUE".
    
    
    STOP "PAUSA".
    
    
    STOP RUN.
    
    
    
    
    
        
    
    
    
STOP RUN.