求这个PB脚本如何写

求这个PB脚本怎么写？
SQL 语句是这样的

insert into xa_clr select * from v_ch where tjdate='2011-12-26'

其中tjdate的日期要求为当前日期的前2天。

请问在pB脚本中如何实现，在
connect using SQLCA;之后
多谢。

------解决方案--------------------
date ld_date

ld_date = RelativeDate(today(), -2) //当前日期前两天 ld_date = date('2011-12-26')

insert into xa_clr select * from v_ch where tjdate = :ld_date;

if sqlca.sqlcode = 0 then
commit using sqlca;
else
rollback using sqlca;
end if

------解决方案--------------------
string ssql
date ld_date
ld_date = RelativeDate(today(), -2) //当前日期前两天 ld_date = date('2011-12-26')
ssql="insert into xa_clr select * from v_ch where tjdate='"+string(ld_date,'yyyy-mm-dd')+"'"
EXECUTE IMMEDIATE :ssql;
if sqlca.sqlcode = 0 then
commit using sqlca;
else
//可以messagebox 一下
rollback using sqlca;
end if
------解决方案--------------------
select max(tjdate) into :tjdate_a from a;
select max(tjdate) into :tjdate_b from b;

if tjdate_a = tjdate_b then 
messagebox('提示','眼睛一闭一睁，一年又过去了！')
elseif tjdate_a > tjdate_b
insert into b select * from a where tjdate > tjdate_b;
elseif tjdate_a < tjdate_b
delete from b where tjdate > tjdate_a; //B表最大日期比A表的大。。。
end if