RE: Can I replace RPG with SQL?

Thanks, Charles, it just needed 'and ClientVersion = 0' at the end of the update.
Your first solution was too easy, nearly fooled me!

This one, I don't think I'd ever have found myself. I couldn't see how you were going to get the max versionNo without using group by.
Do you think if I forced myself to take a little longer each time to construct an sql solution instead of an rpg one, it might sink in?

-----Message d'origine-----
De : midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Charles Wilt
Envoyé : jeudi 16 septembre 2010 18:53
À : Midrange Systems Technical Discussion
Objet : 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.