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