Obtener Datos de la Conexion desde el Cliente

DEF VAR id AS CHAR FORMAT "X(32)".

INPUT THROUGH hostname.
SET id.
ASSIGN id.
INPUT CLOSE.

MESSAGE id
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
UTILIDADES

NUM-DBS : Devuelve el número de bases de datos conectadas.
LDBNAME : Devuelve el nombre lógico de la base de datos.
PDBNAME : Devuelve el nombre físico de la base de datos.
DBPARAM : Devuelve los parámetros de conexión.
DICTDB: Alias de la Primera de las Bases de Datos Conectadas.