Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

CREATE PROCEDURE GetAllLocks(tablename cichar(255) output, recNo Integer output, username cichar(255) output)
begin 
declare @tables CURSOR AS execute procedure sp_mggetalltables();
declare @locks CURSOR AS execute procedure sp_mggetalllocks(@tables.tablename); 
declare @lockowner CURSOR AS execute procedure sp_mggetlockowner(@tables.tablename, @locks.LockedRecNo); 
OPEN @tables;
while fetch @tables do
  open @locks;
  while fetch @locks do
    open @lockowner;
	while fetch @lockowner do
          insert into __output(tablename, recNo, username) values (trim(@tables.tablename), @locks.LockedRecNo, trim(@lockowner.username));
	end;
	close @lockowner;
  end while;
  close @locks;
end while;
close @tables;
end;

Code: Alles auswählen

execute procedure GetAllLocks();