Library /sys$common/syshlp/HELPLIB.HLB  —  COBOL  ENVIRONMENT_DIVISION, SPECIAL-NAMES
  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]. ]

1  –  device-name

  is a mnemonic-name for a device.  It always possesses the global
  attribute.  Only the ACCEPT and DISPLAY statements can refer to it.

2  –  top-of-page-name

  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.

3  –  switch-num

  is the number of a program switch. Its value can range from 1 through
  16.

4  –  switch-name

  is a mnemonic-name for the program switch.

5  –  cond-name

  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.

6  –  alphabet-name

  is the user-defined word for a character set and/or collating sequence.
  It always possesses the global attribute.

7  –  first-literal

  is a literal.  It specifies: (1) the value of one or more alphabetic
  characters, or (2) the first in a range of values.

8  –  last-literal

  is a literal. It specifies the last in a range of values.

9  –  lit

  is a literal. It specifies an alphabetic character value.

10  –  symbolic-char

  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.

11  –  char-val

  is an integer that indicates the ordinal position of a character in the
  native character set.

12  –  class-name

  is the user-defined word for a class. It always possesses the global
  attribute

13  –  char

  is a one-character nonnumeric literal that specifies the currency
  symbol.  It cannot be a symbolic character.

14  –  cursor-position

  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.

15  –  crt-status-code

  is a group data item three characters in length, declared in the
  Working-Storage Section of the program.
Close Help