icBufferName | input | character | |
iiQueryID | input | integer |
find tQbuffers where tQbuffers.tcTable = icBufferName and tQbuffers.tiIsInUseBy = iiQueryID no-error. if available tQbuffers then do: viBufferID = ?. viBufferID = tQbuffers.thBuffer:unique-id no-error. if viBufferID <> tQbuffers.tiBufferID then delete tQbuffers. end. if available tQbuffers then do: tQbuffers.thBuffer:buffer-release(). tQbuffers.tiIsInUseBy = 0. end.