set ORACLE_SID=INTELPRD
set arg=export
set newDate=%date:~4,2%-%date:~7,2%-%date:~10%
echo C:\oracle\veritas_scripts\Exports_dump\Intelprd_%newDate%.dmp >C:\oracle\admin\INTELPRD\lists\exportINTELPRDSCHEMASlist.txt
If EXIST C:\oracle\veritas_scripts\Exports_dump\*.dmp del C:\oracle\veritas_scripts\Exports_dump\*.dmp 
C:\oracle\ora92\bin\exp.exe backup_user/backup_user statistics=none file=C:\oracle\veritas_scripts\Exports_dump\Intelprd_%newDate%.dmp owner=acufile2,iplant  consistent=y log=C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log rows=y
date /t >> C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log
call C:\oracle\veritas_scripts\Exports_scripts\WAIT.bat 600
cd "C:\Program Files\Veritas\NetBackup\bin"
start bpbackup -p Windows-Servers-dbs -s %arg% -L C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log -f C:\oracle\admin\INTELPRD\lists\exportINTELPRDSCHEMASlist.txt
:Loop

	call C:\oracle\veritas_scripts\Exports_scripts\WAIT.bat 15
	tasklist.exe /fi "IMAGENAME eq bpbackup.exe">C:\oracle\admin\INTELPRD\Logs_de_exports\borrame.txt
	tasklist.exe /fi "IMAGENAME eq bpbkar32.exe">>C:\oracle\admin\INTELPRD\Logs_de_exports\borrame.txt
	findstr /i /s "bpbackup.exe bpbkar32.exe" C:\oracle\admin\INTELPRD\Logs_de_exports\borrame.txt
	if %errorlevel% equ 0 (
		echo Todavía está corriendo el envío a Veritas > C:\oracle\admin\INTELPRD\Logs_de_exports\Verificacion.log
		echo error level is %errorlevel% >>C:\oracle\admin\INTELPRD\Logs_de_exports\logfile.txt
		Goto :Loop
	 ) else (
		echo Terminó el envio a Veritas >> C:\oracle\admin\INTELPRD\Logs_de_exports\Verificacion.log
		echo error level is %errorlevel% >>C:\oracle\admin\INTELPRD\Logs_de_exports\logfile.txt
		Goto :Terminar
	)

:Terminar
	call C:\oracle\veritas_scripts\Exports_scripts\WAIT.bat 15
	type "C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log" >>"C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_historial.log"
	findstr /i /s "ORA- rejected EXP- Killed" C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log

IF %ERRORLEVEL% EQU 0 (
  cscript C:\oracle\veritas_scripts\Exports_scripts\sent_log.vbs
) else (
  findstr /C:"status = 0" C:\oracle\admin\INTELPRD\Logs_de_exports\exp_Intelprd_%newDate%.log
IF %ERRORLEVEL% GTR 0 cscript C:\oracle\veritas_scripts\Exports_scripts\sent_log.vbs
)