Rechnen

Rechnen kannst du mit englischen Wörtern: ADD 5 TO summe, SUBTRACT 2 FROM summe, MULTIPLY a BY b GIVING c, DIVIDE a INTO b. Kürzer und üblicher ist COMPUTE ergebnis = (a + b) * 2 mit den Zeichen + - * / **.

Mit ROUNDED rundest du das Ergebnis, mit ON SIZE ERROR fängst du Überläufe ab. Genaue Dezimalrechnung ist ein Grund, warum Banken COBOL schätzen: Zahlen werden als Dezimalziffern gespeichert, nicht als ungenaue Binärbrüche.

IDENTIFICATION DIVISION.
PROGRAM-ID. RECHNEN.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NETTO    PIC 9(5)V99 VALUE 100.00.
01 WS-BRUTTO   PIC 9(5)V99.
01 WS-STEUER   PIC 9V99    VALUE 0.19.

PROCEDURE DIVISION.
    COMPUTE WS-BRUTTO ROUNDED = WS-NETTO * (1 + WS-STEUER).
    DISPLAY "Brutto: " WS-BRUTTO.
    ADD 10 TO WS-BRUTTO.
    DISPLAY "Plus 10: " WS-BRUTTO.
    STOP RUN.