CLIENT_HOST('cmd /c rundll32 url.dll,FileProtocolHandler C:\test.bat');

PROCEDURE DOWNLOAD_DB IS
  l_success boolean;
  var varchar2(500);
  al_id Alert;
  al_button NUMBER; 
BEGIN
  l_success := webutil_file_transfer.DB_To_Client
                                    (clientFile      => 'C:\temp\tmp.pdf'
                                    ,tableName       => 'emp'
                                    ,columnName      => 'ACTUAL_FILE' 
                                    ,whereClause     => '');
    if l_success then
  		var := 'cmd /c rundll32 url.dll,FileProtocolHandler C:\temp\tmp.pdf';
			IF copy_by_host_cmd(var) then 
				al_id := Find_Alert('User_Warning');
				al_button := Show_Alert(al_id);  
				IF al_button = ALERT_BUTTON1 THEN
					var := 'cmd /c Del c:\temp\tmp.pdf';
					IF copy_by_host_cmd(var) then 
						null;
					end if;
				end if;
  		Else
  			Display_okay_message1('Acrobat Reader may not be installed on your Computer. Please contact Administrator');
  		end if;
  else
    display_okay_message1('File download from Database failed');
  end if;
END;

FUNCTION copy_by_host_cmd(VAL varchar2)
RETURN BOOLEAN IS
BEGIN
	client_host(val);
	return TRUE;

EXCEPTION 
	WHEN OTHERS THEN
	return FALSE;
END;

PROCEDURE START_IEXPLORER (fileName VARCHAR2)
IS
  hFile           CLIENT_TEXT_IO.FILE_TYPE;
  V_METHOD_NAME   CONSTANT VARCHAR(40) := 'PROCEDURE START_IEXPLORER';
  V_METHOD_LABEL  VARCHAR(40);
  v_temp_dir      VARCHAR(100) := 'e:\APPS\oracle\as10g_mid\forms\EGIS\temp';
  v_cmd_file_loc  VARCHAR(200);
  serverxml VARCHAR(200) ;
  serverxsl VARCHAR(200) ;
  serverbat VARCHAR(200) ;
  clientxml VARCHAR(200) ;
  clientxsl VARCHAR(200) ;
  clientbat VARCHAR(200) ;
BEGIN
	serverxml := 'e:\APPS\oracle\as10g_mid\forms\EGIS\temp\LSTRANS.xml'; serverxsl := 'e:\APPS\oracle\as10g_mid\forms\EGIS\temp\LSTRANS.xsl';

  clientxml := 'C:\Apps\LSTRANS.xml';
  clientxsl := 'C:\Apps\LSTRANS.xsl';
  
    IF WEBUTIL_FILE_TRANSFER.AS_TO_CLIENT_WITH_PROGRESS(clientxml,serverxml,'Downloading the XML file','please wait') Then
   	  Message('XML file Transferred to client', NO_ACKNOWLEDGE);SYNCHRONIZE;	
  else
  	Message('XML file not Transferred', NO_ACKNOWLEDGE);SYNCHRONIZE;
  	end if;
  	
  	IF WEBUTIL_FILE_TRANSFER.AS_TO_CLIENT_WITH_PROGRESS(clientxsl,serverxsl,'Downloading the XsL file','please wait') Then
   	  Message('XsL file Transferred to client', NO_ACKNOWLEDGE);SYNCHRONIZE;	
  else
  	Message('XsL file not Transferred', NO_ACKNOWLEDGE);SYNCHRONIZE;
  	
  	end if;
  
  
   CLIENT_HOST('cmd /c START IEXPLORE C:\Apps\LSTRANS.xml');