Index problem

[driessen]

I have a customer who often gets this error :

hb_cdxPageSeekKey: wrong parent key.hb_cdxPageSeekKey: wrong parent key.

What causes this error? And how can it be prefended?

Thanks a lot in advance.

[Antonio Linares]

Michel,

I would say that it is a corrupted index.

Tell your customer never to turn off the computer suddenly. Does he has power supply problems ?

[driessen]

Antonio,

The error occurs now and then. But if the application is started again, everything is ok. But after a while, the problem occurs again.
It has nothing to do with shutting down the PC suddenly.

Very strange.

[Antonio Linares]

Michel,

Then it points to memory corruption and it could be a xharbour problem (as FWH does not manage the RDD internals at all).

If you rebuild your app using Harbour then we could know it for sure.

FYI, Colin from Australia (in these forums) has successfully migrated from xHarbour (.com) to Harbour in three days and now he is using Visual Studio also (he finished his migration yesterday, as I have been assisting him)

[karinha]

hello, I do so and I have no problems.

Code: Select all  Expand view

FUNCTION ReIndPack( lPack, lIndCep, oMostraIndCep, olPack, oMeter1, ;
                           oMeter2, oMeter3 )

    LOCAL Del_Indice

    DEL_INDICE := DIRECTORY( "*.CDX" )

    FOR I = 1 TO LEN( Del_Indice )
       FERASE( DEL_INDICE[I][1] )
    NEXT I

    IF NetUse( "AGENDGRP", .F. )

        IF lPack = .T.

            MsgRun( "Borrando Registros Excluidos...", ;
                    "Por Favor, Espere!"             , ;
                    { || __DbPack() } )

        ENDIF

        oMeter1:nTotal = RecCount()

        INDEX ON Field->GTE_CODIGO            TAG CODIGO TO   AGENDGRP    ;
              FOR !DELETED()                                              ;
              EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
              EVERY 10


        INDEX ON Field->GTE_NOMBRE             TAG NOMBRE TO   AGENDGRP   ;
              FOR !DELETED()                                              ;
              EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
              EVERY 10

        DbCloseAll()

    ENDIF

    ...

RETURN NIL
 

Regards,

[Antonio Linares]

João,

Do you use Harbour or xHarbour ?

[karinha]

xHarbour, master.

xHarbour 1.2.3 Intl. (SimpLex) (Build 20130422)
Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/

Regards, saludos.

[Antonio Linares]

It could be also interesting if other xHarbour users report here if they have ever seen that kind of error also.

To me its look like memory corruption, so we should consider all possibilities where such corruption could come from.

[driessen]

Antonio,

I want to give it a try to transfer my apps from xHarbour Builder to Harbour but I have never used Harbour before. I have always been using xHarbour Builder, which is quite easy to use.

I found a lot of BAT-files in the samples folder. Which one do I have to use?

I have more than 30 PRG-files, a few RC-files and some extra libs. How do I put them into one of the BAT-files?

I can send you a XBP-file from xHarbour Builder. Can you change into a BUILD(H).BAT?

Thank you so much for any help.

[Antonio Linares]

Michel,

Do you want to use Borland or Microsoft ?

Just send me your XBP file and I will build a makefile for you, and just calling a little bat file that I will provide you,
you will have everything built and running so easily

[driessen]

Antonio,

I just send you my XBP-file by e-mail.

Thanks a lot.

[Antonio Linares]

Michel,

Please better do:

dir *.prg > files.txt

and email files.txt, thanks

[Antonio Linares]

Michel,

Already sent to your email, I wait for your feedback.

If you don't mind it, I would like to post it here to help others (unless you don't want it, which I would fully respect)

[driessen]

Antonio,

No problem. You can post everything here of course. Glad to help others if necessary.

Thanks.

[Antonio Linares]

Michel,

Thanks. Here I copy it in case someone else want to use it:

go.bat

Code: Select all  Expand view

