CREATE OR REPLACE
PROCEDURE          fds_ldap AS

v_ldap_host         VARCHAR2(25) := '<ldapserver>';
v_ldap_port         INTEGER := 636;
v_session           SYS.DBMS_LDAP.SESSION;
v_rtn		    INTEGER := -1;
v_cdsid             VARCHAR2(20) := 'rwhalen3';
v_ldap_fieldname    VARCHAR2(20) := 'DisplayName';
v_output_name       VARCHAR2(256);
V_LDAP_BASE 	    VARCHAR2(50) := 'ou=people,o=org,c=us';
v_search   	    VARCHAR2(12);
v_dn        	    VARCHAR2(256) := 'GID=1085044, ou=Employee, ou=People, o=Org, c=US';
v_key  		    VARCHAR2(256);
v_index   	    INTEGER;
v_key_index    	    INTEGER;
i             	    INTEGER;
v_error        	    BOOLEAN := FALSE;
v_message   	    SYS.DBMS_LDAP.message;
v_result    	    SYS.DBMS_LDAP.message;
v_attrs   	    SYS.DBMS_LDAP.string_collection;
v_ber_element       SYS.DBMS_LDAP.ber_element;
v_values       	    SYS.DBMS_LDAP.STRING_COLLECTION ;

BEGIN
dbms_output.ENABLE;
      dbms_output.put_line(' Beginning LDAP test ');
      SYS.DBMS_LDAP.USE_EXCEPTION := TRUE;
      v_session 	:= SYS.DBMS_LDAP.init(v_ldap_host,v_ldap_port);
      DBMS_OUTPUT.PUT_LINE (RPAD('Ldap session ',25,' ')  || ': ' || RAWTOHEX(SUBSTR(v_session,1,8)) || '(returned from init)');
      v_rtn 	        := SYS.DBMS_LDAP.open_ssl(v_session, 'file:c:\', 'walletpassword', 2);
      -- Specifies the SSL Authentication Mode 
      -- 1 for no authentication required
      -- 2 for one way authentication required
      -- 3 for two way authentication required
      DBMS_OUTPUT.PUT_LINE (RPAD('Ldap session ',25,' ')  || ': ' || RAWTOHEX(SUBSTR(v_session,1,8)) || '(returned from init)');
      v_rtn           := SYS.DBMS_LDAP.bind_s(v_session,v_dn, 'password', 163 );
      --Authentication methods available for DBMS_LDAP.bind_s()
      --AUTH_NONE   CONSTANT NUMBER := 0;
      --AUTH_SIMPLE CONSTANT NUMBER := 128; -- context specific + primitive
      --AUTH_SASL   CONSTANT NUMBER := 163; -- v3 SASL

      DBMS_OUTPUT.PUT_LINE(RPAD('bind_s Returns ',25,' ') || ': ' || TO_CHAR(v_rtn));
        
               
--Close the LDAP connection
-- unbind from the directory
        v_rtn := SYS.DBMS_LDAP.unbind_s(v_session);
        DBMS_OUTPUT.PUT_LINE(RPAD('unbind_res Returns ',25,' ') ||  ': ' || TO_CHAR(v_rtn));        
  NULL;
END;