DEFINE VARIABLE ix AS INTEGER NO-UNDO.
FIND _file "item". OUTPUT TO item.d. DO ix = 1 TO 10000: FIND item WHERE RECID(item) = ix NO-ERROR. IF AVAILABLE item AND ix <> INTEGER(_file._template) THEN EXPORT item. END. |
100 + 32*(database-size-in-bytes / database-block-size)
|