Live ORACLE

DECLARE

 TYPE numlist IS TABLE OF NUMBER;

  n  NUMLIST := Numlist(1966,1971,1984,1989,1999);

BEGIN

 dbms_output.Put_line('The element after #2 is #'

                      ||n.NEXT(2));



 dbms_output.Put_line('The element before #2 is #'

                      ||n.PRIOR(2));



 n.DELETE(3); -- Delete an element to show how NEXT can handle gaps.



 dbms_output.Put_line('Now the element after #2 is #'

                      ||n.NEXT(2));



 IF n.PRIOR(n.FIRST) IS NULL THEN

   dbms_output.Put_line('Can''t get PRIOR of the first element or NEXT of the last.');

 END IF;

END;

/

Using PRIOR and NEXT to Access Collection Elements