declare
cursor c1 is
select hd.order_no,
	hd.written_date,
	sku.ORIGIN_COUNTRY_ID,
	su.sup_name ;
	out_file   client_Text_IO.File_Type;
	po_number  number;
begin
  out_file := client_Text_IO.Fopen(:file_path ||'\'||'Mx'||:PO_NUMBER, 'W');
  for po_submit in c1 loop
  client_Text_IO.Put_Line(out_file,
                   '0~'||
	po_submit.order_no||'~'||
	'0~'||
	po_submit.written_date||'~'||
	po_submit.ORIGIN_COUNTRY_ID||'~'||
	po_submit.sup_name||'~'||                         
	);				
  end loop;	
	client_Text_IO.Fclose(out_file);
	EXCEPTION
  	  when FORM_TRIGGER_FAILURE then
      raise;
      WHEN no_data_found THEN
      emessage('no data found file cannot be generated');
      Text_IO.Put_Line('Closing the file...');
      Text_IO.Fclose(out_file);
      when OTHERS then
      emessage(SQLERRM);
      raise FORM_TRIGGER_FAILURE; 
END;