<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<br><br>Hi,<br> The only problem now is that when trying to delete a record in the screen the error "Record has been changed since you found it." appears, which now means that <br> the record/s cannot be deleted.<br><br><br><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling"><br>Subject: RE: updating relational file<br>Date: Wed, 22 Aug 2012 16:56:57 -0400<br><br>
<style><!--
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Tahoma;}
--></style>
<div dir="ltr">
Hi ken.langendock<br><br>Your idea worked with the NEED ALL etc however the<span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> "Leave the preupdate and update procedures out." didn't. So by including the UPDATE procedure<br>every thing went through perfectly. All four cluster records updated simultaneously. Thanks a million.<br></span><br> <br><div><div id="ecxSkyDrivePlaceholder"></div><hr id="ecxstopSpelling"><br><br><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:0cm;margin-left:0cm;font-size:12.0pt;font-family:"Times New Roman","serif";}
.ExternalClass span.ecxEmailStyle18
{font-family:"Calibri","sans-serif";color:#1F497D;}
.ExternalClass .ecxMsoChpDefault
{font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;}
.ExternalClass div.ecxWordSection1
{page:WordSection1;}
--></style><div class="ecxWordSection1"><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D">Do you always want to write out the oracle record?</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D">If you do, put a NEED ALL on the file statement.</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D">Your preupdate is initializing the fields but not on a FOR loop, so only the first record is being altered and written.</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D">Try this instead</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New"">SCREEN MYSCREEN RECEIVING FILE1 ON LINE 10 FOR 14 LINES<br><br>FILE FILE1 MASTER ; INDEXED<br>FILE FILE2 OCCURS 8 ;INDEXED<br>FILE FILE3 IN MY_ORACLE &</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> ALIAS MY_OR SECONDARY &</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> NOITEMS &</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> OCCURS WITH FILE2 &</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> NEED ALL</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> ACCESS VIA EMPLOYER,DATE &<br> USING EMPLOYER OF FILE2,DATE OF FILE2 <br><br></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> ITEM EMPLOYER OF MY_OR SECONDARY INITIAL EMPLOYER OF FILE2 FIXED</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Courier New""> ITEM DATE OF MY_OR SECONDARY INITIAL DATE OF FILE2 <br><br></span><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">Leave the preupdate and update procedures out.<br><br></span><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D"></span></p><div><div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="ecxMsoNormal"><b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">From:</span></b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com [mailto:powerh-l-bounces+ken.langendock=rogers.com@lists.sowder.com] <b>On Behalf Of </b>GREG GREG<br><b>Sent:</b> Wednesday, August 22, 2012 2:29 PM<br><b>To:</b> powerh-l@lists.sowder.com<br><b>Subject:</b> [Bulk] Re updating relational file</span></p></div></div><p class="ecxMsoNormal"> </p><div><p class="ecxMsoNormal" style="margin-bottom:12.0pt"><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">Hi,<br><br> I am trying to update a relational file via an Indexed file , but only the first record is being updated in the relational file if two or more records are updated at once.<br> I have to updare the screen twice for the second record to be updated. Probably because the PUT verb updates one record at a time The Indexed file <br> contains an OCCURS 10 . Can anyone assists me. Thanks in advance.<br><br>eg: <br><br>SCREEN MYSCREEN RECEIVING FILE1 ON LINE 10 FOR 14 LINES<br><br>FILE FILE1 MASTER ; INDEXED<br>FILE FILE2 OCCURS 8 ;INDEXED<br>FILE FILE3 IN MY_ORACLE ALIAS MY_OR SECONDARY NOITEMS OCCURS WITH FILE2 ;MY_OR is the relational file<br> ACCESS VIA EMPLOYER,DATE &<br> USING EMPLOYER OF FILE2,DATE OF FILE2 <br><br><br><br>PROCEDURE PREUPDATE<br> BEGIN<br> LET EMPLOYER OF MY_OR = EMPLOYER OF FILE2<br> LET DATE OF MY_OR = DATE OF FILE2<br><br>END<br><br><br>PROCEDURE UPDATE<br> BEGIN<br> Put FILE1<br> For FILE2<br> Begin<br> Put FILE2<br> Put FILE1<br> PUT MY_OR <br> End<br> End<br><br></span></p></div></div><br>--
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.sowder.com
Subscribe: 'subscribe' in message body to powerh-l-request@lists.sowder.com
Unsubscribe: 'unsubscribe <password>' in message body to powerh-l-request@lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list archive at Google.</div> </div></div> </div></body>
</html>