COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

subtrahend
is the identifier of a numeric elementary data item or a numeric literal.
minuend-result
is the identifier of a numeric elementary data item.
ROUNDED
specifies that the result is to be rounded before being stored.
imperative-stmt-1
is an imperative statement to be executed when a size error is detected in the subtraction or
in storing the result.
imperative-stmt-2
is an imperative statement to be executed when no size error is detected in the subtraction or
in storing the result.
END-SUBTRACT
ends the scope of the SUBTRACT statement, causing the SUBTRACT to be a delimited-scope
statement. If the SUBTRACT statement does not end with an END-SUBTRACT phrase, the presence
of the SIZE ERROR or the NOT SIZE ERROR phrase causes the SUBTRACT statement to be a
conditional statement, which ends at the next period separator.
Usage Considerations:
• Mathematics
The values of all the subtrahend s are totaled. That sum is subtracted from each result,
and the result of each such subtraction is then stored after rounding, if ROUNDED was specified
as the new value of the minuend-result. For example, the statement
SUBTRACT A B C FROM D E
SUBTRACT 467