VFP中使用調用oracle的存儲並返回數值

vfp中使用sql-through技術調用oracle的存儲過程時，如果需要從過程或者函數返回值時，需要使用以下的方法：
1.
AAA=0
?sqlexec(fp,"call KEY_BARCODE('99a99a','03','L ') INTO ?@AAA")
*-------得到key_barcode函數的返回值AAA
2.
AAA=0
?sqlexec(fp,"call P_KEY_BARCODE('99a99a','03','L ',?@AAA)")
*-------得到key_barcode過程的返回值AAA