Update in Foxpro

I am trying to replace fields in a foxpro table with a program.  I am new to foxpro and am having trouble.  
I have a set list of criteria that I want to update the table, the noun has to be filled in first and then the modifier field based on a series of words being found in the item description.
This is what I have so far:

WAIT WINDOW "START  PROGRAM ........ " NOWAIT
GO TOP
LOCAL nRec

nRec=RECNO()

 SCAN FOR EMPTY(NOUN)
   *nRec=RECNO()
   
    IF " ABRASIVE " $ IMA_DESC && OR ATC("ABRASIVE",IMA_DESC)>0
REPLACE NOUN WITH "ABRASIVE"
REPLACE MODIFIER WITH "BELT",NM_FLAG WITH "NM" FOR EMPTY(MODIFIER) AND NOUN="ABRASIVE" AND " BELT " $ IMA_DESC
 REPLACE MODIFIER WITH "DISC",NM_FLAG WITH "NM" FOR EMPTY(MODIFIER) AND (NOUN="ABRASIVE" AND " DISC " $ IMA_DESC) OR (NOUN="ABRASIVE" AND " DISK " $ IMA_DESC)
GOTO nRec
endif
ENDSCAN

SCAN ALL FOR EMPTY(NOUN)
   *nRec=RECNO()
   
IF " BAR " $ IMA_DESC && OR ATC("BAR",IMA_DESC)>0
        REPLACE NOUN WITH " BAR "
REPLACE MODIFIER WITH "FLAT",NM_FLAG WITH "NM" FOR EMPTY(MODIFIER) AND NOUN=" BAR " AND " FLAT " $ IMA_DESC
 REPLACE MODIFIER WITH "HEX",NM_FLAG WITH "NM" FOR EMPTY(MODIFIER) AND (NOUN=" BAR " AND " HEX " $ IMA_DESC)
GOTO nRec
endif
ENDSCAN

This works for this noun modifier pair (abrasive) but then when I go to add another 'If' statement it says I have a nesting error.  I have approx 2000 of these to add to make the program complete and I want to ensure that I have it set correctly before I continue.

I am sure that I am not explaining this correctly or clearly,

Thanks,




Start Free Trial