if seek(valuea,tablea,ordera)
       replace feieldlista with valuelista in tablea
    else
       *!* do error stuff here
    endif
    if seek(valueb,tableb,orderb)
       replace feieldlistb with valuelistb in tableb
    else
       *!* do error stuff here
    endif