<!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&nbsp; 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>&nbsp;</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,&nbsp;&nbsp; I copied it 
  too notepad and then to a filePro prc. table, it almost worked but the syntax 
  was off &nbsp;and I am in the process of moving the text around so fp will be 
  happy with it,&nbsp; I will try to test it tonite or tommorow.&nbsp; </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>The request was pretty simple,&nbsp; I'm sure there are bigger and better 
  ways to do this,&nbsp; the below way is how the customer presented the 
  question too me yesterday.&nbsp; </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>In an output process,&nbsp;&nbsp; select&nbsp; X&nbsp; number of 
  records,&nbsp; then&nbsp; ASK for&nbsp; which field NUMBER to change data 
  in.&nbsp; </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>SHOW records found &amp; field description,&nbsp;&nbsp;INPUT new DATA for 
  that field...</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Verify all in a&nbsp; INPUT&nbsp; OK to&nbsp; POST Y/N? if Y take off and 
  fix those fields that it found in the selection set......</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>I am most comfortable with&nbsp; 4.8 processing ..&nbsp; gulp... i know, 
  i know ...</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Pretty Simple ...Huh ...</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Laugh&nbsp; .. Thanks Again&nbsp; ... Wayne&nbsp;&nbsp; &amp;&nbsp; 
  Scott&nbsp;&nbsp; </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>cc this to&nbsp;&nbsp; <A 
  href="mailto:SmittyUSN1@Bellsouth.net">SmittyUSN1@Bellsouth.net</A>&nbsp;&nbsp;&nbsp;&nbsp; 
  please&nbsp; ..&nbsp;&nbsp; and please dont put this on the list for that bozo 
  fairy to flame me.&nbsp; </DIV>
  <DIV>&nbsp;</DIV>
  <DIV>&nbsp;</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??&nbsp; :-)<BR><BR>&gt; -----Original Message-----<BR>&gt; From: 
    Kenneth Brody [mailto:kenbrody@bestweb.net]<BR>&gt; Sent: Tuesday, May 02, 
    2006 1:10 PM<BR>&gt; To: alpha@valar.com<BR>&gt; Cc: Fplist (E-mail)<BR>&gt; 
    Subject: Re: from the FP Room today...<BR>&gt;<BR>&gt;<BR>&gt; Quoting John 
    Esak (Tue, 2 May 2006 12:34:33 -0400):<BR>&gt;<BR>&gt; &gt;<BR>&gt; 
    &gt;<BR>&gt; &gt; To the guys who were in the FP Room today... you probably 
    figured it<BR>&gt; &gt; out...<BR>&gt; &gt; but here is the corrected 
    prc.table. It posts (value) to the designated<BR>&gt; &gt; field. Hope you 
    caught that.<BR>&gt; &gt; JE<BR>&gt; &gt;<BR>&gt; &gt;<BR>&gt; &gt; :field 
    ne "":goto doit:<BR>&gt; &gt; ::declare field(3,.0,g), 
    value(30,*,g):<BR>&gt; &gt; ask_f::input popup field "Which field do you 
    want to modify? ":<BR>&gt; &gt; :@sk eq "BRKY":exit:<BR>&gt; &gt; :field eq 
    "":goto ask_f:<BR>&gt; &gt; ask_v::input popup value "What value do you want 
    to put in this field?<BR>&gt; &gt; ":<BR>&gt; &gt; :@sk eq 
    "BRKY":exit:<BR>&gt; &gt; doit:'doit::<BR>&gt; &gt; ::gosub (field) of do_1, 
    do_2, do_3:<BR>&gt; &gt; ::end:<BR>&gt; &gt; do_1:'do_1::<BR>&gt; &gt; 
    ::1=value;&nbsp; return:<BR>&gt; &gt; do_2:'do_2::<BR>&gt; &gt; 
    ::2=value;&nbsp; return:<BR>&gt; &gt; do_3:'do_3::<BR>&gt; &gt; 
    ::3=value;&nbsp; return:<BR>&gt;<BR>&gt; I wasn't in the room, so perhaps 
    you are doing more than is apparent<BR>&gt; by just looking at this 
    snippet.<BR>&gt;<BR>&gt; However, why not just replace the doit lines 
    with:<BR>&gt;<BR>&gt;&nbsp; &nbsp;&nbsp; doit<BR>&gt;&nbsp; &nbsp; &nbsp; 
    &nbsp;&nbsp; Then: dim MyRecord[3]:1<BR>&gt;&nbsp; &nbsp; &nbsp; &nbsp; 
    &nbsp;&nbsp; If: field gt "0" and field le "3"<BR>&gt;&nbsp; &nbsp; &nbsp; 
    &nbsp;&nbsp; Then: MyRecord[field] = value<BR>&gt;&nbsp; &nbsp; &nbsp; 
    &nbsp;&nbsp; Then: end<BR>&gt;<BR>&gt; The "if" line can be eliminated if 
    you pre-check "field" for valid<BR>&gt; values.<BR>&gt;<BR>&gt; --<BR>&gt; 
    KenBrody at BestWeb dot net&nbsp; &nbsp; &nbsp; &nbsp; spamtrap: 
    &lt;g8ymh8uf001@sneakemail.com&gt;<BR>&gt; http://www.hvcomputer.com<BR>&gt; 
    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>