Как избавиться от сообщения end of file encountered при добавлении новой записи?

SELECT MEN
STORE RECCOUNT() TO FFF
SELECT JOBOOK
IF FFF>0
LOCATE FOR MEN.tab_num=JOBOOK.tab_num AND MEN.num=JOBOOK.num
IF !FOUND()
SELECT MEN
SELECT JOBOOK
APPEND BLANK
REPLACE JOBOOK.TAB_NUM WITH MEN.TAB_NUM
REPLACE JOBOOK.NUM WITH MEN.NUM
REPLACE JOBOOK.kod_punkt WITH MEN.kod_punkt
SELECT MED
APPEND BLANK
REPLACE MED.TAB_NUM WITH MEN.TAB_NUM
REPLACE MED.NUM WITH MEN.NUM
REPLACE med.kod_punkt WITH MEN.kod_punkt
REPLACE med.family WITH MEN.family
REPLACE med.name WITH MEN.name
REPLACE med.father WITH MEN.father
REPLACE med.d_rogd WITH MEN.d_rogd
REPLACE med.punkt WITH MEN.punkt
ELSE
do while !EOF()
LOCATE FOR MEN.tab_num=JOBOOK.tab_num AND MEN.num=JOBOOK.num
IF MEN.TAB_NUM<>JOBOOK.TAB_NUM AND MEN.num<>JOBOOK.num
SET FILTER TO MEN.TAB_NUM=JOBOOK.TAB_NUM AND MEN.num=JOBOOK.num
SELECT JOBOOK
APPEND BLANK
REPLACE JOBOOK.TAB_NUM WITH MEN.TAB_NUM
REPLACE JOBOOK.NUM WITH MEN.NUM
REPLACE JOBOOK.kod_punkt WITH MEN.kod_punkt
SELECT MED
APPEND BLANK
REPLACE MED.TAB_NUM WITH MEN.TAB_NUM
REPLACE MED.NUM WITH MEN.NUM
REPLACE med.kod_punkt WITH MEN.kod_punkt
REPLACE med.family WITH MEN.family
REPLACE med.name WITH MEN.name
REPLACE med.father WITH MEN.father
REPLACE med.d_rogd WITH MEN.d_rogd
REPLACE med.punkt WITH MEN.punkt
endif
IF !EOF()
skip in men && в этом месте ругань на end of file encountered
ELSE
ENDIF
ENDDO
ENDIF
ENDIF

Вах! О чем думаю...! Конечно, таблица то MED