Re: Update failing on partial key

[Michael Schutte <mschutte369@xxxxxxxxx>]

In debug, what value is in svline on both the first and second record?

You don't show where it's getting populated. We can only guess that it's
value is 00 on both records, thus duplicate record error on the update.

On Tue, Mar 8, 2016 at 5:44 PM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

> I saw in the debug that it was reading the order lines. So the partial key
> is working.
> But I want to update the order lines with the passed warehouse. Here in
> Update orppl the
> first read is line number happens to be 00 but the second is 20
> but at update it failed on duplicate record. So it seems that its trying to
> update 00 line
> since the pol key has only the order#. is this correct what I am saying? If
> so, I need to update from another klist?
>
> c     pol           setll     srbpol
> c                   if        %equal
> c                   dou       %eof(srbpol)
> c     pol           reade     srbpol
> c     ohords        iflt      30
> c                   eval      ohsrom = svsrom
> c                   eval      ohsrom = whs
> c                   eval      oloqty = svqty
> c                   eval      olline = svline
> c                   update    orppl
> c*now take this line item and qty and update warehouse balances
> c                   eval      item = olprdc
> c                   exsr      step2
> c                   endif
> c                   enddo
> c                   endif
> c*
> c                   endsr
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.