# NLSGetLocale (W*S)

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

## Module

USE IFNLS

CALL NLSGetLocale ([language] [,country] [,codepage])

language | (Output; optional) Character*(*). The current language.
country | (Output; optional) Character*(*). The current country.
codepage | (Output; optional) INTEGER(4). The current codepage.

NLSGetLocale returns a valid codepage in codepage.

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

Parent topic: National Language Support (NLS) Library Routines

## See Also

NLSSetLocale