2007-04-02 16:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/contrib/htmllib/counter.prg * harbour/contrib/htmllib/htmbrows.prg * harbour/contrib/htmllib/jwindow.prg * harbour/contrib/htmllib/ocgi.prg * harbour/contrib/htmllib/oedit.prg * harbour/contrib/htmllib/ofile.prg * harbour/contrib/htmllib/ohtm.prg * harbour/contrib/htmllib/oini.prg * harbour/contrib/libnf/aading.prg * harbour/contrib/libnf/aredit.prg * harbour/contrib/libnf/clrsel.prg * harbour/contrib/libnf/dispmsg.prg * harbour/contrib/libnf/eltime.prg * harbour/contrib/libnf/floptst.prg * harbour/contrib/libnf/menu1.prg * harbour/contrib/libnf/pegs.prg * harbour/contrib/libnf/popadder.prg * harbour/contrib/libnf/savesets.prg * harbour/contrib/libnf/tbwhile.prg * harbour/contrib/libnf/xbox.prg * harbour/contrib/odbc/todbc.prg * cleaned unused variable warnings
2007-04-02 14:40:49 +00:00
parent 33d5ac24ac
commit 25a8855970
22 changed files with 71 additions and 41 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,30 @@
   2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2007-04-02 16:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/htmllib/counter.prg
+  * harbour/contrib/htmllib/htmbrows.prg
+  * harbour/contrib/htmllib/jwindow.prg
+  * harbour/contrib/htmllib/ocgi.prg
+  * harbour/contrib/htmllib/oedit.prg
+  * harbour/contrib/htmllib/ofile.prg
+  * harbour/contrib/htmllib/ohtm.prg
+  * harbour/contrib/htmllib/oini.prg
+  * harbour/contrib/libnf/aading.prg
+  * harbour/contrib/libnf/aredit.prg
+  * harbour/contrib/libnf/clrsel.prg
+  * harbour/contrib/libnf/dispmsg.prg
+  * harbour/contrib/libnf/eltime.prg
+  * harbour/contrib/libnf/floptst.prg
+  * harbour/contrib/libnf/menu1.prg
+  * harbour/contrib/libnf/pegs.prg
+  * harbour/contrib/libnf/popadder.prg
+  * harbour/contrib/libnf/savesets.prg
+  * harbour/contrib/libnf/tbwhile.prg
+  * harbour/contrib/libnf/xbox.prg
+  * harbour/contrib/odbc/todbc.prg
+    * cleaned unused variable warnings
+
 2007-04-01 16:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * harbour/source/rtl/tgetlist.prg
     ! Fixed bug #1692268. The fix simply removes two strange lines 
--- a/harbour/contrib/htmllib/counter.prg
+++ b/harbour/contrib/htmllib/counter.prg
@@ -7,7 +7,7 @@
 PROC CounterCGI()
 LOCAL lIsPost := .F.
 LOCAL cCounterDat := "counter.dat"
-LOCAL oFrm, oEd, oSub
+LOCAL oFrm

 LOCAL oHtm, oCgi

--- a/harbour/contrib/htmllib/htmbrows.prg
+++ b/harbour/contrib/htmllib/htmbrows.prg
@@ -74,6 +74,9 @@ LOCAL i, n    := 0
 LOCAL aFlds   := dbStruct()
 LOCAL cAlign

+HB_SYMBOL_UNUSED( cTarget )
+HB_SYMBOL_UNUSED( cAlias )
+
 DEFAULT cAction   := "confirm('RECORD: '+this.name+'\nPlace your action here !!!')"
 DEFAULT lUseLinks := .F.

--- a/harbour/contrib/htmllib/jwindow.prg
+++ b/harbour/contrib/htmllib/jwindow.prg
@@ -83,8 +83,8 @@ METHOD setOnLoad( c )     INLINE ::onLoad := c
 METHOD setOnUnLoad( c )   INLINE ::onUnLoad := c


-METHOD Alert( c )         INLINE ::QOut( "alert('c')" )
-METHOD confirm(c)         INLINE ::QOut( "confirm('c')" )
+METHOD Alert( c )         INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "alert('c')" )
+METHOD confirm( c )       INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "confirm('c')" )
 METHOD SetSize(x,y,h,w)
 METHOD Write( c )
 METHOD lineBreak()        INLINE ::QOut( "<BR>" )
