<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.2802" name=GENERATOR>
<STYLE>@font-face {
font-family: Trebuchet MS;
}
@page Section1 {size: 8.5in 11.0in; margin: .75in .75in .5in .75in; }
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 dir=ltr align=left><FONT face=Arial color=#0000ff
size=2></FONT> </DIV><BR>
<BLOCKQUOTE dir=ltr
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B>
filepro-list-bounces+gccconsulting=comcast.net@lists.celestial.com
[mailto:filepro-list-bounces+gccconsulting=comcast.net@lists.celestial.com]
<B>On Behalf Of </B>Larry Dannenberg<BR><B>Sent:</B> Friday, February 17, 2006
4:37 PM<BR><B>To:</B> filepro Mailing List
(filepro-list@lists.celestial.com)<BR><B>Subject:</B> Message when no
selection occurs<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt">I have a brief table that looks for duplicate records
and prints them. If no duplicates are found, the selection table terminates
and no printout is generated. Users may think the table did not run when this
occurs so I would like to print a message to the monitor when no records are
selected.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt">When filePro is on the last index, the selection table
below prints a message box for as many times as there is a record containing
the last item in the index (in this case, the last customer number).
</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt">Is there a better way to do this? I would like to
print 1 message to the monitor if no records are selected.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 7
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 'lookup key based on consumer number, index (C) based on
consumer#.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: lookup one = MRattenddays k=32 i=c
-nx
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 8
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">loop . If: not
one and f eq
""
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: msgbox "No Duplicate Records Were Found." & "\nThe last consumer #
<32<"and\nthe corresponding record #=" < @rn;end</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 9
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: not one
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then:
end
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 10
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 32 ne
one(32) 'Consumer
number does not
match
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then:
end
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 11
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 'save the looked up record as
qn
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then:
qn=one(@rn)
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 12
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: @rn eq
qn
'this is the same
record
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: getnext one;goto
loop
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">13
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 35 ne
one(35)
'this is not for the same month/year .</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: getnext one;goto
loop
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 14
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 36 ne
one(36)
'this is not for the same location
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: getnext one;goto loop
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 15
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
. If: 'A match has been
found
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then: select;f(1,*,g)
="1";end
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 16
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
.
If:
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'">
Then:
end
.</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Courier New" size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"> 17
------- - - - -
- - - - -
- - - - -
- -</SPAN></FONT></P>
<P class=MsoNormal><FONT face="Trebuchet MS" size=3><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT><FONT face=Arial color=#0000ff
size=2></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006>Add @done to your
processing table:</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN
class=974435021-17022006></SPAN></SPAN></FONT><FONT face=Arial color=#0000ff
size=2><SPAN style="FONT-SIZE: 12pt"><SPAN
class=974435021-17022006></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006>if: @ts =
"0"</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006>then: MSGBOX 'No
Duplicate Record Found"</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN
class=974435021-17022006>if:</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006>then:
END</SPAN></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006><FONT
size=2></FONT></SPAN></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"><SPAN class=974435021-17022006><FONT size=2>Richard
Kreiss<BR>GCC Consulting<BR></FONT></SPAN></SPAN></FONT><FONT face=Arial
color=#0000ff size=2><SPAN
style="FONT-SIZE: 12pt"></SPAN></FONT></P></DIV></BLOCKQUOTE></BODY></HTML>