Creates and uses a constrained subtype CODE
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>