project BLF > class Persistence (Progress) > method ClearBuffers

Description

Clear cached database buffers that have become invalid


Internal usage


unused


program code (program1/progress.p)

for each tBuffers:

    if not (valid-handle(tBuffers.thTempBuffer) and
            tBuffers.tiTempUID = tBuffers.thTempBuffer:unique-id)
    then do:
        for each tBufferFields where
                 tBufferFields.thTempBuffer = tBuffers.thTempBuffer:
            delete tBufferFields.
        end.
        delete object tBuffers.thQuery.
        delete object tBuffers.thBuffer.
    
        delete tBuffers.
    end.
end.