The following ABL code examples, reads the metaschema tables and shows the same information displayed for properties fields on the data dictionary for BLOB and CLOB fields:
/* Example 1: BLOB/CLOB field properties */
FOR EACH _file NO-LOCK:
DISPLAY _file-name.
FOR EACH _field OF _file
WHERE _Data-Type = "blob" OR _Data-Type = "clob" NO-LOCK:
FIND FIRST _storageobject
WHERE _object-type = 3
AND _object-number = _fld-stlen NO-LOCK.
FIND FIRST _area
WHERE _area._area-number = _storageObject._area-number NO-LOCK.
DISPLAY
_Data-Type
_field-name
_area-name
_fld-Misc2[1]
_Order
_Fld-case
_Charset
_Collation
_Attributes1 WITH 2 COLUMNS.
END.
END.
/* Example 2: BLOB / CLOB fields Area information */
FOR EACH _storageobject WHERE _storageobject._object-type = 3 NO-LOCK:
FIND _file WHERE _file-num = _storageobject._object-associate NO-LOCK.
FIND _field OF _file WHERE _fld-stlen = _storageobject._object-number NO-LOCK.
DISPLAY
_file._file-name
_field._field-name
_storageobject._object-number
_storageobject._area-number.
END.
