Re: Trigger pgm to increment seq# in file

[Steve Jones <sjones@xxxxxxxxxxxxxxx>]

Thanks for your help

On Thu, May 4, 2017 at 1:20 PM, Rob Berendt <rob@xxxxxxxxx> wrote:

> This works.  Of course you would remove the hard coding with parameter
> markers in your application
>
> insert into ordline
> values(
> 2, /* order number */
> (select ifnull(max(orderline), 0) + 1 from ordline where ordernumber = 2),
> /* order line */
> 7, /* item number */
> 200 /* qty */
> );
>
> So it would look something like
> stmt = "insert into ordline values(?, " +
> "(select ifnull(max(orderline), 0) + 1 from ordline where ordernumber = "
> +
> "?), ?, ?)";
>
> execsql prepare insertstatement using :stmt;
> ...
> execsql execute insertstatement using :Ordernumber, :Ordernumber,
> :itemnumber, :orderquantity;
> and, yes, I did mean to say ordernumber twice.
>
>
>
> Rob Berendt
> --
> IBM Certified System Administrator - IBM i 6.1
> Group Dekko
> Dept 1600
> Mail to:  2505 Dekko Drive
>           Garrett, IN 46738
> Ship to:  Dock 108
>           6928N 400E
>           Kendallville, IN 46755
> http://www.dekko.com
>
> --
> 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.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD