NLS Subroutine: Returns the current language, country, or codepage.
Module: USE IFNLS
Syntax
CALL NLSGetLocale ([language] [, country] [, codepage])
language
(Output; optional) Character*(*). Current language.
country
(Output; optional) Character*(*). Current country.
codepage
(Output; optional) INTEGER(4). Current codepage.
NLSGetLocale returns a valid codepage in codepage. It does not return one of the NLS$... symbolic constants that can be used with NLSSetLocale.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
NLSSetLocale, Building Applications: Locale Setting and Inquiry Routines
Example
USE IFNLS
CHARACTER(50) cntry, lang
INTEGER(4) code
CALL NLSGetLocale (lang, cntry, code) ! get all three
CALL NLSGetLocale (CODEPAGE = code) ! get the codepage
CALL NLSGetLocale (COUNTRY = cntry, CODEPAGE =code) ! get country
! and codepage