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

Example 27 Defining a Class of Special Characters
CLASS SPEC-CHAR IS 1 THRU 32
OCT IS "0" THRU "7"
CLASS SPEC-CHAR IS 32 THRU 1
Example 28 Defining a Class of Octal Numerics
OCT IS "0" THRU "7"
The order of specification has no effect on the performance of the program using the definition.
CURRENCY SIGN Clause
The CURRENCY SIGN clause specifies a one-character nonnumeric literal, sign, whose value is
to be used in the PICTURE clause to represent the currency sign.
sign
is one of these characters (which must be enclosed in quotation marks):
! # $ % & ' : < > ? @
E F G H I J K L M O Q T U W Y
[ \ ] ^ _ ~
e f g h i j k l m o q t u w y
It represents the currency sign, and cannot be a figurative constant, a control character (ASCII
position 0 through 31, or 127), the space character, or any of these characters:
0 1 2 3 4 5 6 7 8 9
A B C D N P R S V X Z
a b c d n p r s v x z
* + - , . ; ( ) " , =
The clause
CURRENCY SIGN IS "#"
makes the currency sign #, and the picture ordinarily expressed as
$$$,$$9.99
is instead expressed as
###,##9.99
If sign is a lowercase alphabetic character, it appears in any source listing as lowercase, but
the compiler converts it to an uppercase character for all further processing. It is uppercase in any
numeric edited item produced by the associated PICTURE clause.
DECIMAL-POINT Clause
The DECIMAL-POINT clause exchanges the functions of commas and periods in PICTURE
character-strings and numeric literals.
114 Environment Division