Dim OutStream As OutputStream
OutStream = File.OpenOutput(File.DirInternal, "Global.xml", False) ' Job.Tag is read to set the Original Filename we specify earlier in the creation of the Job
File.Copy2(Job.GetInputStream,OutStream) ' save the file
OutStream.Close
in = File.OpenInput(File.DirInternal, "Global.xml")
in.Close
Dim tr As TextReader
tr.Initialize2(in, "Windows-1255")
parser.Parse(tr, "Parser")
tr.Close