＞長くなってしまったので、スクリプトは別に書きます。

ということで、スクリプトです。

//検索用データストア宣言
DataStore lds_search

//各種カウント等用変数宣言
long ll_rtn, ll_pos
string ls_sql0
string ls_sql1
string ls_sql2

//検索用データストア生成
// dw_repには『SELECT * FROM \"MAIN\" ORDER BY \"NO\";』のみが定義されてます
lds_search = CREATE DataStore
lds_search.DataObject = \"dw_rep\"
lds_search.SetTransObject( SQLCA )

//ＳＱＬ文取得
ls_sql0 = lds_search.GetSQLSelect()

//ORDER BYの前後でＳＱＬを分離
ll_pos = Pos( ls_sql0, \"ORDER\", 1 )
ls_sql1 = Mid( ls_sql0, 1, ll_pos - 1 )
ls_sql2 = Mid( ls_sql0, ll_pos )

//WHERE句を挿入
ls_sql0  = ls_sql1
ls_sql0 += \" WHERE ~\"MAIN~\".~\"UKE_DATE~\" between \"
ls_sql0 += \"\'\" + em_dt_from.text + \"\' and \'\" + em_dt_to.text + \"\' \"
ls_sql0 += ls_sql2

//ＳＱＬ文をセット
IF lds_search.SetSQLSelect( ls_sql0 ) < 0 THEN
Messagebox( \"Error\", \"検索ＳＱＬの設定に失敗しました。\", StopSign! )
RETURN
END IF

//検索用データストアの検索
IF lds_search.Retrieve() < 0 THEN ll_rtn --
IF ll_rtn < 0 THEN
MessageBox( \"Error\", \"レコード抽出に失敗しました。\", StopSign! )
RETURN
END IF

//検索用データストアの破棄
DESTROY lds_search