Code Listing 3: load_arguments procedure

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           arguments (NVL (arguments.LAST, 0) + 1) := rec;

13     END LOOP;
14  END;