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

Example 183 CHAR Function Without ALPHABET Clause
Code:
DISPLAY FUNCTION CHAR (36)
DISPLAY FUNCTION CHAR (43)
DISPLAY FUNCTION CHAR (54)
DISPLAY FUNCTION CHAR (69)
DISPLAY FUNCTION CHAR (99)
Output:
#
*
5
D
b
Example 184 CHAR Function With ALPHABET Clause
Code:
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
ALPHABET CAPITAL-LETTERS IS 66 THRU 91.
SOURCE-COMPUTER. ABD.
OBJECT-COMPUTER. ABD
PROGRAM COLLATING SEQUENCE IS CAPITAL-LETTERS.
PROCEDURE DIVISION.
Startt.
DISPLAY FUNCTION CHAR (1)
DISPLAY FUNCTION CHAR (2)
DISPLAY FUNCTION CHAR (13)
DISPLAY FUNCTION CHAR (20)
DISPLAY FUNCTION CHAR (25)
Output:
A
B
M
T
Y
COS Function
COS, a numeric function, returns a value that approximates the cosine of the angle or arc (in
radians) specified by its argument.
argument
is a numeric argument.
The returned value approximates the cosine of the value of argument. It is a floating-point number
in the range -1 to +1. It has no implied decimal point and is precise to approximately 14 digits.
COS Function 663