--IF :BLOCK3.PATH IS NOT NULL THEN
DECLARE
count1 number(3):=0;
 P_FILE_NAME    VARCHAR2(100);
 RECORDS_file   Text_IO.File_Type;
 LINE           VARCHAR2(1000);

EMP_NO1              NUMBER(20);
TRANS_DATE1              NUMBER(10);
TRANS_TIME1               NUMBER(10);
TRANS_TYPE1             VARCHAR2(25);
TRANS_STATUS1           VARCHAR2(100);
linebuf 								varchar2(1000);

BEGIN

 P_FILE_NAME  := :BLOCK3.PATH;
 
 PUT_ZERO_LINE;
 
 RECORDS_file := Text_IO.Fopen(P_FILE_NAME, 'r');
 
 Text_IO.Get_Line(RECORDS_file, linebuf);
 MESSAGE(LINEBUF);MESSAGE(LINEBUF);

LOOP

 Text_IO.Get_Line(RECORDS_file, linebuf);
 --message(P_FILE_NAME||'1');
 --message(P_FILE_NAME||'1');
 

------------------------------------------------------------------
EMP_NO1              := TO_NUMBER  (GET_SUB_STR(LINE,1));
TRANS_DATE1          := (GET_SUB_STR(LINE,2));
TRANS_TIME1          := (GET_SUB_STR(LINE,3));
TRANS_TYPE1          := (GET_SUB_STR(LINE,4));
TRANS_STATUS1        := (GET_SUB_STR(LINE,5));

------------------------------------------------------------------
begin
--///////////////////////////////////////////
 INSERT INTO AAA (EMP_NO,TRANS_DATE,TRANS_TIME,TRANS_TYPE,TRANS_STATUS)
VALUES(EMP_NO1,TRANS_DATE1,TRANS_TIME1,TRANS_TYPE1,TRANS_STATUS1);
--///////////////////////////////////////////
message(TRANS_DATE1);message(TRANS_DATE1);
 
  Text_IO.New_Line;
    
  --EXIT WHEN EMP_NO1 = 000 ;
  
 END LOOP;

   COMMIT;
     MESSAGE('ok ');
   CLEAR_MESSAGE;
   CLEAR_MESSAGE;
 

   MESSAGE('PROCESSING CLOCK DATA COMPLETED');
  
 Text_IO.Fclose(RECORDS_FILE); 

 --EXCEPTION WHEN OTHERS THEN

     --Text_IO.Fclose(RECORDS_FILE); 


END LOOP;
--ELSE
	
	--MESSAGE('YOU SHOULD HAVE TO CHOSE A FILE');
	--MESSAGE(' ');
	
--END IF ;
END;