Part of the Samples Website. 8/16/97.

samples.basicStuff.tableVisit

«visits every cell in the object database
on visit (adrtable)
local (i)
for i = 1 to sizeOf (adrtable^)
local (adrcell = @adrtable^ [i])
msg (nameOf (adrcell^))
if typeOf (adrcell^) == tableType
visit (adrcell)
visit (@root)


This page was last built on Sat, Aug 16, 1997 at 6:41:34 PM. You can download the current set of sample scripts from our FTP site. Dave