>>LOCAL lcSQL >>PRIVATE pnCount >>pnCount = 10 && get top N records >>lcSQL = "begin ArticleGetMostPopular.ReturnCursor(nCount=>?pnCount); end;" >>lnRetVal = SQLEXEC(lnHandle, lcSQL, 'crsMostPopular')>>The Oracle package is:
>>CREATE OR REPLACE PACKAGE ArticleGetMostPopular AS >> Type RetCursor Is Ref Cursor; >> Procedure ReturnCursor( >> nCount IN number, >> pCursor OUT RetCursor); >>END; >>/ >>show error >>CREATE OR REPLACE PACKAGE BODY ArticleGetMostPopular AS >> Procedure ReturnCursor( >> nCount IN number, >> pCursor OUT RetCursor) is >> Begin >> open pCursor for >> select * FROM >> (SELECT Article.ID, COUNT(*) AS Count >> FROM Article, ArticleKeyPhrase >> WHERE ArticleKeyPhrase.ArticleID = Article.ID >> GROUP BY Article.ID >> ORDER BY Count DESC) >> where ROWNUM <= nCount; >> End; >>END; >>/ >>show error >>-- >>>>TIA!