DECLARE
  in_file     text_io.file_type;
   v_filename  VARCHAR2(100);
   v_length    NUMBER;
   v_contents  VARCHAR2(100);
   linebuf     VARCHAR2(1000);
   v_start     NUMBER;
   p_string    VARCHAR2(1000);
BEGIN
  v_filename := :block3.file_dir;
  
  in_file := text_io.Fopen(v_filename,
                           'r');
  
  LOOP
    v_start := 1;
    
    text_io.new_line;
    
    text_io.Get_line(in_file,
                     linebuf);
    
    p_string := Ltrim(Rtrim(Substr(linebuf,
                                   v_start,
                                   v_length)));
    
    :block3.contento := :block3.contento || p_string;
    
    text_io.new_line;
  END LOOP;
END;