How I can use Exception of Oracle 8i in Procedure

[Mohaned]

Hi,,
I have created the following procedure using ORACLE 8i. and am fresh working on ORACLE. am trying to use a exception handler (built in) one.

but always I keep getting an invalid compilation.

Please advice
Create Or replce ....etc
(UserID IN int,DeptID IN VARCHAR2, ReturnedValue OUT INT)
IS
KeepLooping int;
DeptIDValue int;
ErrHandler int;
DeptID2 int;

BEGIN
KeepLooping := 1;
WHILE KeepLooping <> 0 LOOP
DeptIDValue := TO_NUMBER(SUBSTR(DeptID,1,INSTR(DeptID,';') - 1));
DeptID2 := SUBSTR(DeptID,INSTR(DeptID,';')+1,LENGTH(DeptID));

IF INSTR(DeptID2,';') <> 0 THEN
KeepLooping := 1;
ELSE
KeepLooping := 0;
-- Insert user departments.
INSERT INTO tbl_User_Dept(UserID,DeptID) VALUES(UserID,DeptIDValue);
-- the error going in the following line
EXCEPTION
WHEN PROGRAM_ERROR THEN
--ROLLBACK;
ReturnedValue := 0;
END;

END IF;
END LOOP;
COMMIT;
ReturnedValue := 1; -- 1 = true
END;

[pando]

well this is basics...

PL/SQL has this structure

BEGIN
.......
.........
..........
EXCEPTION
......
.........
.............
END;
/


what you need to add is after your while loop a begin and end

begin
while blah blah
loop
begin
...
...
exception
...
..
end;
end loop;
end;
/