CREATE OR REPLACE PACKAGE web_app AS
PROCEDURE dept_insert_req;
PROCEDURE dept_insert_act(
p_deptno IN VARCHAR2,
p_dname IN VARCHAR2,
p_loc IN VARCHAR2,
p_submit IN VARCHAR2);
END web_app;
/
SHOW ERRORS
CREATE OR REPLACE PACKAGE BODY web_app AS
PROCEDURE dept_insert_req IS
BEGIN
HTP.Print(
''
|| ' '
|| ' Insert DEPT'
|| ' '
|| ' '
|| ' Insert DEPT
'
|| ' '
|| ' '
|| ''
);
END dept_insert_req;
PROCEDURE dept_insert_act(
p_deptno IN VARCHAR2,
p_dname IN VARCHAR2,
p_loc IN VARCHAR2,
p_submit IN VARCHAR2) IS
BEGIN
HTP.Print(
''
|| ' '
|| ' Insert DEPT'
|| ' '
|| ' '
|| ' Insert DEPT
');
BEGIN
INSERT INTO dept (deptno, dname, loc)
VALUES (p_deptno, p_dname, p_loc);
COMMIT;
HTP.Print(' Insert DEPT Completed Successfully!
');
EXCEPTION
WHEN OTHERS THEN
HTP.Print(' Error: ' || SQLERRM || '
');
END;
HTP.Print(' ');
Owa_Util.CellsPrint('SELECT * FROM dept');
HTP.Print(
'
'
|| ' '
|| '');
END dept_insert_act;
END web_app;
/
SHOW ERRORS