Retrieve a sequence number using a cursor

Dear All,

I am trying to get SEQUENCE value using a stored procedure. Unfortunately I can't get this small procedure to compile. Can anyone help?

HEADER:
CREATE OR REPLACE PACKAGE pkg_unique
AS
  TYPE t_sysno is TABLE OF NUMBER(8)
  INDEX BY BINARY_INTEGER;   PROCEDURE allunique
(SYS_DEF_SEQ OUT t_sysno );

END pkg_unique;

BODY:
CREATE OR REPLACE PACKAGE BODY pkg_unique AS
  PROCEDURE allunique
(SYS_DEF_SEQ OUT t_sysno

 )
IS
  CURSOR cur_key IS
 SELECT SYS_DEF_SEQ.NEXTVAL FROM dual;

  sccount NUMBER DEFAULT 1;

  BEGIN
    FOR thing IN cur_key
    LOOP
      SYS_DEF_SEQ(sccount):=thing.SYS_DEF_SEQ;    sccount:=sccount+1;
    END LOOP;
  END;
END; Received on Thu Jan 07 1999 - 00:00:00 CET