diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5f58cbeb5b..4417cee514 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+19990820-13:27 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * source\rdd\dbcmd.c
+     source\rdd\dbf1.c
+     source\rdd\delim1.c
+     source\rdd\sdf1.c
+     source\rdd\dbfntx\dbfntx1.c
+     Fixed some warnings (unused variables)
+
 19990820-12:50 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rdd/dbcmd.c
     ! SELF_DELETE -> SELF_DELETED (missed from the previous ChangeLog entry)
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 6c358db633..ff6bcad343 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -275,12 +275,15 @@ static void hb_SelectFirstAvailable( void )
 
 static ERRCODE UnSupported_V( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling default: UnSupported()\n" );
    return SUCCESS;
 }
 
 static ERRCODE UnSupported_L( AREAP pArea, LONG lLong )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( lLong );
    printf( "Calling default: UnSupported()\n" );
    return SUCCESS;
 }
@@ -305,12 +308,16 @@ static ERRCODE Found( AREAP pArea, BOOL * pFound )
 
 static ERRCODE GoToId( AREAP pArea, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling default: GoToId()\n" );
    return SUCCESS;
 }
 
 static ERRCODE Skip( AREAP pArea, LONG lToSkip )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( lToSkip );
    printf( "Calling default: Skip()\n" );
    return SUCCESS;
 }
@@ -363,48 +370,62 @@ static ERRCODE FieldName( AREAP pArea, USHORT uiIndex, void * szName )
 
 static ERRCODE Flush( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling default: Flush()\n" );
    return SUCCESS;
 }
 
 static ERRCODE CreateFields( AREAP pArea, PHB_ITEM pStruct )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pStruct );
    printf( "Calling default: CreateFields()\n" );
    return SUCCESS;
 }
 
 static ERRCODE DeleteRec( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling default: DeleteRec()\n" );
    return SUCCESS;
 }
 
 static ERRCODE Deleted( AREAP pArea, BOOL * pDeleted )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pDeleted );
    printf( "Calling default: Deleted()\n" );
    return SUCCESS;
 }
 
 static ERRCODE GetValue( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( uiIndex );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling default: GetValue()\n" );
    return SUCCESS;
 }
 
 static ERRCODE Recall( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling default: Recall()\n" );
    return SUCCESS;
 }
 
 static ERRCODE RecCount( AREAP pArea, LONG * pRecCount )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pRecCount );
    printf( "Calling default: RecCount()\n" );
    return SUCCESS;
 }
 
 static ERRCODE RecNo( AREAP pArea, PHB_ITEM pRecNo )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pRecNo );
    return SUCCESS;
 }
 
@@ -446,6 +467,9 @@ static ERRCODE Create( AREAP pArea, LPDBOPENINFO pCreateInfo )
 
 static ERRCODE Info( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( uiIndex );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling default: Info()\n" );
    return SUCCESS;
 }
