$recno = 0 Transaction Action=Begin While not($_Eol) $recno = $recno + 1 IF frac($Recno/10) = 0 ShowStatus msg="Processing record $recno of $_count" endIf $result = CustomPut("MyData",$d_UserData2) if left($result,7) = "*Error*" Transaction Action=End # commit changes made thus far Cancel msg=$result # abort macro if we get an error Endif GoTo Position=Next EndWhile Transaction Action=End Goto Position=Top |