progress-4gl - 如何列出所有正在进行的数据库-4gl 9.1 D？

Question

我正在尝试获取 DataDictionary 中的所有数据库，但是以编程方式！那可能吗？

Answer 1

DEFINE VARIABLE iDatabase AS INTEGER NO-UNDO.

REPEAT iDatabase = 1 TO NUM-DBS:
    DISPLAY LDBNAME(iDatabase) .
END.

LDBNAME 返回数据库的逻辑名称。您还可以使用 PDBNAME 来获取物理名称。

可以从虚拟系统表 (VST) 表（带有下划线前缀）中检索有关表、索引等的信息。示例可以在 Progress 知识库中找到（例如条目 P8005）。