Retorna lista de Bancos Conectados

Retorna lista de Bancos Conectados

Código:

DEF VAR i AS INTEGER NO-UNDO.
IF NUM-DBS eq 0 THEN {&OUT} "No Databases Connected".
ELSE DO:
  {&OUT} "<I>Connected Databases:</I>" .
  DO i = 1 TO NUM-DBS:
    {&OUT} "<LI>" LDBNAME(i).
  END.
END.