Re: SQL UPDATE question

update qtemp/myfile

set clientName=:pgmClientName, secondfield=
case
when clientType='A' then :pgmSecondField
else secondfield
end
where clientType='B'


Proof:

CREATE TABLE QTEMP/MYFILE (CLIENTNAME CHAR (15 ), CLIENTTYPE CHAR

(1 ) NOT NULL WITH DEFAULT, SECONDFIELD CHAR (5 ) NOT NULL WITH
DEFAULT)

INSERT INTO QTEMP/MYFILE VALUES('ralph', 'A', 'duh')
INSERT INTO QTEMP/MYFILE VALUES('malph', 'B', 'one')
update qtemp/myfile

set clientName='pete', secondfield=
case
when clientType='A' then 'high'
else secondfield
end
where clientType='B'

update qtemp/myfile

set clientName='pete', secondfield=
case
when clientType='A' then 'high'
else secondfield
end
where clientType='A'

select * from qtemp/myfile

....+....1....+....2....+....3....+....4
CLIENTNAME CLIENTTYPE SECONDFIELD
pete A high
pete B one
******** End of data ********


Rob Berendt