Kbase P15443: How to display the CRC values for all tables in the database
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/10/2008 |
|
Status: Verified
GOAL:
How to display the CRC values for all tables in the database
FIX:
OUTPUT TO rpos.txt.
FOR EACH _file where _file-number > 0 AND _file-number < 30000:
PUT UNFORMATTED LDBNAME("dictdb") + "." + _File-name + " (CRC " + STRING(_File._crc) + ")" SKIP.
PUT SKIP.
FOR EACH _field OF _file BY _field-rpos:
PUT _field-name SPACE(5) _field-rpos SKIP.
END.
PUT SKIP(2).
END.
OUTPUT CLOSE.