@@ -587,6 +611,8 @@ ERRCODE hb_rddInherit( PRDDFUNCS pTable, PRDDFUNCS pSubTable, PRDDFUNCS pSuperTa
    USHORT uiCount;
    DBENTRYP_V * pFunction, * pSubFunction;
 
+   HB_SYMBOL_UNUSED( pSuperTable );
+
    if( !pTable )
       return FAILURE;
 
@@ -722,11 +748,11 @@ HARBOUR HB_DBCREATE( void )
 {
    char * szFileName, * szDriver;
    PHB_ITEM pStruct, pFieldDesc;
-   WORD wLen;
    LPRDDNODE pRddNode;
    AREAP pTempArea;
    USHORT uiSize, uiRddID;
    DBOPENINFO pInfo;
+   WORD wLen;
 
    szFileName = hb_parc( 1 );
    pStruct = hb_param( 2 , IT_ARRAY );
@@ -755,7 +781,7 @@ HARBOUR HB_DBCREATE( void )
    hb_CheckRdd();
    szDriver = hb_parc( 3 );
    if( ( wLen = strlen( szDriver ) ) > 0 )
-      szDriver = hb_strUpper( szDriver, strlen( szDriver ) );
+      szDriver = hb_strUpper( szDriver, wLen );
    else
       szDriver = szDefDriver;
 
@@ -992,7 +1018,7 @@ HARBOUR HB_DBUSEAREA( void )
    hb_CheckRdd();
    szDriver = hb_parc( 2 );
    if( ( wLen = strlen( szDriver ) ) > 0 )
-      szDriver = hb_strUpper( szDriver, strlen( szDriver ) );
+      szDriver = hb_strUpper( szDriver, wLen );
    else
       szDriver = szDefDriver;
 
diff --git a/harbour/source/rdd/dbf1.c b/harbour/source/rdd/dbf1.c
index 52d718dcdd..dea0565d38 100644
--- a/harbour/source/rdd/dbf1.c
+++ b/harbour/source/rdd/dbf1.c
@@ -131,6 +131,8 @@ static ERRCODE GoTo( AREAP pArea, LONG lRecNo )
 
 static ERRCODE GoToId( AREAP pArea, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling DBF: GoToId()\n" );
    return SUCCESS;
 }
@@ -183,6 +185,7 @@ static ERRCODE CreateFields( AREAP pArea, PHB_ITEM pStruct )
 
 static ERRCODE DeleteRec( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling DBF: DeleteRec()\n" );
    return SUCCESS;
 }
@@ -268,6 +271,7 @@ static ERRCODE RecCount( AREAP pArea, LONG * pRecCount )
 
 static ERRCODE Info( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
    switch( uiIndex )
    {
       case DBI_TABLEEXT:
diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c
index 240945c3b7..1a9109e590 100644
--- a/harbour/source/rdd/dbfntx/dbfntx1.c
+++ b/harbour/source/rdd/dbfntx/dbfntx1.c
@@ -41,6 +41,7 @@ HB_INIT_SYMBOLS_END( dbfntx1__InitSymbols )
 
 static ERRCODE Info( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
    switch( uiIndex )
    {
       case DBI_TABLEEXT:
diff --git a/harbour/source/rdd/delim1.c b/harbour/source/rdd/delim1.c
index 4289c33cff..825e0895c5 100644
--- a/harbour/source/rdd/delim1.c
+++ b/harbour/source/rdd/delim1.c
@@ -40,18 +40,23 @@ HB_INIT_SYMBOLS_END( delim1__InitSymbols )
 
 static ERRCODE Info( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( uiIndex );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling DELIM: Info()\n" );
    return SUCCESS;
 }
 
 static ERRCODE ReadDBHeader( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling DELIM: ReadDBHeader()\n" );
    return SUCCESS;
 }
 
 static ERRCODE WriteDBHeader( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling DELIM: WriteDBHeader()\n" );
    return SUCCESS;
 }
diff --git a/harbour/source/rdd/sdf1.c b/harbour/source/rdd/sdf1.c
index c61bcfcdb7..60e628e348 100644
--- a/harbour/source/rdd/sdf1.c
+++ b/harbour/source/rdd/sdf1.c
@@ -40,18 +40,23 @@ HB_INIT_SYMBOLS_END( sdf1__InitSymbols )
 
 static ERRCODE Info( AREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
 {
+   HB_SYMBOL_UNUSED( pArea );
+   HB_SYMBOL_UNUSED( uiIndex );
+   HB_SYMBOL_UNUSED( pItem );
    printf( "Calling SDF: Info()\n" );
    return SUCCESS;
 }
 
 static ERRCODE ReadDBHeader( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling SDF: ReadDBHeader()\n" );
    return SUCCESS;
 }
 
 static ERRCODE WriteDBHeader( AREAP pArea )
 {
+   HB_SYMBOL_UNUSED( pArea );
    printf( "Calling SDF: WriteDBHeader()\n" );
    return SUCCESS;
 }