Consultor Eletrônico



Kbase P150547: How to run an idxcheck on the tables with unique indexes ?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   8/3/2009
Status: Unverified

GOAL:

How to run an idxcheck on the tables with unique indexes ?

GOAL:

How to verify unique indexes?

FACT(s) (Environment):

All Supported Operating Systems
Progress 9.x
OpenEdge 10.x

FIX:

Create an input file for idxcheck to feed only the unique indexes to be checked by the utility:
$ proutil dbname -C idxcheck -TB 24 -TM 32 < index_unique.file >> index_unique_out.file
/* START: idxcheck input for unique indexes */
OUTPUT TO "index_unique.file".
PUT UNFORMATTED "some" SKIP.

FOR EACH _file WHERE _file._file-number > 0 AND NOT _file-name BEGINS "SYS":
IF AVAILABLE _file THEN DO:
FOR EACH _index OF _file
WHERE _index._unique = YES:
PUT UNFORMATTED _file-name SKIP _index-name SKIP.
END.
END.
END.
PUT UNFORMATTED "!" SKIP.
PUT UNFORMATTED "Y" SKIP.
PUT UNFORMATTED "Y" SKIP.
OUTPUT CLOSE.
/* END: idxcheck input for unique indexes */