1   BEGIN
 2     l_names := cc_names.for_program (program_in);
 3
 4     FOR rec IN distinct_programs_cur (l_names.owner,
 5                                       l_names.package_name,
 6                                       l_names.object_name
 7                                      )
 8     LOOP
 9        get_dbms_describe_info (rec);
10        l_index := l_argument_name.FIRST;
11        LOOP
12           EXIT WHEN l_index IS NULL;
13           transfer_data (rec, l_index);
14           l_index := l_argument_name.NEXT (l_index);
15        END LOOP;
16     END LOOP;
17
18     RETURN retval;
19  END fullset;