<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
Hi Lorry:<BR>
<BR>
<BR>
I would run a ghost screen to do the checkin<BR>
In your main screen:-<BR>
If you need a return value for each occurrence <BR>
then I would have 5 distinct items for the return codes<BR>
e.g IF 5 = OCCURRENCE<BR>
THEN LET RETURN_CODE5 = 1<BR>
<BR> PROCEDURE POSTFIND<BR>
BEGIN <BR>
FOR RMS_RECORD<BR>
BEGIN<BR>
RUN SCREEN GHOST PASSING RMS_RECORD, RETURN_CODE<BR>
DISPLAY RETURN_CODE<BR>
END<BR>
END<BR>
<BR>
<BR>
SCREEN GHOST SLAVE RECEIVING RMS_RECORD, RETURN_CODE<BR>
FILE RMS_RECORD MASTER ; no occurence<BR>
TEMPORARY RETURN_CODE<BR>
PROCEDURE INITIALIZE<BR>
BEGIN<BR>
FOR EACH ITEM3<BR>
BEGIN<BR>
; check ITEM3A<BR>
IF ITEM3A > 5 AND RETURN_CODE = 0<BR>
THEN LET RETURN_CODE = 1<BR>
END<BR>
RETURN<BR>
END<BR>
<BR>
Regards,<BR>
Peter Bateman<BR>
<BR>
<BR><BR>
<BLOCKQUOTE>
<HR>
Subject: retrieve/access occurrence of item<BR>Date: Thu, 17 Apr 2008 15:13:29 -0500<BR>From: LLitman@exchange.hsc.mb.ca<BR>To: powerh-l@lists.sowder.com<BR><BR>
<META content="Microsoft SafeHTML" name=Generator>
<STYLE>
.ExternalClass p.EC_MsoNormal, .ExternalClass li.EC_MsoNormal, .ExternalClass div.EC_MsoNormal
{margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New Roman';}
.ExternalClass a:link, .ExternalClass span.EC_MsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.EC_MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass span.EC_EmailStyle17
{font-family:Garamond;color:windowtext;font-weight:normal;font-style:normal;text-decoration:none none;}
@page Section1
{size:612.0pt 792.0pt;}
.ExternalClass div.EC_Section1
{page:Section1;}
</STYLE>
<DIV class=EC_Section1>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">Hi,</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond"> </SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">PH 7.10.E6, VMS 7.3-1 RMS indexed file</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; 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.</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">Is there a way to check the value of item3A when retrieving the record (either in the Find or PostFind procedure).</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">i.e. retrieve record, check value of item3A[1], [2], [3], [4], [5].</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond"> </SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">I should mention there is only 1 record to this screen and it has an occurs.</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond"> </SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond">Thanx</SPAN></FONT></P>
<P class=EC_MsoNormal><FONT face=Garamond size=3><SPAN lang=EN-CA style="FONT-SIZE: 12pt; FONT-FAMILY: Garamond"> Lorry </SPAN></FONT></P></DIV></BLOCKQUOTE><br /><hr />You could win $1000 a day, now until May 12th, just for signing in to Windows Live Messenger. <a href='http://g.msn.ca/ca55/211' target='_new'>Check out SignInAndWIN.ca to learn more!</a></body>
</html>