如何列出所有正在进行的数据库-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）。