Sets the ABL PROMSGS variable for the current ABL session. The PROMSGS variable holds the name of the current ABL message file. ABL supplies different versions of this file to support various languages.
Syntax
PROMSGS = string-expression
string-expression
A character-string expression that resolves to the name of an ABL message file. You can specify a full or relative pathname for the messages file. Any relative pathname is relative to your current working directory. In Windows, the pathname cannot contain characters outside of the non-Unicode code page. See OpenEdge Development: Internationalizing Applications for more information about Unicode and code pages.
Example
This example prompts the user for a language name and then tries to find a message file for that language. If the message file is found, then the PROMSGS statement is used to make that the current message file. Subsequently, all ABL system messages are read from the new promsgs file. The PROMSGS function is used in an informative message.
r-swmsgs.p
DEFINE VARIABLE newlang AS CHARACTER NO-UNDO FORMAT "x(16)"
LABEL "Language".
DEFINE VARIABLE msgfile AS CHARACTER NO-UNDO.
SET newlang HELP "Enter the new language for messages.".
IF newlang = "English" THEN msgfile = "promsgs".
ELSE msgfile = "prolang/promsgs." + LC(SUBSTRING(newlang, 1, 3)).
IF SEARCH(msgfile) <> ? THEN DO:
PROMSGS = msgfile. MESSAGE "Messages will now be taken from" PROMSGS.
END.
ELSE DO:
MESSAGE "Cannot find" msgfile.
UNDO, RETRY.
END.
