15 $I->execute;
 16 
 17 while(my $i = $I->fetchrow_hashref) {
 18 
 19     my $cnip = ($$i{s.misc04} << 16) + $$i{s.misc05};
 20 
 21     my $onip = ($$i{o.misc04} << 16) + $$i{o.misc05};
 22 
 23     $BILLMAX->do("UPDATE reset 
SET currentnip = $cnip,oldnip = $onip 
WHERE service = $$i{r.service}");
 24 }