DEFINE VARIABLE columnName AS CHARACTER.
DEFINE VAR bh AS WIDGET-HANDLE.
DEFINE VARIABLE typeResult AS CHARACTER.
columnName = "TableCustomer.ColumnId".
CREATE BUFFER bh FOR TABLE ENTRY(1, columnName, ".").
typeResult = bh:BUFFER-FIELD(ENTRY(2, columnName, ".")):DATA-TYPE.
DISPLAY typeResult...