VMS Help
COBOL, ENVIRONMENT_DIVISION, SPECIAL-NAMES
*Conan The Librarian
|
The SPECIAL-NAMES paragraph: (1) associates compiler features and
OpenVMS logical names with user-defined mnemonic-names, (2) defines
symbolic-characters, (3) specifies the currency sign, (4) selects the
decimal point, (5) relates alphabet-names to character sets or
collating sequences, (6) relates class-names to character sets,
(7) provides for cursor positioning for an ACCEPT (Format 5) statement,
and (8) provides information on the cause of termination of an ACCEPT
(Format 5) statement.
Format -
SPECIAL-NAMES. [
[ { CARD-READER } ]
[ { PAPER-TAPE-READER } ]
[ { CONSOLE } IS device-name ]
[ { LINE-PRINTER } ]
[ { PAPER-TAPE-PUNCH } ]
[ ]
[C01 IS top-of-page-name ]
[ ] ...
[SWITCH switch-name ]
[ { IS switch-name } ]
[ { [ON STATUS IS cond-name] [OFF STATUS IS cond-name] } ]
[ { IS switch-name } ]
[ { [OFF STATUS IS cond-name] [ON STATUS IS cond-name] } ]
[ { ON STATUS IS cond-name [OFF STATUS IS cond-name] } ]
[ { OFF STATUS IS cond-name [ON STATUS IS cond-name] } ]
[ { ASCII } ]
[ { STANDARD-1 } ]
[ { STANDARD-2 } ]
[ALPHABET alphabet-name IS { NATIVE } ] ...
[ { EBCDIC } ]
[ { {first-literal } ] ]
[ { { [{ THRU } last-literal ] } ... } ]
[ { { [{ THROUGH } ] } } ]
[ { { [{ ALSO lit } ... ] } } ]
[SYMBOLIC CHARACTERS ]
[ {{{symbolic-char} ... { IS } {char-val} ... } ... } ] ...
[ {{ { ARE } } } ]
[ {{ [IN alphabet-name] } ... ]
[CLASS class-name IS {first-literal [{THROUGH} last-literal]} ]
[ { [{THRU } ]} ... ] ...
[CURRENCY SIGN IS char]
[DECIMAL-POINT IS COMMA]
[CURSOR IS cursor-position]
[CRT STATUS IS crt-status-code]. ]
is a mnemonic-name for a device. It always possesses the global
attribute. Only the ACCEPT and DISPLAY statements can refer to it.
is the first line of a logical page (top-of-page). It always possesses
the global attribute. Only the WRITE statement can refer to it.
is the number of a program switch. Its value can range from 1 through
16.
is a mnemonic-name for the program switch.
is a condition-name for the "on" or "off" status of the switch. It
always possesses the global attribute. Its truth value is "true" when
the STATUS phrase matches the status of the switch, "false" when it
does not.
is the user-defined word for a character set and/or collating sequence.
It always possesses the global attribute.
is a literal. It specifies: (1) the value of one or more alphabetic
characters, or (2) the first in a range of values.
is a literal. It specifies the last in a range of values.
is a literal. It specifies an alphabetic character value.
is a user-defined word that names the symbolic-character. It always
possesses the global attribute. The same symbolic-char cannot appear
more than once in the SYMBOLIC CHARACTERS clause.
is an integer that indicates the ordinal position of a character in the
native character set.
is the user-defined word for a class. It always possesses the global
attribute
is a one-character nonnumeric literal that specifies the currency
symbol. It cannot be a symbolic character.
is a data item declared in the Working-Storage Section of the program.
It is either an elementary unsigned numeric integer either four or
six characters in length, described as USAGE IS DISPLAY, or a group
item either four or six charaters in length, consisting of two
elementary unsigned data items.
is a group data item three characters in length, declared in the
Working-Storage Section of the program.