this is typerec.sql

set serveroutput on
DECLARE
 TYPE driveinfo is record
  (driveno drive.driveno%TYPE,
   drivename drive.drivename%TYPE,
   drivechair drive.drivechair%TYPE,
   lastyear drive.lastyear%TYPE,
   thisyear drive.thisyear%TYPE);
 thedrive  driveinfo;
BEGIN
 thedrive.driveno := 555;
 thedrive.drivename := 'Shelter';
 dbms_output.put_line(thedrive.driveno);
 dbms_output.put_line(thedrive.drivename);
END;
/
set serveroutput off

this is fromlast.sql

set serveroutput on
DECLARE
   type amt is table of number index by varchar2(25);
   amt_list amt;
   drname varchar2(25);
BEGIN
   amt_list('Kids Shelter') := 10000;
   amt_list('Animal Home') := 5000;
   amt_list('Health Aid') := 7000;
   drname := amt_list.FIRST;
   WHILE drname is not null loop
       dbms_output.put_line (drname || ' ' || to_char(amt_list(drname)));
       drname := amt_list.NEXT(drname);
   END LOOP;
END;
/
set serveroutput off