OID function in DB

Question

Hi Experts,
i have query in DB, we are using 11g database;
i have install oracle 11g in my Aix server,I had excuted DBMS_LDAP package also in my user.
I try to create below function but it's thorws error.
CREATE OR REPLACE FUNCTION GETGROUP(Username IN VARCHAR2,ldaphost VARCHAR2,ldapport number,ldapuser VARCHAR2,ldap_pwd VARCHAR2) RETURN ARRAY PIPELINED AS
2 ldap_host VARCHAR2(256);
3 ldap_port PLS_INTEGER;
4 ldap_user VARCHAR2(256);
5 ldap_passwd VARCHAR2(256);
6 ldap_base VARCHAR2(256);
7 retval PLS_INTEGER;
8 my_session DBMS_LDAP.session;
9 subscriber_handle DBMS_LDAP_UTL.HANDLE;
10 sub_type PLS_INTEGER;
11 subscriber_id VARCHAR2(2000);
12 my_pset_coll DBMS_LDAP_UTL.PROPERTY_SET_COLLECTION;
13 my_property_names DBMS_LDAP.STRING_COLLECTION;
14 my_property_values DBMS_LDAP.STRING_COLLECTION;
15 group_handle DBMS_LDAP_UTL.HANDLE;
16 group_id VARCHAR2(2000);
17 group_type PLS_INTEGER;
18 user_handle DBMS_LDAP_UTL.HANDLE;
19 user_id VARCHAR2(2000);
20 user_type PLS_INTEGER;
21 my_mod_pset DBMS_LDAP_UTL.MOD_PROPERTY_SET;
22 my_attrs DBMS_LDAP.STRING_COLLECTION;
23 group_string varchar2(32767);
24 BEGIN
25 – Please customize the following variables as needed
26 ldap_host := x.x.x.x' ;
27 ldap_port := x;
28 ldap_user := ‘cn=x,cn=x,dc=x,dc=x;
29 ldap_passwd := ‘xxx;
30 sub_type := DBMS_LDAP_UTL.TYPE_DN;
31 subscriber_id := ‘dc=x,dc=x;
32 user_type := DBMS_LDAP_UTL.TYPE_DN;
33 user_id := ‘cn=’||Username||’,cn=Users,dc=x,dc=x;
34 group_type := DBMS_LDAP_UTL.TYPE_DN;
35 group_id := ‘cn=Groups, dc=x,dc=x;
36 – Choosing exceptions to be raised by DBMS_LDAP library.
37 DBMS_LDAP.USE_EXCEPTION := TRUE;
38 ———————————————–
39 – Connect to the LDAP server
40 – and obtain and ld session.
41 ———————————————–
42 my_session := DBMS_LDAP.init(ldap_host,ldap_port);
43 ———————————————–
44 – Bind to the directory
45 –
46 ———————————————–
47 retval := DBMS_LDAP.simple_bind_s(my_session,
48 ldap_user,
49 ldap_passwd);
50 ———————————————————————
51 – Create User Handle
52 –
53 ———————————————————————
54 retval := DBMS_LDAP_UTL.create_user_handle(user_handle,user_type,user_id);
55 IF retval != DBMS_LDAP_UTL.SUCCESS THEN
56 DBMS_OUTPUT.PUT_LINE(‘create_user_handle returns : ‘ || TO_CHAR(retval));
57 END IF;
58 —————————————
59 – Get Group Membership
60 —————————————
61 my_attrs.delete();
62 my_attrs(1) := ‘cn’;
63 retval := DBMS_LDAP_UTL.get_group_membership ( my_session,
64 user_handle,
65 DBMS_LDAP_UTL.DIRECT_MEMBERSHIP,
66 my_attrs,
67 my_pset_coll );
68
69 – Handle Errors
70
71 IF retval != DBMS_LDAP_UTL.SUCCESS THEN
72
73 DBMS_OUTPUT.PUT_LINE(‘get_group_membership returns : ‘ || TO_CHAR(retval));
74 END IF;
75 IF my_pset_coll.count > 0 THEN
76 group_string := NULL;
77 FOR i in my_pset_coll.first .. my_pset_coll.last LOOP
78 retval := DBMS_LDAP_UTL.get_property_names(my_pset_coll(i),
79 my_property_names);
80 IF my_property_names.count > 0 THEN
81 FOR j in my_property_names.first .. my_property_names.last LOOP
82 retval := DBMS_LDAP_UTL.get_property_values(my_pset_coll(i),
83 my_property_names(j),
84 my_property_values);
85 IF my_property_values.COUNT > 0 THEN
86 FOR k in my_property_values.FIRST..my_property_values.LAST LOOP
87 DBMS_OUTPUT.PUT_LINE( my_property_names(j) || ‘ : ‘ ||
88 my_property_values(k));
89 IF my_property_names(j) = ‘cn’ THEN
90 PIPE ROW(my_property_values(k));
91 END IF;
92 END LOOP;
93 END IF;
94 END LOOP;
95 END IF; — IF my_property_names.count > 0
96 END LOOP;
97 END IF; — If my_pset_coll.count > 0
98 ———————————————————————
99 – Free handle
100 –
101 ———————————————————————
102 DBMS_LDAP_UTL.free_handle(user_handle);
103 – unbind from the directory
104 retval := DBMS_LDAP.unbind_s(my_session);
105 IF retval != DBMS_LDAP_UTL.SUCCESS THEN
106 – Handle Errors
107 DBMS_OUTPUT.PUT_LINE(‘unbind_s returns : ‘ || TO_CHAR(retval));
108 END IF;
109 – Handle Exceptions
110 EXCEPTION
111 WHEN OTHERS THEN
112 DBMS_OUTPUT.PUT_LINE(‘ Error code : ‘ || TO_CHAR(SQLCODE));
113 DBMS_OUTPUT.PUT_LINE(‘ Error Message : ‘ || SQLERRM);
114 DBMS_OUTPUT.PUT_LINE(‘ Exception encountered .. exiting’);
115 END GETUSERGROUP;
116 /
Warning: Function created with compilation errors
SQL> show error
Errors for FUNCTION UAT_SEC.GETGROUP:
LINE/COL ERROR-------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
25/3 PLS-00103: Encountered the symbol "–" when expecting one of the following: ( begin case declare exit for goto if loop mod null pragma raise return select update while with <an identifier> <a double-quoted delimited-identifier> <a bind variable> << continue close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe purge
It's throw above error .
Please tell me what's wrong in this function.
Its very urgent help me pz.
Thanks
satya

Answer 1

No - you can not access routines in modules. I believe you
can use queries (as stored procedures). My suggestion would be to
write a cfc to handle this.