CREATE OR REPLACE PACKAGE PermitGetByID AS Type RetCursor Is Ref Cursor; Procedure ReturnCursor(pCursor OUT RetCursor, nID IN Permits.KeyID%Type); END; / show error CREATE OR REPLACE PACKAGE BODY PermitGetByID AS Procedure ReturnCursor(pCursor OUT RetCursor, nKeyID IN Permits.KeyID%Type) is Begin open pCursor for select * FROM Permits where KeyID = nKeyID; End; END; / show errorIn VFP, the syntax is:
lcSQL = "{call PermitGetByID.ReturnCursor(" + TRANSFORM(This.nKeyID) + ")}" lnRetVal = SQLExec(This.nHandle, lcSQL, 'crsPermit')Until we can figure something else out with respect to passing by reference to a SP that returns a cursor, this is approach I/we have to take.