COBOL Manual for TNS and TNS/R Programs

Environment Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
6-21
SPECIAL-NAMES Paragraph
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.
Example 6-4. Defining a Class of Octal Numerics
OCT IS "0" THRU "7"
CURRENCY
SIGN IS
sign
VST034.vsd