COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-14
CHAR Function
Example 14-6. 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