如何列出正在进行的所有数据库-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 Knowledge Base中找到示例（例如，条目P8005）。