>select crsTemp
set step on && and step through the code one line at a time in the trace window to figure out what is wrong with your program logic.
>scan
> if !seek(char9,'am','char9')
> scatter fields char2 , char4 , char7, char8, char9, char13, char25, char26, char27, char28 memvar
> insert into am from memvar
> endif
>endscan