| ( |
|
|
|||
| Returns the ID of the current HDB database | |||
updating procedure CheckDatabaseID()
begin
record DBERecordsBlock DBERb;
BlockLoad(DBERb);
if (nonblank(DBERb.DatabaseID)) then begin
if (DBERb.DatabaseID!=DatabaseID) then begin
DBERb.DBStatus = 0;
DBERb.DatabaseID = "";
BlockStore(DBERb);
end;
end;
return;
end;
 |
|
| Related topics: | |