How to Preserve Index Expressions to Rebuild CDX and Tags

• Microsoft Visual FoxPro for Windows, version 3.0
• Microsoft FoxPro for Windows, versions 2.5, 2.5a, 2.5b, 2.6, 2.6a
• Microsoft FoxPro for MS-DOS, versions 2.5, 2.5a, 2.5b, 2.6, 2.6a
• Microsoft FoxPro for Macintosh, versions 2.5b, 2.5c, 2.6a
• Microsoft FoxPro for UNIX, version 2.6

SUMMARY

Often, a utility menu is included in an application that enables the user to perform functions such as reindexing or backing up files. One very useful function to include on such a utility menu is a way to recreate the .CDX file with all of the tags rebuilt programatically. This keeps the .CDX file in optimum condition if done routinely. This article shows by example how to do this.

MORE INFORMATION

You first need to store the tag names and index expressions in a utility table. Then you need some code to read the utility file that will use the values to reindex the table.

Sample Code

The following sample code uses the tutorial table CUSTOMER.DBF to demonstrate how to create a utility file, read it, and use the values to reproduce the .CDX file.

* Make the CDX Expression table.

CREATE TABLE cdxexp ;

   (TAG C(10),expression C(254))

INSERT INTO cdxexp ;

   (TAG,expression) ;
   VALUES ;
   ("COMPANY","company")

INSERT INTO cdxexp ;

   (TAG,expression) ;
   VALUES ;
   ("STATE_CO","ALLTRIM(UPPER(state))+ALLTRIM(company)")

INSERT INTO cdxexp ;

   (TAG,expression) ;
   VALUES ;
   ("YTDP_ST","PADL(ALLTRIM(STR(ytdpurch,20,2)),20,'0') + ;
   ALLTRIM(UPPER(state))")

SET LIBRARY TO foxtools SET DEFAULT TO c:\fpw26a\tutorial

* Delete the current CDX file in order to rewrite the header.

IF USED('CUSTOMER')

   SELECT CUSTOMER
   USE

* Open the table to reindex (CUSTOMER.DBF) in the second Workarea.

SELECT B USE C:\FPW26A\TUTORIAL\CUSTOMER

* Call the MsgBox function from FoxTools with "Yes/No" buttons, option 4. * The MsgBox function will need to be replaced with a GET object for * versions other than Windows.

msg="Ready to rebuild the CDX file?" answer=MSGBOX(msg,"",4)

* If the user clicks the Yes button, the return value will be 6.

IF answer=6

   SELECT A                  && index expression file called "cdxexp"
   GO TOP
   DO WHILE NOT EOF()        && process the whole file
      mtag=cdxexp.tag        && read the values from the record
      mexp=cdxexp.expression
      SELECT B
      INDEX ON &mexp TAG &mtag   && index on the variable expressions
      SELECT A
      SKIP                   && go to the next record
   ENDDO

* End of program.