tawasuyu/brahman

Rust 476TOML 190Markdown 50JSON 176602 Definiciones

Clonar por HTTPS, con el git de siempre

⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c crates/modules/charka/corpus/02-aritmetica.cob 19 líneas · 532 B Historia crudo

feat(charka): charka-shadow — validador en sombra + corpus COBOL 4d9ce11b1 · sergio · hace 5 meses

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.