<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:v =
"urn:schemas-microsoft-com:vml" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags"><HEAD><TITLE>Message</TITLE>
<META content="MSHTML 6.00.2900.2963" name=GENERATOR><!--[if !mso]>
<STYLE>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</STYLE>
<![endif]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="City"></o:SmartTagType><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"></o:SmartTagType><!--[if !mso]>
<STYLE>
st1\:*{behavior:url(#default#ieooui) }
</STYLE>
<![endif]-->
<STYLE>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:blue;
text-decoration:underline;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
pre
{margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";}
span.EmailStyle19
{mso-style-type:personal-reply;
font-family:Arial;
color:lime;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
@page Section1
{size:595.3pt 841.9pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;}
div.Section1
{page:Section1;}
-->
</STYLE>
</HEAD>
<BODY lang=EN-GB vLink=blue link=blue>
<DIV><FONT face=Tahoma size=2></FONT> </DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2>Hi</FONT></SPAN></DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff size=2>Yes I
tried that...</FONT></SPAN></DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff size=2>The
problem is that the get in the FIND procedure ignores the fact that there are
other tables that are REQUIRED for the 1st table to even be considered for the
cluster of records.</FONT></SPAN></DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff size=2>I
think a subfile in QUICK is the only solution...</FONT></SPAN></DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2>FILE *MYSPECIFICDATA PRIMARY OCCURS
15</FONT></SPAN></DIV>
<DIV><SPAN class=488122906-21082006><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> atla38@dsl.pipex.com
[mailto:atla38@dsl.pipex.com] <BR><B>Sent:</B> Monday, 21 August 2006 4:27
PM<BR><B>To:</B> Fernando Olmos; powerh-l@lists.sowder.com<BR><B>Subject:</B>
RE: How to "ignore" records in a FIND procedure<BR><BR></FONT></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">Try something like
this, you may have to add occurs with occurs-file,<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">File fail_row secondary
noitems open read ……………………..( you will have to create this and make sure no one
adds any rows into it </SPAN></FONT><FONT face=Wingdings color=lime><SPAN
style="COLOR: lime; FONT-FAMILY: Wingdings">J</SPAN></FONT><FONT face=Arial
color=lime><SPAN style="COLOR: lime; FONT-FAMILY: Arial">
)<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">In your find proc add
syntax below, the below probably has to go in the for loop after the
fail-condition files have all been read<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">If
fail-conditions-are-true<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">then get
fail_row<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial">A secondary without an
optional will fail the primary row when not
accessok.<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial color=lime size=3><SPAN
style="FONT-SIZE: 12pt; COLOR: lime; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<DIV>
<DIV class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT
face="Times New Roman" size=3><SPAN lang=EN-US style="FONT-SIZE: 12pt">
<HR tabIndex=-1 align=center width="100%" SIZE=2>
</SPAN></FONT></DIV>
<P class=MsoNormal><B><FONT face=Tahoma size=2><SPAN lang=EN-US
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">From:</SPAN></FONT></B><FONT
face=Tahoma size=2><SPAN lang=EN-US
style="FONT-SIZE: 10pt; FONT-FAMILY: Tahoma">
powerh-l-bounces+atla38=dsl.pipex.com@lists.sowder.com
[mailto:powerh-l-bounces+atla38=dsl.pipex.com@lists.sowder.com] <B><SPAN
style="FONT-WEIGHT: bold">On Behalf Of
</SPAN></B>fernando.olmos@hpa.com.au<BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> 21 August 2006 05:07<BR><B><SPAN
style="FONT-WEIGHT: bold">To:</SPAN></B> powerh-l@lists.sowder.com<BR><B><SPAN
style="FONT-WEIGHT: bold">Subject:</SPAN></B> RE: How to "ignore" records in a
FIND procedure</SPAN></FONT><SPAN lang=EN-US><o:p></o:p></SPAN></P></DIV>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P>
<P><FONT face=Arial color=blue size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">Just to add to
this...</SPAN></FONT> <o:p></o:p></P>
<P><FONT face=Arial color=blue size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">The way I've been
trying to do it, is to place an INTERNAL call in the FIND procedure to count the
number of detail records and determine whether the total is based on the
requirements I need. This way I was hoping to pass back to the FIND procedure a
counter or a flag to say to the GET... ignore this get or do get the record for
the cluster (based on the FOR MISSING clause).</SPAN></FONT><o:p></o:p></P>
<P><FONT face=Arial color=blue size=2><SPAN
style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">Thanks</SPAN></FONT>
<o:p></o:p></P>
<P><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"> </SPAN></FONT><FONT face=Tahoma size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">-----Original
Message-----</SPAN></FONT> <BR><B><FONT face=Tahoma size=1><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">From:
</SPAN></FONT></B> <FONT face=Tahoma size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">Fernando Olmos
</SPAN></FONT><BR><B><FONT face=Tahoma size=1><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">Sent: </SPAN></FONT></B>
<FONT face=Tahoma size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">Monday, 21 August 2006 2:04
PM</SPAN></FONT> <BR><B><FONT face=Tahoma size=1><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">To: </SPAN></FONT></B>
<FONT face=Tahoma size=1><SPAN
style="FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">powerh-l@lists.sowder.com</SPAN></FONT>
<BR><B><FONT face=Tahoma size=1><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">Subject: </SPAN></FONT></B>
<FONT face=Tahoma size=1><SPAN style="FONT-SIZE: 7.5pt; FONT-FAMILY: Tahoma">How
to "ignore" records in a FIND procedure</SPAN></FONT> <o:p></o:p></P>
<P><FONT face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Hi
everyone.</SPAN></FONT> <o:p></o:p></P>
<P><FONT face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">How
is it possible, with logic, to be able to ignore the occurrence of a record
being retrieved into a cluster, within a FIND
procedure?</SPAN></FONT><o:p></o:p></P>
<P><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Obviously the ACCESS and SELECT
clauses at the FILE definition level is the quick answer, but what if you
require complex logic to determine, based on details records, whether a record
in a cluster should be included or not ?</SPAN></FONT><o:p></o:p></P>
<P><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">i.e. Here is the rows on my screen
...</SPAN></FONT> <BR> <FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Account
Number Name</SPAN></FONT> <BR>
<FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">1234
Customer
A -- this customer has 20 detail records where all
records are not invoiced</SPAN></FONT><o:p></o:p></P>
<P><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt">
</SPAN></FONT><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">1235
Customer
B -- this customer has 10 detail records (orders)
where 9 of 10 are flagged as invoiced and the last rec is not
invoiced</SPAN></FONT><o:p></o:p></P>
<P><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt">
</SPAN></FONT><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">1236
Customer
C -- this customer has 5 detail records where all
records are invoiced.</SPAN></FONT> <o:p></o:p></P>
<P><FONT face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I
want to use some logic to only display CUSTOMER B in the cluster, on the
screen.</SPAN></FONT> <o:p></o:p></P>
<P><I><FONT face=Arial color=blue size=4><SPAN
style="FONT-SIZE: 13.5pt; COLOR: blue; FONT-STYLE: italic; FONT-FAMILY: Arial">Fernando
Olmos</SPAN></FONT></I> <BR><B><FONT face=Arial size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Arial">MIS</SPAN></FONT></B>
<BR><B><FONT face=Arial size=2><SPAN
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Arial">Senior Analyst
Programmer</SPAN></FONT></B> <o:p></o:p></P>
<P><B><FONT face=Arial color=blue size=2><SPAN lang=EN-AU
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: Arial">HPA</SPAN></FONT></B><FONT
face=Arial><SPAN lang=EN-US style="FONT-FAMILY: Arial"><BR></SPAN></FONT><FONT
face=Arial color=black size=2><SPAN lang=EN-AU
style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial">Direct: 03 9217
5411</SPAN></FONT><SPAN lang=EN-US><BR></SPAN><st1:City w:st="on"><st1:place
w:st="on"><FONT face=Arial color=black size=2><SPAN lang=EN-AU
style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial">Mobile</SPAN></FONT></st1:place></st1:City><FONT
face=Arial color=black size=2><SPAN lang=EN-AU
style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial">:
0410 382 857</SPAN></FONT><FONT face=Arial><SPAN lang=EN-US
style="FONT-FAMILY: Arial"><BR></SPAN></FONT><FONT face=Arial color=black
size=2><SPAN lang=EN-AU
style="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial">Fax:
03 9217 5716</SPAN></FONT><SPAN lang=EN-AU> </SPAN><o:p></o:p></P>
<P><FONT face="Times New Roman" size=3><SPAN style="FONT-SIZE: 12pt"><A
href="file:///H:\Appdata\Microsoft\Signatures\www.hpa.com.au"><B><FONT
face=Arial size=2><SPAN lang=EN-AU
style="FONT-WEIGHT: bold; FONT-SIZE: 10pt; FONT-FAMILY: Arial">www.hpa.com.au</SPAN></FONT></B></A>
<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">**********************************************************************<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">IMPORTANT<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">The contents of this e-mail and its attachments are confidential and intended<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">solely for the use of the individual or entity to whom they are addressed. If<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">you received this e-mail in error, please notify the HPA Postmaster, postmaster@hpa.com.au,<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">then delete the e-mail.<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">This footnote also confirms that this e-mail message has been swept for the<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">presence of computer viruses by Ironport. Before opening or using any<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">attachments, check them for viruses and defects.<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">Our liability is limited to resupplying any affected attachments.<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">HPA collects personal information to provide and market our services. For more<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">information about use, disclosure and access see our Privacy Policy at<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">www.hpa.com.au<o:p></o:p></SPAN></FONT></PRE><PRE><FONT face="Courier New" size=2><SPAN style="FONT-SIZE: 10pt">**********************************************************************<o:p></o:p></SPAN></FONT></PRE></DIV><pre>**********************************************************************
IMPORTANT
The contents of this e-mail and its attachments are confidential and intended
solely for the use of the individual or entity to whom they are addressed. If
you received this e-mail in error, please notify the HPA Postmaster, postmaster@hpa.com.au,
then delete the e-mail.
This footnote also confirms that this e-mail message has been swept for the
presence of computer viruses by Ironport. Before opening or using any
attachments, check them for viruses and defects.
Our liability is limited to resupplying any affected attachments.
HPA collects personal information to provide and market our services. For more
information about use, disclosure and access see our Privacy Policy at
www.hpa.com.au
**********************************************************************
</pre></BODY></HTML>