> Try something like the code below i.e. put your error handling statements > within the loop.
my statements are already in the loop : declare sub packIfRequired(tableAlias as String) dim tableAlias as String include "mapbasic.def" tableAlias = "M02Streetblock" call packIfRequired(tableAlias) sub packIfRequired(tableAlias as String) Dim n, i as Integer n = TableInfo(tableAlias, TAB_INFO_NROWS) i = 1 ' L O O P S T A R T S Do While (i <= n) Print i OnError Goto NeedsPacking_error Fetch Rec i from tableAlias OnError Goto 0 i = i + 1 Loop ' L O O P E N D S Exit Sub NeedsPacking_error: Commit table tableAlias Print "packing" Pack Table tableAlias Graphic Data Exit Sub End Sub - - - -- --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
