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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-41
CONTINUE
CONTINUE
CONTINUE is a no-operation statement.
This COMPUTE statement specifies that the result be rounded and then stored in WS-
RESULT:
MOVE 2 TO EXPONENT
COMPUTE WS-RESULT ROUNDED =
WS-99 / 10 * WS-99 ** EXPONENT + WS-FIVE-ONES
END-COMPUTE
(The result is 108,141.)
Example 9-10. Combination of IF and COMPUTE Statements
IF A > 0
COMPUTE X = B ** 2 - ( 4 * A * C ) / ( 2 * A)
ON SIZE ERROR
MOVE "DIVISION ERROR" TO DIAGNOSTIC-FIELD
END-COMPUTE
ELSE
MOVE "DIVISION BY ZERO" TO DIAGNOSTIC-FIELD
END-IF.
Example 9-11. CONTINUE Statement
IF SALARIED
IF ANNUAL-SAL > 50000
IF BELOW-QUOTA
CONTINUE
ELSE
PERFORM ADD-BONUS-TO-OVERPAID-SALESPERSON
END-IF
ELSE
IF BELOW-QUOTA
CONTINUE
ELSE
PERFORM ADD-BONUS-TO-FLUNKY
END-IF
ELSE
IF OVERTIME
...
Example 9-9. COMPUTE Statement (page 2 of 2)
CONTINUE
VST142.vsd