从SELECT插入但更改一列？

心静如止水

想知道是否有一种方法可以将一行中的一行插入另一张表中，但一列除外？
/ \) E+ q9 d' E  J. b. {对于有限的列数，这当然很容易，但是当列数增加时，列出所有列会很麻烦。
我在想以下方面的事情：
Insert into table
. h) }/ K+ Q! @; R7 \( a  ~$ Kselect * replace col1 with current date
7 g" E, A5 e1 X' T2 Rfrom table
where yada yada yada
" P; n/ @, w( ~$ \* A' [一种可能是复制一行并执行和更新，但是由于索引或其他原因，这不是一种选择。
: U" r1 |1 F  |4 c+ f. @有任何想法吗？
! ]* Y6 M; }$ k' m编辑：这是DB2 v10，但问题出在纯出于好奇。只是想知道是否有可能…
' Q- Q6 r% z/ v5 R/ `               
解决方案:
2 z0 V: Y4 R& d! j! H- A$ Y9 g: T& Z               

4 X& f6 I; X, H
                使用Oracle
; x- M, \7 |, i5 Q9 J5 jDECLARE
CURSOR CUR_D IS
7 g" }7 n, {5 y1 e5 F! j  SELECT *
  FROM TABLE
  WHERE id = some id;
; j+ }8 i+ G' V" d" u6 IROW_D CUR_D%ROWTYPE;
BEGIN
+ J5 _$ ?# P( Z  OPEN CUR_D;
  FETCH CUR_D INTO ROW_D;
  CLOSE CUR_D;
  ROW_D.column := 'some data';
  INSERT INTO some table
  VALUES ROW_D;
END;
/