Sub block per statement..

CREATE OR REPLACE PROCEDURE USERADMIN.WRITEDB (in_in IN INTEGER, out_in IN INTEGER, login_in IN VARCHAR2, date_in DATE, net_in INTEGER)
AS
u INTEGER := 0;
d DATE := NULL;
function fc_ret_userid(in_in IN INTEGER, out_in IN INTEGER, login_in IN VARCHAR2,
date_in DATE, net_in INTEGER)
return number
is
begin
SELECT userid INTO u
FROM USERS WHERE userlogin = login_in;
return (u);
exception
WHEN NO_DATA_FOUND THEN
return (0);
INSERT INTO LOGIP (userid, inlip, outlip, datelip, netid)
VALUES(u, in_in, out_in, date_in, net_in);
end;

BEGIN
u := fc_ret_userid(...);
etc............


UPDATE STAT
SET inlip= inlip + in_in,
outlip= outlip + out_in
WHERE logip.userid = u AND logip.datelip = d;

EXCEPTION
WHEN NO_DATA_FOUND THEN
INSERT INTO LOGIP (userid, inlip, outlip, datelip, netid)
VALUES(u, in_in, out_in, date_in, net_in);
END WRITEDB;