Openedge: Obtener las Bases de Datos Conectadas

DEFINE VARIABLE i AS INTEGER.
REPEAT i = 1 TO NUM-DBS:
  DISPLAY LDBNAME(i) DBRESTRICTIONS(i) FORMAT "x(40)".
END.