<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META charset=US-ASCII http-equiv=Content-Type
content="text/html; charset=US-ASCII">
<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY style="FONT-SIZE: 10pt; FONT-FAMILY: Arial; BACKGROUND-COLOR: #ffffff">
<DIV><SPAN class=921565423-02052006>That's okay... glad I could help.... but did
you catch the "fix" I put on the list... It is supposed to fill the numbered
field with (value) not (field)... when I fixed the prc I forgot to fix all of
it. Then Ken Brody posted a 3 line subroutine that is WAY better than doing it
with a gosub for each and every field. By building the array the way he
showed it does ALL fields no matter which one is chosen. It will work on 4.8,
too... just take out the declared filed and value and use fd(3,.0) and va(30,,*)
or something like that.</SPAN></DIV>
<DIV><SPAN class=921565423-02052006></SPAN> </DIV>
<DIV><SPAN class=921565423-02052006>John</SPAN></DIV>
<BLOCKQUOTE dir=ltr
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #ffff00 2px solid; MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT
face=Tahoma>-----Original Message-----<BR><B>From:</B> SmittyUSN1@aol.com
[mailto:SmittyUSN1@aol.com]<BR><B>Sent:</B> Tuesday, May 02, 2006 4:12
PM<BR><B>To:</B> alpha@valar.com<BR><B>Subject:</B> Re: from the FP Room
today...<BR><BR></FONT></DIV>
<DIV>
<DIV>Thanks for putting that processing up today John, I copied it
too notepad and then to a filePro prc. table, it almost worked but the syntax
was off and I am in the process of moving the text around so fp will be
happy with it, I will try to test it tonite or tommorow. </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>The request was pretty simple, I'm sure there are bigger and better
ways to do this, the below way is how the customer presented the
question too me yesterday. </DIV>
<DIV> </DIV>
<DIV>In an output process, select X number of
records, then ASK for which field NUMBER to change data
in. </DIV>
<DIV> </DIV>
<DIV>SHOW records found & field description, INPUT new DATA for
that field...</DIV>
<DIV> </DIV>
<DIV>Verify all in a INPUT OK to POST Y/N? if Y take off and
fix those fields that it found in the selection set......</DIV>
<DIV> </DIV>
<DIV>I am most comfortable with 4.8 processing .. gulp... i know,
i know ...</DIV>
<DIV> </DIV>
<DIV>Pretty Simple ...Huh ...</DIV>
<DIV> </DIV>
<DIV>Laugh .. Thanks Again ... Wayne &
Scott </DIV>
<DIV> </DIV>
<DIV>cc this to <A
href="mailto:SmittyUSN1@Bellsouth.net">SmittyUSN1@Bellsouth.net</A>
please .. and please dont put this on the list for that bozo
fairy to flame me. </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>In a message dated 5/2/2006 2:03:09 PM Eastern Daylight Time,
alpha@valar.com writes:</DIV>
<BLOCKQUOTE
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: blue 2px solid"><FONT
face=Arial>Yes,<BR>Below (your change) is a much better way to do this...
but, I was just<BR>giving the idea of what needed to be done to some folks
who asked the<BR>question. It was something I put up in about 2 minutes, and
I wasn't sure at<BR>first if the fields were contiguous or differing edit
types. I thought<BR>briefly about showing it as an array, but it added that
one level of<BR>complexity. Actually, it is not only less complex, but
eliminates any other<BR>coding and covers the whole file. The only thing I
was going to shoot for<BR>next that I knew the array couldn't handle was
adding an edit type to<BR>(value). At least, I didn't want to thrash out how
important edit validation<BR>was going to be. I was on my way into a
conference call and under the gun.<BR><BR>John<BR><BR>P.S. - Those are my
excuses for not showing them the best way to do this...<BR>did I mention
also that the sun was in my eyes and my shoes were too<BR>tight...
also?? :-)<BR><BR>> -----Original Message-----<BR>> From:
Kenneth Brody [mailto:kenbrody@bestweb.net]<BR>> Sent: Tuesday, May 02,
2006 1:10 PM<BR>> To: alpha@valar.com<BR>> Cc: Fplist (E-mail)<BR>>
Subject: Re: from the FP Room today...<BR>><BR>><BR>> Quoting John
Esak (Tue, 2 May 2006 12:34:33 -0400):<BR>><BR>> ><BR>>
><BR>> > To the guys who were in the FP Room today... you probably
figured it<BR>> > out...<BR>> > but here is the corrected
prc.table. It posts (value) to the designated<BR>> > field. Hope you
caught that.<BR>> > JE<BR>> ><BR>> ><BR>> > :field
ne "":goto doit:<BR>> > ::declare field(3,.0,g),
value(30,*,g):<BR>> > ask_f::input popup field "Which field do you
want to modify? ":<BR>> > :@sk eq "BRKY":exit:<BR>> > :field eq
"":goto ask_f:<BR>> > ask_v::input popup value "What value do you want
to put in this field?<BR>> > ":<BR>> > :@sk eq
"BRKY":exit:<BR>> > doit:'doit::<BR>> > ::gosub (field) of do_1,
do_2, do_3:<BR>> > ::end:<BR>> > do_1:'do_1::<BR>> >
::1=value; return:<BR>> > do_2:'do_2::<BR>> >
::2=value; return:<BR>> > do_3:'do_3::<BR>> >
::3=value; return:<BR>><BR>> I wasn't in the room, so perhaps
you are doing more than is apparent<BR>> by just looking at this
snippet.<BR>><BR>> However, why not just replace the doit lines
with:<BR>><BR>> doit<BR>>
Then: dim MyRecord[3]:1<BR>>
If: field gt "0" and field le "3"<BR>>
Then: MyRecord[field] = value<BR>>
Then: end<BR>><BR>> The "if" line can be eliminated if
you pre-check "field" for valid<BR>> values.<BR>><BR>> --<BR>>
KenBrody at BestWeb dot net spamtrap:
<g8ymh8uf001@sneakemail.com><BR>> http://www.hvcomputer.com<BR>>
http://www.fileProPlus.com<BR><BR>_______________________________________________<BR>Filepro-list
mailing
list<BR>Filepro-list@lists.celestial.com<BR>http://mailman.celestial.com/mailman/listinfo</FONT></BLOCKQUOTE></DIV>
<DIV></DIV></BLOCKQUOTE></BODY></HTML>