--- a/harbour/contrib/htmllib/ocgi.prg
+++ b/harbour/contrib/htmllib/ocgi.prg
@@ -99,7 +99,7 @@ ENDCLASS
 */

 METHOD New( cInBuffer ) Class oCgi
-LOCAL cBuff, i, nBuff
+LOCAL i
 LOCAL aTemp := {}
 LOCAL aVar  := {}

@@ -176,11 +176,9 @@ RETURN ::ToObject()  //Self
 */

 METHOD ToObject() CLAss ocgi
-local i, bBlock
-local cFldName
+local i
 LOCAL nScope:=1
-LOCAL aDb, oDb, hNewClass, oNew, n
-LOCAL hNew
+LOCAL aDb, oNew
 STATIC sn := 0

 // --> create new oObject class from this one...
--- a/harbour/contrib/htmllib/oedit.prg
+++ b/harbour/contrib/htmllib/oedit.prg
@@ -172,6 +172,8 @@ ENDCLASS
 method Put(lPut)   CLASS HControl 
 LOCAL i, cStr := ""

+HB_SYMBOL_UNUSED( lPut )
+
 ::nH   := pageHandle()
 ::form := currentForm()

@@ -468,6 +470,8 @@ ENDCLASS

 method New( cName, cAction, cMethod, lFrame, cCaption, nWidth ) CLASS Form 

+HB_SYMBOL_UNUSED( cAction )
+
 DEFAULT cName    := "Form1"
 DEFAULT cMethod  := "POST"
 DEFAULT lFrame   := .F.
--- a/harbour/contrib/htmllib/ofile.prg
+++ b/harbour/contrib/htmllib/ofile.prg
@@ -198,7 +198,6 @@ RETURN( nLength )
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 METHOD _Read( nSize, cBuff ) CLASS FileBase 
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-LOCAL nBytesRead

 DEFAULT nSize := 1024
 DEFAULT cBuff := SPACE(nSize)
@@ -219,7 +218,7 @@ RETURN( cBuff ) //nBytesRead )
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 METHOD ReadAhead( nSize, cBuff ) CLASS FileBase 
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-LOCAL nBytesRead, nCurrent
+LOCAL nCurrent

 DEFAULT nSize := 1024
 DEFAULT cBuff := SPACE(nSize)
@@ -273,7 +272,7 @@ RETURN ::Buffer
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 METHOD ReadByte() CLASS FileBase 
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-LOCAL nRet, nBytes
+LOCAL nBytes
 LOCAL cBuff := SPACE( 1 )

 nBytes := FRead( ::Handle, @cBuff, 1 )
@@ -289,7 +288,7 @@ RETURN( IF( nBytes > 0, ASC(cBuff), -1 ) )
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 METHOD ReadInt() CLASS FileBase 
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-LOCAL nRet, nBytes
+LOCAL nBytes
 LOCAL cBuff := SPACE( 2 )

 nBytes := FRead( ::Handle, @cBuff, 2 )
@@ -305,7 +304,7 @@ RETURN( IF( nBytes > 0, BIN2I(cBuff), -1 )  )
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
 METHOD ReadLong() CLASS FileBase 
 //ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-LOCAL nRet, nBytes
+LOCAL nBytes
 LOCAL cBuff := SPACE( 4 )

 nBytes := FRead( ::Handle, @cBuff, 4 )
--- a/harbour/contrib/htmllib/ohtm.prg
+++ b/harbour/contrib/htmllib/ohtm.prg
@@ -301,6 +301,10 @@ METHOD New( cFile, cTitle, cLinkTitle, cCharSet, aScriptSRC,;

 LOCAL i

+HB_SYMBOL_UNUSED( cLinkClr )
+HB_SYMBOL_UNUSED( cVLinkClr )
+HB_SYMBOL_UNUSED( cALinkClr )
+
 DEFAULT cFile      := "file1.htm"
 DEFAULT cTitle     := "test HTML page"
 DEFAULT cLinkTitle := cTitle
@@ -447,11 +451,10 @@ METHOD CGINew( cTitle, cLinkTitle, cCharSet, aScriptSRC,;
               cLinkClr, cVLinkClr, cALinkClr, ;
               cStyle, aImages, aServerSrc, ;
               cBaseURL, cBaseTarget,;
-               nRefresh, cRefreshURL,cStyleScr ,lNocache) CLASS Html
+               nRefresh, cRefreshURL, cStyleScr ,lNocache) CLASS Html

 LOCAL i

