RE: Get Auto Increment Values After SQL Insert in the same command

Chuck;

Our DBA (Yes we have a DB2/400 DBA) is a slacker. :) This problem is still in his queue, but keeps getting pushed down since the work around is to not use the new 6.1 syntax. He promised to package it up and get a PMR submitted this week, if time permits. :)

Duane Christen

FYI: The restore to the production box did not change the SQL package library in the service program object to the library in which the service program was restored. E.g.. Saved from PRDOBJ, restored to MCOBJECT the SQL package library was still PRDOBJ.




--


Duane Christen
Senior Software Engineer
(319) 790-7162
Duane.Christen@xxxxxxxxxx

Visit PAETEC.COM


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Monday, July 26, 2010 2:23 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Get Auto Increment Values After SQL Insert in the same command

On 26-Jul-2010 08:35, Christen, Duane wrote:

Pre 6.1 you would use this sql after the insert:
Exec SQL
values IDENTITY_VAL_LOCAL() into :EVTRANDID;

With 6.1 you can use:
Exec Sql
Select messageId
Into :logId
From Final Table (
Insert-Statement);

We had a problem with this. Our CMS system (Turnover) does a
save/restore on the program to move it to production. During the
restore to production something is lost, and the code then fails.
As far as I know this has not been fixed.

What is the APAR that was opened after reporting that issue?
That could be beneficial to others who might be interested, to obtain a PTF when one becomes available.

Regards, Chuck
--
This is the RPG programming on the IBM i / System i (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.