/////////////헤더/////////////////
CREATE OR REPLACE PACKAGE New_korea_test
AS
TYPE korace is TABLE of VARCHAR2(8) INDEX BY binary_integer;
PROCEDURE korearace(v_racedate OUT korace);
END New_korea_test;
/////////////////////바디/////////////
CREATE OR REPLACE PACKAGE BODY New_korea_test
AS
PROCEDURE korearace
(v_racedate OUT korace)
IS
CURSOR korea_cur IS
SELECT race_date
FROM (select distinct(racedate) as race_date from
racingjoy.s_expect order by racedate desc)
WHERE rownum <=4;
percount NUMBER DEFAULT 1;
BEGIN
FOR onerace_date IN korea_cur
LOOP
v_racedate(percount):=onerace_date.race_date;
percount:=percount+1;
END LOOP;
END korearace;
END New_korea_test;
간단하게 패키지안에 프로시저를 생성했는데요..컴파일은 다됐는데
실행이 안됍니다. 아시는분 답변좀 부탁드립니다.
DECLARE
TYPE korace is TABLE of VARCHAR2(8) INDEX BY binary_integer;
RET korace;
BEGIN
New_korea_test.korearace( RET );
FOR j IN 1 .. RET.COUNT LOOP
DBMS_OUTPUT.PUT_LINE(RET(j));
END LOOP;
END;
얼마전 블루투스님의 답글에 따라 이런식으로 sqlplus상에서
실행해보았는데 아규먼트 넘버가 틀리다면서 에러가
났습니다.
|