The SPECIAL-NAMES paragraph:
The clauses in the SPECIAL-NAMES paragraph can appear in any order.
Format: SPECIAL-NAMES paragraph >>-SPECIAL-NAMES.-----------------------------------------------> .------------------------------------------------------------------. V | >----+--------------------------------------------------------------+-+--> +-environment-name-1--+----+--mnemonic-name-1------------------+ | '-IS-' | '-environment-name-2--+-+----+--mnemonic-name-2--| entry 1 |-+-' | '-IS-' | '-| entry 1 |--------------------------' >--+------------------------------------------------------------------------+--> | .--------------------------------------------------------------------. | | V | | '---ALPHABET--alphabet-name-1--+----+--+-STANDARD-1------------------+-+-' '-IS-' +-STANDARD-2------------------+ +-NATIVE----------------------+ +-EBCDIC----------------------+ | .-------------------------. | | V | | '---literal-1--| phrase 1 |-+-' >--+---------------------------------------------------------------------+--> | .-----------------------------------------------------------------. | | V | | '---SYMBOLIC--+------------+--| symbolic |--+---------------------+-+-' '-CHARACTERS-' '-IN--alphabet-name-2-' >--+----------------------------------------------------------------------------+--> | .------------------------------------------------------------------------. | | | .---------------------------------------. | | | V V | | | '---CLASS--class-name-1--+----+----literal-4--+------------------------+-+-+-' '-IS-' '-+-THROUGH-+--literal-5-' '-THRU----' >--+-------------------------------------------------------------------------------------+--> | .---------------------------------------------------------------------------------. | | V | | '---CURRENCY--+------+--+----+--literal-6--+--------------------------------------+-+-' '-SIGN-' '-IS-' '-+------+--PICTURE--SYMBOL--literal-7-' '-WITH-' >--+------------------------------+--+-------+----------------->< '-DECIMAL-POINT--+----+--COMMA-' | (1) | '-IS-' '-.-----'
Fragments >>------------------------------------------------------------->< entry 1 |--+-ON--+--------+--+----+--condition-1--+--------------------------------------+-+--| | '-STATUS-' '-IS-' '-OFF--+--------+--+----+--condition-2-' | | '-STATUS-' '-IS-' | '-OFF--+--------+--+----+--condition-2--+-------------------------------------+-' '-STATUS-' '-IS-' '-ON--+--------+--+----+--condition-1-' '-STATUS-' '-IS-' phrase 1 |--+------------------------+-----------------------------------| +-+-THROUGH-+--literal-2-+ | '-THRU----' | | .-----------------. | | V | | '---ALSO--literal-3-+----' symbolic .--------------------------------------------------. | .----------------------. .-----------. | V V | V | | |------symbolic-character-1-+--+-----+----integer-1-+-+---------| +-ARE-+ '-IS--'
Valid specifications for environment-name-1 are shown in the following table.
| environment- name-1 | Meaning | Allowed in |
|---|---|---|
SYSIN |
System logical input unit | ACCEPT |
SYSOUT |
System logical output unit | DISPLAY |
SYSPUNCH |
System punch device | DISPLAY |
| CONSOLE | Console | ACCEPT and DISPLAY |
| C01 through C12 | Skip to channel 1 through channel 12, respectively | WRITE ADVANCING |
| CSP | Suppress spacing | WRITE ADVANCING |
| S01 through S05 | Pocket select 1 through 5 on punch devices | WRITE ADVANCING |
| AFP-5A | Advanced Function Printing™ | WRITE ADVANCING |
Mnemonic-names and environment-names need not be unique. If you choose a mnemonic-name that is also an environment-name, its definition as a mnemonic-name will take precedence over its definition as an environment-name.
In the procedure division, the UPSI switch status is tested through the associated condition-name. Each condition-name is the equivalent of a level-88 item; the associated mnemonic-name, if specified, is considered the conditional variable and can be used for qualification.
Condition-names specified in the SPECIAL-NAMES paragraph of a containing program can be referenced in any contained program.