Live ORACLE

DECLARE

 TYPE definition IS RECORD(word VARCHAR2(20),

                            meaning VARCHAR2(200));

 TYPE dictionary IS VARRAY(2000) OF DEFINITION;

 lexicon  DICTIONARY := Dictionary();

 PROCEDURE Add_entry

      (word_list  IN OUT NOCOPY DICTIONARY)

 IS

 BEGIN

   Word_list(1).word := 'aardvark';

 

   Lexicon(1).word := 'aardwolf';

 END;

BEGIN

 lexicon.extend;



 Add_entry(lexicon);



 dbms_output.Put_line(Lexicon(1).word);

END;

/

aardwolf

PL/SQL procedure successfully completed.

Aliasing from Passing Global Variable with NOCOPY Hint