TPQUIT, Cannot QUIT out of a routine with an active transaction

Run Time Error: This indicates that an implicit or explicit QUIT attempted to leave an invocation level where a transaction or subtransaction was TSTARTed but not matched by either a TCOMMIT or TROLLBACK.

Action: Modify the routine to TCOMMIT or TROLLBACK the transaction before QUITting, or move the TSTART to a prior invocation level.

inserted by FC2 system