It looks like the second loop gets executed only once and empties the
message file.
Would you tell us what you are trying to do?
Michael
On Mon, 17 Jun 2002 15:54:47 -0700, Donald Frantum
<[log in to unmask]> wrote:
>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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
