Set sc=filefrom.Open("RK\UTF8\")

B u t t o n

Include (%occStatus, %occConstant)

Class tmp.tmp[ Abstract ]
{

ClassMethod ConvertToASCII(fn As %String)
{
	Set filefrom=##class(%File).%New()
	Set filefrom.Name=fn
	Set sc=filefrom.Open("RK\UTF8\")
	If $$$ISOK(sc) {
		Set fileto=##class(%File).%New()
		Set fileto.Name="d:\2.txt"
		Set sc=fileto.Open("NW")
		If $$$ISOK(sc) {
			While filefrom.AtEnd= 0  {
				Set len= 32000 
				Set str=filefrom.Read(.len)
				Set sc=fileto.WriteLine($tr(str,$c( 0 ),""))
				If $$$ISERR(sc) {
					Do $system.OBJ.DisplayError(sc)
				}
			}
			Do fileto.Close()
		}
		Set fileto=$$$NULLOREF
		//
		Do filefrom.Close()
	}
	Set filefrom=$$$NULLOREF
}

}