TRANSFER Installation and Management Guide

SAGERMAN
National Language Support Softdocs
D–12 13198 Tandem Computers Incorporated
* -235 (65301) - TANDEM ASCII FOR USA
* -234 (65302) - TANDEM ASCII FOR UK
* -233 (65303) - TANDEM ASCII FOR FRENCH
* -232 (65304) - TANDEM ASCII FOR GERMAN
* -231 (65305) - TANDEM ASCII FOR SWEDISH/FINNISH
* -230 (65306) - TANDEM ASCII FOR SPANISH
* -229 (65307) - TANDEM ASCII FOR DANISH/NORWEGIAN
*
*
* -206 (65330) - ISO 8859.1
* -205 (65331) - TANDEM HEBREW
*
01 LS-LOGON-BANNER PIC X(18)
VALUE "DEUTSCH Version".
*
* Character string to display in the upper right corner of
* ADMIN's Logon Screen. Recommended text: " Aaaaaaaa Version ".
* Where Aaaaaaa is the name of the terminal map being used,
* such as "US ASCII Version"
*
*
*
01 LANG-AND-CMAP-ID.
* -------------------------------------------------------------------
* Identifier for a language.
* -------------------------------------------------------------------
05 LANGUAGE-ID PIC 9(4) COMP.
* -------------------------------------------------------------------
* Identifier for a character map.
* -------------------------------------------------------------------
05 CHAR-MAP-ID.
09 CODE-PAGE-ID PIC S9(4) COMP.
09 PAGE-STRING REDEFINES CODE-PAGE-ID PIC XX.
09 CODE-SET-ID PIC S9(4) COMP.
09 SET-STRING REDEFINES CODE-SET-ID PIC XX.
PROCEDURE DIVISION.
*
*
* Setup some fields in the IPC header then call LOGON-MAIN.
*
* Exit when done.
*
MAIN-PROGRAM.
MOVE MY-LANGUAGE TO LANGUAGE-ID.
MOVE MY-CODE-PAGE-STRING TO PAGE-STRING.
MOVE MY-CODE-SET-STRING TO SET-STRING.
CALL ADMIN-LOGON-B40 USING LANG-AND-CMAP-ID
LS-LOGON-BANNER.
EXIT-PROGRAM.
EXIT PROGRAM.