zTEST
 
	
	set svnHelper = ##class(svn.Helper).%New()
	set list = svnHelper.RoutineList()
	set itRoutines = ##class(TECH.ListIterator).%New(list)
	while itRoutines.HasNext() {
		set Routine = itRoutines.Next()
		continue:Routine'[".mac"
		set Filename = "c:\JCL\"_Routine
		Set Timestamp = $zdt(^rMAC($p(Routine,".mac"),0),3)
		if ##class(%File).Exists(Filename) { 
			W Routine,"\",Timestamp,"\"
			set File = ##class(%FileCharacterStream).%New()
			set File.Filename = Filename
			W File.ReadLine(),!
		 }
		set File = ##class(%FileCharacterStream).%New()
		set File.Filename = Filename
		do File.Write(Routine_"\"_Timestamp)
		do File.SaveStream()
		
	}
	
	quit