-
 //DEFAULT lAuthenticate := .F.
 DEFAULT cTitle        := "CGI HTML page"
 DEFAULT cLinkTitle    := cTitle
@@ -1631,6 +1634,7 @@ RETURN Self
 */

 METHOD FormImage( cText, name, File ) CLASS Html
+HB_SYMBOL_UNUSED( cText )
 FWrite( ::nH, '<INPUT TYPE="IMAGE" NAME="'+name+'" SRC="'+file+'">'+CRLF() )
 RETURN Self

--- a/harbour/contrib/htmllib/oini.prg
+++ b/harbour/contrib/htmllib/oini.prg
@@ -221,7 +221,7 @@ RETURN Self
 */

 METHOD Get( cSection, cEntry, uDefault ) CLASS oIni 
-LOCAL cRet, nPos, nSection, nEntry
+LOCAL cRet, nSection, nEntry

 DEFAULT uDefault := ""

@@ -263,7 +263,7 @@ RETURN( cRet )

 METHOD Put( cSection, cEntry, uValue ) CLASS oIni 
 LOCAL cRet := ""
-LOCAL cComment, nPos, nSection, nEntry
+LOCAL cComment, nSection, nEntry

 DEFAULT uValue := ""

--- a/harbour/contrib/libnf/aading.prg
+++ b/harbour/contrib/libnf/aading.prg
@@ -128,7 +128,7 @@ FUNCTION FT_AADDITION( aList1, aList2, lTrimmer, lCaseSens )
                        ALLTRIM( x ) == ;
                        ALLTRIM( aList2[ nElement ]) }
      ELSE
-         bScanCode := { |x| ( aList2[ nElement ]) }
+         bScanCode := { |x| x == ( aList2[ nElement ]) }
      ENDIF

   ELSE                                   // Ignore case.
