Re: Embedded SQL Delete statement is not work

[Niels Liisberg <nli@xxxxxxxxxxxxxxxxx>]

A work around could be to produce the list of rows you need to delete with
a "select"  and then delete by "in";

delete from xxx
where rrn(xxx) in (
  Select rrn(xxx)
  from xxx
  where alxxx = :alxxx
  fetch first :numberOfRows only)
)

On Mon, Jan 4, 2021 at 2:38 PM Timothy Feldmeier <Timothy.Feldmeier@xxxxxxxx>
wrote:

> What is unique from what I am trying to do --- after reading the cursor, I
> want to delete a specified number  of records with the key coming from the
> cursor.
>
>
>
> Read Cursor................................
> If SQLCOD = 0..............
>
> EXEC SQL
> DELETE TIMSFILE
> WHERE ALXXX = :ALXXX
> FETCH FIRST :numberOfRows only;
>
> Enddo.......
>
>
>
>
>
>
> The information transmitted is intended only for the person or entity to
> which it is addressed and may contain proprietary, business-confidential
> and/or privileged material. If you are not the intended recipient of this
> message you are hereby notified that any use, review, retransmission,
> dissemination, distribution, reproduction or any action taken in reliance
> upon this message is prohibited. If you received this in error, please
> contact the sender and delete the material from any computer.
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com