Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

close()

18 views
Skip to first unread message

aurora baccio

unread,
Aug 26, 2020, 10:30:30 AM8/26/20
to
buon giorno,
ho la necessità di controllare se tutti gli archivi vengono correttamente chiusi alla conclusione della procedura.
Esiste un modo per fare questo controllo ?
In pratica vorrei chiedere se l'archivio oprovpres è chiuso oppure no.
grazie
Aurora Baccio

Wolfgang Riedmann

unread,
Aug 28, 2020, 4:58:35 AM8/28/20
to
Buon giorno Aurora,

> ho la necessità di controllare se tutti gli archivi vengono
> correttamente chiusi alla conclusione della procedura. Esiste un
> modo per fare questo controllo ? In pratica vorrei chiedere se
> l'archivio oprovpres è chiuso oppure no.

basta fare un loop su tutte le workarea dalla 1 alla 1023 e vedere se
sono occupate:

#ifdef __XSHARP__
nMax := 4096
#else
nMax := 1023
#endif
for nI := nMax downto 1
if ! Empty( VODBAlias( nI ) )
// Workarea occupata
endif
next

Saluti

Wolfgang

--

0 new messages