[RBG7-L] - Re: Declare Cursor question

[A. Razzak Memon]

At 01:31 PM 5/9/2005, Deb Roepken wrote:

Can someone tell me what I'm doing wrong here?

IF .fnegcom = 'T' THEN
   SET VAR negcomis CURR
   SET VAR negshrs  INT
   DECLARE CURSOR c1 SCROLL CURSOR FOR SELECT SHARES, COMIS FROM EQUIT +
      WHERE CURRENT OF c1
   OPEN CURSOR c1
   FETCH LAST FROM EQUIT INTO negshrs INDICATOR vinegshrs, +
      tmrate INDICATOR vitmrate
      IF SQLCODE = 0 THEN
         IF tmrate IS NOT NULL THEN
            SET VAR negcomis = .tmrate * .negshrs
         ENDIF
      ENDIF
ENDIF
CLOSE c1
DROP CURSOR c1

Deb,

Here's the simple syntax:

Example:

CLEAR VAR vVar1,vVar2,vVar3,iv%
SET VAR vVar1 TEXT = NULL
SET VAR vVar2 INTEGER = NULL
SET VAR vVar3 CURRENCY = NULL
SET ERROR MESSAGE 705 OFF
DROP CURSOR c1
SET ERROR MESSAGE 705 ON
DECLARE c1 CURSOR FOR SELECT column1, column2,column3 +
FROM [tablename] +
WHERE [cause]
OPEN c1
FETCH c1 INTO +
  vVar1 INDIC ivVar1, +
  vVar2 INDIC ivVar2, +
  vVar3 INDIC ivVar3

WHILE SQLCODE <> 100 THEN
  -- Do what you have to do
FETCH c1 INTO +
  vVar1 INDIC ivVar1, +
  vVar2 INDIC ivVar2, +
  vVar3 INDIC ivVar3
ENDWHILE
DROP CURSOR c1
CLEAR VAR vVar1,vVar2,vVar3,iv%
RETURN

Hope that helps!

Very Best R:egards,

Razzak.