if not exist obj md obj
c:\bcc582\bin\make -ftest.mak

test.mak

Code: Select all  Expand view

#Borland make for Michel, (c) FiveTech Software 2014

HBDIR=c:\harbour
BCDIR=c:\bcc582
FWDIR=c:\fwh

#change these paths as needed
.path.OBJ = .\obj
.path.PRG = .\
.path.CH  = $(FWDIR)\include;$(HBDIR)\include
.path.C   = .\
.path.rc  = .\

#important: Use Uppercase for filenames extensions, in the next two rules!

PRG =        \
.\BEHAGEN1.PRG \
.\BEHAGEN2.PRG \
.\BEHBOEK1.PRG \
.\BEHBOEK2.PRG \
.\BEHDOSS1.PRG \
.\BEHDOSS2.PRG \
.\BEHINTRX.PRG \
.\BEHPAAND.PRG \
.\BEHPARAM.PRG \
.\BEHPRARC.PRG \
.\BEHSOOR1.PRG \
.\BEHSOOR2.PRG \
.\BEHUSER.PRG  \
.\DOCWP1.PRG   \
.\DOCWP2.PRG   \
.\FGEGTL1.PRG  \
.\GEGTL2.PRG   \
.\JUDA.PRG     \
.\MAKEIND.PRG  \
.\RAPAGPRE.PRG \
.\RAPDOSBH.PRG \
.\STJUDA.PRG   \
.\TINATIVO.PRG \
.\Z-ERROR1.PRG \
.\Z-PRINT.PRG  \
.\Z-RPREV.PRG  \
.\Z-TGET.PRG   \
.\Z-WBROWS.PRG

OBJ = $(PRGS:.PRG=.OBJ)
OBJS = $(OBJ:.\=.\obj\)

PROJECT  : JUDA.EXE

JUDA.EXE : $(OBJS) JUDA.RES
   echo off
   echo $(BCDIR)\lib\c0w32.obj + > b32.bc
   echo $(OBJS), + >> b32.bc
   echo juda.exe, + >> b32.bc
   echo juda.map, + >> b32.bc
   echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
   echo $(HBDIR)\lib\hbrtl.lib + >> b32.bc
   echo $(HBDIR)\lib\hbvm.lib + >> b32.bc
   echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
   echo $(HBDIR)\lib\hblang.lib + >> b32.bc
   echo $(HBDIR)\lib\hbmacro.lib + >> b32.bc
   echo $(HBDIR)\lib\hbrdd.lib + >> b32.bc
   echo $(HBDIR)\lib\rddntx.lib + >> b32.bc
   echo $(HBDIR)\lib\rddcdx.lib + >> b32.bc
   echo $(HBDIR)\lib\rddfpt.lib + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
   echo $(HBDIR)\lib\hbdebug.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcommon.lib + >> b32.bc
   echo $(HBDIR)\lib\hbpp.lib + >> b32.bc
   echo $(HBDIR)\lib\hbwin.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcpage.lib + >> b32.bc
   echo $(HBDIR)\lib\hbct.lib + >> b32.bc
   echo $(HBDIR)\lib\png.lib + >> b32.bc
   echo $(HBDIR)\lib\hbcplr.lib + >> b32.bc
   echo $(HBDIR)\lib\xhb.lib + >> b32.bc
   echo $(HBDIR)\lib\hbzlib.lib + >> b32.bc

   rem Uncomment these two lines to use Advantage RDD
   rem echo $(HBDIR)\lib\rddads.lib + >> b32.bc
   rem echo $(HBDIR)\lib\Ace32.lib + >> b32.bc

   echo $(BCDIR)\lib\cw32.lib + >> b32.bc
   echo $(BCDIR)\lib\import32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\rasapi32.lib, >> b32.bc

   IF EXIST juda.res echo juda.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
   del b32.bc

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /L /N /W /V /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
  del tmp

juda.res : juda.rc
  $(BCDIR)\bin\brc32.exe -r juda.rc