sample1)  WEB 화면으로 DATA 출력

CREARE OR REPLACE PROCEDURE SAMPLE
AS
   CURSOR MX IS SELECT EMPNO, ENPNANE, JOB 
                 FROM EMP;
BEGIN
   HTP.P('<TABLE>');
   FOR X in MX LOOP
       HTP.P('<TR><TD>'|| X.EMPNO || '<TD>'|| X.EMPNAME || '<TD>'|| X.JOB );
   END LOOP;
   HTP.P('</TABLE>');
END;


msie에서 http://servername:port/pls/dad/sample


sample2) ORA-0001 ( PK violate)에 걸리는 자료만 제외하고 타 테이블로 이전하기

CREATE OR REPLACE PROCEDURE SAMPLE2
IS
  CURSOR MX IS SELECT docname, accdate,  city
                         FROM   a_table;

BEGIN
   FOR X IN MX LOOP  -- LOOP돌면서 A table자료 fetch
   BEGIN
            INSERT INTO b_table( docname, accdate, city )  -- B table에 insert 하는데 PK 중복자료는 EXCEPTION으로 빠짐
             VALUES( x.docname, x.accdate, x.city);
   EXCEPTION 
          WHEN DUP_VAL_ON_INDEX THEN  -- PK제약조건에 걸리는 넘은 아무일도 하지말고 SKIP
                  NULL;
   END;
   END LOOP;
   COMMIT;
END;