I need help determining why this piece of code is looping out of control.

What I am expecting to happen is that ccx8 and ccx9 will be compared and
upon a match, extract the 'key-word' value.  Since both are msg files, I
also expect that they will be destructive.  This doesn't seem to be
happening.  During the looping process, when I do a listf, only the first
record is being destroyed despite the continuous looping going on.

PURGE CCX8.PUB
PURGE CCX9.PUB
RUN SUPRTOOL.PUB.ROBELLE
IN CCX5.PUB
SORT IMG-EDP
OUT=IN
XEQ
EXIT
BUILD CCX8.PUB;REC=-954,,F,ASCII;DISC=100000,10,1;MSG
BUILD CCX9.PUB;REC=-830,,F,ASCII;DISC=100000,10,1;MSG
FCOPY FROM=CCX6.PUB;TO=CCX8.PUB;NOUSERLABELS
FCOPY FROM=CCX5.PUB;TO=CCX9.PUB;NOUSERLABELS
SETVAR ENUM 0
DELETEVAR _CCX_VAR_1
DELETEVAR _CCX_VAR_2
CONTINUE
WHILE FINFO("CCX8.PUB.HITEST",'EOF') > 0 DO
     INPUT _CCX_VAR_1<CCX8.PUB
     INPUT _CCX_VAR_2<CCX9.PUB
     DELETEVAR CCX_IMG_EDP_1
     DELETEVAR CCX_IMG_EDP_2
     SETVAR CCX_IMG_EDP_1 STR(_CCX_VAR_1,944,11)
     SETVAR CCX_IMG_EDP_2 STR(_CCX_VAR_2,820,11)
     SHOWVAR CCX_IMG_EDP_1
     SHOWVAR CCX_IMG_EDP_2
     SETVAR CCX5_KEY_WRD STR(_CCX_VAR_2,5,50)
       WHILE CCX_IMG_EDP_1 = CCX_IMG_EDP_2
         SETVAR ENUM + 1
         IF "!CCX5_KEY_WRD" <> " " THEN
         SETVAR KEY_WRD_ "KEYWORD"
         SETVAR KEY_WRD "!KEY_WRD_!ENUM"
         SETVAR "!KEY_WRD" = "!CCX5_KEY_WRD"
         ELSE
         SETVAR "!KEY_WRD" " "
         ENDIF
       ENDWHILE
       SETVAR _REST_ STR(_CCX_VAR_1,1,943)
ENDWHILE

Any help would be appreciated.

Donald

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *