DIVIDE Statement

Für Syntax siehe hier.

Division mit Konstante:

DIVIDE 15 INTO  TAB-ANZ (IND-TAB)

TabAnz[IndTab] /= 15;

Division mit Datenelement:

DIVIDE SNLPPME-PME-PRAE-WRT
         INTO Z0AAGPV-GPV-GR-UNF-ANZ-PRS

Snlppme.PmePraeWrt /= (double) Z0aagpv.GpvGrUnfAnzPrs;

DIVIDE mit GIVING:

DIVIDE  ZW-NETPRAE-PRT BY ZW-VSTPRT GIVING SNLPPME-PME-PRAE-BT

Snlppme.PmePraeBt = ZwNetpraePrt / ZwVstprt;

DIVIDE mit GIVING und ROUNDED:

MULTIPLY SNLPPME-PME-PRAE-BT BY 15 GIVING ZW-RUNDUNG-BT2 ROUNDED

ZwRundungBt2 = Math.Round(Snlppme.PmePraeBt / 15);

Syntaktisch erkannt, aber von den Generatoren derzeit nicht unterstützt sind folgende Bestandteile:

• CORRESPONDING
• (NOT) ON SIZE ERROR
• REMAINDER