TRANSFER Installation and Management Guide

SMGERMAN
National Language Support Softdocs
D–8 13198 Tandem Computers Incorporated
SMGERMAN SMGERMAN is the program that you use to initiate German PS MAIL.
IDENTIFICATION DIVISION.
PROGRAM-ID.
MAIL-GERMAN.
** To start PS-MAIL-6530 using:-
* Language 3 German
* Code Page -236 European Languages
* Code Set -232 Tandem ASCII - German
*
* N.B. This program may be modified from the above three 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 03.
*
* 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
*
* -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