DECLARE
  in_file 	TEXT_IO.FILE_TYPE ;
  linebuf 	VARCHAR2(80); 
  file_path 	varchar2(300) ;
  fpath varchar2(15);
  a number;

	begin
				BEGIN
					SELECT PATH_DESC INTO FILE_PATH FROM IMAGE_PATH WHERE IMAGE_TYPE = 'SCANNED' ;
				EXCEPTION WHEN NO_DATA_FOUND THEN
					RAISE FORM_TRIGGER_FAILURE ;
				END ;

					select path into fpath from image_folder where scan_year =substr(:b010.job_no,1,4) and from_no<=substr(:b010.job_no,6,9) 
					and to_no>=substr(:b010.job_no,6,9);
					file_path:=file_path||substr(:b010.job_no,1,4)||'\'||fpath||'\'||:b010.job_no||'\'||:b010.job_no||'.tif';
		
					BEGIN 
					in_file := TEXT_IO.FOPEN(FILE_PATH, 'r'); 
				
					EXCEPTION WHEN OTHERS THEN 
  					IF SQLCODE = -302000 then 
    					a:=show_alert('scanned');
 			  	  END IF; 
				end;
			end;
			
		declare 
				OS_name  VARCHAR2(40); 
				file_path	varchar2(100) ;
				v_server_app varchar2(40);
				v_server_tag varchar2(600);
				v_command varchar2(2000);
				v_arg_pos pls_integer;
				fpath varchar2(100) ;
				thefile text_io.file_type;
		begin
			thefile:= text_io.fopen('c:\JOB.BAT', 'w');
					Begin
						v_server_tag := 'HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE' ;
				
						v_command    := win_api_environment.read_registry(v_server_tag,'ORACLE_HOME',true);
						
						v_arg_pos := instr(upper(v_command),'95');
							if v_arg_pos > 0 then
			  				OS_NAME := '95' ;
      				else
	      				OS_NAME := 'NT' ;
      				end if ;
					 Exception when Others then null ;
					End ;

					BEGIN
							SELECT PATH_DESC INTO FILE_PATH FROM IMAGE_PATH WHERE IMAGE_TYPE = 'SCANNED' ;
					EXCEPTION WHEN NO_DATA_FOUND THEN
					RAISE FORM_TRIGGER_FAILURE ;
					END ;

							select path into fpath from image_folder where scan_year =substr(:b010.job_no,1,4) and from_no<=substr(:b010.job_no,6,9) 
							and to_no>=substr(:b010.job_no,6,9);
							file_path:=file_path||substr(:b010.job_no,1,4)||'\'||fpath;
										if os_name = 'NT' then
											file_path :=  FILE_PATH ||'\'|| :B010.JOB_NO||'\'||:B010.JOB_NO||'.tif' ;
										else
											file_path := '..\KODAKPRV  ' || FILE_PATH ||'\'|| :B010.JOB_NO||'\'||:B010.JOB_NO||'.tif' ;
					          end if;
											text_io.put_line(thefile, '@Echo OFF');
											text_io.put_line(thefile,file_path);
											text_io.fclose(theFile);
											host('c:\JOB.BAT');
		EXCEPTION WHEN FORM_TRIGGER_FAILURE THEN
		:CNT_BLK.MSGFLD := 'MISSING PATH .. CANNOT RETRIEVE PATH ' ;
 		when no_Data_found then pause;
	end ;