/* */
CALL RxFuncAdd 'ULSLoadFuncs', 'RXULS', 'ULSLoadFuncs'
CALL ULSLoadFuncs

SAY 'Libary version is' ULSVersion()

string = 'We had lunch at a caf‚ in Reykjav¡k.'
/*string = "This site is run by Ulrich M”ller, the project maintainer of XWorkplace and WarpIN.  Since www.m”eller.de was already occupied by someone else, I chose this domain name instead...  since most people know me from my software in the first place.   ‚¡¢£"*/

SAY 'INPUT (850):' string

string2 = ULSConvertCodepage( string, 850, 863, '3f',, 'N')
IF ULSERR \= '0' THEN SAY ULSERR
SAY '850 -> 863: ' string2

string3 = ULSConvertCodepage( string, 850, 1200 )
IF ULSERR \= '0' THEN SAY ULSERR
SAY '850 -> 1200:' string3

string4 = ULSConvertCodepage( string3, 1200, 932, '3f')
IF ULSERR \= '0' THEN SAY ULSERR
SAY '1200 -> 932:' string4

SAY
newx = ULSTransform( string, 'upper')
IF newx == "" THEN SAY ULSERR
SAY newx
SAY TRANSLATE( string )


SAY 'ULSQueryAttr:'
SAY ULSQueryAttr('0009'x, 'blank', 1200 )
IF ULSERR \= '0' THEN SAY ULSERR

foo = '00630061006600E9002E0000'x
say foo
say ULSConvertCodepage( foo, 1200 )
SAY 'ULSFindAttr:'
SAY ULSFindAttr( string, 'ASCII',,,'F')
IF ULSERR \= '0' THEN SAY ULSERR
SAY ULSFindAttr(foo, 'ASCII',,,'F', 1200 )
IF ULSERR \= '0' THEN SAY ULSERR

SAY
CALL ULSGetLocales 'U', 'locales.'
SAY locales.0 'user locales:'
DO i = 1 TO locales.0
    SAY '->' locales.i
END
SAY

cc = 3
ctry = ULSCountryLocale( cc )
IF ULSERR \= '0' THEN SAY ULSERR
SAY 'Locale' cc '=' ctry

SAY ULSQueryLocaleItem('sEngLanguage', 'ja_JP', 850 ) '('||ULSQueryLocaleItem('sLanguage', 'ja_JP', 850, '3f')||')'
IF ULSERR \= '0' THEN SAY ULSERR

CALL ULSPutUnicodeClipboard 'We had lunch at a caf‚ in Reykjav¡k.'
IF ULSERR \= '0' THEN SAY ULSERR
ELSE SAY 'Wrote to clipboard successfully.'

SAY ULSGetUnicodeClipboard(1200)
IF ULSERR \= '0' THEN SAY ULSERR

SAY
CALL VALUE 'TZ','EST5EDT','OS2ENVIRONMENT'
SAY ULSFormatTime(1234567890,,,'en_CA')
IF ULSERR \= '0' THEN SAY ULSERR

CALL ULSDropFuncs
RETURN