library mylib;

function just_test: integer; cdecl;
begin
  result :=  314 ;
end;

exports
  just_test;

begin
end.

SID_LIST_LISTENER =
  (SID_LIST =

    (SID_DESC =
      (SID_NAME = WK)
    )

   (SID_DESC =
      (ENVS= "EXTPROC_DLLS=D:\ntora\bin\mylib.dll" )
      (PROGRAM = extproc)
      (SID_NAME = PLSExtProc)
      (ORACLE_HOME = d:\orant)
   )
  )

(ENVS= "EXTPROC_DLLS=ANY" )

create or replace LIBRARY MYLIB as 'mylib.dll'

create or replace LIBRARY MYLIB as 'd:\ntora\bin\mylib.dll'

create or replace function TEST_EXTPROC 
return BINARY_INTEGER as EXTERNAL
   LIBRARY MYLIB
   NAME  "just_test" 
   LANGUAGE C;

declare 
  RETVAL BINARY_INTEGER;
begin 
  RETVAL := TEST_EXTPROC;
  DBMS_OUTPUT.PUT_LINE('RetVal = ' || TO_CHAR(RETVAL));
end;