Hi!

Small correction :)


h=SQLConnect("ORADSN","USERID","PWD") && Establish a connection
IF h > 0
WAIT WINDOW "Connection Successful" NOWAIT
*
* Execute the stored procedure
*
lcId = "123456" && Passed In Proc
ldDateReport = space(10) && Passed Out Proc
lnResult=SQLExec(h,"{Call SP_MYPROC((?lcId, ?@ldDateReport) }"
if lnResult <> -1
WAIT WINDOW "Execute Successful" NOWAIT
else
WAIT WINDOW "Execute Failed" NOWAIT
endif
=SQLDisconnect(h) && Terminate the connection
ELSE
WAIT WINDOW "Connection Failed"
ENDIF

Best Regards!

Yuri.