NLSGetLocale (W*32, W*64)

NLS Subroutine: Returns the current language, country, or codepage.

Module

USE IFNLS

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.

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

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