<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:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[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 namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@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-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=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>Karen<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>Gavin is correct. The LOOKUP NOTON will check the existing
data in the table as well as the data on the current screen. I have found this
to work only when the value being checked is a unique key. <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>I use the technique I suggested earlier when the value to be
checked must be unique within more complicated constraints. For example, I have
a system with a multipurpose codes table. It has two keys: table_id and table_key.
The table_id is the same for all rows in a given table but there are many such logical
tables in the physical data base table. The table_key must be unique within the
table_id but it may repeat many times in the physical table with unique values
for table_id. For example, the payment terms table (table_id “TERM”)
may have an entry with table_key “1” and the order types table (table_id
“OTYP”) may also have an entry with table_key “1”. The
Powerhouse dictionary has a record for each table and uses the SELECT clause on
table_id. The LOOKUP NOTON construct does not work in this case.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>The screen which maintains the table entries must ensure
that the table_key is unique within the table_id. The code I use to do this
follows.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>Hope this helps,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'>JWP<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><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'>SCREEN MMS012.MMPE &<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'> ACTIVITIES ENTRY,FIND,CHANGE
&<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'> ON LINE 25 FOR 23 LINES<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'><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'>FILE ORDER-TYPES PRIMARY OCCURS
18<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'> ACCESS VIA TBL-ID USING "OTYP"
; added to solve bug in 8.19<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'><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'>FILE ORDER-TYPES REFERENCE ALIAS
ORDER-TYPES-2<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'> SELECT IF TBL-ID = "OTYP"<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'><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'>USE SYSTITLE.MMS NOL NOD<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'>TITLE "MMS012" AT 2,1<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'>TITLE "Order Types Table"
CENTRED AT 2,40<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'><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'>SKIP TO 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'>TITLE "Code" AT ,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'>TITLE "Description" AT ,9<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'><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'>ALIGN (1,,4) (,,9)<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'>CLUSTER OCCURS WITH ORDER-TYPES<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'>FIELD ORDER-TYPE OF ORDER-TYPES
REQUIRED NOCHANGE<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'>FIELD DESCRIPTION OF ORDER-TYPES
REQUIRED<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'><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'>PROCEDURE EDIT ORDER-TYPE<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<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'> FOR ORDER-TYPES<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<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'> IF OLDVALUE(ORDER-TYPE OF
ORDER-TYPES) NE "" AND &<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'> OLDVALUE(ORDER-TYPE OF
ORDER-TYPES) = FIELDTEXT<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'> THEN ERROR 001 ; value
already on screen<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<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'> GET ORDER-TYPES-2 &<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'> VIA TBL-KEY USING ORDER-TYPE OF
ORDER-TYPES OPT<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'> IF ACCESSOK<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'> THEN ERROR 002 ; value already
on file<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<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'><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'>BUILD<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=3 face=Arial><span style='font-size:12.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><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>
<p class=MsoNormal><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>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center tabindex=-1>
</span></font></div>
<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'> Karen Barrett
[mailto:kbarrett00@hotmail.com] <br>
<b><span style='font-weight:bold'>Sent:</span></b> Monday, November 22, 2010
10:50 AM<br>
<b><span style='font-weight:bold'>To:</span></b> Pickering, John (NORBORD);
PowerhouseList Post<br>
<b><span style='font-weight:bold'>Subject:</span></b> RE: Checking records
during Append</span></font><o:p></o:p></p>
</div>
<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=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>Thank you John, a code example would be helpful.<br>
<o:p></o:p></span></font></p>
<div class=MsoNormal align=center style='text-align:center'><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'>
<hr size=2 width="100%" align=center id=stopSpelling>
</span></font></div>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'>Subject: Re: Checking records
during Append<br>
Date: Sat, 20 Nov 2010 22:10:16 -0500<br>
From: John.Pickering@norbord.com<br>
To: kbarrett00@hotmail.com<o:p></o:p></span></font></p>
<div>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>I'd send you a code sample if I wasn't in
a car half way between <st1:City w:st="on">Montreal</st1:City> and <st1:City
w:st="on"><st1:place w:st="on">Toronto</st1:place></st1:City>. Ask me on Monday
if you would still like an example. <br>
<br>
JWP</span></font><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p> </o:p></span></font></p>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'>
<hr size=2 width="100%" align=center>
</span></font></div>
<p class=MsoNormal style='margin-bottom:12.0pt'><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'>: Karen
Barrett <kbarrett00@hotmail.com> <br>
<b><span style='font-weight:bold'>To</span></b>: Pickering, John (NORBORD);
PowerhouseList Post <powerh-l@lists.sowder.com> <br>
<b><span style='font-weight:bold'>Sent</span></b>: Sat Nov 20 21:35:50 2010<br>
<b><span style='font-weight:bold'>Subject</span></b>: RE: Checking records
during Append <o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>Hi John,<br>
<br>
So in the edit I first check the stored records, then loop through
whatever is displayed. Thanks!!!<br>
Hey, I passed up turkey bingo to work tonight :-)<br>
<br>
Karen<br>
<o:p></o:p></span></font></p>
<div class=MsoNormal align=center style='text-align:center'><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'>
<hr size=2 width="100%" align=center id=ecxstopSpelling>
</span></font></div>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'>Subject: Re: Checking records
during Append<br>
Date: Sat, 20 Nov 2010 21:15:42 -0500<br>
From: John.Pickering@norbord.com<br>
To: kbarrett00@hotmail.com; powerh-l@lists.sowder.com<o:p></o:p></span></font></p>
<div>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'>You will need to loop through the existing
values on the screen in the EDIT PROCEDURE comparing FIELDVALUE with the data
item of the other occurrences. You will need to check OCCURRENCE to avoid
comparing FIELDVALUE with the data item in its own occurrence.<br>
<br>
And why am I answering this on a Saturday evening? :-)<br>
<br>
JWP </span></font><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'><o:p> </o:p></span></font></p>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'>
<hr size=2 width="100%" align=center>
</span></font></div>
<p class=MsoNormal style='margin-bottom:12.0pt'><font size=2 face=Tahoma><span
style='font-size:10.0pt;font-family:Tahoma'><br>
<b><span style='font-weight:bold'>To</span></b>: PowerhouseList Post
<powerh-l@lists.sowder.com> <br>
<b><span style='font-weight:bold'>Sent</span></b>: Sat Nov 20 21:06:21 2010<br>
<b><span style='font-weight:bold'>Subject</span></b>: Checking records during
Append <o:p></o:p></span></font></p>
</div>
<p class=MsoNormal><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma'>Does anyone remember what the trick is to checking between
records entered (occurs 10) during the Append process?<br>
<br>
Alternately, is there a way to push update stay from inside the Append? <br>
<br>
Old record xx yy zz 11 22<br>
Old record zz rr 33 44 77<br>
New rec zz qq 33 44 66 ;my edits work fine here,
checking against the put records<br>
New rec zz qq 33 99 66 ; Here, the edits do not work because
I am mid-append, data not yet stored. The value 33 is not allowed for the 2nd
of paired <br>
; records but the data is not saved yet.<br>
<br>
Thanks for any tips,<br>
<br>
Karen Barrett<o:p></o:p></span></font></p>
</div>
</body>
</html>