Listar los Ficheros de una carpeta.

DEFINE VARIABLE cDir AS CHARACTER   NO-UNDO.
DEFINE VARIABLE cFileStream AS CHARACTER   NO-UNDO.

cDir = "C:\pru".
INPUT FROM OS-DIR (cDir) ECHO.
REPEAT:
    IMPORT cFileStream.
    MESSAGE cFileStream
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.

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.