Kbase P22014: 4GL/ABL: How to display user table and index CRC values of a Progress database?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
6/5/2008 |
|
Status: Verified
GOAL:
4GL/ABL: How to display user table and index CRC values of a Progress database?
GOAL:
How to access the table CRC values of a Progress database?
GOAL:
How to get the index CRC values of the currently connected Progress database?
FACT(s) (Environment):
Progress 9.1x
OpenEdge 10.x
All Supported Operating Systems
FIX:
The following code displays the user table and index CRC values for the connected database:
FOR EACH _File NO-LOCK WHERE _Tbl-Type = "T",
EACH _Index NO-LOCK OF _File BREAK BY _File._File-Name BY _Index._Index-Name:
IF FIRST-OF(_File._File-Name) THEN
DISPLAY
_File._File-Name LABEL "TableName"
_File._CRC LABEL "TableCRC" WITH STREAM-IO.
ELSE
DISPLAY
" IndexName: " + _Index-Name @ _File._File-Name
_Idx-CRC LABEL "IndexCRC" WITH STREAM-IO.
END.