Okay here is what I am trying to do, with no luck I might add.
I want to compare file a(single value) to file b(multiple values) and
extract the multiple values into one record.
file a= 123
file b= 123 xyz
file b= 123 pdq
file b= 123 abc
resultant file= 123 xyzpdqabc
Can someone help.
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: Tracy Pierce [mailto:[log in to unmask]]
Sent: Tuesday, June 18, 2002 5:59 AM
To: Donald Frantum
Subject: RE: looping out of control
Tiny changes can make huge differences; WHAT are you really trying to do? I
can escape like Houdini but I can't read your mind.
> -----Original Message-----
> From: Donald Frantum [mailto:[log in to unmask]]
> Sent: Monday, June 17, 2002 3:55 PM
> To: [log in to unmask]
> Subject: Re: looping out of control
>
>
> 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 *
|
