这个代码怎么写？有关oracle存储过程

CREATE OR REPLACE PROCEDURE test(v_number project.p_number%TYPE,
v_name project.p_name%TYPE,
v_manager project.p_manager%TYPE,
v_client project.p_client%TYPE
)
IS
CURSOR cur_test IS
SELECT p_number,p_name,p_manager,p_client FROM project WHERE p_name LIKE 'S%' ;
BEGIN
INSERT INTO project VALUES (v_number,v_name,v_manager,v_client);

FOR rec IN cur_test LOOP
DBMS_OUTPUT.put_line(rec.p_number);
DBMS_OUTPUT.put_line(rec.p_name);
DBMS_OUTPUT.put_line(rec.p_manager);
DBMS_OUTPUT.put_line(rec.p_client);
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
DBMS_OUTPUT.put_line(SQLERRM);

END;

结果

select * from project a where a.p_name like 's%'