كيف اعمل مربع حوار في 10g ... اختار مكان ال Dmp واختارها وتعمل امبورت

DECLARE
da varchar2(100);
BEGIN 
DA:=GET_FILE_NAME('D:\k_pro\backup',NULL,'DATE_BASE_NAME(*.DMP)/*.DMP/','select the dmp file',OPEN_FILE,TRUE);
if da is null then
null;
else
forms_ddl('conn system/manager');
forms_ddl('drop user kimy2 cascade');
forms_ddl('create user hakimy identified by hakimy'); 
forms_ddl('grant dba to hakimy');
forms_ddl('conn hakimy/hakimy');
HOST('Imp UserId =hakimy/hakimy File = '||DA||' full=yes');
end if;


end;

وكما في الصوره المرفقه

الان انتقلت للدفلوبر 10g مع داتابير 11g

ولكن لم استطيع تنفيذ الكود السابق وبحثت فلم اجد حل بنفس الطريقه

بل بطرق صعبه بالجافا

فكيف اعدل على هذا الكود كي يعمل معي من 10g

وشكرا