Kbase P115054: How to get the database alias of a database
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
4/10/2006 |
|
Status: Unverified
GOAL:
How to get the database alias of a database
GOAL:
How to know if a database has an database alias defined
FIX:
Use ALIAS and NUM-ALIAS functions.
For example:
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.