DBReadHistory

Demonstrates how to fetch history record of a layer.

Code

 local int     i, tfid
 local string  szHistory

 try
   tfid = DBOpen( GetPCIHOME() + "/demo/irvine.pix", "r" )
 
   i = 1
   szHistory = DBReadHistory( tfid, "VEC", 25 )
   while( f$len(szHistory) <> 0 )
     print szHistory

     i = i + 1

     szHistory = DBReadHistory( tfid, "VEC", 25, i )
   endwhile

   call DBClose( tfid )  
 onerror
   print "Error: "+ GetLastErrorMessage()
 endonerror

Output

IIA    :Transfered from:copy.pix                                12:08 14-Oct-92 
VECSEL :Inclusive for GEOref window                             12:04 14-Oct-92