<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
<br><br><hr id="stopSpelling">From: peterbateman808@hotmail.com<br>To: jnalder@ascprofiles.com<br>Subject: RE: Problem in screen design<br>Date: Thu, 18 Mar 2010 14:20:05 -0300<br><br>
<style>
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Verdana;}
</style>
Hi Jay:<br><br> An error in the FIND sequence goes back to the next primary record if there is one otherwise back to the action field<br><br>Regards,<br>Peter<br><hr id="ecxstopSpelling">From: JNalder@ascprofiles.com<br>To: peterbateman808@hotmail.com<br>Date: Wed, 17 Mar 2010 16:28:40 -0700<br>Subject: RE: Problem in screen design<br><br>
<style>
.ExternalClass .ecxshape
{;}
</style>
<style>
.ExternalClass p.ecxMsoNormal, .ExternalClass li.ecxMsoNormal, .ExternalClass div.ecxMsoNormal
{margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass a:link, .ExternalClass span.ecxMsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.ecxMsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass p
{margin-right:0in;margin-left:0in;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass tt
{font-family:'Courier New';}
.ExternalClass p.ecxecxmsonormal, .ExternalClass li.ecxecxmsonormal, .ExternalClass div.ecxecxmsonormal
{margin-right:0in;margin-left:0in;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass p.ecxecxmsolistparagraph, .ExternalClass li.ecxecxmsolistparagraph, .ExternalClass div.ecxecxmsolistparagraph
{margin-right:0in;margin-left:0in;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass p.ecxecxmsochpdefault, .ExternalClass li.ecxecxmsochpdefault, .ExternalClass div.ecxecxmsochpdefault
{margin-right:0in;margin-left:0in;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass span.ecxecxmsohyperlink
{;}
.ExternalClass span.ecxecxmsohyperlinkfollowed
{;}
.ExternalClass span.ecxecxemailstyle19
{;}
.ExternalClass p.ecxecxmsonormal1, .ExternalClass li.ecxecxmsonormal1, .ExternalClass div.ecxecxmsonormal1
{margin-right:0in;margin-bottom:0in;margin-left:0in;margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass span.ecxecxmsohyperlink1
{color:blue;text-decoration:underline;}
.ExternalClass span.ecxecxmsohyperlinkfollowed1
{color:purple;text-decoration:underline;}
.ExternalClass p.ecxecxmsolistparagraph1, .ExternalClass li.ecxecxmsolistparagraph1, .ExternalClass div.ecxecxmsolistparagraph1
{margin-right:0in;margin-bottom:0in;margin-left:.5in;margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass span.ecxecxemailstyle191
{font-family:'Calibri','sans-serif';color:#1F497D;}
.ExternalClass p.ecxecxmsochpdefault1, .ExternalClass li.ecxecxmsochpdefault1, .ExternalClass div.ecxecxmsochpdefault1
{margin-right:0in;margin-left:0in;font-size:10.0pt;font-family:'Times New Roman','serif';}
.ExternalClass span.ecxEmailStyle31
{font-family:'Calibri','sans-serif';color:#1F497D;}
.ExternalClass .ecxMsoChpDefault
{font-size:10.0pt;}
@page Section1
{size:8.5in 11.0in;}
.ExternalClass div.ecxSection1
{page:Section1;}
</style>
<div class="ecxecxSection1">
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">OK, but can you get additional records based on non-matching records?</span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">I wanted the FIND to retrieve multiple records (as in get sequential).</span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">I did not expect the failed get to produce an error condition, but to cycle through and .</span></p><p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">merely try to get the next record.</span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">Jay Nalder.
</span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span></p>
<div>
<div style="border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0in 0in;">
<p class="ecxecxMsoNormal"><b><span style="font-size: 10pt; font-family: 'Tahoma','sans-serif';">From:</span></b><span style="font-size: 10pt; font-family: 'Tahoma','sans-serif';"> Peter Bateman [mailto:peterbateman808@hotmail.com]
<br>
<b>Sent:</b> Wednesday, March 17, 2010 4:23 PM<br>
<b>To:</b> Nalder, Jay<br>
<b>Cc:</b> PowerHouse List<br>
<b>Subject:</b> RE: Problem in screen design</span></p>
</div>
</div>
<p class="ecxecxMsoNormal"> </p>
<p class="ecxecxMsoNormal" style="margin-bottom: 12pt;"><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';">Hi Jay:<br>
<br>
My idea is the reverse of the technique where you remove the optional<br>
from the get of the secondary to display only those primary records which have a
<br>
corresponding secondary file. A failed get on a non optional secondary should raise an
<br>
error condition.<br>
<br>
From:- http://public.dhe.ibm.com/software/data/cognos/documentation<br>
/docs/en/powerhouse/8.4g/QD.pdf<br>
<br>
"Error Handling in the FIND Procedure<br>
If an error occurs during the execution of this procedure, <br>
QUICK backs up to the last GET verb for the PRIMARY file. <br>
If no such verb exists, QUICK prompts the screen user in the Action field,<br>
without displaying any retrieved data."<br>
<br>
If QUICK is working as described in the manual then I think my technique should<br>
work.<br>
<br>
Regards,<br>
Peter</span></p>
<div class="ecxecxMsoNormal" style="text-align: center;" align="center"><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';">
<hr id="ecxecxstopSpelling" size="2" width="100%" align="center">
</span></div>
<p class="ecxecxMsoNormal" style="margin-bottom: 12pt;"><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';">From: JNalder@ascprofiles.com<br>
To: peterbateman808@hotmail.com; pandurang.rajpurohit@in.ibm.com<br>
CC: powerh-l@lists.sowder.com; powerh-l-bounces+pandurang.rajpurohit=in.ibm.com@lists.sowder.com; vidyasagar.goparaju@kewill.com<br>
Date: Wed, 17 Mar 2010 11:34:40 -0700<br>
Subject: RE: Problem in screen design</span></p>
<div>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">I think that your FIND procedure won’t quite work as desired.</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal" style="text-indent: -0.25in;"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">-</span><span style="font-size: 7pt; color: rgb(31, 73, 125);">
</span><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">The error condition won’t let you find the ‘next record’</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);">Here is an extension on your idea:</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">screen test</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">file apmisumi primary</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">file apmisumi designer alias xpart open 2</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> access via doc-char using doc-char of apmisumi optional</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> select if gm-part of xpart = " 12844161"</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">file apmisumi designer alias xdup open 3</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> access via apmisumi-key using apmisumi-key of apmisumi</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD DOC-CHAR OF APMISUMI REQUIRED NOCHANGE</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD SOURCE-CODE OF APMISUMI REQUIRED NOCHANGE</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD GM-PART OF APMISUMI REQUIRED NOCHANGE</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD DOC-TYPE OF APMISUMI</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD ORD-NUM OF APMISUMI</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">FIELD ORD-PART OF APMISUMI</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">PROCEDURE FIND</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> BEGIN</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> while 3 = 3</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> begin</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> IF PATH = 1</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> THEN GET APMISUMI VIA APMISUMI-KEY</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> IF PATH = 2</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> THEN GET APMISUMI VIA DOC-CHAR</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> IF PATH = 3</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> THEN GET APMISUMI SEQUENTIAL</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> if not accessok ;if we fail to get the next primary record then exit on failed condition</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> then break</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> get xpart optional ;we have a primary record. do we find a matching record (same DOC-CHAR and GM-PART=12844161)?</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> if newrecord of xpart</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> then break
</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> end</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> end</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;"> END</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi; color: red;">BUILD</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;">The FIND procedure is couched in an ‘infinite loop’</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;">You exit the loop when the primary find fails or</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;">when the primary find succeeds and the [bad_part] find fails</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;">in the case where the primary find succeeds and the [bad_part] find also succeeds then it simply loops on the 3=3 condition.</span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 10pt; font-family: r_ansi;"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p>
<p class="ecxecxMsoNormal"><span style="font-size: 11pt; font-family: 'Calibri','sans-serif'; color: rgb(31, 73, 125);"> </span><span style="font-size: 10pt; font-family: 'Verdana','sans-serif';"></span></p></div></div>y in touch. <a href="http://go.microsoft.com/?linkid=9712959">Get Messenger on your phone now.</a> <br /><hr />Live connected with Messenger on your phone <a href='http://go.microsoft.com/?linkid=9712957' target='_new'>Learn more.</a></body>
</html>