怎样在pb中得到存储过程的值

pb5中按照手册上的常规调用方法是取不到sql65的sp的值的，可参考如下例子:

CREATE PROCEDURE gtday @gtoday datetime output AS

Select @gtoday

select GetDate()

Return 10

ld_now = datetime ( today(),now())

declare tmp dynamic procedure for sqlsa;

prepare sqlsa from "execute gtday @gtoday=?"; // 注意一定要加execute

execute dynamic tmp using :ld_now;

do while sqlca.sqlcode = 0

fetch tmp into :ld;

messagebox ( "daskfl;k",string ( ld ) )

loop

close tmp;