DECLARE
  CURSOR c1 IS  SELECT productsubcategorykey, productsubcategoryname
                FROM dimproductsubcategory ;
  vc1 c1%ROWTYPE ;
BEGIN
  OPEN c1 ;
  FETCH c1 INTO vc1 ;
  WHILE c1%found LOOP
      DBMS_OUTPUT.put_line(vc1.productsubcategoryname) ;
      FETCH c1 INTO vc1 ;
  END LOOP ;
END ;