create or replace procedure del_team
(
? userid in t_user.id%type,
? teamid out t_user.teamid%type

)
as
begin
? select t.teamid into teamid from t_user t where t.id=userid;
? delete from t_user t where t.id=userid;
? delete from t_gps t where t.userid=userid;
commit;
end;

create or replace procedure del_team
(
? v_userid in t_user.id%type,
? v_teamid out t_user.teamid%type

)
as
begin
? select t.teamid into v_teamid from t_user t where t.id=v_userid;
? delete from t_user t where t.id=v_userid;
? delete from t_gps t where t.userid=v_userid;
commit;
end;