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 を使用して物理名を取得することもできます。

テーブル、インデックスなどに関する情報は、Virtual System Tables (VST) テーブル (アンダースコアで始まる) から取得できます。例は Progress Knowledge Base にあります (例: エントリ P8005)。