*** seed and ignore the first returned value > m.zfilename = intrandrange(00000000, 99999999, 87654321) > > > FOR m.zusercount = 1 TO m._vsomaxuser > *** get an integer for use as a filename > m.zfilename = ALLTRIM(STR(intrandrange(00000000, 99999999))) + ".acu" > m.zfh = FCREATE(m.zfilename) >wait window "1" + str(m.zusercount) + " " + m.zfilename + str(m.zfh) > > IF m.zfh > -1 > *** Person is no longer using the application and did not > *** log out properly, now that we have the open handle keep it > *** open and exit > EXIT > ENDIF > ENDFOR > > >wait window "2" + str(m.zusercount) + " " + m.zfilename + str(m.zfh) > IF (!m.nomore) AND (m._vsolan AND m.zusercount > m._vsomaxuser AND m._vsomaxusers > 0) > * WARNING !!! Maximum > * users Allowed; Close Idle Instances of this Applcation before > * ReStarting; If a Node was Hanged or ReBooted Please ReStart ALL > * Instances again > > m.nomore = .T. > ENDIF