FILE1=RIGHT(SYS(2015),8)+".TXT REPORT FORM MyReport TO (FILE1) NOCONSOLE MODI COMM (FILE1) WINDOW W_SHOW NOEDIT ... ERASE (FILE1)Try this in a small program. You will never get a duplicate even on the fastest computer.
FILE1=RIGHT(SYS(2015),8)+".TXT FILE2=RIGHT(SYS(2015),8)+".TXT FILE3=RIGHT(SYS(2015),8)+".TXT FILE4=RIGHT(SYS(2015),8)+".TXT FILE5=RIGHT(SYS(2015),8)+".TXT