* corpus charka — nivel 2: datos y aritmética con GIVING
IDENTIFICATION DIVISION.
PROGRAM-ID. ARITMETICA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-A     PIC 9(4) VALUE 120.
01 WS-B     PIC 9(4) VALUE 35.
01 WS-SUMA  PIC 9(5).
01 WS-RESTA PIC 9(5).
01 WS-PROD  PIC 9(8).
PROCEDURE DIVISION.
MAIN.
    ADD WS-A WS-B GIVING WS-SUMA.
    SUBTRACT WS-B FROM WS-A GIVING WS-RESTA.
    MULTIPLY WS-A BY WS-B GIVING WS-PROD.
    DISPLAY 'SUMA=' WS-SUMA.
    DISPLAY 'RESTA=' WS-RESTA.
    DISPLAY 'PRODUCTO=' WS-PROD.
    STOP RUN.