CREATE OR REPLACE PACKAGE pkg AS 
  TYPE rec_type IS RECORD (        
    f1 INTEGER, 
    f2 VARCHAR2(4) 
  ); 
  PROCEDURE print_rec_type (rec rec_type); 
END pkg; 

CREATE OR REPLACE PACKAGE BODY pkg AS 
  PROCEDURE print_rec_type (rec rec_type) IS 
  BEGIN 
    DBMS_OUTPUT.PUT_LINE(rec.f1); 
    DBMS_OUTPUT.PUT_LINE(rec.f2); 
  END;  
END pkg; 

DECLARE 
  TYPE rec_type IS RECORD (       -- local record type 
    f1 INTEGER, 
    f2 VARCHAR2(4) 
  ); 
  r1 pkg.rec_type;                -- packaged type 
  r2     rec_type;                -- local type 
  
BEGIN 
  r1.f1 := 10; r1.f2 := 'abcd'; 
  r2.f1 := 25; r2.f2 := 'wxyz'; 
 
  pkg.print_rec_type(r1);  -- succeeds 
  pkg.print_rec_type(r2);  -- fails 
END;