cobol
SUBTRACTステートメント
サーチ…
備考
SUBTRACTの例
SUBTRACT item-a item-b item-c FROM account-z ROUNDED MODE IS NEAREST-EVEN
ON SIZE ERROR
DISPLAY "CALL THE BOSS, Account `Z` is OUT OF MONEY" END-DISPLAY
PERFORM promisary-processing
NOT ON SIZE ERROR
PERFORM normal-processing
END-SUBTRACT
Modified text is an extract of the original Stack Overflow Documentation
ライセンスを受けた CC BY-SA 3.0
所属していない Stack Overflow