declare
subtype t_loopcounter is number;
v_loopcounter t_loopcounter;
另外这样定义更像一个类:
Creating a Type Body Example
The following object type body implements member subprograms for rational. (PL/SQL is shown in italics.) CREATE TYPE BODY rational
  IS 
   MAP MEMBER FUNCTION rat_to_real RETURN REAL IS
      BEGIN 
         RETURN numerator/denominator;  
      END;    MEMBER PROCEDURE normalize IS
      gcd NUMBER := integer_operations.greatest_common_divisor 
                     (numerator, denominator);
      BEGIN
         numerator := numerator/gcd;
         denominator := denominator/gcd;
      END;   MEMBER FUNCTION plus(x rational) RETURN rational IS
      r rational := rational_operations.make_rational
                      (numerator*x.denominator + 
                       x.numerator*denominator,
                       denominator*x.denominator);
      BEGIN
         RETURN r;
      END;   END;