<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40"
xmlns:ns1="http://schemas.microsoft.com/office/2004/12/omml">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<style>
<!--a:link
{mso-style-priority:99;}
span.MSOHYPERLINK
{mso-style-priority:99;}
a:visited
{mso-style-priority:99;}
span.MSOHYPERLINKFOLLOWED
{mso-style-priority:99;}
p
{mso-style-priority:99;}
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Garamond;
panose-1:2 2 4 4 3 3 1 1 8 3;}
@font-face
{font-family:Calibri;}
@font-face
{font-family:r_ansi;
panose-1:2 11 6 9 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
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:purple;
text-decoration:underline;}
p
{mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle18
{mso-style-type:personal;
font-family:Garamond;
color:windowtext;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
span.EmailStyle19
{mso-style-type:personal;
font-family:Calibri;
color:#1F497D;}
span.EmailStyle20
{mso-style-type:personal;
font-family:Garamond;
color:blue;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
span.EmailStyle21
{mso-style-type:personal-reply;
font-family:Arial;
color:navy;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>I have always found it useful in situations like this to
define repeating items as below. This has proven itself to the extent that I
automatically include such a definition for any repeating items in the
dictionary as standard practice.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>Item
COMMENTS Datatype
Character Size 200
Create
<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>Begin Structure<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> Item
COMMENT-1 Datatype
Character Size 50<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> Item
COMMENT-2 Datatype
Character Size 50<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> Item
COMMENT-3 Datatype
Character Size 50<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> Item
COMMENT-4 Datatype
Character Size 50<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>End Structure<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>Item
COMMENTS Datatype
Character Size 200 &<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>
Redefines COMMENTS<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>Begin Structure<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> Item
COMMENT Datatype
Character Size 50 Occurs 4<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>End Structure<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>Looping constructs have never been one of Powerhouse’s
strengths and it is often easier to deal when the individual occurrences by their
unique names.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>Regards,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>JWP<o:p></o:p></span></font></p>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'><o:p> </o:p></span></font></b></p>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'><o:p> </o:p></span></font></b></p>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'>From:</span></font></b><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'> powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com] <b><span
style='font-weight:bold'>On Behalf Of </span></b>Lorry Litman<br>
<b><span style='font-weight:bold'>Sent:</span></b> April 17, 2008 4:13 PM<br>
<b><span style='font-weight:bold'>To:</span></b> PowerHouse listserver<br>
<b><span style='font-weight:bold'>Subject:</span></b> retrieve/access
occurrence of item<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>Hi,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>PH 7.10.E6, VMS 7.3-1 RMS indexed
file<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>I have a record with 3 items
item1, item2, item3. Item3 occurs 5 times and is made up of 2 segments call
them item3A & item3B.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>Is there a way to check the value
of item3A when retrieving the record (either in the Find or PostFind
procedure).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>i.e. retrieve record, check value
of item3A[1], [2], [3], [4], [5].<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>I should mention there is only 1
record to this screen and it has an occurs.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'>Thanx<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Garamond><span lang=EN-CA
style='font-size:12.0pt;font-family:Garamond'> </span></font><font
size=2 color=navy face=Arial><span lang=EN-CA style='font-size:10.0pt;
font-family:Arial;color:navy'> </span></font><font size=2 color=navy
face=Arial><span style='font-size:10.0pt;font-family:Arial;color:navy'><o:p></o:p></span></font></p>
</div>
</body>
</html>
<BR>
<P><FONT SIZE=2>No virus found in this outgoing message.<BR>
Checked by AVG.<BR>
Version: 7.5.524 / Virus Database: 269.23.0/1383 - Release Date: 17/04/2008 9:00 AM<BR>
</FONT> </P>