NLSGetLocale (W*32, W*64)

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

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