5: procedure init(dirpath varchar2) as
6: begin
7: execute immediate
8: 'create or replace directory wfcjadmin as ' || 9: sys.dbms_assert.enquote_literal(dirpath); 10: fd := utl_file.fopen('WFCJADMIN', 'fclasses.bin', 'wb');
11: delete from java$rmjvm$aux;
12: insert into java$rmjvm$aux
13: (select joxftobn from x$joxft where bitand(joxftflags,4384) in (32,256,288));