LISTING 3
LISTING 3
1 FUNCTION same_program_types (
2 program_in IN VARCHAR2
3 ,overload1_in IN PLS_INTEGER
4 ,overload2_in IN PLS_INTEGER
5 )
6 RETURN BOOLEAN
7 IS
8 l_arg1_is_function BOOLEAN
9 := cc_smartargs.is_function (program_in, overload1_in);
10 l_arg2_is_function BOOLEAN
11 := cc_smartargs.is_function (program_in, overload2_in);
12 BEGIN
13 RETURN ( ( l_arg1_is_function
14 AND l_arg2_is_function)
15 OR ( NOT l_arg1_is_function
16 AND NOT l_arg2_is_function)
17 );
18 END same_program_types;
