How to Save a File in Oracle Forms 6 ?

Question

Dear All,
I am using Oracle Forms 6. I need to save a file in .lst format.
I am using,
flnm:=get_file_name('E:\',file_filter=>'Text Files(*.lst|*.lst|');
I f I use this, It prompts me to save the file. I want to save it automatically without asking me to enter the file name. We can get file name too from the above syntax
flnm:=get_file_name('E:\','Test',file_filter=>'Text Files(*.lst|*.lst|');
But i dont want the system to prompt me to save manually. It must be saved in the proper location as mentioned.
Advance thanks for all.
Kindly help me to overcome this issue

Answer 1

Here's an example of a way to write out a file which writes out data from a particular block. The field names are hard coded so need to
be customized:
/* write out data as tab delimited file for import into
excel etc */
function write_file (myfile in varchar2) return varchar2 IS
  out_file          text_io.file_type;
  item_name varchar2(32);
  errnum number := ERROR_CODE;
  errtxt varchar2(80) := ERROR_TEXT;
  myblock varchar2(32) := 'MY_BLOCK';
  addrno integer := 0;
BEGIN
  go_block(myblock);
  go_record(1);
  out_file := text_io.fopen(myfile,'w');
/* output field header for excel or word */
  text_io.putf(out_file,'%s\n', 'notes' || chr(9) || 'subR' || chr(9)||'X' || 'someid' || chr(9)  ||
    'title' ||chr(9)||
        'first_name'||chr(9)||'last_name'||chr(9)||
      'home_address'||chr(9)||'home_city'||chr(9)||'home_state'||chr(9)||'home_zip');
  LOOP
        if (addrno > 0) then
               text_io.putf(out_file,'\n');
        end if;
        addrno := addrno + 1;
        text_io.putf(out_file,'%s',:MY_BLOCK.some_notes || chr(9));
        text_io.putf(out_file,'%s',:MY_BLOCK.sub_ripple || chr(9));
        text_io.putf(out_file,'%s','X' || :MY_BLOCK.someid || chr(9));
        text_io.putf(out_file,'%s',:MY_BLOCK.title || chr(9) || :MY_BLOCK.first_name
                        || chr(9) || :MY_BLOCK.last_name || chr(9));
        text_io.putf(out_file,'%s',:MY_BLOCK.home_address || chr(9));
        text_io.putf(out_file,'%s',:MY_BLOCK.home_city || chr(9) || :MY_BLOCK.home_state ||
           chr(9) || :MY_BLOCK.home_zip);
        IF :SYSTEM.LAST_RECORD = 'TRUE' THEN
         EXIT;
     END IF;
     NEXT_RECORD;
  END LOOP;
text_io.fclose (out_file);
return 'Y';
   exception
     when others then
         message ('ERROR write_file '|| myfile || ' ' || :system.cursor_block || ' '
         || :system.cursor_record || ' ' ||:system.cursor_field || ' '
          || errnum || ' ' || errtxt);
         bell;
         synchronize;
         return 'N';
END;