NUM-ALIASES
|
DEFINE VARIABLE ix AS INTEGER NO-UNDO.
DISPLAY NUM-ALIASES LABEL "Number of Defined Aliases:". REPEAT ix = 1 TO NUM-ALIASES: DISPLAY ALIAS(ix) LABEL "Aliases" LDBNAME(ALIAS(ix)) LABEL "Logical Database". END. |