PB调用带参存储过程:请教

存储过程：

CREATE procedure update_yangjie
@test_code   char(50)
as
begin
update 商品基础信息表  set  商品名称='happy'  where  商品编号= @test_code
end
GO

PB 调用过程：

declare pr_get procedure for update_yangjie
@test_code="SP100004"
using sqlca;
execute pr_get;

commit;
MESSAGEBOX("提示","存储过程调用成功!")

close pr_get;