Re: Can I replace RPG with SQL?

Good catch...guess I shouldn't answre posts quickly before leaving for
lunch! :)

how about:
update ClientTable A
set ClientVersion = (select max(CilentVersion) + 1
from ClientTable B
where a.clientID = b.clientID)
where clientID in (select clientID from NewClientTable);

insert into ClientTable (ClientID, ClientName, ClientVersion)
(select ClientID, ClientName, 0
from NewClientTable);

Charles

On Thu, Sep 16, 2010 at 11:39 AM, Morgan, Paul <Paul.Morgan@xxxxxxxxxxx>
wrote:

Charles,

He wants to set ClientVersion to 1 + Max(Clientversion) when

ClientVersion = 0 and the ClientID is in the transaction table. Odd but
that's what he wants. Your Update bumps up the client version in all the
records.

Paul

Principal Programmer Analyst
IS Supply Chain/Replenishment


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:

midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt

Sent: Thursday, September 16, 2010 11:28 AM
To: Midrange Systems Technical Discussion
Subject: Re: Can I replace RPG with SQL?

Assuming ClientID is unique in both tables....

update ClientTable
set ClientVersion = ClientVersion + 1
where clientID in (select clientID from NewClientTable);

insert into ClientTable (ClientID, ClientName, ClientVersion)
(select ClientID, ClientName, 0
from NewClientTable);

HTH,
Charles


On Thu, Sep 16, 2010 at 9:44 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx>

wrote:

I don't think this is easy enough to make it worthwile with sql, but,

maybe.....

Here's my client file that I want to update :

ClientId ClientName ClientVersion
15 Bigs 0


I receive a file containing clientId and the new name of the client, eg,

clientId 15 becomes 'Smith'. But I can't just update the client file from
this work file. I need to archive the original name, so I have this kind of
representation after the update :

ClientId ClientName ClientVersion
15 Smith 0
15 Bigs 1

There's a timestamp field among the other fields. Version 0 is always

updated to n+1 and a new line is written to the file. So, in the example,
I've updated the line Bigs and I've written the line Smith.

So, version 0 is the current version and 1 is the old one. If I change

now to 'Eggs', I want to see :

ClientId ClientName ClientVersion
15 Eggs 0
15 Bigs 1
15 Smith 2



I ask because I get this request now and again, for a few thousand

clients at a time. I'm having to use an RPG to write to the client file, but
I always end up using SQL to prepare a work file for that RPG.

Thanks.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.