project BLF > class Persistence (Progress) > method ExitProgram

Description

Disconnect all databases.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program2/progress.p)

if valid-handle (vhInstanceQuery)
then delete object vhInstanceQuery.

if valid-handle (vhInstanceBuffer)
then delete object vhInstanceBuffer.

if valid-handle (vhDraftQuery)
then delete object vhDraftQuery.

if valid-handle (vhDraftBuffer)
then delete object vhDraftBuffer.

if valid-handle (vhDraftDataQuery)
then delete object vhDraftDataQuery.

if valid-handle (vhDraftDataBuffer)
then delete object vhDraftDataBuffer.

if valid-handle (vhExternalQuery)
then delete object vhExternalQuery.

if valid-handle (vhExternalBuffer)
then delete object vhExternalBuffer.

do while ldbname(1) <> ?:
    assign vcWork = ldbname(1).
    <M-1 run DisconnectDB
          (input  vcWork (icLDB), 
           output oiReturnStatus (oiReturnStatus)) in Progress>
    if oiReturnStatus < 0 then return.
end.