<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<STYLE>@font-face {
font-family: Trebuchet MS;
}
@page Section1 {size: 8.5in 11.0in; margin: .7in .5in .5in .5in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Trebuchet MS"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Trebuchet MS"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Trebuchet MS"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
COLOR: windowtext; FONT-FAMILY: Arial
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-US vLink=purple link=blue>
<DIV>
<P><FONT size=2></FONT></P>
<DIV></DIV><FONT face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
filepro-list-bounces@lists.celestial.com
[mailto:filepro-list-bounces@lists.celestial.com] <B>On Behalf Of </B>Larry
Dannenberg<BR><B>Sent:</B> Thursday, July 28, 2005 8:03 AM<BR><B>To:</B> filepro
Mailing List (filepro-list@lists.celestial.com)<BR><B>Subject:</B> GETNEXT and
End of file error trapping<BR><BR></FONT></DIV>
<BLOCKQUOTE style="MARGIN-RIGHT: 0px">
<DIV class=Section1>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">I am getting an
end-of-file error that I can't seem to trap for. I tried to use the
hint in the "Developer's Reference", 4<SUP>th</SUP> Ed, Page 266 (line 94
in the example) but it didn't work for me.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">When I enter a box number
less that the last box number in the data set, it works fine. (See partial
listing of records in the data set).</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">How can I avoid the error
when I am on the last record in the data set and the next line has a "GETNEXT"
in it?</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><B><U><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 12pt">Error
Message</SPAN></FONT></U></B></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">*** A filePro Error Has
Occurred ***</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">On File:
/u/appl/filepro/IMstore/prc.chooser</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Input
Processing</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Line Number:
35</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">j=j+"1";getnext
tre;nc=tre(10);goto loop3</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">^</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Field not
found.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">Lookup has not been
performed.<SPAN class=411354416-28072005><FONT face=Arial
color=#0000ff> </FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>Larry,</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial color=#0000ff>you need to check for
the end of file after the "getnext tre" and _BEFORE_ you try to do the
assignment </FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff> "nc=tre(10)".</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005>The way you have it now, it does not check for end of
file until it goes back to "loop3" which is _AFTER_ you try to do the
assignment.</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>If: </FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>Then: j=j+"1"</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>If:</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>Then: getnext
tre</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>If: not
tre</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>Then: DO SOMETHING OTHER THAN
THE NEXT LINE (end, return, etc....)</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>If:</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><FONT face=Arial
color=#0000ff>Then: nc=tre(10)</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New"><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005> <FONT face=Arial
color=#0000ff>Regards,</FONT></SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005>Scott</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><SPAN
class=411354416-28072005><!-- Converted from text/plain format --></P>
<P><FONT size=2>Scott Walker<BR>RAM Systems Corp<BR>Ph: (704) 896-6549<BR>Fx:
(704)
896-7458<BR>scottw1@alltel.net<BR><BR></FONT></P></SPAN></SPAN></FONT></DIV></BLOCKQUOTE></BODY></HTML>