--- a/harbour/contrib/libnf/aredit.prg
+++ b/harbour/contrib/libnf/aredit.prg
@@ -194,7 +194,7 @@ FUNCTION FT_ArEdit( nTop, nLeft, nBot, nRight, ;

   LOCAL exit_requested := .F., nKey, meth_no, ;
         cSaveWin, i, b, column
-   LOCAL nDim, nWorkRow, cType, cVal
+   LOCAL nDim, cType, cVal
   LOCAL tb_methods := ;
         { ;
           {K_DOWN,       {|b| b:down()}}, ;
--- a/harbour/contrib/libnf/clrsel.prg
+++ b/harbour/contrib/libnf/clrsel.prg
@@ -254,7 +254,7 @@ FUNCTION FT_ClrSel( aClrs, lColour, cChr )

 LOCAL aClrOld := aClone( aClrs )
 LOCAL aOptions
-LOCAL nF, nB, nT, nL, nR
+LOCAL nB, nT, nL, nR
 LOCAL nChoice := 1
 LOCAL nLen    := 0
 LOCAL aPrompt := {}
@@ -343,7 +343,7 @@ STATIC FUNCTION _ftColours( aOpt, aClrPal, lColour )
 // Colour selection for specific type of colour setting
 // Return -> aOpt with modified colour strings

-LOCAL nF, nB, nT, nL, nR
+LOCAL nB, nT, nL, nR
 LOCAL nX      := 0
 LOCAL aClrs   := {}
 LOCAL cClr    := ""
--- a/harbour/contrib/libnf/dispmsg.prg
+++ b/harbour/contrib/libnf/dispmsg.prg
@@ -205,9 +205,7 @@ FUNCTION FT_DispMsg( aInfo, cKey, nBoxTop, nBoxLeft, cnBoxString, lShadow )
         aPos := {},       ;
         nLeft,            ;
         nTop,             ;
-         aLeft,            ;
-         cLeftMarker,      ;
-         cRightMarker
+         aLeft

   FOR i := 1 TO LEN( aInfo[1] )
      AADD( aPos, {} )
--- a/harbour/contrib/libnf/eltime.prg
+++ b/harbour/contrib/libnf/eltime.prg
@@ -48,7 +48,7 @@
 */

 function FT_ELTIME(cTIME1,cTIME2)
-  local  nTIME1, nTIME2, nDELSECS, nHRS, nMINS, nSECS, nSECS1, nSECS2
+  local  nDELSECS, nHRS, nMINS, nSECS, nSECS1, nSECS2

  nSECS1   := (val(substr(cTIME1,1,2)) * 3600) +;
              (val(substr(cTIME1,4,2)) * 60) + (val(substr(cTIME1,7)))
--- a/harbour/contrib/libnf/floptst.prg
+++ b/harbour/contrib/libnf/floptst.prg
@@ -119,7 +119,6 @@ RETURN
 FUNCTION FT_FLOPTST(			;	// error code defined by ERR_*
 				nDriveNum_i	;	// letter of floppy drive.
 				)
-	LOCAL cDrive
 	LOCAL cBuffer
 	LOCAL nErrorCode
 	LOCAL nRetCode
--- a/harbour/contrib/libnf/menu1.prg
+++ b/harbour/contrib/libnf/menu1.prg
@@ -308,7 +308,7 @@ STATIC NHPOS, NVPOS, NMAXROW, NMAXCOL


 FUNCTION FT_MENU1( aBar, aOptions, aColors, nTopRow, lShadow )
-   LOCAL nTtlWid, nTtlUsed, i, j, nPad
+   LOCAL nTtlWid, nTtlUsed
   LOCAL sMainScrn, lCancMode, lLooping := .t.

   // column position for each item on the menu bar
@@ -353,30 +353,30 @@ FUNCTION FT_MENU1( aBar, aOptions, aColors, nTopRow, lShadow )
   aBarCol[1] := 0
   nTtlUsed := LEN( aBar[1] ) + 1
   AEVAL( aBar, ;
-          {|x,i| aBarcol[i]:= nTtlUsed,nTtlUsed+= (LEN(aBar[i]) +1 )}, ;
+          {|x,i| HB_SYMBOL_UNUSED( x ), aBarcol[i]:= nTtlUsed,nTtlUsed+= (LEN(aBar[i]) +1 )}, ;
          2, LEN(aBar) -1 )

   // calculates widest element for each pulldown menu
   // see below for _ftWidest()
   AFILL(aBarWidth,1)
-   AEVAL( aChoices, { |x,i| _ftWidest( @i, aChoices, @aBarWidth ) } )
+   AEVAL( aChoices, { |x,i| HB_SYMBOL_UNUSED( x ), _ftWidest( @i, aChoices, @aBarWidth ) } )

   // box location for each pulldown menu
   // see below for _ftLocat()
-   AEVAL( aChoices, { |x,i| _ftLocat( i, aBarCol, aBarWidth, @aBoxLoc, nMaxCol ) } )
+   AEVAL( aChoices, { |x,i| HB_SYMBOL_UNUSED( x ), _ftLocat( i, aBarCol, aBarWidth, @aBoxLoc, nMaxCol ) } )

   // valid keys for each pulldown menu
   // see below for _ftValKeys()
-   AEVAL( aChoices,{|x,i| AADD( aValidkeys,"" ),;
+   AEVAL( aChoices,{|x,i| HB_SYMBOL_UNUSED( x ), AADD( aValidkeys,"" ),;
                          _ftValKeys( i,aChoices,@aValidKeys ) } )

   // display the menu bar
   SETCOLOR( cBar )
   @ nTopRow, 0
-   AEVAL( aBar, { |x,i| Devpos(nTopRow, aBarCol[i]), Devout(aBar[i]) })
+   AEVAL( aBar, { |x,i| HB_SYMBOL_UNUSED( x ), Devpos(nTopRow, aBarCol[i]), Devout(aBar[i]) })

   // store inkey code for each item on menu bar to aBarKeys
-   AEVAL( aBarKeys, {|x,i| aBarKeys[i] := ;
+   AEVAL( aBarKeys, {|x,i| HB_SYMBOL_UNUSED( x ), aBarKeys[i] := ;
          aKeyCodes[ ASC( UPPER( LTRIM( aBar[i] ) ) ) - 64 ] } )

   // disable Alt-C and Alt-D
@@ -448,7 +448,7 @@ FUNCTION __ftAcUdf( nMode )
   RETURN nRtnVal

 STATIC FUNCTION _ftWidest( i, aChoices, aBarWidth )
-   AEVAL(aChoices[i,1],{|a,b| aBarWidth[i] := ;
+   AEVAL(aChoices[i,1],{|a,b| HB_SYMBOL_UNUSED( a ), aBarWidth[i] := ;
            MAX( aBarWidth[i],LEN(aChoices[i,1,b])) })
   RETURN NIL

@@ -458,7 +458,7 @@ STATIC FUNCTION _ftLocat( i, aBarCol, aBarWidth, aBoxLoc, nMaxCol )
   RETURN NIL

 STATIC FUNCTION _ftBailOut( cBorder, cBox )
-   LOCAL cOldColor, sOldScreen, nKeyPress, nOldCursor, nCenter
+   LOCAL cOldColor, sOldScreen, nKeyPress, nOldCursor
   nOldCursor := SETCURSOR( SCNONE )
   sOldScreen := SAVESCREEN(nMaxRow/2-1, 24, nMaxRow/2+2, 55)
   cOldColor := SETCOLOR( cBorder )
--- a/harbour/contrib/libnf/pegs.prg
+++ b/harbour/contrib/libnf/pegs.prg
@@ -109,7 +109,7 @@ xx := 1
 setcolor('w/r')
 SINGLEBOX(22, 31, 24, 48)
@ 23, 33 say "Your move:"
-aeval(board_, { | a, x | drawbox(x) } )
+aeval(board_, { | a, x | HB_SYMBOL_UNUSED( a ), drawbox( x ) } )
 do while lastkey() != K_ESC .and. moremoves()
   move := 1
   setcolor('w/n')
--- a/harbour/contrib/libnf/popadder.prg
+++ b/harbour/contrib/libnf/popadder.prg
@@ -1400,6 +1400,10 @@ RETURN xVarVal
 FUNCTION _ftAdderTapeUDF(mode,cur_elem,rel_pos)
  LOCAL nKey,nRtnVal
  STATIC ac_exit_ok := .F.
+
+  HB_SYMBOL_UNUSED( cur_elem )
+  HB_SYMBOL_UNUSED( rel_pos )
+
  DO CASE
    CASE mode == AC_EXCEPT
      nKey := LASTKEY()
--- a/harbour/contrib/libnf/savesets.prg
+++ b/harbour/contrib/libnf/savesets.prg
@@ -70,7 +70,7 @@ FUNCTION  FT_SAVESETS()
   LOCAL aOldSets := ARRAY(_SET_COUNT + FT_EXTRA_SETS)

   AEVAL(aOldSets, ;
-         { | xElement, nElementNo | ;
+         { | xElement, nElementNo | HB_SYMBOL_UNUSED( xElement ), ;
           aOldSets[nElementNo] := SET(nElementNo) } )

   aOldSets[FT_SET_CENTURY] := FT_SETCENTURY()
--- a/harbour/contrib/libnf/tbwhile.prg
+++ b/harbour/contrib/libnf/tbwhile.prg
@@ -258,7 +258,7 @@
 FUNCTION FT_BRWSWHL(aFields, bWhileCond, cKey, nFreeze, lSaveScrn, ;
                    cColorList, cColorShad, nTop, nLeft, nBottom, nRight )

-   LOCAL b, column, cType, i
+   LOCAL b, column, i
   LOCAL cHead, bField, lKeepScrn, cScrnSave
   LOCAL cColorSave, cColorBack, nCursSave
   LOCAL lMore, nKey, nPassRec
--- a/harbour/contrib/libnf/xbox.prg
+++ b/harbour/contrib/libnf/xbox.prg
@@ -143,7 +143,6 @@ FUNCTION FT_XBOX(cJustType,; // "L" = left, otherwise centered
        nTRow,      ;
        nBRow,      ;
        nLoop,      ;
-        cSayStr,    ;
        nSayRow,    ;
        nSayCol,    ;
        nNumRows,   ;
--- a/harbour/contrib/odbc/todbc.prg
+++ b/harbour/contrib/odbc/todbc.prg
@@ -430,7 +430,6 @@ RETURN ( ( nRet == SQL_SUCCESS ) )
 // Only executes the SQL Statement

 METHOD ExecSQL() CLASS TODBC
-   LOCAL lRet
   LOCAL xBuf
   LOCAL nRet

@@ -502,7 +501,6 @@ RETURN ( xRet )
 METHOD Fetch( nFetchType, nOffset ) CLASS TODBC

   LOCAL nRows
-   LOCAL nRowStatus
   LOCAL nResult
   LOCAL nPos:=NIL