In general, if your arithmetic evaluation has either of the characteristics listed below, it will be evaluated by the compiler in floating-point arithmetic:
A data item is floating-point if you code it as a floating-point literal, or if you define it as USAGE COMP-1, USAGE COMP-2, or as external floating-point (USAGE DISPLAY with a floating-point PICTURE).
An operand that is a nested arithmetic expression or a reference to numeric Intrinsic Function results in floating-point when:
Functions like COS and SIN are floating-point functions that expect one argument. Since these functions are floating-point functions, the argument will be calculated in floating-point.
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.