project BLF > class ComponentPool > method EndComponentInPool

Description

This method 'releases' a business component, so it can be swapped out of memory when needed.

Parameters


ihProcinputhandle

Internal usage


unused

program code (program1/componentpool.p)

find first beCPool where
           beCPool.thProc = ihProc and
           beCPool.tlIsInMemory no-error.
if available beCPool
then if beCPool.tlRemoveOnClose
     then do:
         <M-1 run RemoveComponent  (input  rowid(beCPool) (irCPoolRowid)) in ComponentPool>
     end.
     else do:
         run gipr_DeleteQueryProcedures in beCPool.thProc.
         run gipr_InitState in beCPool.thProc.
         assign beCPool.tlIsInUse = no
                beCPool.thIns = ?
                beCPool.tiInsID = 0.
     end.