[progress Communities] [progress Openedge Abl] Forum Post: Re: Schema Area Extent

[Rob Fitzpatrick]

Simple example, assumes no LOBs: /* application objects in schema area */ for each _storageobject no-lock where _area-number = 6: case _storageobject._object-type: when 1 then /* table */ do: find _file no-lock where _file-number = _object-number. if _tbl-type = 't' then display _file-number _file-name. end. when 2 then /* index */ do: find _index no-lock where _idx-num = _object-number. if not _index-name begins "_" then do: find _file no-lock of _index. display _file-number _file-name _idx-num _index-name. end. end. end case. end.

Continue reading...