Cacher is the code snippet organizer for pro developers

DECLARE
TYPE rec1_t IS RECORD (fieldl VARCHAR2(16), field2 NUMBER, field3 DATE); 
TYPE rec2_t IS RECORD (id INTEGER NOT NULL := -1, 
                       name VARCHAR2(64) NOT NULL := 'AAA'); 
rec1 rec1_t; 
rec11 rec1_t ; 
rec2 rec2_t; 
rec3 emp%ROWTYPE;
TYPE rec4_t IS RECORD (name emp.ename%TYPE, 
                       sal emp.sal%TYPE); 
rec4 rec4_t; 
BEGIN 
  rec1.fieldl := 'Yesterday'; 
  rec1.field2 := 65; 
  rec1.field3 := TRUNC(SYSDATE-1); 
  rec11 := rec1 ; 
  DBMS_OUTPUT.PUT_LINE(rec2.name); 
END;