Special Names Entry

SPECIAL NAMES.

 [ {switch-name} [ IS mnemonic-name ]
   {system-name}

     [ {ON } STATUS IS cond-name ] ... ] ...
       {OFF}

 [ {alphabet-entry } ... ]

 [ SYMBOLIC CHARACTERS

     { {name} ...  {IS } {number} ... } ...
                   {ARE}

     [ IN alphabet-name ] ]

 [ CLASS class-name IS

     { lit-1 [  {THROUGH} lit-2 ] } ... ] ...
                {THRU   }

 [ CURRENCY SIGN IS char ]

 [ DECIMAL-POINT IS COMMA ]

 [ NUMERIC SIGN IS TRAILING SEPARATE ]

 [ CONSOLE IS CRT ]

 [ CURSOR IS cursor-name ]

 [ CRT STATUS IS status-name ]

 [ EVENT STATUS IS event-status ]

 [ SCREEN CONTROL IS control-name ].

Alphabet Entry

Format 1

ALPHABET alphabet-name IS {STANDARD-1}
                          {STANDARD-2}
                          {NATIVE    }
                          {EBCDIC    }


Format 2

 ALPHABET alphabet-name IS

     {literal-1 [ THROUGH literal-2    ] } ...
                [ THRU literal-2       ]
                [ {ALSO literal-3 } ...]