<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 10 (filtered)">
<style>
<!--
/* 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;}
span.EmailStyle17
{font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>I have an old program with occurs. It wasn’t reading
existing suppla so when the screen comes up for entry, abscode is always
displayed blank.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Date Dow absCode</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>07 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/03/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Mon </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>08 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/04/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Tue </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>09 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/05/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'> Wed</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>The old code for update is as follows; it works but
if a user mistakenly keys on a line record that exists, they get duplicate
message and nothing updates in that session.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Procedure preupdate</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> For suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
If abscode of suppla = “ ”</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Then begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Delete suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Procedure update</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> For suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Lock suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
If abscode of suppla <> “ “</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Then begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
(Bunch of let statements) </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Let ….fields of suppla = xfields </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Put suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Unlock suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>So I added an alias file of suppla, and displayed if
any absent records existed.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Date Dow absCode</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>07 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/03/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Mon </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>08 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/04/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Tue A </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>09 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/05/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'> Wed</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>so the user would know what dates existed and only
key in new.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Date Dow absCode</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>07 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/03/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Mon </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>08 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/04/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Tue A </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>09 </span></font><font
face="Courier New"><span style='font-family:"Courier New"'>09/05/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>
Wed A</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>I left the preupdate alone , I had previously tried
doing extra checks for existing absent records , but got “the limit
for backup movements (/) has been reached” which I looked up and I am
deleting a deleted record or something.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>I changed the update to </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>Procedure update</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> For suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Get xsupp(alias
of suppla) optional</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> If not accessok
(meaning new record on this screen)</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Then begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Lock suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
If abscode of suppla <> “ “</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Then begin</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Let statements</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>
Put suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> Unlock
suppla</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> End</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>When updated , the new </span></font><font face="Courier New"><span style='font-family:"Courier New"'>9/5/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'> record gets added
but I get an error on existing records as in </span></font><font face="Courier New"><span style='font-family:"Courier New"'>9/4/12</span></font><font
face="Courier New"><span style='font-family:"Courier New"'>.</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>*d* not all changed records have been updated</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>I thought “if not accessok” would only run
the lock if the record was new this session and so not found on the alias file</span></font></p>
<p class=MsoNormal><font size=3 face="Courier New"><span style='font-size:12.0pt;
font-family:"Courier New"'>I want to only run the lock for new items added this
session.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Helen wellcome</span></font></p>
</div>
</body>
</html>