Create LOV from OID entries

Question

I do not know how to build a LOV from the available list of user ids in Internet Directory. My intention is to use the Internet Directory as my "system of record" for Personnel and reference the User ID in records in the database. Is there a way to build a materialized view for this? or is there some other mechanism you can point me to?
I am building a slew of data capture forms of which I would like to enter the userid of the logged in user. I know how to use wwctx_api.get_user_id however my user may want to override their name with someone else.
Ergo, my need for an LOV.

Answer 1

I had the same problem
not sure about going to the tables direct, a little messy
have a look a d the OID developers guide there is an example of querying the OID using DBMS_LDAP
here is my fucntion to get the parameter that i need form OID it returns any array of records then you can process the array
type user_profile_rec is record (
                                        first_name varchar2(100)
                                        ,last_name varchar2(100)
                                        ,cn           varchar2(100)
                                        ,dn          varchar2(200)
                                        ,displayname          varchar2(200)
                                        ,jpegPhoto     varchar2(10000)
                                        ,orclisvisible varchar2(10));
type profile_array is table of user_profile_rec index by binary_integer;
function user_profiles ( ldap_host VARCHAR2 default portal.wwsec_oid.GET_OID_HOST
                              ,ldap_port VARCHAR2 default portal.wwsec_oid.GET_OID_PORT
                              ,ldap_user VARCHAR2
                              ,ldap_passwd VARCHAR2
                              ,ldap_base VARCHAR2
                              ,search_letter varchar2
                              ) return profile_array
as
-- this function uses the dbms_ldap package to query the ldap repsoitory
-- to get the user details.
-- this will search the named source
          -- create ldap parameters
          retval PLS_INTEGER;
          my_session DBMS_LDAP.session;
          my_attrs DBMS_LDAP.string_collection;
          my_message DBMS_LDAP.message;
          my_entry DBMS_LDAP.message;
          entry_index PLS_INTEGER;
          my_dn VARCHAR2(256);
          my_attr_name VARCHAR2(256);
          my_ber_elmt DBMS_LDAP.ber_element;
          attr_index PLS_INTEGER;
          i PLS_INTEGER;
          my_vals DBMS_LDAP.STRING_COLLECTION ;
--          ldap_host VARCHAR2(256);
--          ldap_port VARCHAR2(256);
--          ldap_user VARCHAR2(256);
--          ldap_passwd VARCHAR2(256);
--          ldap_base VARCHAR2(256);
          -- value to hold the return string from ldap
          val DBMS_LDAP.STRING_COLLECTION ;
     -- create the varray variables ( define find in the package spec      
          profile_rec user_profile_rec;
          profile_varray profile_array;
          begin
          retval := -1;
          /*ldap_host := 'uk-abi-sap01.uk.evotecoai.com' ;
          ldap_port := '4032';
          ldap_user := 'cn=orcladmin';
          ldap_passwd:= '1vindaloo';
          ldap_base := 'cn=users,dc=uk,dc=evotecoai,dc=com';
          -- Choosing exceptions to be raised by DBMS_LDAP library.
          DBMS_LDAP.USE_EXCEPTION := TRUE;
          my_session := DBMS_LDAP.init(ldap_host,ldap_port);
          -- bind to the directory
          retval := DBMS_LDAP.simple_bind_s(my_session,ldap_user, ldap_passwd);
          -- issue the search
          my_attrs(1) := 'sn'; -- retrieve all attributes
          my_attrs(2) := 'dn'; -- retrieve all attributes
          my_attrs(3) := 'cn'; -- retrieve all attributes
          my_attrs(4) := 'givenname'; -- retrieve all attributes
          my_attrs(5) := 'orclisvisible'; -- retrieve all attributes
          my_attrs(5) := 'displayname'; -- retrieve all attributes
          my_attrs(6) := 'jpegPhoto'; -- retrieve all attributes
          retval := DBMS_LDAP.search_s(my_session, ldap_base,DBMS_LDAP.SCOPE_SUBTREE,'sn='||UPPER(search_letter)||'*',my_attrs,0,my_message);
          -- count the number of entries returned
          retval := DBMS_LDAP.count_entries(my_session, my_message);
          -- get the first entry
          my_entry := DBMS_LDAP.first_entry(my_session, my_message);
          entry_index := 1;
          -- Loop through each of the entries one by one
          while my_entry IS NOT NULL loop
          -- print the current entry
                    -- return the dn for the current user row
                    my_dn := DBMS_LDAP.get_dn(my_session, my_entry);
                    profile_rec.dn := my_dn;
                    -- gets the arribs the check to make sure one is returned then assign to the array
                         val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'givenname' );
                    -- check if returned
                    if val.COUNT > 0 then
                    -- loop thought the values
                    FOR i in val.FIRST..val.LAST loop
                         -- set the value in the array
                         profile_rec.first_name := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
                    -- get the sn
                    i:=1;
                    val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'sn' );
                    if val.COUNT > 0 then
                    FOR i in val.FIRST..val.LAST loop
                         profile_rec.last_name := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
                    -- get cn
                    i:=1;
                    val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'cn' );
                    if val.COUNT > 0 then
                    FOR i in val.FIRST..val.LAST loop
                         profile_rec.cn := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
                    -- get orclisvisible
                    i:=1;
                    val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'orclisvisible' );
                    if val.COUNT > 0 then
                    FOR i in val.FIRST..val.LAST loop
                              profile_rec.orclisvisible := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
                    -- get orclisvisible
                    i:=1;
                    val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'displayname' );
                    if val.COUNT > 0 then
                    FOR i in val.FIRST..val.LAST loop
                              profile_rec.displayname := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
                    -- get orclisvisible
                    i:=1;
                    val:= dbms_ldap.GET_VALUES( LD=>my_session, LDAPENTRY=>my_entry, ATTR=>'jpegPhoto' );
                    if val.COUNT > 0 then
                    FOR i in val.FIRST..val.LAST loop
                              profile_rec.jpegPhoto := SUBSTR(val(i),1,200);
                    end loop;
                    end if;
          -- itterate thoguht the array
          -- set the values of the record to the array
          profile_varray(entry_index).cn := profile_rec.cn;
          profile_varray(entry_index).first_name := profile_rec.first_name;
          profile_varray(entry_index).last_name := profile_rec.last_name;
          profile_varray(entry_index).dn := profile_rec.dn;
          profile_varray(entry_index).displayname :=profile_rec.displayname;
          profile_varray(entry_index).orclisvisible :=profile_rec.orclisvisible;
          profile_varray(entry_index).jpegPhoto :=profile_rec.jpegPhoto;
          my_entry := DBMS_LDAP.next_entry(my_session, my_entry);
          entry_index := entry_index+1;
          end loop;
          -- unbind from the directory
          retval := DBMS_LDAP.unbind_s(my_session);
          -- return the arreay
          return profile_varray;
end user_profiles;