loNewForm = CREATEOBJECT("FORM") loNewForm.NAME = "View_Wind" WITH loNewForm .CAPTION = "GIV Details" .HEIGHT = 300 .WIDTH = 675 .FONTNAME = "Courier New" ENDWITH loThisform = THISFORM.NAME ACTIVATE WINDOW View_Wind IN WINDOW (loThisform) SET CENTURY OFF STORE "c:\temp\z" + SUBSTR(SYS(3),1,7) TO textfile REPORT FORM rep31_1 TO FILE (textfile) NOCONSOLE MODIFY COMMAND (textfile+".txt") IN WINDOW View_Wind NOEDIT SET CENTURY ON RELEASE loNewForm ERASE (textfile+".txt")