Progress
Language Reference


CURRENT-LANGUAGE Statement

Interfaces
OS
SpeedScript
All
All
No

Sets the CURRENT-LANGUAGE variable for the current Progress session.

SYNTAX

CURRENT-LANGUAGE = string-expression 

string-expression

A character-string expression that specifies a language name or a comma-separated list of language names.

EXAMPLE

This example procedure uses the CURRENT-LANGUAGE function to find the current language, prompts the user to choose a new language, and then uses the CURRENT-LANGUAGE statement to reset the current language. The CURRENT-LANGUAGE function is used again in a message that displays the name of the new current language.

r-chglng.p
DEFINE VARIABLE cur-lang AS CHARACTER FORMAT "x(10)" VIEW-AS RADIO-SET 
    RADIO-BUTTONS czech,   "Czech",
                  danish,  "Danish",
                  dutch,   "Dutch",
                  english, "English",
                  french,  "French",
                  german,  "German",
                  hungar,  "Hungarian",
                  italian, "Italian",
                  norweg,  "Norwegian",
                  polish,  "Polish",
                  portug,  "Portuguese",
                  swedish, "Swedish".

IF CURRENT-LANGUAGE = "?"
THEN cur-lang = "English".
ELSE cur-lang = CURRENT-LANGUAGE.

UPDATE cur-lang NO-LABELS.

CURRENT-LANGUAGE = cur-lang.
MESSAGE "New language is" CURRENT-LANGUAGE. 

This example assumes that the default language is English.

NOTES

SEE ALSO

COMPILE Statement, CURRENT-LANGUAGE Statement


Copyright © 2004 Progress Software Corporation
www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095