bidir.tst

BEGIN
   -- Not necessary: initialization section does it: Bidir.loadarray;
   bidir.accumulate;
   bidir.showmaxsal;
   bidir.showminsal;
   bidir.showall;

   DECLARE
      l_employee   employees%ROWTYPE;
   BEGIN
      LOOP
         EXIT WHEN bidir.end_of_data;
         l_employee := bidir.currrow;
         DBMS_OUTPUT.put_line (l_employee.last_name);
         bidir.nextrow;
      END LOOP;

      bidir.setrow (bidir.lastrow);

      LOOP
         EXIT WHEN bidir.end_of_data;
         l_employee := bidir.currrow;
         DBMS_OUTPUT.put_line (l_employee.last_name);
         bidir.prevrow;
      END LOOP;
   END;
END;
/



/*======================================================================
| Supplement to the fifth edition of Oracle PL/SQL Programming by Steven
| Feuerstein with Bill Pribyl, Copyright (c) 1997-2009 O'Reilly Media, Inc. 
| To submit corrections or find more code samples visit
| http://oreilly.com/catalog/9780596514464/
*/