Re: Trigger pgm to increment seq# in file

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