IDENTIFICATION DIVISION.
PROGRAM-ID. HcBhags
WORKING-STORAGE SECTION.
01 beforeBhags PIC 999V99 VALUE 123.45.
01 BhagsRate PIC V999 VALUE .065.
01 afterBhags PIC 999.99.
PROCEDURE DIVISION.
Begin.
COMPUTE afterBhags ROUNDED = beforeBhags + (beforeBhags * BhagsRate)
DISPLAY "Bhags amount is " afterBhags.
- Forums
- ASX - By Stock
- SP1
- ISX off-topic thread
ISX off-topic thread, page-1489
-
-
- There are more pages in this discussion • 2,090 more messages in this thread...
You’re viewing a single post only. To view the entire thread just sign in or Join Now (FREE)