はじめまして。
以下の様にできますよ。（力技ですが．．．）まだまだ不備な点はありますが、前に一回同じコメント
をして更新特性の設定の個所でご指摘を頂いて
なおしてません。そのコメントを探したのですが見つからなかったのでそのまま書きます。
ちなみにdw_2は SYS.\"USER_TAB_COLUMNS\"を使用しています。
dw_3を作成しています。

//SQL文を作成（ls_fromはテーブル名称）
ls_sql = \"Select * From \" + ls_from
//dw_3のSQL分を置き換える
presentation_str = \"style(type=grid)\"//グリッド形式に設定
dwsyntax_str = SQLCA.SyntaxFromSQL(ls_sql,  &
presentation_str, ERRORS)

IF Lenb(ERRORS) > 0 THEN
MessageBox(\"Caution\",  &
\"SyntaxFromSQL caused these errors: \" + ERRORS)
Close(w_4)
RETURN
END IF
dw_3.SetTransObject(SQLCA)
dw_3.Create( dwsyntax_str, ERRORS)

IF Len(ERRORS) > 0 THEN
MessageBox(\"Caution\",  &
\"Create cause these errors: \" + ERRORS)
Close(w_4)
RETURN
END IF
//???????????????????????????????データ変換処理
dw_3.SetTransObject(SQLCA)
ll_rcnt = dw_3.Retrieve()
//該当テーブルをアップデート可能にする
dw_3.Modify(\"DataWindow.Table.UpdateTable = \'\"+ ls_from +\"\'\")
dw_2.SetFilter(\"\")
dw_2.Filter()
ll_kcnt = dw_2.Retrieve(ls_from)
//該当テーブルの全カラムをアップデート可能にする
For ll_cn = 1 To ll_kcnt
ls_cname = dw_2.GetItemString(ll_cn,\"column_name\")
dw_3.Modify(ls_cname + \".Update = Yes\")
Next
//該当テーブルのnullableの項目にアップデートキーを設定する
dw_2.SetFilter( \"nullable = \'N\' \")
dw_2.Filter()
ll_kcnt2 = dw_2.RowCount()
For ll_k = 1 To ll_kcnt2
ls_k = dw_2.GetItemString(ll_k,\"column_name\")
dw_3.Modify(ls_k + \".KEY = YES\")
Next