1.   SUBTYPE score IS NUMBER;
    2.   amount score(6,2); 
    3.   SUBTYPE item IS score NOT NULL;
    4.   item1 item := 1; 
    5. BEGIN 
    6.   amount := item1;