* VFP >>lnRetval = 0 >>lcStr = "" >>lnResult = SQLEXEC(lnConn ,[{?@lnRetval=CALL Proc_test(1,2, ?@lcStr)}], "crsTemp" ) >>IF lnResult < 0 >> * Use AERROR() function to get ODBC error info >> * Process error >>ENDIF >> >>? lnRetval, lcStr, crsTemp.col1, crsTemp.col2 >>-------------------------------------------------------------------- >>-- SQL Server >>if exists (select * from dbo.sysobjects >> where id = object_id(N'[dbo].[proc_test]') ) >>drop procedure [dbo].[proc_test] >>GO >>CREATE PROCEDURE proc_test >> @p1 int, >> @p2 int, >> @c3 varchar(36) OUTPUT >>AS >> -- Output parameter >> SET @c3 = CAST(getdate() AS varchar(36)) >> -- Recordset >> SELECT 'proc_test completed' AS col1, getdate() AS col2 >>-- Return value >>RETURN 123 >>GO >>>>