Description
Disconnect all databases.
Parameters
oiReturnStatus | output | integer | Return 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.