@TeamHazzelhoff - IDENTIFICATION DIVISION........(don't have space to display all the code) WORKING-STORAGE SECTION. 01 sales PIC S999V99 . 01 rate PIC S999V99 VALUE 0.1 . 01 threshold PIC S999V99 VALUE 200.0 . 01 base PIC S999V99 VALUE 30.0 . 01 com PIC S999V99.
IF sales (LT character) threshold THEN
MULTIPLY rate BY sales GIVING merit ADD merit TO base GIVING com DISPLAY "Commission is ", com
how will you calculate the commission in cobol for eg
less that $ 200 formula for commission$ 30 plus 5 3/4of sales
TeamHazzelhoff 1 year ago
@TeamHazzelhoff - IDENTIFICATION DIVISION........(don't have space to display all the code) WORKING-STORAGE SECTION. 01 sales PIC S999V99 . 01 rate PIC S999V99 VALUE 0.1 . 01 threshold PIC S999V99 VALUE 200.0 . 01 base PIC S999V99 VALUE 30.0 . 01 com PIC S999V99.
IF sales (LT character) threshold THEN
MULTIPLY rate BY sales GIVING merit ADD merit TO base GIVING com DISPLAY "Commission is ", com
ELSE DISPLAY "extra bonus"
END-IF
redbear8174 1 year ago