Retorna a lista de alias criados para os bancos conectados

Gera uma lista de alias criados para cada banco conectado na sessão:

Código:

DEFINE VARIABLE i AS INTEGER    NO-UNDO.
DEFINE VARIABLE a AS INTEGER    NO-UNDO.
DEFINE VARIABLE h AS LOGICAL    NO-UNDO.
REPEAT i = 1 TO NUM-DBS:
    ASSIGN h = FALSE.
    REPEAT a = 1 TO NUM-ALIAS:
        IF LDBNAME(i) = LDBNAME(ALIAS(a)) THEN
            DO:
                DISP LDBNAME(ALIAS(a)) ALIAS(a).
                ASSIGN h = TRUE.
            END.
    END.
    IF h = FALSE THEN
        DISP LDBNAME(i) "no alias".
END.

Fonte: Kbase P115054
http://progress.atgnow.com/esprogress/Group.jsp?bgroup=progress&id=P115054