SQL>SQL> DECLARE 2 SUBTYPE code IS CHAR(1 CHAR); 3 c CHAR(1 CHAR) := 'A'; 4 d CODE; 5 BEGIN 6 d := c; 7 END; 8 /PL/SQL procedure successfully completed.SQL>