Declare
  LF TEXT_IO.FILE_TYPE;
  LL VARCHAR2(32000) ;
  filename varchar2(100);
Begin
 
begin
	     filename:=GET_FILE_NAME('c:\', File_Filter=>'Text Files (*.txt)|*.txt|');
       LF := TEXT_IO.FOPEN( filename, 'R');
  Exception
  	when others then
  	   message( 'Cannot open file' || 'salary' );
  	   raise ;
  End ;
  -- OK, file is open --
  Begin
    -- Read the lines --
    Loop
      TEXT_IO.GET_LINE( LF, LL ) ;
      :MAIN.GET_F := :MAIN.GET_F || LL ;
      Text_IO.New_Line;
      TEXT_IO.GET_LINE( LF, LL ) ;
      :MAIN.GET_F2 := :MAIN.GET_F2 || LL ;
    End loop ;
  Exception
    When no_data_found Then
      -- end of file --
      TEXT_IO.FCLOSE( LF) ;
  End ;
 
End;