Code Listing 5: load_arguments revisited

1  PROCEDURE load_arguments (
 2     package_in      IN   VARCHAR2,

 3     owner_in        IN   VARCHAR2 := NULL
 4  )
 5  IS
 6  BEGIN
 7     FOR rec IN  (SELECT   *

 8                    FROM all_arguments
 9                   WHERE owner = UPPER (NVL (owner_in, USER))
10                     AND package_name = UPPER (package_in))
11     LOOP
12        g_programs
13           (rec.object_name)

14              (rec.overload)
15                 (rec.position)
16                    (rec.data_level) := rec;
17     END LOOP;
18  END;