Ed,
Could you or someone else on the list identify how to get around this? I am
not sure how to do what you are saying.
Thanks in advance,
Donald N Frantum
Business Analyst
Houdini Inc
4225 N. Palm Street
Fullerton, CA 92835
(714) 525-0325 ext.311
[log in to unmask] <mailto:[log in to unmask]>
-----Original Message-----
From: Ed Stouder [mailto:[log in to unmask]]
Sent: Monday, June 17, 2002 12:03 PM
To: Donald Frantum
Subject: Re: [HP3000-L] looping out of control
Donald,
As neither variable is being set in the
WHILE CCX_IMG_EDP_1 = CCX_IMG_EDP_2
loop, once in the loop you will never exit (CCX_IMG_EDP_1 = CCX_IMG_EDP_2
will alway be true in the loop)
Ed Stouder
----- Original Message -----
From: "Donald N. Frantum" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, June 17, 2002 2:57 PM
Subject: [HP3000-L] looping out of control
> 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
