<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'>
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><br> </div></body>
</html>