I feel that I am close, but still no cigar. Could you take a look at my
latest and advise me. BTW, I am interested in scenario two.
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
WHILE FINFO("CCX9.PUB.HITEST",'EOF') > 0 DO
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)
IF CCX_IMG_EDP_1 = CCX_IMG_EDP_2 THEN
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
SETVAR _REST_ STR(_CCX_VAR_1,1,943)
ENDIF
ENDWHILE
ENDWHILE
Thanks,
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 1:19 PM
To: Donald Frantum
Subject: Re: [HP3000-L] looping out of control
Donald,
I am not sure exactly what you are trying to do.
If you are trying to compare record 1 in file "A" to record 1 in file "B",
the 2nd record in "A" to the 2nd record in "B" ....
then the 2nd while/ endwhile may just need to be an IF/ENDIF.
On the other hand, if you are trying to compare file A to x records in file
"B" until a match, then you need to read the 2nd file and set the variable
in the 2nd while/endwhile. And add logic to deal with hitting the end of
file "B" before the end of "A".
Ed Stouder
----- Original Message -----
From: "Donald Frantum" <[log in to unmask]>
To: "Ed Stouder" <[log in to unmask]>
Cc: "Raven (E-mail)" <[log in to unmask]>
Sent: Monday, June 17, 2002 4:08 PM
Subject: RE: [HP3000-L] looping out of control
> 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 *
|