Category : Windows 3.X Files
Archive   : ACTTIMS.ZIP
Filename : OWNEDOBJ.CLS

/* class comment */!!

inherit(VistaObj, #OwnedObj, #(setNum
ownerDBA), 2, nil)!!

now(class(OwnedObj))!!

now(OwnedObj)!!

Def connect(self, owner)
{
if (makeOwner(owner, setNum) == S_OKAY) then
crSet(self, dba);
^dbStatus := connect(database, setNum);
else
^nil;
endif;
}
!!

Def discon(self)
{
if csmset(database, setNum, dba) == S_OKAY then
dbStatus := discon(database, setNum);
if dbStatus = S_EOS then
dbStatus := S_OKAY;
endif;
^dbStatus;
else
^nil;
endif;
}
!!

Def getOwner(self, owner | dbaddr)
{
csmset(database, setNum, dba);
dbaddr := new(DBAddr);
csoget(database, setNum, dbaddr);
crSet(owner, dbaddr);
read(owner);
}
!!

Def setOwner(self, owner | dbaddr)
{
ownerDBA := getDBA(owner);
}
!!

Def prev(self | stat)
{
if (csmset(database, setNum, dba)) then
dbStatus := findpm(database, setNum);
if dbStatus = 0 then
read(self);
endif;
^dbStatus;
else
^nil;
endif;
}
!!

Def next(self)
{
if (csmset(database, setNum, dba)) then
dbStatus := findnm(database, setNum);
if dbStatus = 0 then
read(self);
endif;
^dbStatus;
else
^nil;
endif;
}
!!

Def last(self | stat)
{
if csoset(database, setNum, ownerDBA) = S_OKAY then
stat := findlm(database, setNum);
if stat = S_OKAY then
read(self);
endif;
^stat;
endif;
^nil;
}
!!

Def first(self | stat)
{
if csoset(database, setNum, ownerDBA) = S_OKAY then
stat := findfm(database, setNum);
if stat = S_OKAY then
read(self);
endif;
^stat;
endif;
^nil;
}
!!