⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c
crates/modules/charka/corpus/02-aritmetica.cob
Ñawpa willay
ch'uya
feat(charka): charka-shadow — validador en sombra + corpus COBOL
1* corpus charka — nivel 2: datos y aritmética con GIVING
2IDENTIFICATION DIVISION.
3PROGRAM-ID. ARITMETICA.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-A PIC 9(4) VALUE 120.
701 WS-B PIC 9(4) VALUE 35.
801 WS-SUMA PIC 9(5).
901 WS-RESTA PIC 9(5).
1001 WS-PROD PIC 9(8).
11PROCEDURE DIVISION.
12MAIN.
13 ADD WS-A WS-B GIVING WS-SUMA.
14 SUBTRACT WS-B FROM WS-A GIVING WS-RESTA.
15 MULTIPLY WS-A BY WS-B GIVING WS-PROD.
16 DISPLAY 'SUMA=' WS-SUMA.
17 DISPLAY 'RESTA=' WS-RESTA.
18 DISPLAY 'PRODUCTO=' WS-PROD.
19 STOP RUN.