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