Index of Functions
------------------
   1:  getCodePage
     
     
     
Function Name (   1):  getCodePage
--------------------------------------------------------------------------------
'Date Created: 26-Mar-2008 08:45:08 AM
'Last Updated: 29-Mar-2008 03:39:09 PM
'Created By  : Ira J. Perlow
'Updated By  : Ira J. Perlow
FUNCTION GetCodePage AS N ()
'DESCRIPTION Returns current windows locale codeset/codepage for current thread

'=========================================================================
' Created by Computer Systems Design & Associates
' Copyright 2008 Computer Systems Design & Associates, All Rights Reserved
' http://www.csda1.com

' You may use this code at your own risk in whole or as a part.
' Use in full or part is permitted with proper attributions to the source,
' except it may not be sold as part of any software package that is a 
' library of functions

'=========================================================================
' GetLocale - Version 1.00  Release Date: 20080324

' Syntax	N GetCodePage()

' Purpose:	Returns current windows locale codepage/codeset for current thread

' Input:	None

' Output:	Locale number for current thread

' Errors:

' Typical Usage:

' Examples:
'		?GetCodePage()

' Notes:
'==========================================================================
DECLARE kernel32 CodePageLocale@GetACP L

' Return codeset or codepage
GetCodePage=CodePageLocale()

END FUNCTION
End Function (   1)---------------------------------------------------------------