method CleanupInPool

Description

When connecting to a stateless appserver agent, cleanup left-over bits of previous connection like cached session data or error messages.

Internal usage

unused

program code (program1/componentpool.p)

if  valid-handle(vhCacherInPool)
and vhCacherInPool:unique-id = viCacherUID
then do:
    vhFcComponent = vhCacherInPool.
    <M-1 run ClearCache  (output viFcReturnSuper (oiReturnStatus)) in Cacher>
end.

find first tComponentPool where tComponentPool.tlIsInMemory no-error.
if available tComponentPool
then run ClearMessages in tComponentPool.thProc (output viFcReturnSuper).