TRANSFER Installation and Management Guide

SMGERMAN
National Language Support Softdocs
D–10 13198 Tandem Computers Incorporated
10 FILLER PIC X.
01 LANGUAGE-AND-CHAR-SET.
* copy LANGUAGE-ID of GCOB
* copy CHAR-SET-ID of GCOB
* Definition LANGUAGE-ID created on 12/01/86 at 14:25
* -------------------------------------------------------------------
* Identifier for a language.
* -------------------------------------------------------------------
05 LANGUAGE-ID PIC 9(4) COMP.
* Definition CHAR-SET-ID created on 12/01/86 at 14:25
* -------------------------------------------------------------------
* Identifier for a character set.
* This comprises the identifiers for two character maps.
* -------------------------------------------------------------------
05 CHAR-SET-ID.
* -------------------------------------------------------------------
* Identifier for a character map.
* -------------------------------------------------------------------
10 NC.
15 CODE-PAGE-ID PIC S9(4) COMP.
15 PAGE-STRING REDEFINES CODE-PAGE-ID PIC XX.
15 CODE-SET-ID PIC S9(4) COMP.
15 SET-STRING REDEFINES CODE-SET-ID PIC XX.
* -------------------------------------------------------------------
* Identifier for a character map.
* -------------------------------------------------------------------
10 CN.
15 CODE-PAGE-ID PIC S9(4) COMP.
15 PAGE-STRING REDEFINES CODE-PAGE-ID PIC XX.
15 CODE-SET-ID PIC S9(4) COMP.
15 SET-STRING REDEFINES CODE-SET-ID PIC XX.
* -------------------------------------------------------------------
* Identifier for a system name.
* -------------------------------------------------------------------
01 system-name PIC X(8) VALUE SPACES.
*
* A flag controlling whether to present the logon screen so another
* user can log back on. If the application is not an embedded
* application and the user logs off, PS MAIL will set up a new
* environment and give the user another opportunity to log back on.
01 log-back-on-flag PIC 9 VALUE 0.
88 log-back-on VALUE 1.
PROCEDURE DIVISION.
*
*
* Setup some fields in the IPC header then call LOGON-MAIN.
*
* Exit when done.
*
MAIN-PROGRAM.
MOVE "N" TO IH-LOG-THIS-IPC.
MOVE LOW-VALUES TO IH-SESSION-ID.
MOVE LOW-VALUES TO LANGUAGE-AND-CHAR-SET.
MOVE MY-LANGUAGE TO LANGUAGE-ID.
MOVE MY-CODE-PAGE-STRING TO PAGE-STRING OF NC
PAGE-STRING OF CN.
MOVE MY-CODE-SET-STRING TO SET-STRING OF NC
SET-STRING OF CN.
CALL MAIN-C20 USING