SUBTRACT

COBOL	JAVA
SUBTRACT	Normal Java subtraction OR subtract

NumericValue substract ( NumericValue, NumericValue )

<NumericValue var1>
Subtract this value from the value found in the second parameter.

<NumericValue var2>
This value is substracted from by the value found in the first parameter.

The substract keyword
The substract keyword is used in conjunction with the following number types: double, long, NumericValue, VarNumericBase, AlphaValue.

77 A    PIC 9(2).
77 B    PIC 9(2).
77 C    PIC 9(2).
77 D    PIC 9(2).
77 K    PIC 9(4)V99 value 1.23.
77 R    PIC 9.99.

COBOL	Java
SUBTRACT 1 FROM A.	locDef.a.assign(locDef.a.getIntValue() - 1);
SUBTRACT A FROM B.	locDef.b.assign(locDef.b.getIntValue() - locDef.a.getIntValue());
SUBTRACT 0.56 FROM K.	locDef.k.assign(subtract(locDef.k.getNumericValue(), .56));
SUBTRACT K FROM L.	locDef.l.assign(subtract(locDef.l.getNumericValue(), locDef.k.getNumericValue()));
SUBTRACT A FROM B GIVING C.	locDef.c.assign(subtract(locDef.b.getIntValue(), locDef.a.getIntValue()));
SUBTRACT A B FROM C D.	setAuxiliary(locDef.a.getIntValue() + locDef.b.getIntValue()); locDef.c.assign(locDef.c.getIntValue() - auxiliaryNative); locDef.d.assign(locDef.d.getIntValue() - auxiliaryNative);
SUBTRACT K FROM A ROUNDED.	locDef.a.assign(round(locDef.a, subtract(locDef.a.getIntValue(), locDef.k.getNumericValue())));
SUBTRACT 1.23 FROM A GIVING B ROUNDED.	locDef.b.assign(round(locDef.b, subtract(locDef.a.getIntValue(), 1.23)));

ROUNDED Syntax
See the COMPUTE command for the ROUNDED syntax.