TRANSFER Installation and Management Guide

SAGERMAN
National Language Support Softdocs
13198 Tandem Computers Incorporated D–11
IPC-HDR, LANGUAGE-AND-CHAR-SET, SYSTEM-NAME, LOG-BACK-ON-FLAG.
EXIT-PROGRAM.
EXIT PROGRAM.
SAGERMAN SAGERMAN is the program that you use to initiate ADMIN to run with the German
character set.
IDENTIFICATION DIVISION.
PROGRAM-ID.
GERMAN-ADMIN.
*
* To start PS-MAIL-ADMIN using:-
* Language 3 German
* Code Page -236 European Languages
* Code Set -232 TANDEM GERMAN terminal
* Banner "DEUTSCH Version"
*
* N.B. This program may be modified from the above four options
* to cater for different circumstances.
*
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MY-LANGUAGE PIC 9(4) COMP VALUE 3.
*
* LANGUAGE :- 01 AMERICAN ENGLISH
* 02 UK ENGLISH
* 03 GERMAN
* 04 DUTCH
* 05 NATIONAL FRENCH
* 06 CANADIAN FRENCH
* 07 ITALIAN
* 08 SPANISH
* 09 SWEDISH
* 10 FINNISH
* 11 DANISH
* 12 NORWEGIAN
* 15 HEBREW
*
01 MY-CODE-PAGE PIC S9(4) COMP VALUE -236.
01 MY-PAGE REDEFINES MY-CODE-PAGE.
05 MY-CODE-PAGE-STRING PIC XX.
*
* STANDARD CODE PAGE FOR MOST LATIN BASED LANGUAGES. VALUE -236 (65300)
*
* STANDARD CODE PAGE FOR HEBREW. VALUE -235 (65301)
*
*
01 MY-CODE-SET PIC S9(4) COMP VALUE -232.
01 MY-SET REDEFINES MY-CODE-SET.
05 MY-CODE-SET-STRING PIC XX.
*
* CODE SET DEPENDS ON THE TERMINAL USED
*