R
Richard Shulman
Guest
The following code samples can help you find out what is in area 53 the first section deals with tables and the second deals with indices: for each _file. find _storageobject where _storageobject._object-type = 1 and _storageobject._object-number = _file._file-num no-lock no-error. FIND _Area WHERE _Area._Area-number = _storageobject._Area-number and _storageobject._area-number = 53 NO-LOCK NO-ERROR. if available(_area) then display _file-name format 'x(40)' _area-name _storageobject._area-number. end. FOR EACH _index OF _file: FIND _storageobject WHERE _storageobject._object-type = 2 AND _storageobject._object-number = _index._idx-num NO-LOCK NO-ERROR. FIND _Area WHERE _Area._Area-number = _storageobject._Area-number _storageobject._area-number = 53 NO-LOCK NO-ERROR. if available(_area) then DISPLAY _index-name FORMAT 'x(20)' _Area-name _Storageobject._Area-number. END. When you know what tables live in the area you could run this code (replacing tablename with the correct name) to try and see the records which match dbkey 5651616 : find first tablename where recid(tablename) = 5651616 no-lock no-error. if available tablename then do: message recid(customer) rowid(customer). disp tablename.name. end.
Continue reading...
Continue reading...