تحياتى
مرفق procedurلقراة ملف نصى وتحميله الى الاوراكل

PROCEDURE new_pro1 IS
in_file   Client_Text_IO.File_Type;
 linebuf   VARCHAR2(1800);
 filename  VARCHAR2(100);
w_ACTNO          	VARCHAR2(14)	;
w_CODE           	VARCHAR2(15)	;
w_SDSCPT         	VARCHAR2(40)	;
w_TXAMT         	VARCHAR2(20)	;

BEGIN begin client_host('cmd /c net use s: \\path\' );
  in_file := Client_Text_io.fopen('s:\rifOtPay','r');
  exception when others then          
     	--message('c:\spool\tel.txt:??? ?????  tel.txt ??? ????? ??? ??? ??????');
    	MESSAGE(MESSAGE_LANG(1));
    	    client_host('cmd /c net use s: /d /y');
   	raise form_trigger_failure;
   end;
  LOOP
   Client_Text_IO.Get_Line(in_file, linebuf);
        w_ACTNO     :=nvl(substr(linebuf,0,14),0);
       w_CODE      :=nvl(substr(linebuf,15,2),0);
       w_SDSCPT    :=nvl(substr(linebuf,17,10),0);
       w_TXAMT     :=to_number(nvl(substr(linebuf,27,16),0))/100;
         
insert into TableName values(sysdate,
w_ACTNO   , w_CODE    ,   w_SDSCPT  ,   w_TXAMT ,0);   

 END LOOP;

اخوكم
ناصر عثمان

شكرا اخى الكريم على الشرح المفيد