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
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